Hi folks!
Ik heb zelf (en een beetje veel van google) de volgende macro geschreven:
Private Sub Worksheet_Change(ByVal Target As Range)
gewijzigdecel = Target.Address '
If gewijzigdecel = "$K$6" Then
Range("D3:E3").Select
Selection.Copy
lMaxRows = Cells(Rows.Count, "G").End(xlUp).Row
Range("G" & lMaxRows + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Deze macro doet wat hij moet doen. Ik heb alleen een probleem met het triggeren van de macro.
Hij doet het momenteel alleen als je handmatig iets wijzigd aan cell K6. In k6 zit een getal dat berekend wordt uit een tabblad met brondata.
Als de tabel auto-ververst veranderd de waarde in cel k6 wel, maar wordt de macro niet getriggerd.
Iemand een oplossing? Als de macro getriggerd wordt vanuit een verandering in het bronbestand voldoet dit ook!
Thanks!
Ik heb zelf (en een beetje veel van google) de volgende macro geschreven:
Private Sub Worksheet_Change(ByVal Target As Range)
gewijzigdecel = Target.Address '
If gewijzigdecel = "$K$6" Then
Range("D3:E3").Select
Selection.Copy
lMaxRows = Cells(Rows.Count, "G").End(xlUp).Row
Range("G" & lMaxRows + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Deze macro doet wat hij moet doen. Ik heb alleen een probleem met het triggeren van de macro.
Hij doet het momenteel alleen als je handmatig iets wijzigd aan cell K6. In k6 zit een getal dat berekend wordt uit een tabblad met brondata.
Als de tabel auto-ververst veranderd de waarde in cel k6 wel, maar wordt de macro niet getriggerd.
Iemand een oplossing? Als de macro getriggerd wordt vanuit een verandering in het bronbestand voldoet dit ook!
Thanks!
