mám takový problém - zaseknul jsem se na tvorbě makra, které by mělo po změně hodnot v určitých buňkách hodnoty v těchto buňkách zkopírovat na nový list do konkrétních buněk. Není problém hodnoty zkopírovat na nový list, ovšem vždy, když do kódu zadám konkrétní buňky na novém listu, ozve se chybová hláška a makro nefunguje.
Makro (kopírující hodnoty na nový list, ale ne do konkrétní buňky) funguje podle kódu:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B10:K10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range("B10:K10").Select
Selection.Copy
Sheets("List3").Paste
Application.CutCopyMode = False
End If
End Sub
Při specifikaci konkrétní buňky podle následujícího kódu se vždy objeví chybová hláška:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B10:K10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range("B10:K10").Select
Selection.Copy
Sheets("List3").Select
Range("B10:K10").Select
Selection.Paste
Application.CutCopyMode = False
End If
End Sub
V příloze posílám ukázkový soubor s kódem tak, jak mi pracuje.
Poraďte mi, prosím, v čem dělám chybu. Mnohokrát děkuji za odpověď. bloom
