aktarılan bilgilerin silinmesi gerekiyor

[sultanb]

hayırlı haftalar;
ekte ,basit birşekilde düzenlemek istediğim konuyla ilgili örnek var,genel bir liste ve ,bölgeleri mevcut ,tahsilatları gelen faturalarının durumunu ödendi olarak belirtip ilgili bölge sayfasına aktarmak istiyorum ,fakat aktarılanların genel listeden silinmesi gerekiyor;bölgelerde böyle bir durum olmayacak,
bunu makroyla çözümlenmesinde yardımcı olabilirseniz sevinirim,

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Integer
Dim son As Integer
    For i = 2 To Sheets.Count
    son = Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row + 1
    For sat = 3 To Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row
        If Sayfa1.Cells(sat, "g") = "ödendi" And Cells(sat, "a") Like Sheets(i).Name Then
            Range(Sheets(i).Cells(son, "a"), Sheets(i).Cells(son, "g")) = Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "g")).Value
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "g")) = ""
        End If
    Next
    Next
    Sayfa1.Range("a3:g" & Rows.Count).Sort key1:=Sayfa1.[a4], order1:=xlAscending
End Sub

 

[sultanb]

çok teşekkür ederim,ellerinize sağlık

 

[mehmetfatih]

çok güzel olmuş alıntı yapabilirmiyim..

 

[sultanb]

benim için mahsur yok