Stalker(15.3.2012 22:39)#007651 
Jestli sem dobře pochopil Tvůj záměr, tak na to nepotřebuješ makro ale stačí fce SVYHLEDAT. Otázkou ale je podle jakýho kritéria data (jména) přiřazovat, když na každým listě máš rozdílná čísla smluv.
Jeza.m(16.3.2012 11:28)#007658 
Já myslím, že co se excelu týče, tak je nejvodnější :-), jediné co asi nechceš je mít soubor plný vzorců což by ho do budoucna zpomalovalo a tak pokud ho nechceš mít interaktivní aby se vše měnilo samo, tak stačí výsledek funkce Svyhledat zapsat jako hodnotu, buď zkopírováním oblasti a pak vložit "jako hodnoty", nebo si rovnou nechat hodnoty dosadit makrem:
Public Sub dopln()
Application.ScreenUpdating = False
On Error Resume Next
For rd = 2 To List1.UsedRange.Rows.Count
List1.Cells(rd, 3) = ""
List1.Cells(rd, 4) = ""
List1.Cells(rd, 3) = Application.WorksheetFunction.VLookup(List1.Cells(rd, 1), List2.Range("A:C"), 2, False)
List1.Cells(rd, 4) = Application.WorksheetFunction.VLookup(List1.Cells(rd, 1), List2.Range("A:C"), 3, False)
Next
Application.ScreenUpdating = True
End Sub
M@
Plansecur(16.3.2012 22:16)#007667 
Jeza.m
jseš fakt dobrej
Děkuji moc
Pavel