Próbuje rozwiązać poniższy problem.
Poniżej kod, który działa przy modyfikowaniu jednej komórki. Chciałbym aby działa przy modyfikowaniu kilku nara np. przy kopiowaniu lub przeciąganiu komórek.
Kod: Zaznacz cały
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Target.Offset(0, 1).Range("a1") = Target
End If
If Not Intersect(Target, Range("b1:b10")) Is Nothing Then
Target.Offset(0, -1).Range("a1") = Target
End If
Application.EnableEvents = True
End Sub