Satır bilgilerini taşıma

[stres]

Merhaba arkadaşlar bir excel çalışma sayfasında birbirinden bağımsız satırlardaki bilgiyi tek bir satıra toplamak isterken aynı zamanda taşınan satırda herhangi bir bilgi yoksa o satırın silinmesini istiyorum yardımlarınız için şimdiden teşekkürler Örnek dosyam ektedir.

 

[Ömer]

Merhaba,

Kodları module kopyalayarak çalıştırınız..

Sub Düzenle()
son = [B6336].End(3).Row
    For i = 1 To son
        Cells(i, "c") = Cells(i + 1, "b")
    Next i
Range("B1:B" & son).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("C1:C" & son).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

.

 

[stres]

Teşekkürler Ömer Hocam eline emeğine sağlık