> > prosim pekne, nevedel byste nekdo jak upravit makro tak, aby se nemazal jeden radek, ale dva?
>
> > Sub nuloveradky()
>
> > Sheets("cas1").Select
>
> > For r = 10 To 149
> > If Cells(r, 2).Value = 0 Then
> > Rows(r).EntireRow.Delete
> > End If
> > Next r
> > End Sub
>
> > Musi se mazat zaraz, protoze to jsou radky ve dvojicich, v prvnim je link na jiny dokument a ve druhem link na prvni radek, takze kdyz se to odmaze takto jednoduse, tak se odmazou liche radky a
> > sude zustanou s tim, ze v nich zustane #REF!
> > Pak se totez bude opakovat v dalsich trech sheetech.
>
> No nevim esli to dobre chapu, ale ja bych to vzal od konce aby
> sis nemazala radky co schces projit a asi takto:
>
> For r = 149 To 10 step -1
> If Cells(r, 2).Value = 0 Then
> Rows(r & ":" & r+1).EntireRow.Delete
> End If
> Next r
>
> Nebo sem to pochopil blbe?
>
> --
> cao,
> Kamil
Jo, to je ono. :-))
Jenom to umazalo i radky 155 a 156, tam neni v B sloupci nula, ale text (jmeno atp.)
Ten druhy zpusob
If Cells(r, 2).Value = 0 Then
Rows(r).EntireRow.Delete
Rows(r).EntireRow.Delete
End If
a nebo tohle:
If Cells(r, 2).Value = 0 Then
Rows(r).EntireRow.Delete
Rows(r+1).EntireRow.Delete
End If
bohuzel nejde pouzit, protoze pak to nefunguje spravne.To prvni odmaze dvakrat prvni radku, radky cislo 2 tam necha s #REF a zastavi se na treti dvojici s "type mismatch"
Treti zpusob to odmaze prvni dve dvojice nebo co, no z cisel dvojic od 1 do 70 to necha dvojice 28, 31 atp. Zkratka napreskacku.
____________________________________________________________
Jak si stoji kurz koruny? http://kurzy.seznam.cz
This archive was generated by hypermail 2.1.3 : 21. 10. 2003, 10:52 CEST