İlk boş satıra verileri kaydetme

[kahramang1]

Merhabalar. Sizlerden ricam ekli tabloda "dilekçe" sayfasında B9:B21 aralığındaki verileri "liste" sayfasında C ve D sütunundaki ilk boş satırdan başlayarak yazdırmaktır. Bu konuda yardımcı olursanız sevinirim. Kolay gelsin.

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub aktar()
Set s1 = Sheets("dilekçe")
Set s2 = Sheets("liste")
If s1.[M2] = "" Then
    MsgBox "Lütfen önce üye seçiniz!", vbInformation
    s1.Activate
    s1.[M2].Select
    Exit Sub
Else
    For i = 9 To 21
        If s1.Cells(i, "B") <> "" Or s1.Cells(i, "C") <> "" Then
            yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
            s2.Cells(yeni, "A") = s1.[M2]
            s2.Cells(yeni, "B") = s1.[N2]
            s2.Cells(yeni, "C") = s1.Cells(i, "B")
            s2.Cells(yeni, "D") = s1.Cells(i, "C")
        End If
    Next
End If
MsgBox "İşlem tamamlandı"
s2.Activate
s2.Cells(yeni, "A").Select
End Sub

 

[kahramang1]

Çok teşekkür ederim Yusuf bey. Tam istediğim gibi olmuş. Ayrıca üye numarası ve ismini de getirtmişsiniz. Harika olmuş. Ellerinize sağlık.