Prikazi cijelu temu 21.03.2017 16:06
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Brisanje praznog reda u Excelu
ovisi dali ti je cijeli red prazan ako je prazna celija u A stupcu pa ako je tako onda ovako:

PreuzmiIzvorni kôd (Visual Basic):
  1. sub obrisiPrazanRed()
  2.    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  3. end sub

upises ovo u VBA editor i pokrenes

ako se recimo u celiji A5 ne nelazi nista, ali se nalazi u C5, onaj gornji kod ce izbrisati i taj red, pa onda sljedeci kod mozes koristiti u slucaju da su podaci neravnomjerno rasporedeni

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub obrisiPrazanRed()
  2.   Dim raspon As Range, red As Long, i As Long
  3.   Set raspon = ActiveSheet.Range("A1:C9") 'unesi raspon celija koje sadrze podatke
  4.  red = raspon.red.Count
  5.   For i = red To 1 Step (-1)
  6.     If WorksheetFunction.CountA(raspon.red(i)) = 0 Then raspon.red(i).Delete
  7.   Next i
  8. End Sub
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 21.03.2017 16:21 od strane Avko.