Skip to main content

AccessTr.neT


Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
12
399

Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek.

Çözüldü #1
Merhaba
Excel dosyamda Order_List sekmesindeki Firma Sipariş Formu butonuna tıklandığında açılan Sipariş Formu adlı Userformun firma unvanı combobox'ında seçilen kayda ait bilgileri, (Firma Adı gsm E_Mail vs ) formdaki textboxlarin içine nasil çekebilirim. Yardımlarınız için teşekkür ederim.

Sayfa koruma parolası : 171717
[Resim: do.php?img=10816]
.rar WİNPERAX.rar (Dosya Boyutu: 109,01 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


#2
Visual Basic Code
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
            End Select
        End If
    Next
    With ThisWorkbook.Sheets("ORDER_LIST")
        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_ProjeAdi.Value = .Range("D" & bul.Row).Value
        End If
    End With
    Set bul = Nothing
End Sub
#3
Feraz Hocam Yardımlarınız için teşekkür ederim. Kodu hem değiştiginde hemde çıkıldığında yordamlarına yazdım ama işlem sonucunda sadece sipariş tarihindeki form yüklendiğinde otomatik gelen günün tarihi bilgisi silindi fakat textbox ve comboboxlara değerler gelmedi.
Visual Basic Code
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
            End Select
        End If
    Next
    With ThisWorkbook.Sheets("ORDER_LIST")
        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_SiparisVeren.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.ComboBox_Temsilci.Value = .Range("L" & bul.Row).Value
            Me.ComboBox_Sehir.Value = .Range("M" & bul.Row).Value
            Me.ComboBox_Ilce.Value = .Range("N" & bul.Row).Value
            
            
        End If
    End With
    Set bul = Nothing
End Sub

Private Sub ComboBox_FirmaUnvani_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    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
            End Select
        End If
    Next
    With ThisWorkbook.Sheets("ORDER_LIST")
        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_SiparisVeren.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.ComboBox_Temsilci.Value = .Range("L" & bul.Row).Value
            Me.ComboBox_Sehir.Value = .Range("M" & bul.Row).Value
            Me.ComboBox_Ilce.Value = .Range("N" & bul.Row).Value
        End If
    End With
    Set bul = Nothing


End Sub
.rar WİNPERAX.rar (Dosya Boyutu: 113,28 KB | İndirme Sayısı: 0)
Access Çekirgesi 
[Resim: img-cray.gif]


#4
Rica ederim
ORDER_LIST sayfasında arama yapılacak diye farzetmiştim.Dediğim sayfadamı aranacak gelecek verir?
#5
(21/03/2021 10:58)feraz Adlı Kullanıcıdan Alıntı: Rica ederim
ORDER_LIST sayfasında arama yapılacak diye farzetmiştim.Dediğim sayfadamı aranacak gelecek verir?

Bayilerin kaydının yapıldığı Ana_Sayfa` sekmesindeki verilerde aranacak Feraz Hocam.
Access Çekirgesi 
[Resim: img-cray.gif]


#6
ThisWorkbook.Sheets("ORDER_LIST")
        Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)

Burdaki sayfa ismini ve aranacak alanı değiştirip denermisiniz benim müsait olacağım zamana kadar.
Ayrıca sadece change kısmına yazmak yeterli.
Son Düzenleme: 21/03/2021, 12:08, Düzenleyen: feraz.

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da