• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: hledani textu v oblast

Zaslal/a felli 20.9.2010 14:58

Zdravim,

potreboval bych pekne prosim poradit s timto:

Dejmte tomu ze ve sloupci mam hledany text, ktery je pouze v nekterych radkach. V tomto připadě je hledany text "ahoj". Potřebuji zkopirovat vsechny radky, ktere obsahuji tento hledany text.
Diky za pomoc

Zaslat odpověď >

---

Strana:  1 2   další »

Poki(20.9.2010 16:13)#002489

zatim neni znamo, kam se ma radek kopirovat, ale slo by to v podstate nejak takto:Sub najit()
For i = 1 To Cells(1000000, 1).End(xlUp).Row
If Cells(i, 1) = "ahoj" Then
Rows(i).Copy
'tady bude kod pro urceni mista, kam se ma radek nakopirovat
End If
Next
End Subcitovat

felli(21.9.2010 8:17)#002494

Diky,

toto makro však vyhleda pouze jeden zaznam, potrebuji aby vyhledalo vsechny radky, ktere obsahuji ten text.
Dikycitovat

Poki(21.9.2010 8:34)#002495

Tohle makro vyhleda vsechny bunky ve sloupci A, ktere maji hodnotu "ahoj"...citovat

felli(21.9.2010 9:09)#002496

opravdu mi to zkopíruje pouze jeden řádek. viz příloha.
Díky za pomoc

Příloha: 2496_pokus-kopirovani-pk.zip (12kB, staženo 21x)

citovat

Poki(21.9.2010 9:11)#002497

jo, chapu -
je to cyklus, takze bere radek po radku a vam se tedy zkopiruje jen posledni (ale predtim uz byly zkopirovany vsechny predesle) - prave proto je nutne urcit, kam se budou ty radky vkladat...citovat

Niffki(21.9.2010 9:58)#002498

Taky to zkouším ale taky se mi zkopíruje jen jedna :o)

Můj kód:
Sub najit()
Dim start As Integer

start = 1
volnyradek = Sheets(2).Cells(start, 1)

For i = 1 To Cells(100, 1).End(xlUp).Row

If volnyradek <> "" Then
start = start + 1
End If

If Cells(i, 1) = "ahoj" Then
Rows(i).Copy
'tady bude kod pro urceni mista, kam se ma radek nakopirovat
Sheets(2).Select
Cells(start, 1).Select
ActiveSheet.Paste
End If
Next
End Sub

Kde máme chybku? :-)citovat

Poki(21.9.2010 10:21)#002499

Myslel jsem si, ze je tak natuknu - ale dobre, tady je to cele - nakopiruje pozadovane radky do listu 2.Sub najit()
For i = 1 To List1.Cells(1000000, 1).End(xlUp).Row
If List1.Cells(i, 1) = "ahoj" Then
List1.Select: Rows(i).Copy
List2.Select: Cells(Application.WorksheetFunction.CountA(List2.Range("a:a")) + 1, 1).Select: Selection.PasteSpecial Paste:=xlValue
End If
Next
End Subcitovat

Niffki(21.9.2010 11:13)#002502

Funguje :o)

Jen nechápu proč nefungovalo to moje...citovat

Poki(21.9.2010 11:19)#002503

problem je u tveho kodu ten, ze kdyz vlozis radek, tak mas aktivni list sheet(2) a pak v cyklu znova testujes 'If Cells(i, 1) = "ahoj" Then' - jenze chces testovat bunky na sheetu1. Mel bys tam mit
'If sheets(1).Cells(i, 1) = "ahoj" Then'citovat

felli(21.9.2010 11:31)#002504

Dekuji Vam.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse