bir sayfadan ilgili saıtırı sildirip bir başka sayfaya yazdırmak

[taseraydin]

Değerli üstad arkadaşlar ekte göndermiş olduğum örnek dosyayı
belirtmiş olduğum şekildi comboBox ta LİSTE sayfasındaki İsimleri İndexli olarak sıralandırmak ve seçilen isimi B8 hücresine yazdırmak yine aynı sayfada bir macro tuşu yaparak b8 hücresinde bulanan isme ait satırı liste sayfasından silip ödemeler sayfasına kaydetmesi gerekiyor bu hususta yadımlarınızı bekliyorum.saygılar,sevgiler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
    ActiveWorkbook.Names.Add Name:="veri", RefersToR1C1:="=LİSTE!R5C2:R19C2"
Set s1 = Sheets("TAHAKKUK")
Set s2 = Sheets("LİSTE")
Set s3 = Sheets("ÖDEMELER")
For Each bak1 In s2.Range("b5:b19")
If bak1 = s1.[b8] Then
Range(bak1.Offset(0, 0), bak1.Offset(0, 0)).Delete shift:=xlUp
End If
Next
s1.[b8].Copy
s = WorksheetFunction.CountA(s3.[a1:a65536])
s3.Range("a" & s + 1).PasteSpecial
Application.CutCopyMode = False
End Sub

 

[taseraydin]

satırın tamamı silinmesi gerek

ilginize teşekür ederim
listeler sayfasından sarının tamamı silinmiyor sadece b stunundaki veri siliniyor oysa "I" stununa kadar silinip aynı şekilde ödemelr sayfasına yapışması gerekiyor biraz uğraştım fakat beceremedim