Banka talimatı yardım

[alldemo]

banka talimatında yardım istiyorum. konu çok basit ama excelden çok anlamıyorum. sayfa 1 de listeler var bu liste 3 kısım A sütununda hesap adı B sütununda banka bilgisi C sütununda miktar olacak bu listeyi uzun düşünün 150 kişilik bu listelerden seçtigimi veya para miktarı girili olanları sayfa 2 ye otomatik aktarsın istiyorum.
ilgilenen arkadaşlara şimdiden teşekür ediyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Aktar()
Dim s1 As Worksheet, s2 As Worksheet
Dim i As Long, j As Long
Dim Adet As Integer
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
s2.Range("A2:D65536").Delete
j = 1
Adet = 0
For i = 7 To [A65536].End(3).Row
    If CDbl(Cells(i, "C")) > 0 Then
        j = j + 1
        Adet = Adet + 1
        Range("A" & i & ":C" & i).Copy s2.Cells(j, "A")
    End If
Next i
j = j + 1
If Adet = 0 Then
    MsgBox "Aktarılacak Bilgi Yok...."
Else
    s2.Cells(j, "B") = "TOPLAM"
    s2.Cells(j, "C") = "=SUM(C2:C" & j - 1 & ")"
    MsgBox Adet & " Adet Kayıt Aktırıldı...."
End If
End Sub

 

[alldemo]

Nejdet beye çok teşekür ediyorum
istedigim gibi oldu

 

[Necdet]

Güle güle iyi günlerde kullanınız.