Zdravim
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.
Diky moc
Simona
____________________________________________________________
Řekněte sýr! MMS telefon SonyEricsson T610 s foťákem můžete mít už za 5577
Kč. A k tomu až 120 MMS zdarma! http://ad2.seznam.cz/redir.cgi?instance=62754%26url=http://www.oskarmobil.cz/services/whatsnew.php
This archive was generated by hypermail 2.1.3 : 21. 10. 2003, 10:02 CEST