• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

BUL butonu için yardım

Y

yağızbaba

Katılım
17 Ağustos 2009
Mesajlar
114
Excel Vers. ve Dili
2007 Excel Türkçe
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.
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod: 
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
 

Ekli dosyalar

Teşekkürler.forma bir adet command buton ekledim ve oraya kodu ekledim ama hata veriyo çalışmadı nerde hata yaptım acaba.
 
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.
 
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.:cool:
 
Ü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
 

Ekli dosyalar

Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
olarak düzelttim ama gene olmadı.
 
ölügömücü' Alıntı:
Set k = Sheets("DATA").Range("D2:D65536").Find(TextBox14.Text, , xlValues, xlWhole)
olarak düzelttim ama gene olmadı.
Genişletmek için tıkla ...
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.:cool:
 
ölügömücü' Alıntı:
7 nolu mesajı kasdetmiştim tekrar gönderdim.
Genişletmek için tıkla ...
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:
 
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
 
Dosyanız ektedir.:cool:
Kodlarımı iyi inceleyin.
Benim yazmadığım şeyleri yazmışsınız.
Ben kodlarımda onları yazıyormuyum.
İyi takip ediniz.:cool:
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 isim bulunamdı.", vbCritical, "EVREN"
End If
End Sub
 

Ekli dosyalar

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.
 
ölügömücü' Alıntı:
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.
Genişletmek için tıkla ...
Bu kodları siz yazmışsınız.Onun altındaki çalışan kodlarda benim.
Bakın bakalım aynimi.:cool:
Kırmızı ile olanlar sizin fazladan yazdıklarınız.:cool:
Sizin yazdığınız kod:
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.:cool:
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 isim bulunamdı.", vbCritical, "EVREN"
End If
End Sub
 
Çok teşekkür ederim.Nerden buldum yazdım anlamadım.göremedim.iyi akşamlar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst