Değiştir Makrosu hk.

[anten34]

Ekteki düzenlemiş olduğum Mazbata yazdırma uygulaması ile ilgili olarak değiştir makrosunda bazı hatalar var ve bunu çözemedim, değişikliği başka satırlarda yapıyor.

Yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Değiştir butonundaki kodları aşağıdaki ile değiştirin.

Private Sub cmdDegistir_Click()
Dim bos As Range
cbAd.RowSource = ""
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
If txtsira_no = "" Or cbAd = "" Or txtdosya_no = "" Or txtkayit = "" Or txtadres = "" Or txtadres1 = "" Then
        MsgBox "Listeden bir kayıt seçmelisiniz"
Else
ActiveCell = cbAd
ActiveCell.Offset(0, 1) = txtdosya_no
ActiveCell.Offset(0, 2) = txtkayit
ActiveCell.Offset(0, 3) = txtadres
ActiveCell.Offset(0, 4) = txtadres1
End If
Workbooks("mazbata.xls").Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = "veri_giris!B2:B" & [veri_giris!a65536] + 1
txtsira_no.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

 

[anten34]

İlginiz İçin Teşekkürler,

Sn. Leventm İlgininiz için çok teşekkür ediyorum. Kodlar çalıştı şimdi nerede hata yapmışım ona bakacağım.