Her verinin altındaki 1satır boşlugu silmek nasıl

[isarican]

Arkadaşlar ekteki tabloda bir verinin altında bir boşluk var hemen altında yine veri var....


Her seferinde satır sili kullanmak zaman kaybı başka bir yolu varmı bunun

 

[isarican]

Sorunum Devam Etmektedir

 

[S.Yiğit]

Eline sağlık bende öğrenmiş oldum..

 

[isarican]

Eline sağlık bende öğrenmiş oldum..

Ben yanlış konunun altına mesaj atmışım.. Sorunum devam ediyor... Yani bu sorunun cevabı vermiş olduğum cevap değil

Ben bu konuyu açmıştım bu konunun cevabını kendim buldum linke bakın


http://www.excel.web.tr/showthread.php?t=53828

 

[S.Yiğit]

kardes boş olan satırlarda hücreler birleştilişmiş bunu kaldırıp Az'den sıralarlar oluyor cok basit.. exclden anlamam ama oluyor

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyebilirsiniz.

Sub BosSatirSil()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[isarican]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyebilirsiniz.

Sub BosSatirSil()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Sagolun sorun halloldu sayenizde...


Böyle bir makro istememdeki sebep, Siteden veri alıyorum.Excele yapıştırıyorum. Hep 1 Satır boşuk bırakıyor.Bu yüzden konu açma geregi duydum.

 

[Necdet]

Merhaba,

Bence makroya da gerek yok, bir kaç tuşla da bu işi yapabilirsiniz. Makro da zaten onun karşılığı.

• İlgili kolonu seçiniz
• F5
• Özel
• Boşluklar
• Tamam
• Sağ klik
• Sil
• Tüm Satır
• Tamam

 

[Asri]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp deneyebilirsiniz.

Sub BosSatirSil()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Merhaba,

her iki örnekte de sadece A sutunu yada Seçilen sutun baz alınarak satırın boş olup olmadığına karar veriliyor. A1 boş iken J1 dolu olabilir. Bir satırın tamamen boş olup olmadığına farklı bir şekilde aşağıdaki kodlar ile de ulaşılabilir.

Sub Satir_tamamen_bos_ise_sil()

'Son satir tespit ediliyor
 Dim LastRow As Long
 With ActiveSheet.UsedRange
    sonsatir = .Rows(.Rows.Count).Row
 End With
  
 For i = 1 To sonsatir
      i1 = i1 + 1 'Kaç satır işleme girmiş
      If i1 > sonsatir Then Exit For
      
      'Her satır için range değeri oluşturuluyor
      gec = Trim(Str(i)) & ":" & Trim(Str(i))
      'Satırdaki dolu hücreler sayılıyor
      j = WorksheetFunction.CountA(Range(gec))
           
      'Dolu hücre sayısı 0 ise satır tamamen boştur
      If j = 0 Then
         Rows(i).Delete
         i = i - 1
      End If
      
  Next i
  
End Sub

 

[isarican]

Merhaba,

Bence makroya da gerek yok, bir kaç tuşla da bu işi yapabilirsiniz. Makro da zaten onun karşılığı.

• İlgili kolonu seçiniz
• F5
• Özel
• Boşluklar
• Tamam
• Sağ klik
• Sil
• Tüm Satır
• Tamam

Vermiş olduğunuz bilgiden ötürü size ve @asri ye teşekkür ediyorum...


Saygılarımla,

 

[Bekel]

Merhaba,

her iki örnekte de sadece A sutunu yada Seçilen sutun baz alınarak satırın boş olup olmadığına karar veriliyor. A1 boş iken J1 dolu olabilir. Bir satırın tamamen boş olup olmadığına farklı bir şekilde aşağıdaki kodlar ile de ulaşılabilir.

Sub Satir_tamamen_bos_ise_sil()

'Son satir tespit ediliyor
 Dim LastRow As Long
 With ActiveSheet.UsedRange
    sonsatir = .Rows(.Rows.Count).Row
 End With
  
 For i = 1 To sonsatir
      i1 = i1 + 1 'Kaç satır işleme girmiş
      If i1 > sonsatir Then Exit For
      
      'Her satır için range değeri oluşturuluyor
      gec = Trim(Str(i)) & ":" & Trim(Str(i))
      'Satırdaki dolu hücreler sayılıyor
      j = WorksheetFunction.CountA(Range(gec))
           
      'Dolu hücre sayısı 0 ise satır tamamen boştur
      If j = 0 Then
         Rows(i).Delete
         i = i - 1
      End If
      
  Next i
  
End Sub

Çok Teşekkürler.
Boş Satırlarınsilinmesi konusu Benimde uzunca süredir aradığım bir konuydu.
Dış veri al uygulamasında hep karşımıza çıkıyordu.