KAYIT UPDATE HK

[mraltin]

Ã?ncelikle siz ustalarimizdan ozur diliyorum formda bir cok ornek incaledim ama kendi formuma gore duzenleyemedigim icin yeni baslik actim.
sorum userform uzerinden kayit islemi yapiyorum fakat var olan bir kayit uzerinde degisiklik yapamiyorum.mesela personelin ismini yanlis girdim onu duzeltmek istiyorum.
Yardimlarinizi bekliyorum.

 

[mraltin]

Kayıtlı personel yakınlarinin oldugu listboxi cift tikladigimda veriler ilgili textlere aktariliyor ben o textlerdeki bilgileri degistirmek istiyorum.
simdiden tesekkurler

 

[mraltin]

Arkadaslar benim derdime derman olacak yok mu
YArdimlariniza ihtiyacim var.

 

[cyberwolf1980]

alttakı kodu ınceleyebılırmısın gereklı bazı degısıklıklerı yaptıktan sonra
degıstıme fonkıyonun calısacaktır ok ?

Private Sub cmdDegistir_Click()
Dim bos As Range
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 txtsiraNo = "" Or cbAd = "" Or txt2 = "" Or txt3 = "" Then
MsgBox "Once bir Secim tapmalisin "
Else
ActiveCell = cbAd
ActiveCell.Offset(0, 1) = txt2
ActiveCell.Offset(0, 2) = txt3
End If
Workbooks("Kitap1.XLS").Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = "Veri!B2:B" & say + 1
txtsiraNo.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

 

[mraltin]

Sn.Cyberwolf tesekkurler bu kod Excel.gen.tr adresinde Veri Bul-sil-Degistir adindan bir calismada var bende inceledim ama yapamadim o yuzden calismami ekleyip yardim istedim.Yinede tesekkurler

 

[Levent Menteşoğlu]

Güncelle butonuna aşağıdaki kodu yazarak deneyin.

[vb:1:c465f44626]Private Sub CommandButton2_Click()
a1 = y_adi.Value
a2 = y_kimlik.Value
a3 = yakinlik.Value
sat = p_no.Column(0) * 1 + 1
Sheets("PER_YAKINI").Cells(sat, "e") = a1
Sheets("PER_YAKINI").Cells(sat, "f") = a2
Sheets("PER_YAKINI").Cells(sat, "g") = a3
End Sub[/vb:1:c465f44626]

 

[mraltin]

Sn.Leventm Ben mi yanlis yapiyorum acaba verdiginiz kodlari yazdim ama calismadi hatada vermiyor degisiklikte yapmiyor.

 

[mraltin]

Ustadlarim yardimlarinizi bekliyorum

 

[mraltin]

arkadaslar bana yardim edermisiniz?kayit duzenleme ve silme islemi yapamiyorrum

 

[mraltin]

formdaki orneklerde bu islemi yapan kodlari buldum calismama gore duzenleyemedim.
visual kod
---------
sat = ListBox1.ListIndex + 2
sonsat = [d65536].End(3).Row + 2
For a = 2 To 5
Cells(sonsat, a) = Controls("textbox" & a)
Next
For b = 2 To 5
Cells(sat, b) = Cells(sonsat, b)
If b = 5 Then Cells(sat, b) = Cells(sonsat, b) * 1
Cells(sonsat, b).ClearContents
Next
Cells([d65536].End(3).Row, "e") = WorksheetFunction.Sum(Range("e2:e" & [d65536].End(3).Row - 1)) :kafa:

 

[mraltin]

Arkadaslar Ozluk projemin sonlarina geldim,kayit guncelleme disinda
Yardimlarinizi bekliyorum

 

[kundakci]

Kayıt ekleme

merhaba
bir kaç komut ekledim Güncelleme yapıyor

fakat bir iki değişiklik daha yapılması lazım
mesela güncellemedensonra listenin refresh yapılması gibi

 

[kundakci]

eğer kimlik no kontrolunde gitmek istersen aşağıdaki kodları yaz

Private Sub CommandButton2_Click()
Columns("f").Find(tc_kimlik).Select
If ActiveCell.Value = tc_kimlik Then
ActiveCell.Offset(0, -1).Value = y_adi.Text
ActiveCell.Value = y_kimlik
ActiveCell.Offset(0, 1).Value = yakinlik
End If

 

[mraltin]

tsk sn.kundakci

 

[mraltin]

sn.Kundakci ornegi calismama ekledigimde calismadi calismamda ise daha onceki gonderdigim ekten farkli bir sey yok.
Birde
Columns("e").Find(adi_soy).Select
Satırını anlamadim.Benim userfom uzerinde adi_soyadi diye bir alan yok ne anlama geliyor acaba?

 

[kundakci]

eklediğin şekli ile dosyayı kundakci@hotmail.com adresine gönderirmisin

 

[mraltin]

dosya boyutu cok fazla oldugu icin gonderemiyorum(12.368kb)
Columns("e").Find(adi_soy).Select
yukaridaki satirda adi_soy alani ne anlama geliyor soylerseniz ben degisiklik yapmaya calisayim isterseniz.

 

[kundakci]

Private Sub yakini_list_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
y_adi.Text = yakini_list.Column(4)
y_kimlik.Value = yakini_list.Column(5)
yakinlik.Text = yakini_list.Column(6)

adi_soy = y_adi.Text
tc_kimlik = y_kimlik.Value

End Sub

bu adi_soy ve Tc_limlik değişkenleri kayıt bulmada kullanıyorum
yani personel yakınlık listesindeki kayıtları double click yapınca o hali ile saklıyor
Güncelleme düğmesine tıkladığında bulması için textbox tan son değişiklik yapılmış halini alamıyorum yoksa güncellenecek kayıtı bulamaz

 

[kundakci]

Merhaba senin dosya fazla şişmiş dosya boyutunu 121 k indirebilirsin
Dosya boyutunu azaltmak için
1-) Filtrelemeyi kaldır (sayfa2' de)
2-) tüm sayfalarda dolu hücrelerin bir alt satırından en alt satıra kadar seç ve l örnek(3:65536) Tüm satırları sil
3- Tüm sayfalarda kursorü A1 hücresine al
4-) kaydet ve kaydettiğin klasörde dosya uzunluğunu kontrol et

kolay gelsin

 

[mraltin]

sn.kundakci gonderdiginiz dosyayi ımport userform ile calismama ekledim ve calisti.Tesekkurler
ekteki formdada ayni kayit guncelleme ve silme islemini yaptiramadim.verdiginiz kodlari bu forma uyguladim ama olmadi.