Re: Excel makro

From: Kamil (sverak@csadbk.cz)
Date: 21. 10. 2003, 11:46 CEST


>>
>>     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