Borçlular listesini güncelleme

[caglarr65]

Borçlular listesini güncellemek istiyorum.Gerekli açıklama dosyada belirtilmiştir.Şimdiden teşekkürler.

 

[ersoyalan]

caglarr65 merhaba,

Sorularınızı lütfen ekli mesaj içeriğinde değilde konu içeriğinde anlatmaya özen gösteriniz.

Syg,

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat, s, ss
s = 2
ss = 2
Sayfa2.[a2:e10000] = Empty
Sayfa3.[a2:e10000] = Empty
    For sat = 2 To Sayfa1.Cells(65536, "e").End(xlUp).Row
        If Sayfa1.Cells(sat, "e") = 0 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Copy Sayfa2.Cells(s, "a")
            s = s + 1
        End If
        If Sayfa1.Cells(sat, "e") <> 0 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Copy Sayfa3.Cells(ss, "a")
            ss = ss + 1
        End If
    Next
End Sub

 

[caglarr65]

Sayın:N.Ziya HİÇDURMAZ
Tam istediğim gibi oldu.Emeğiniz için çok teşekkür ederim.
Sayın:ersoyalan,
Formda bu tür yazılar için hiç uyarı görmediğimden sorumu bu şekilde sordum.Uyarınız dikkate alınacaktır.İyi günler diliyorum.