Excel / VBA

Ak sa chceš po kliknutí na položku v Liste2 hneď aj prepnúť na List1, tak je to jednoduché (makro treba umiestniť do Listu2):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Worksheets("List1").Activate
    ActiveCell.Value = Target.Value
End Sub

Ak chceš zostať na Liste2, tak je to trochu zložitejšie:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Worksheets("List1").Activate
    ActiveCell.Value = Target.Value
    Target.Worksheet.Activate
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("List1").Activate
ActiveCell.Value = Target.Value
End Sub

Nevěděl by někdo, jak udělat, aby toto fungovalo jen při kliknutí ze sloupců A,B,C z listu 1?

Staci podminka IF, Kde jsi klikl jsi dostal v parametrech

díky, pomohl bys mi trochu konkrétněji?
vidím to takto, ale mám špatně syntaxi

If List1.Range("A:A") Then
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("list1").Activate
ActiveCell.Value = Target.Value
End Sub
Else

Syntax je to najmenej, čo tam nie je dobre. Malo by to vyzerať nejako takto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Worksheets("List1").Activate
    If ActiveCell.Column <= 3 Then
        ActiveCell.Value = Target.Value
    End If
End Sub

Takhle by mne to nenapadlo...

Upravil jsem si to na sloupce C,D,E

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("List1").Activate
If ActiveCell.Column = 3 Then
ActiveCell.Value = Target.Value
End If
If ActiveCell.Column = 4 Then
ActiveCell.Value = Target.Value
End If
If ActiveCell.Column = 5 Then
ActiveCell.Value = Target.Value
End If
End Sub

Počítám, že to jde v jedné podmínce, ale tohle mi stačí
Děkuji za řešení.

IF ActiveCell.Value >= 3 AND ActiveCell.Value <= 5 Then

nebo

IF ActiveCell.Value = 3 OR ActiveCell.Value = 4 OR ActiveCell.Value = 5 Then