Bul ve veri girişi makromda hata var

Katılım
14 Temmuz 2006
Mesajlar
38
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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.

Kod:
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.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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.

Kod:
Satır = UserForm4.ListBox1.ListIndex + 13
 
Katılım
14 Temmuz 2006
Mesajlar
38
SELAM

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

İYİ ÇALIŞMALAR
HOŞÇAKAL
 
Üst