AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir.

1 2
17/04/2021, 15:45

Oğuz Türkyılmaz

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.

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
17/04/2021, 23:13

feraz

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
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
17/04/2021, 23:18

Oğuz Türkyılmaz

Bu Projenin kodlarının çoğu size ait zaten. 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.
17/04/2021, 23:59

feraz

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

Oğuz Türkyılmaz

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.
(17/04/2021, 23:59)feraz yazdı: Bu forumdaki Excel konuları ya bana yada @berduş hocamıza ait olmaya başladı Mail olayı bana kabus gibi gelmeye başladı Normalde mail yollama kalıbı aynı ben incelikleri yapmıştım abey.
Dahada mail olayına bulaşmam Ö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....
18/04/2021, 01:05

feraz

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
Arkadaş bir Allahın kuluda yardıma gelmiyor takviye kuvvet için Önceden @berduş hoca vardı oda yok piyasda şimdi.
1 2