< návrat zpět

MS Excel


Téma: hledani textu v oblast rss

Zaslal/a 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ší »
icon #002489
Poki
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 Sub
citovat
#002494
avatar
Diky,

toto makro však vyhleda pouze jeden zaznam, potrebuji aby vyhledalo vsechny radky, ktere obsahuji ten text.
Dikycitovat
icon #002495
Poki
Tohle makro vyhleda vsechny bunky ve sloupci A, ktere maji hodnotu "ahoj"...citovat
#002496
avatar
opravdu mi to zkopíruje pouze jeden řádek. viz příloha.
Díky za pomoc
Příloha: zip2496_pokus-kopirovani-pk.zip (12kB, staženo 21x)
citovat
icon #002497
Poki
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
#002498
avatar
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
icon #002499
Poki
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 Sub
citovat
#002502
avatar
Funguje :o)

Jen nechápu proč nefungovalo to moje...citovat
icon #002503
Poki
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
#002504
avatar
Dekuji Vam.citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje