AccessTr.neT
Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. (/konu-buton-click-yordam-kodlari-textboxchange-yordami-icin-nasil-revize-edilir.html)

Sayfalar: 1 2


Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - Oğuz Türkyılmaz - 17/04/2021

Merhaba uygulamamda ınternet derslerinde gördüğüm arama metodunu kullanmıştım butonun tıklanma olayına yazılan kod Bulmak istediğim firmanın ID numarasını girerek firma bilgilerini forma getiriyordu fakat bu kod çok kullanışlı gelmedi. Ve ben Textboxın change olayına yazdığım kodla İstediğim firmanın bilgilerini Checkboxlar hariç forma getirdim. Check boxlardaki bilgileri forma nasıl getirebilirim. Yardımlarınız için teşekkür ederim.
[Resim: do.php?img=10916]
Kod:
Private Sub ComboBox_FirmaUnvani_Change()
    
    Dim bul As Range, kontrol As Control
    For Each kontrol In Me.Controls
        
        If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then
            Select Case TypeName(kontrol)
                Case Is = "TextBox": kontrol.Value = Empty
                Case Is = "ComboBox": kontrol.Value = Empty
                Case Is = "CheckBox": kontrol.Value = Empty
                
            End Select
        End If
    Next
    With ThisWorkbook.Sheets("Ana_Sayfa")
        Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)
        If Not bul Is Nothing Then
            Me.TextBox_FirmaAdi.Value = .Range("B" & bul.Row).Value
            Me.TextBox_YetkiliKisi.Value = .Range("D" & bul.Row).Value
            Me.TextBox_Telefon.Value = .Range("E" & bul.Row).Value
            Me.TextBox_Gsm.Value = .Range("F" & bul.Row).Value
            Me.TextBox_Email.Value = .Range("G" & bul.Row).Value
            Me.TextBox_Adres.Value = .Range("H" & bul.Row).Value
            Me.TextBox_Aciklama.Value = .Range("I" & bul.Row).Value
            Me.ComboBox_Bolge.Value = .Range("L" & bul.Row).Value
            Me.ComboBox_Temsilci.Value = .Range("M" & bul.Row).Value
            Me.ComboBox_Sehir.Value = .Range("K" & bul.Row).Value
            Me.ComboBox_Ilce.Value = .Range("J" & bul.Row).Value
            Me.ComboBox_RouteDay.Value = .Range("N" & bul.Row).Value
            Me.ComboBox_YetkiliBayilik.Value = .Range("O" & bul.Row).Value
            Me.TextBox_Tarih.Value = .Range("Z" & bul.Row).Value
            
'            Me.CheckBox_BioClimatic.Value = .Range("P" & bul.Row).Value
'            Me.CheckBox_CamBalkon.Value = .Range("Q" & bul.Row).Value
'            Me.CheckBox_CamTavan.Value = .Range("R" & bul.Row).Value
'            Me.CheckBox_FotoselliKapi.Value = .Range("S" & bul.Row).Value
'            Me.CheckBox_Giyotin.Value = .Range("T" & bul.Row).Value
'            Me.CheckBox_İsicamliSurme.Value = .Range("U" & bul.Row).Value
'
'            Me.CheckBox_Pergola.Value = .Range("V" & bul.Row).Value
'            Me.CheckBox_RuzgarKirici.Value = .Range("W" & bul.Row).Value
'            Me.CheckBox_TavanPerdesi.Value = .Range("X" & bul.Row).Value
'            Me.CheckBox_ZipPerde.Value = .Range("Y" & bul.Row).Value
            
            
        End If
    End With
    Set bul = Nothing
    
End Sub




RE: Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - feraz - 17/04/2021

Abey Function evetmi_Hayirmi(deger) As Boolean bunu iptal ettim normalde çalışması gerekirken çalışmıyor gerçi sizde bağlamamışsınız ve yanılmıyorsam bu kod bana aitti Img-grin

Alttaki kodu ekledim onun yerine.Call checkboxxx(.Range("P" & bul.Row).Value, Me.CheckBox_AlbertGenau) bu şekide devam edin diğerleri içinde.

Ayrıca Case Is = "CheckBox": kontrol.Value = False    False yerine  Empty imiş onuda False yaptım hepsini temizlemesi için
Sub checkboxxx(deger, checboxad As MSForms.CheckBox)
    If deger = "Evet" Then checboxad.Value = True
    If deger = "Hayýr" Then checboxad.Value = False
End Sub



RE: Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - Oğuz Türkyılmaz - 17/04/2021

Bu Projenin kodlarının çoğu size ait zaten. Img-grin Made By Feraz... Mail olayı ile uğraşıyorum bir noktaya getirdim son noktayı koyup dediğiniz gibi Outlook açılmadan gönderilebilir mi diye soracağım foruma hayırlısı bakalım. Birazdan bu konuya dönüp dediklerinizi uygularım.


RE: Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - feraz - 17/04/2021

Img-grin
Bu forumdaki Excel konuları ya bana yada @berduş hocamıza ait olmaya başladı Img-grin
Mail olayı bana kabus gibi gelmeye başladı Img-grin
Normalde mail yollama kalıbı aynı ben incelikleri yapmıştım abey.
Dahada mail olayına bulaşmam Img-grin
Önceki koddaki function naıl çalımaz hayret o yüzden sub içine yazdım.


RE: Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - Oğuz Türkyılmaz - 18/04/2021

Feraz Hocam bende pes ettim. Herşey tamamdı outlooka gönderiyordum, kalan mail sayısınıda geri saydırıyor ve outlooka girip gönder al yaptığımda mailler gönderiliyordu taki mallerin sayın ibaresinin devamına "B" hücresindeki firma ismi yerine "C" hücresindeki ünvanı getirsin diye B leri C yaptım. Ne alakaysa maillerin geri sayımıda durdu gönderimide durdu. Yani yeminle başka birşey yapmadım bu işlem buna sebep oldu çıldıracağım. Outlookuda batsın mailide batsın batsın bu dünya offffffff.Img-grin Kaldırıyorum mail gönderim butonunu mail gönderimi olmadan devam edeceğim. Çok teşekkür ederim kusura bakmayın sayemde az daha dünyadan soğutacaktım sizi.

(17/04/2021, 23:59)feraz yazdı: Img-grin
Bu forumdaki Excel konuları ya bana yada @berduş hocamıza ait olmaya başladı Img-grin
Mail olayı bana kabus gibi gelmeye başladı Img-grin
Normalde mail yollama kalıbı aynı ben incelikleri yapmıştım abey.
Dahada mail olayına bulaşmam Img-grin
Önceki koddaki function naıl çalımaz hayret o yüzden sub içine yazdım.
Benim gibi bahtsız bedevi olunca çalışmaz Feraz Hocam çalışmaz....


RE: Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir. - feraz - 18/04/2021

Img-grin
Abey yollamada felan sorun yok sadece outlooka gidince orda bekliyor bildiğiniz gibi.
Son br defa daha mail içn yeni konu açın son dosyayı ekleyin bakalım,zaten ömrmüzü yedi bu outlook Img-grin

Arkadaş bir Allahın kuluda yardıma gelmiyor takviye kuvvet için Img-grin
Önceden @berduş hoca vardı oda yok piyasda şimdi.