MS Excel

Nevíte jak udělat makro, aby
list1 a1 "hodnota" poté přejít na list2 s pomocí vyhledat (ctrl+F) a najít ?

když to udělám pomocí nahrání makra, tak mi tam vždy zůstane původní hodnota

Zaslat odpověď >

Strana: 1 2 další »

AL(20.2.2014 0:41)#017912

Inšpirovať sa môžeš napr. tuná:http://stackoverflow.com/questions/19504858/find-all-matches-in-workbook-using-excel-vba; príspevok akéhosi B Harta-je to trochu robusnejšie riešenie, takže si ho môžeš prípadne zjednodušiť pre svoju potrebucitovat

Sasa-test(20.2.2014 18:16)#017931

Zdravím,
moc tomu nerozumím

mohl by jste někdo to makro na psat sem ?
Vyloženě macro napsat neumím, ale dokázal bych ho upravit.citovat

AL(21.2.2014 0:17)#017938

Tak prečo si neupravíš to z linku, keď tvrdíš, že by si to zvládol?citovat

Palooo(21.2.2014 8:40)#017941

tu som prepisal to makro :)))

Sub FindAndExecute()

Dim Sh As Worksheet 'definovanie sheetov
Dim Loc As Range 'nastavenie celeho sheetu ako oblast hladania

For Each Sh In ThisWorkbook.Worksheets 'cyklenie sheetov
With Sh.UsedRange 'pracuj s oblastou
Set Loc = .Cells.Find(What:="Question?") 'Setnutie hladanej veci treba prepisat QUestion na svoju poziadavku
If Not Loc Is Nothing Then 'rob dokym neprepise hladane slovo na danom sheete v cykle
Do Until Loc Is Nothing
Loc.Value = "Answered!" 'treba prepisat na co to chcete zmenit
Set Loc = .FindNext(Loc)
Loop
End If
End With
Set Loc = Nothing 'pre puntickarou nastavovanie na nothing ale kazdy dobre vie ze ked skonci sub tak sa to urobi automaticky .P
Next

End Sub

hadam pomozu popisky :)))citovat

Sasa-test(15.3.2014 16:48)#018320

Ahoj,
tak se s tím peru 14 dní ale né a néé, aby mi to fubgovalo ?o).
Prosím vás nemohl by jste to makro upravit a vložit do souboru.
Nemám registraci, tak jsem soubor vložil na uložto.
http://ulozto.cz/xKkMXnVr/aut-vyhledani-xlsxcitovat

Opičák(15.3.2014 19:38)#018325

To makro mi taky nějak nefungovalo.
Udělal jsem to jinak, ale nevím co se má stát,když to najde. Udělal jsem to tak, že kurzor se umístí na nalezenou buňku.

Příloha: zip