+- 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ığı: Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. (/konu-excel-userform-combobox-dan-secilen-kayda-ait-bilgileri-cekmek.html)
Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. - Oğuz Türkyılmaz - 20/03/2021
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
RE: Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. - feraz - 21/03/2021
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 SubRE: Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. - Oğuz Türkyılmaz - 21/03/2021
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 SubRE: Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. - feraz - 21/03/2021
Rica ederim
ORDER_LIST sayfasında arama yapılacak diye farzetmiştim.Dediğim sayfadamı aranacak gelecek verir?
RE: Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. - Oğuz Türkyılmaz - 21/03/2021
(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.
Re: Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek. - feraz - 21/03/2021
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.