31. marts 2017 - 10:09Der er
9 kommentarer og 2 løsninger
Makro der skal aktiveres når et felt bliver anvendt med en defineret tekst
Hej
Jeg er ved at opbygge et beregnings ark, hvori at når brugerne vælger en defineret tekst i et rullegardin, i kolonne AI det kan gøres flere felter i kolonne AI og flere gange. Så skal der aktives en makro som ser sådan ud:
Private Sub Workbook_Activate()
Dim RK As String RK = Range("C17").End(xlDown).Row
If Range("AI17:AI" & RK) = "Z-tillæg" Then Call EngangstillægSkriv
End If End Sub
Men den virker ikke hvorfor, hvad gør jeg forkert?
Nu koder jeg ikke selv den slags. Men fx. i PHP holder jeg mig fra at bruge æøå i funktionsnavne og den slags. Kan se du har "EngangstillægSkriv" med æ. Kan det give problemer?
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 35 Then If Target.Value = "Z-tillæg" Then MsgBox Target.Address & " = " & Target.Value Else MsgBox Target.Address & " = " & Target.Value End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim RK As String RK = Range("C17").End(xlDown).Row If Not Intersect(Target, Range("AI17:AI" & RK)) Is Nothing Then If Target.Value = "Z-tillæg" Then 'Call EngangstillægSkriv Else
Prøv med denne. Den aktiverer kun EngangstillægSkriv hvis der i kolonne C også står noget i samme række som den aktiverede celle i kolonne AI:
Private Sub Worksheet_Change(ByVal Target As Range) Dim RK As String RK = Range("C17").End(xlDown).Row If Not Intersect(Target, Range("AI17:AI" & RK)) Is Nothing Then If Target = "Z-tillæg" Then Call EngangstillægSkriv End If End If End Sub
Nej D5 er ikke en formel. Men det lykkes mig at lave programmeringen så den virker :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
