MS Excel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "List2!$C$5" Then
Application.EnableEvents = False
Macro1
Application.EnableEvents = True
End If
End Subcitovat

Všechno je v pořádku. Všechno funguje. Ten kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
Application.EnableEvents = False
Macro1
Application.EnableEvents = True
End If
End Sub

může být umístěn v Microsoft Visual Basic - VBA Project - List2

Ale nasledujíci
Sub Makro1()

'
' Makro1 Makro
'

'
Sheets("List3").Select
Range("F1").Select
Selection.Copy

Dim PoslRad_2 As Integer
Set L1 = Worksheets("List3")
PoslRad = L1.Cells(65536, 1).End(xlUp).Row

Sheets("List3").Select
Range("A1").Select

For i = 1 To PoslRad
If L1.Cells(i, 1).Value = j Then
j = L1.Cells(i, 1)

End If

Next i

L1.Cells(i, 1) = j

Sheets("List3").Select
Range("A1").Select

PoslRad_2 = L1.Cells(65536, 1).End(xlUp).Row
Cells(PoslRad_2 + 1, 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("List2").Select
Range("C5").Select

End Sub

v Microsoft Visual Basic - VBA Project - Modules - Module

Příkládám souborcitovat

V pořádku, už jsem se s tím popral, vše super funguje. Děkuji velice moc.citovat