sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,518
- Excel Vers. ve Dili
- 2021 LTSC TR
- Altın Üyelik Bitiş Tarihi
- 18-06-2026
Sayfa üzerinde ki Combobox ile sayfa1 de sadece "D" sütununu "Adı Soyadı" alabiliyorum.
Sayfa1 C Sütunu T.C. Kimlik No
Sayfa1 D Sütunu Adı Soyadı
Sizlerden Hem T.C. hem de Adı Soyadı kısmını "İki Sütun" Comboboxa almak ve Listede kişi seçilince de T.C. Kimlik No görünmesini Sayfa2 D2 sütununa da T.C. kimlik numarasını D3 hücresine de adını Soyadını aktarmak için yardım istirham ediyorum.
Saygılarımla
Kod:
Private Sub ComboBox1_DropButtonClick()
Dim X As Long, Veri() As Variant, Satır As Long
For X = 2 To 500
If Sheets("Sayfa1").Cells(X, "D") <> "" Then
Satır = Satır + 1
ReDim Preserve Veri(1 To Satır)
Veri(Satır) = Sheets("Sayfa1").Cells(X, "D")
End If
Next
If Satır > 0 Then Me.ComboBox1.List = Veri
End Sub
Sayfa1 D Sütunu Adı Soyadı
Sizlerden Hem T.C. hem de Adı Soyadı kısmını "İki Sütun" Comboboxa almak ve Listede kişi seçilince de T.C. Kimlik No görünmesini Sayfa2 D2 sütununa da T.C. kimlik numarasını D3 hücresine de adını Soyadını aktarmak için yardım istirham ediyorum.
Saygılarımla