Bul ve veri girişi makromda hata var

[dogan_yigit]

selamlar;

arkadaşlar cari programı yapmaya çalışıyorumda
çek hesaplarını oluştururken makroların bir kısmını çözemedim yardımcı olursanız sevinirim

ekteki dosyayı incelerseniz anlarsınız heralde

saygılar

 

[Korhan Ayhan]

Selamlar,

ListBox1_Click koduzu aşağıdaki ile değiştiriniz.

Private Sub ListBox1_Click()
If ListBox1.ListIndex < 0 Then
Call Formu_Temizle
Exit Sub
End If
CommandButton2.Enabled = True
CommandButton3.Enabled = True
TextBox1 = ListBox1.Column(0)
TextBox2 = ListBox1.Column(1)
TextBox3 = ListBox1.Column(2)
TextBox4 = ListBox1.Column(3)
TextBox5 = ListBox1.Column(4)
TextBox6 = ListBox1.Column(5)
TextBox7 = ListBox1.Column(7)
TextBox8 = ListBox1.Column(8)
TextBox9 = ListBox1.Column(9)
TextBox10 = ListBox1.Column(10)
TextBox11 = ListBox1.Column(11)
TextBox12 = ListBox1.Column(12)
TextBox13 = ListBox1.Column(13)
End Sub

UserForm_Initialize kodunuzudaki aşağıdaki satırları siliniz.

StartUpPosition = 0
Top = 375
Left = 130

Diğer sorularınız ise daha önce forumda defalarca işlenmişti lütfen biraz araştırınız. Arama bölümünden bulabilirsiniz.

 

[dogan_yigit]

selamlar

yardımın için çok teşekkür ettim

iyi çalışmalar :hey: :hey: :hey:

 

[Korhan Ayhan]

Selamlar,

Kayıt bulmak için aşağıdaki kodu uygulayınız.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
Cancel = False
Exit Sub
End If
Set Bul = Sheets("ÇEK").Range("H13:H" & [H65536].End(3).Row).Find(What:=TextBox1, LookAt:=xlWhole)
If Not Bul Is Nothing Then
ListBox1.ListIndex = (Bul.Row - 13)
Else
MsgBox "Aradığınız kayıt bulunamamıştır." _
& Chr(10) & "Lütfen girdiğiniz bilgileri kontrol ediniz.", vbExclamation, "Dikkat !"
Cancel = True
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

Kayıt silmek için kullandığınız koddaki "Satır = UserForm4.ListBox1.ListIndex + 5" satırını aşağıdaki gibi değiştiriniz.

Satır = UserForm4.ListBox1.ListIndex + 13

 

[dogan_yigit]

SELAM

ARKADAŞIM ÇOK TEŞEJKKÜR ETTİM ELİNE KOLUNA SAĞLIK

İYİ ÇALIŞMALAR
HOŞÇAKAL