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

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

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.

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

Rica ederim
ORDER_LIST sayfasında arama yapılacak diye farzetmiştim.Dediğim sayfadamı aranacak gelecek verir?

(21/03/2021, 10:58)feraz yazdı: 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.

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.