Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

prilagodba koda za pretragu

[es] :: Office :: Excel :: prilagodba koda za pretragu

[ Pregleda: 1097 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

jaskojsako
BIH

Član broj: 141632
Poruke: 224
109.175.99.*



+4 Profil

icon prilagodba koda za pretragu06.07.2016. u 11:29 - pre 94 meseci
Pozdrav
moze li se kod prilagoditi da traži po unosu u nekoj celiji naprimjer da bude u celiji K1
sad pretrazuje kad unesem u kodu sta da traži i kopira sve kako treba
hvala
Dim i As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2")

For i = 2 To ws1.Range("B65536").End(xlUp).Row
If ws1.Cells(i, 2) Like "*xxx*" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1)
Next i
Jasmin
 
Odgovor na temu

[es] :: Office :: Excel :: prilagodba koda za pretragu

[ Pregleda: 1097 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.