> 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
This archive was generated by hypermail 2.1.3 : 21. 10. 2003, 10:19 CEST