Değiştir

[gdemir]

arkadaslar asagıdakı kodları kullanarak
ilk degiştir işlemini gercekleştire biliyorum
ama hemen ardından ikinci bir değişiklik yapamıyorum
işlem calışıyor ama sayfadaki veriyi değiştirmiyor (
bir bakarmısınız ?





Dim bos As Range
Dismi = ActiveWorkbook.Name
For Each bos In Range("D2" & WorksheetFunction.CountA(Range("D265000")))
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 cbAd = "" Then
MsgBox "Adı Soyadı listesinden bir Kişi seçmelisiniz"
Else
ActiveCell = cbAd
ActiveCell.Offset(0, -1) = txtsicil
ActiveCell.Offset(0, 1) = txtadresi
ActiveCell.Offset(0, 2) = txttel
ActiveCell.Offset(0, 3) = txtfax
ActiveCell.Offset(0, 4) = txttrh
ActiveCell.Offset(0, 5) = txtis
ActiveCell.Offset(0, 6) = txtyetkili
ActiveCell.Offset(0, 7) = txtmail
ActiveCell.Offset(0, 8) = txtweb
ActiveCell.Offset(0, 9) = txtdurumu
ActiveCell.Offset(0, 10) = txtaciklama

End If
Workbooks(Dismi).Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1

 

[Mahmut Bayram]

Aşağıdaki şekilde dener misiniz. (sayfanın ismi burada sayfa1 olarak alınmıştır. İlgili yeri değiştiriniz. Ayrıca kitabınızın ismi "Dismi" değilse hata verir bunu da göz ardı etmeyiniz)
Dim bos As Range
For Each bos In Range("D2" & WorksheetFunction.CountA(Range("D265000")))
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 = "" Or cbAd = "" Or txtikamet = "" Or txtmaas = "" Then
MsgBox "Adı Soyadı listesinden bir Kişi seçmelisiniz"
Else
ActiveCell = cbAd
ActiveCell.Offset(0, 1) = txtsicil
ActiveCell.Offset(0, 2) = txtadresi
ActiveCell.Offset(0, 3) = txttel
ActiveCell.Offset(0, 4) = txtfax
ActiveCell.Offset(0, 5) = txttrh
ActiveCell.Offset(0, 6) = txtis
ActiveCell.Offset(0, 7) = txtyetkili
ActiveCell.Offset(0, 8) = txtmail
ActiveCell.Offset(0, 9) = txtweb
ActiveCell.Offset(0, 10) = txtdurumu
ActiveCell.Offset(0, 11) = txtaciklama
End If
Workbooks("Dismi.xls").Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = "Sayfa1!D2" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1