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):- sub obrisiPrazanRed() 
-    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
- 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):- Sub obrisiPrazanRed() 
-   Dim raspon As Range, red As Long, i As Long 
-   Set raspon = ActiveSheet.Range("A1:C9") 'unesi raspon celija koje sadrze podatke 
-   red = raspon.red.Count 
-   For i = red To 1 Step (-1) 
-     If WorksheetFunction.CountA(raspon.red(i)) = 0 Then raspon.red(i).Delete 
-   Next i 
- End Sub 
         
            zivot je moja domovina.
        
      	Ovaj post je ureden      	
1
      	puta. Posljednja izmjena 21.03.2017 15:21 od strane Avko.    		
 
 
   		