Dolu Satirlari Almak

[Erdinç FIRTINA]

Değerli üyeler,

Tablodaki dolu olan hücreleri diğer tablodaki sütunlara almak istiyorum. Ancak, dolu olan hücredeki veri ile birlikte, dolu olan hücrenin solundaki dolu olan hüredeki veriyi de almak istiyorum.
Ekteki dosyada ayrıntısı açıklanmıştır.

Yardımlarınız için şimdiden teşekkürler!!!

 

[Necdet]

Merhaba.

Bulunduğunuz Sütuna göre aktarımı yapar. Önce aktarılacak sütundan bir hücreyi seçiniz sonra aktar butonuna basınız.

Sub Aktar()
Application.ScreenUpdating = False
Range("A9:C1000").ClearContents
Sut = ActiveCell.Column
If Sut < 11 Then Sut = 11
Sat = 8
For i = 9 To [J65536].End(3).Row
    If Cells(i, Sut) <> "" Then
        Sat = Sat + 1
        Cells(Sat, "A") = Cells(i, "J")
        Cells(Sat, "B") = Cells(i, Sut)
    End If
Next i
MsgBox "İşlem Tamamdır......."
End Sub

 

[Erdinç FIRTINA]

Sayın Yeşertener,

Yardımlarınız için çok teşekkürler.