ara-bul - Değiştir

[isfa67]

ekte sunmuş olduğum dosyada bir bul butonu ekledim ancak istediğim kodu bulamadım.istediğim şu: arama : sadece isim dosya no yada herhangi bir verinin girilmesinde userforma o kişinin bilgilerinin gelmesini istiyorum.ama o kişi için değişiklik yaptığımda kaydet butonuna basınca yeni kişi kaydediyor sadece değişiklilk yapmak istiyorum yeniden kayıt etmesini istemiyorum.yada şöyle olabilir ali veli diye kaydettiğim kişi yi ararken sadece ali yazıp bana alilerin listesini gösterebilir bende ilgili aliyi seçip değişiklik yapayım çokmu zor şey istedim.yapabilen olursa sevinirim teşekkürler.

 

[kan-nas]

güncelleme butonuda eklense çok iyi olur...

 

[Excelmy]

:dusun:

TC Kimlik kriterinizdeki TextBox'un yerine ComboBox ekleyin.

KAYIT butonu kodlarınız ;

Private Sub CommandButton1_Click()
Dim gncl, ynkyt As Long
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("B2:B65536"), ComboBox1.Text) > 0 Then
gncl = ComboBox1.ListIndex + 2
Sheets("Sayfa1").Range("C" & gncl) = TextBox1.Value
Sheets("Sayfa1").Range("D" & gncl) = TextBox2.Value
'Diğer TextBoxları tanımlayın
Else
ynkyt = ActiveWorkbook.Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row + 1
Sheets("Sayfa1").Range("A" & ynkyt) = ynkyt
Sheets("Sayfa1").Range("B" & ynkyt) = ComboBox1.Value
Sheets("Sayfa1").Range("C" & ynkyt) = TextBox1.Value
Sheets("Sayfa1").Range("D" & ynkyt) = TextBox2.Value
'Diğer TextBoxları tanımlayın
For txb = 1 To 10
    Controls("TextBox" & txb).Value = ""
Next txb
ComboBox1 = ""
End If
UserForm_Initialize
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!B2:B" & Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
End Sub

 

[isfa67]

:dusun:

TC Kimlik kriterinizdeki TextBox'un yerine ComboBox ekleyin.

KAYIT butonu kodlarınız ;

Private Sub CommandButton1_Click()
Dim gncl, ynkyt As Long
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("B2:B65536"), ComboBox1.Text) > 0 Then
gncl = ComboBox1.ListIndex + 2
Sheets("Sayfa1").Range("C" & gncl) = TextBox1.Value
Sheets("Sayfa1").Range("D" & gncl) = TextBox2.Value
'Diğer TextBoxları tanımlayın
Else
ynkyt = ActiveWorkbook.Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row + 1
Sheets("Sayfa1").Range("A" & ynkyt) = ynkyt
Sheets("Sayfa1").Range("B" & ynkyt) = ComboBox1.Value
Sheets("Sayfa1").Range("C" & ynkyt) = TextBox1.Value
Sheets("Sayfa1").Range("D" & ynkyt) = TextBox2.Value
'Diğer TextBoxları tanımlayın
For txb = 1 To 10
    Controls("TextBox" & txb).Value = ""
Next TB
ComboBox1 = ""
End If
UserForm_Initialize
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!B2:B" & Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
End Sub

bi yerde bi hata var ama bulamadım.yazdım kodu ancak çalışmadı hata veriyor.

 

[Excelmy]

bi yerde bi hata var ama bulamadım.yazdım kodu ancak çalışmadı hata veriyor.

Düzeltme yapın.

Next TB

Next txb

 

[isfa67]

kuman ilgine teşekkür ederim ama olmadı.ben bir bul düğmesi ekledim o istediğim gibi buluyor ama 2 tane ali varsa ikincisine geçmiyor sonraki aliyi bulması için ne yapabilirim?
bir de bulduğum kişiyi userforma getiriyor ama düzeltme yaptıktan sonra tekrar yeni bir kişi olarak kayıt yapıyor ben aynı kişi üzerine yazmasını istiyorum.yardımcı olabilirseniz sevinirim.teşekkürler.bu arada tc kimlik şart olduğundan onu silemem.

 

[isfa67]

yokmu derdime deva olabilecek kimse??