Makro ile otomatik satır silme

[turgayzeynep]

Hocam ana veriden 2ci sayfaya veri çektim ikinci sayfam a ve b sütunundan oluşmaktadır a sütununda sıra numarası var B sütununda ise 1 den ona kadar sayılar var Yani b sütununda 10 adet veri var 1 sayfadan 5 adet veriyi boş bıraktığında ikinci sayfada 5 adet boş gözüküyor 2 sayfadaki 5 adet boşluğu otomatikman nasıl silebilirim Makro ile

 

[RBozkurt]

Örnek dosyanızı ekleyin kullandığınız kodun revize yapılması lazım

 

[dgdizayn]

Merhaba,

Aradığınız kod ikinci sayfadaki boşlukları siler

Sub BosluklariSil()
    Dim ws As Worksheet
    Dim rng As Range
    Set ws = ThisWorkbook.Worksheets("Sheet2")
    Set rng = ws.UsedRange
    rng.Replace " ", "", xlPart
End Sub

 

[turgayzeynep]

Hocam işe yaramadı kod

 

[KoNFiCuS]

Deneyin lütfen,
@turgayzeynep

Sub BosluklariSil()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet2")
    ws.Select

    DBSonAsa = Cells(Rows.Count, 1).End(xlUp).Row

    Range(Cells(1, 1), Cells(DBSonAsa, 1)).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp

End Sub