Excel / VBA

Opravdu to musí fungovat přesně takhle?
Jestli ti jde jenom o snazší zadávání hodnot ze seznamu na druhém listu, bude jednodušší (pro uživatele i pro tebe) použít funkci ověření dat. Dá se nastavit tak, že povolí jakékoliv hodnoty, ale ty ze seznamu se ukáží v nabídce po označení buňky.

Není to přesně to co požaduješ, ale jako inspirace nebo možnost řešení by to mohlo fungovat.
Koukni se na tyto stránky - faktura.htm a stáhni si soubor. Konkrétně se podívej na list odběratelé. Jednoduché a funkční řešení.

Díky za reakce.
Ale asi ani jedno řešení nebude vyhovovat (zatím to budu kopírovat ručně:(
Asi to z dotazu nevyplynulo, ale nemůžu to napevno přesměrovat do konkrétní buňky v listu1, protože v listu1 budu vyplňovat (stejné) buňky v různých řádcích (list1 je databáze) a v listu2 se budou data jednou za čas měnit, takže nemůžu použít odkaz "natvrdo".

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

LOS je BOSS!
Díky, to je přesně co potřebuju, jak jednoduché