ComboBox1 e alınan kişinin ünvanı TextBox1 de görünsün.

[s.savas]

Arkadaşlar günaydın.
Sayfa1 sekmesine yerleştirdiğim bir adet ComboBox'a Sayfa3 A sütununda bulunan kişileri listeliyorum.

Aynı sekmeye bir adet de Textbox1 yerleştirdim. ComboBox1 de seçilen kişinin ünvanını sayfa3 B sütunundan bulup yazmasını istiyorum.

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin. Comboboxa isim almak için düzenlediğiniz kodu SelectionChange yerine daha mantıklı bir yere almanızı öneririm. Bu şekilde her hücre seçiminde kod çalışacaktır. Bunun yerine kullanım amacınıza göre Thisworkbook'un açılış kısmına ekleyebilirsiniz.

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then TextBox1 = "": Exit Sub
Set s3 = Sheets("Sayfa3")
Set Bul = s3.Range("a2:a" & s3.[a65536].End(3).Row).Find(ComboBox1, lookat:=xlWhole)
If Not Bul Is Nothing Then
TextBox1 = s3.Cells(Bul.Row, "b")
Else:
MsgBox "Ünvan bulunamadı.", vbCritical, "UYARI"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, son As Integer
son = WorksheetFunction.CountA(Worksheets("Sayfa3").Range("a2:a113")) + 1
ComboBox1.Clear
For i = 2 To son
    If WorksheetFunction.CountIf(Worksheets("Sayfa3").Range("a2:a" & i), Worksheets("Sayfa3").Cells(i, 1).Value) = 1 Then
        ComboBox1.AddItem Worksheets("Sayfa3").Cells(i, 1)
        End If
Next i
End Sub

 

[s.savas]

Teşekkürler Mustafa hocam.
ComboBox7'a Sayfa3 C sütunundan veri almak isterken diğer ComboBox larda çalışmadı.
Hata nerede yaptım bulamıyorum.

 

[s.savas]

ComboBox7 ye Sayfa3 C sütunundan veri alabildim, ancak bütün ComboBox lar her veriyi dört kez alıyor.
Ayrıca ComboBox7 ye alınan verilerin yapısı sayfada herhangi bir hücreyi tıklayınca bozuluyor.
Örnek:
Mali Üye, M ali Üye olarak
İdari Üye, Idari Üye
İşin Uzmanı Üye, Işin Uz mani Üy e
gibi garip hallere dönüyor.

 

[Ergün Güler]

ComboBox7 ye Sayfa3 C sütunundan veri alabildim, ancak bütün ComboBox lar her veriyi dört kez alıyor.
Ayrıca ComboBox7 ye alınan verilerin yapısı sayfada herhangi bir hücreyi tıklayınca bozuluyor.
Örnek:
Mali Üye, M ali Üye olarak
İdari Üye, Idari Üye
İşin Uzmanı Üye, Işin Uz mani Üy e
gibi garip hallere dönüyor.

Selam,
Sayfa1'in kod sayfasına aşağıdaki kodları ekleyiniz. Sayfayı bir kere aktif yapınız.

Private Sub Worksheet_Activate()
Dim s1 As Worksheet
Dim s3 As Worksheet
Dim i, j, son3_A, son3_C As Long

Set s1 = Sheets("Sayfa1")
Set s3 = Sheets("Sayfa3")
son3_A = s3.Range("A65536").End(3).Row
son3_C = s3.Range("C65536").End(3).Row
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear

ComboBox1 = s1.Cells(1, "A")
ComboBox2 = s1.Cells(2, "A")
ComboBox3 = s1.Cells(3, "A")
ComboBox4 = s1.Cells(4, "A")
ComboBox5 = s1.Cells(5, "A")
ComboBox6 = s1.Cells(6, "A")
ComboBox7 = s1.Cells(1, "C")
TextBox1 = s1.Cells(1, "B")
TextBox2 = s1.Cells(2, "B")
TextBox3 = s1.Cells(3, "B")
TextBox4 = s1.Cells(4, "B")
TextBox5 = s1.Cells(5, "B")
TextBox6 = s1.Cells(6, "B")

For i = 2 To son3_A
ComboBox1.AddItem s3.Cells(i, "A")
ComboBox2.AddItem s3.Cells(i, "A")
ComboBox3.AddItem s3.Cells(i, "A")
ComboBox4.AddItem s3.Cells(i, "A")
ComboBox5.AddItem s3.Cells(i, "A")
ComboBox6.AddItem s3.Cells(i, "A")
Next
For j = 2 To son3_C
ComboBox7.AddItem s3.Cells(j, "C")
Next
End Sub

Sayfa1'deki Worksheet_SelectionChange'e yazdığınız kodları siliniz yerine aşağıdaki kodları kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s1 As Worksheet

Set s1 = Sheets("Sayfa1")

s1.Cells(1, "A") = ComboBox1
s1.Cells(2, "A") = ComboBox2
s1.Cells(3, "A") = ComboBox3
s1.Cells(4, "A") = ComboBox4
s1.Cells(5, "A") = ComboBox5
s1.Cells(6, "A") = ComboBox6
s1.Cells(1, "C") = ComboBox7
s1.Cells(1, "B") = TextBox1
s1.Cells(2, "B") = TextBox2
s1.Cells(3, "B") = TextBox3
s1.Cells(4, "B") = TextBox4
s1.Cells(5, "B") = TextBox5
s1.Cells(6, "B") = TextBox6

End Sub