Aktar ve Sil

[unalh]

S.a Arkadaşlar,

Yapmak istediğim Data sayfasında olan çeklerin ödendi sayfasına aktarılması bu işlemi yapabiliyorum fakat sonrasında aktarılan verinin silinmesi gerekiyor yapamadığım işlem bu yardımlarınız için şimdiden teşekkürler.
Hayırlı ramazanlar.

 

[Necdet]

Merhaba,

Private Sub CommandButton3_Click()
On Error Resume Next
Dim sayfa As Worksheet
Sheets("Ödendi").Select
If TextBox1.Value = "" Then
    MsgBox "Listeden çek seçmelisiniz...."
    Exit Sub
End If
a = [A65536].End(3).Row + 1
Cells(a, 1) = TextBox1
Cells(a, 2) = TextBox2
Cells(a, 3) = TextBox3
Cells(a, 4) = TextBox4
Cells(a, 5) = TextBox5
Cells(a, 6) = TextBox6
Cells(a, 7) = TextBox7
Cells(a, 8) = TextBox8
Cells(a, 9) = TextBox9
Cells(a, 10) = TextBox10
Cells(a, 11) = TextBox11
Cells(a, 12) = TextBox12
Cells(a, 13) = "ÖDENDİ"
[B]Set bul = Sheets("Data").Range("A:A").Find(ListView1.SelectedItem.SubItems(1), LookIn:=xlValues)
If Not bul Is Nothing Then
    Sheets("Data").Rows(bul.Row).Delete
End If[/B]
MsgBox ("Çek Ödendi Sayfasına Kayıt Yapıldı...")
Unload Aktar
Aktar.Show
End Sub

 

[fedeal]

Necdet beyin yazdıgını farketmemişim alternatif olsun,
Kodlarınızı alttekilerle değiştirn,

Private Sub CommandButton3_Click()
On Error Resume Next
Dim sayfa As Worksheet
Sheets("Ödendi").Select

If TextBox1.Value = "" Then
MsgBox "Listeden çek seçmelisiniz...."

Exit Sub
End If

a = [A65536].End(3).Row + 1
Cells(a, 1) = TextBox1
Cells(a, 2) = TextBox2
Cells(a, 3) = TextBox3
Cells(a, 4) = TextBox4
Cells(a, 5) = TextBox5
Cells(a, 6) = TextBox6
Cells(a, 7) = TextBox7
Cells(a, 8) = TextBox8
Cells(a, 9) = TextBox9
Cells(a, 10) = TextBox10
Cells(a, 11) = TextBox11
Cells(a, 12) = TextBox12
Cells(a, 13) = "ÖDENDİ"
MsgBox ("Çek Ödendi Sayfasına Kayıt Yapıldı...")
Set bul = Sheets("data").Range("A2:A65000").Find(ListView1.SelectedItem.SubItems(1), LookAt:=xlWhole)
If Not bul Is Nothing Then
    Sheets("data").Rows(bul.Row).Delete Shift:=xlUp
End If
For i = 2 To Sheets("data").[A65536].End(3).Row
Sheets("data").Cells(i, 1) = i - 1
Next
Unload Aktar
Aktar.Show
End Sub

Belki faydası olur benzer bir çalışma,

http://www.excel.web.tr/showthread.php?t=73615

iyi çalışmalar.

 

[unalh]

S.a Arkadaşlar,

Necdet ve fedeal bey cevaplarınız için tşk.

Hayırlı haftalar.

 

[Altay3555]

Selamlar,
Çek Ödendi sayfasına kayıt yapılırken mükerrerlik kontrolü yapılması gerekmezmi,ID olarak hem TC hemde Çek No olarak değer sorgulaması olabilir mesela,sadece TC,ilerideaynı kişinin borçlanmasını engelleyebilir,Çek No yenilenmez ID aldığına göre...

 

[unalh]

Merhaba,

Bu işlem benim için çok uygun olmaz zira benzer numaralarda olan çeklerin ödendi işlemini yaparken bana sıkıntı verir.

 

[Altay3555]

Çekler benzer numarada olmazki.hem olsa bile TC yide sorguladığından aynı adama değişik 2banka çekinin aynı numarasının gelme olasılığı hesabının trilyonda bir olma ihrtimali bulunduğundan eğer ki-bundan sonrsı latifedir-böyle bir durum olurda çeki kaydetmeme gibi durmunuz ortaya çıkarsa çek kayıtlara girmeden ben öderim
Bana da lazım olduğundan,hocamlardan yardım talebinde bulunmuştum.
Gül e Gül e ve Hoşça Kalın...