< návrat zpět

MS Excel


Téma: aut. vyhledání rss

Zaslal/a 19.2.2014 22:50

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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  1 2   další »
icon #017912
avatar
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
#017931
avatar
Zdravím,
moc tomu nerozumím 4
mohl by jste někdo to makro na psat sem ?
Vyloženě macro napsat neumím, ale dokázal bych ho upravit.citovat
icon #017938
avatar
Tak prečo si neupravíš to z linku, keď tvrdíš, že by si to zvládol?citovat
#017941
avatar
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
#018320
avatar
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
#018325
Opičák
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: zip18325_aut.vyhledani.zip (19kB, staženo 16x)
citovat
#018328
avatar
Ahoj,
díky funguje skvěle, jen oblast hledání je celí list2 né jen sloupec F,
prosím tě, mohl by jsi upravit to macro ?citovat
#018337
Opičák
jinak
Příloha: zip18337_aut.vyhledani2.zip (20kB, staženo 16x)
citovat
#018338
Opičák
a ještě s ošetřením chyby "nenalezeno"
Příloha: zip18338_aut.vyhledani3.zip (20kB, staženo 17x)
citovat
#018339
avatar
Ahoj, tak fak nevím co napsat 1 .
Funguje přesňe jak má 1
Díky moc 1citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09