Soru Comboboxa ikili sütun alma

[sirkülasyon]

Sayfa üzerinde ki Combobox ile sayfa1 de sadece "D" sütununu "Adı Soyadı" alabiliyorum.

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 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

 

[bmutlu966]

Deneyiniz.

Private Sub ComboBox1_DropButtonClick()
Dim X As Long, Veri() As Variant, Satir As Long
    For X = 2 To 500
        If Sheets("Sayfa1").Cells(X, "D") <> "" Then
            Satir = Satir + 1
            ReDim Preserve Veri(1 To Satir)
            Veri(Satir) = Sheets("Sayfa1").Cells(X, "C") & " " & Sheets("Sayfa1").Cells(X, "D")
        End If
    Next
    If Satir > 0 Then Me.ComboBox1.List = Veri
    
    Sheets("Sayfa2").Cells(2, "D") = Left(Me.ComboBox1.Value, WorksheetFunction.Search(" ", Me.ComboBox1.Value, 1))
    Sheets("Sayfa2").Cells(3, "D") = Right(Me.ComboBox1.Value, Len(Me.ComboBox1.Value) - WorksheetFunction.Search(" ", Me.ComboBox1.Value, 1))
End Sub