BUL butonu için yardım

[yağızbaba]

Herkesin KANDİLİ MÜBAREK OLSUN iyi akşamlar yapmaya çalıştığım form a bul butonu eklemek istiyorum.Buraya sicil no girince kişinin bütün bilgilerini bulmasını istiyorum.yardımlarınız için tşk.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton3_Click()
Dim k As Range, nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        If nesne.Tag <> "" Then nesne.Value = ""
    End If
Next
Set k = Sheets("DATA").Range("B2:B65536").Find(TextBox13.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    For Each nesne In Me.Controls
        If TypeName(nesne) = "TextBox" Then
            If nesne.Tag <> "" Then nesne.Value = Sheets("DATA").Cells(k.Row, CInt(nesne.Tag))
        End If
    Next
    Else
    MsgBox "Aradığınız sicil no bulunamadı.", vbCritical, "EVREN"
End If
End Sub

 

[yağızbaba]

Teşekkürler.forma bir adet command buton ekledim ve oraya kodu ekledim ama hata veriyo çalışmadı nerde hata yaptım acaba.

 

[Orion1]

Teşekkürler.forma bir adet command buton ekledim ve oraya kodu ekledim ama hata veriyo çalışmadı nerde hata yaptım acaba.

Neyi eklediniz.Ben zaten buton ekleyip kodu oraya yazmıştım.Ve çalışıyordu.

 

[yağızbaba]

inan yeni gördüm butonu.ben kodu kendim eklemem gerekiyor sandım çok teşekkürler aynı yolla isimden bul ben yapabilirim heralde deneyeceğim ama acemilik çok zor.

 

[Orion1]

Saanırım siz başka bir dosyada kullanıyorsunuz kodları.O zman çalışmaz.
Kullandığınz userformda textboxların tag özelliklerine hangi sütundan veri alyorsa tag larına o sütununu numarasını yazınız.2-3 neyse sütun numarsı onu yazınız.

 

[yağızbaba]

Üstad verdiğin bilgiler doğrultusunda isimden bul butonu yaptım ve çalışmadı acaba nerde hata yaptım gösterebilirmisin yardımın için teşekkür ederim

 

[Orion1]

Üstad verdiğin bilgiler doğrultusunda isimden bul butonu yaptım ve çalışmadı acaba nerde hata yaptım gösterebilirmisin yardımın için teşekkür ederim

6 numaralı mesajı okuyunuz.

 

[yağızbaba]

Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
olarak düzelttim ama gene olmadı.

 

[Orion1]

Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
olarak düzelttim ama gene olmadı.

ne oluyor hatmı veriyor yoksa hiç bir şey göstermiyormu.
6 numaralı mesajda yazdıklarımı uyguladınızmı?.
Daha olmadı dosyayı bana yolayın.

 

[yağızbaba]

yukarıda yolladım acemi 58 olarak

 

[Orion1]

yukarıda yolladım acemi 58 olarak

Hangi yukarıda?

 

[yağızbaba]

dosya aşağıda

 

[yağızbaba]

7 nolu mesajı kasdetmiştim tekrar gönderdim.

 

[Orion1]

7 nolu mesajı kasdetmiştim tekrar gönderdim.

13 numaralı mesajda yolladığınız dosyada buton çalışıyor.
Textboxa O butonun sol tarafında bulunan textboxa sicil numarasını girmeniz gerekiyor.
Sicil numarası.Yani B sütunana yazdığınız numaralardan bir tanesini girin:cooL:

 

[yağızbaba]

Doğru sizin yaptığınız sicil butonu çalışıyor.Ama ben isimden bulma butonu ekledim alt tarafa sizinkine bakarak uyarladım.Ama bu çalışmadı onu kasdetmiştim.İsimden bul butonu çalışmıyor yapamadım veya eksik kod mu girdim acaba

 

[Orion1]

Dosyanız ektedir.
Kodlarımı iyi inceleyin.
Benim yazmadığım şeyleri yazmışsınız.
Ben kodlarımda onları yazıyormuyum.
İyi takip ediniz.

Private Sub CommandButton4_Click()
Dim k As Range, nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        If nesne.Tag <> "" Then nesne.Value = ""
    End If
Next
Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    For Each nesne In Me.Controls
        If TypeName(nesne) = "TextBox" Then
            If nesne.Tag <> "" Then nesne.Value = Sheets("DATA").Cells(k.Row, CInt(nesne.Tag))
        End If
    Next
    Else
    MsgBox "Aradığınız isim bulunamdı.", vbCritical, "EVREN"
End If
End Sub

 

[yağızbaba]

Valla karşılaştırdım benmki ile tam aynı ama benimki çalışmıyo.Sizin yazmadığınız benim yazdığım yeri inanın bulamadım. ve yanlış olan yeri bulamadım neden çalışmadı.sizide yoruyorum ama gerçekten anlayamadım.sağolun.

 

[Orion1]

Valla karşılaştırdım benmki ile tam aynı ama benimki çalışmıyo.Sizin yazmadığınız benim yazdığım yeri inanın bulamadım. ve yanlış olan yeri bulamadım neden çalışmadı.sizide yoruyorum ama gerçekten anlayamadım.sağolun.

Bu kodları siz yazmışsınız.Onun altındaki çalışan kodlarda benim.
Bakın bakalım aynimi.
Kırmızı ile olanlar sizin fazladan yazdıklarınız.
Sizin yazdığınız kod:

Private Sub CommandButton4_Click()
Dim k As Range, nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        If nesne.Tag <> "" Then nesne.Value = ""
    End If
Next
Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    For Each nesne In Me.Controls
        If TypeName(nesne) = "TextBox" Then
            If nesne.Tag <> "" Then nesne.Value = Sheets("DATA").Cells(k.Row, CInt(nesne.Tag))
        End If
    Next
    Else
    MsgBox "Aradığınız sicil no bulunamadı.", vbCritical, "EVREN"
End If
    [B][COLOR="Red"]End Sub
Yeni_mi = True
    
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
    TextBox10.Text = ""
    TextBox11.Text = ""
    TextBox12.Text = ""[/COLOR][/B]
End Sub

Bu aşağıdaki kodlarda benim kodlarım.

Private Sub CommandButton4_Click()
Dim k As Range, nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        If nesne.Tag <> "" Then nesne.Value = ""
    End If
Next
Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    For Each nesne In Me.Controls
        If TypeName(nesne) = "TextBox" Then
            If nesne.Tag <> "" Then nesne.Value = Sheets("DATA").Cells(k.Row, CInt(nesne.Tag))
        End If
    Next
    Else
    MsgBox "Aradığınız isim bulunamdı.", vbCritical, "EVREN"
End If
End Sub

 

[yağızbaba]

Çok teşekkür ederim.Nerden buldum yazdım anlamadım.göremedim.iyi akşamlar.