>> >> For r = 149 To 10 step -1 >> If Cells(r, 2).Value = 0 Then >> Rows(r & ":" & r+1).EntireRow.Delete >> End If >> Next r >> > Jo, to je ono. :-)) > Jenom to umazalo i radky 155 a 156, tam neni v B sloupci nula, ale text (jmeno atp.) No jo, tak to zkus takto: If IsNumeric(Cells(r, 2)) And Cells(r, 2)=0 Then > Ten druhy zpusob > If Cells(r, 2).Value = 0 Then ... > 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. Ptala ses jak umazat dva radky oba zpusoby funguji spravne, problem je v tom cyklu. Zamysli se nad tim, nebo si svoje makro krokuj at vidis co ti to dela.. Odmazes 2 radky, ale poskocis o radek dal.. -- cao, Kamil
This archive was generated by hypermail 2.1.3 : 21. 10. 2003, 11:45 CEST