C sütunu dolu olan satırlar Sayfa2 ye en son dolu sattıra kaydedilsin

[kelkitli]

Değerli Dostlar Selamlar,
Yazıcı kartuşlarını takip edebileceğim bir tablo hazırlıyorum. Sayfa1 B6 dan itibaren yazacağım birimlere vereceğim miktarı C sütununa yazıp kaydet deyince C sütunu dolu olan birimler yazılı tarihle Sayfa2 en son dolu satıra kaydedilsin istiyorum. Bir de çalışma kitabı açılınca C sütunu C6 dan sonra temizlensin istiyorum.

 

[Necdet]

Merhaba

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Son = s2.[A65536].End(3).Row
If s1.[C6] > 0 Then
    Son = Son + 1
    s2.Cells(Son, "A") = s1.[B6]
    s2.Cells(Son, "B") = s1.[C6]
    s2.Cells(Son, "C") = s1.[C3]
End If
If s1.[C7] > 0 Then
    Son = Son + 1
    s2.Cells(Son, "A") = s1.[B7]
    s2.Cells(Son, "B") = s1.[C7]
    s2.Cells(Son, "C") = s1.[C3]
End If
If s1.[C8] > 0 Then
    Son = Son + 1
    s2.Cells(Son, "A") = s1.[B8]
    s2.Cells(Son, "B") = s1.[C8]
    s2.Cells(Son, "C") = s1.[C3]
End If
If s1.[C9] > 0 Then
    Son = Son + 1
    s2.Cells(Son, "A") = s1.[B9]
    s2.Cells(Son, "B") = s1.[C9]
    s2.Cells(Son, "C") = s1.[C3]
End If
End Sub

Not : Kodları uzatmışım ama bazen böylesinden hoşlanıyorum

 

[kelkitli]

Necdet Hocam teşekkürlerimi iletiyorum. Sağol, Varol.

 

[Necdet]

Sayın kelkitli,

Döngülü ve kısa kodları da eklemek istedim. İçim rahat olsun

Private Sub CommandButton1_Click()
s1 = Sheets("Sayfa1")
s2 = Sheets("Sayfa2")
s1.Select
SonSat = s2.[A65536].End(3).Row
For i = 5 To 9
    If s1.Cells(i, "C") <> "" Then
       SonSat = SonSat + 1
       s2.Cells(i, "A") = s1.Cells(i, "B")
       s2.Cells(i, "B") = s1.Cells(i, "C")
       s2.Cells(i, "C") = s1.[C3]
    End If
Next i
End Sub

 

[kelkitli]

Sağolun Necdet Hocam yeriniz doldurulamaz. Tekrar tekrar teşekkür ederim.