Combobox ile seçilen isimi alt alta aktarma

[Yesilyurtlu]

Değerli uzmanlarım;
Ödeme Hazırlama sayfasının B7:B100 aralığında isimler mevcut.
Bordro sayfasında bir combobox ile Ödeme Hazırlama sayfasının B7:B100 aralığında isimlerden seçecek AKTAR butonu ile Adı Soyadı kısmına alt alta ekleyecek.

Bu Konuda YArdımcı olabilir misiniz?

 

[Murat OSMA]

Bordro sayfasına şu kodları yazınız;

Private Sub ComboBox1_Change()
    Dim bul As Range
    Set bul = Sayfa4.Range("b7:b" & Sayfa4.Range("b65536").End(3).Row).Find(Sayfa5.ComboBox1.Text)
    Sayfa5.Range("B65536").End(3)(2, 1) = Sayfa5.ComboBox1.Text
End Sub

Private Sub Worksheet_Activate()
    Dim i As Integer
    Sayfa5.ComboBox1.Clear
    For i = 7 To Sayfa4.Range("B65536").End(3).Row
        ComboBox1.AddItem Sayfa4.Cells(i, 2)
    Next i
End Sub

 

[Yesilyurtlu]

Sayın Murat OSMA;
Kodları BORDRO sayfasına aktardım ancak isimler gelmedi. Combo boş geliyor.
Hatalı bir işlem yaptım zannedersem.
Dosyaya ekleyebilir misiniz?

 

[Yesilyurtlu]

Sayın Murat OSMA
Sorum çözüldü
Ellerine sağlık. Hatamı buldum

 

[Murat OSMA]

Hatanız neydi ?

 

[Yesilyurtlu]

Sayın Murat OSMA
Ödeme Hazırlama sayfasının B7:B100 aralığında isimler yazılırken sıra no vermemişim. Sıra No yazdığım zaman mükemmel oldu.

Ancak;
Aynı dosya için kızmazsanız eğer bir isteğim olacak
Ödeme Hazırlama sayfasının B7:B100 aralığında isimleri seçtik bordro sayfasına alt alta aktardık.
Ayrıca Ödeme Hazırlama sayfasında ki C, D, E sütunlarını bordro sayfasında ki aktarılan isime göre C, D,E sütunlarına vlookup ile aktarabilir miyiz?
Bu konuda yardımcı olabilir misiniz?

 

[Murat OSMA]

ComboBox kodlarını bu şekilde yapın;

Private Sub ComboBox1_Change()
    On Error Resume Next
    Dim bul As Range
    Set bul = Sayfa4.Range("b7:b" & Sayfa4.Range("b65536").End(3).Row).Find(Sayfa5.ComboBox1.Text)
    Sayfa5.Range("B65536").End(3)(2, 1) = Sayfa5.ComboBox1.Text
    Sayfa5.Range("C65536").End(3)(2, 1) = bul.Offset(0, 1).Value
    Sayfa5.Range("D65536").End(3)(2, 1) = bul.Offset(0, 2).Value
    Sayfa5.Range("E65536").End(3)(2, 1) = bul.Offset(0, 3).Value
End Sub