DÜŞEYARA Yerine iF ile Sayfalardan veri çek

Merhabalar;
Düşeyara fonksiyonu ile yaptığımız işlemi makro ile nasıl yapabiliriz.
Ekte göndermiş olduğum dosyada, 5 adet sayfa var.
1-AnaSayfa=Verilerin çekileceği sayfa
2-Memur=Memur personellerin bilgilerinin saklandığı sayfa
3-Sözlesmeli=Sözleşmeli personelin bilgilerinin saklandığı sayfa
4-İsci=İşçi personellerin bilgilerinin saklandığı sayfa
5-Taseron=Taşeron personellerin bilgilerinin saklandığı sayfa.
Bu bilgiler ışığında; AnaSayfada Seçenek düğmelerinde hangi Personel Tipi seçilmiş ise, ona göre "C3" hücresine personel isimlerinin gelmesi ve personel seçildiğinde onunla alakalı bilgilerinin ilgili hücrelere aktarılmasını sağlamak.
Saygılarımla...

Açılır Liste kutusuna aşağıdaki kod yardımı ile verileri çektim. Sadece Seçilen personelle alakalı diğer bilgilerin getirilmesi kaldı.

ub MemurVeriAl()

'

' Acilrkutuyaverial Makro

'



    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "Memur!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

   

End Sub

Sub SozlesmeliVeriAl()

'

' Acilrkutuyaverial Makro

'



    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "Sözlesmeli!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

End Sub



Sub İsciVeriAl()

'

' Acilrkutuyaverial Makro

'

    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "isci!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

End Sub

Sub TaseronVeriAl()

'

' Acilrkutuyaverial Makro

'

    ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select

    With Selection

        .ListFillRange = "Taseron!$C$2:$C$16"

        .LinkedCell = "$C$4"

        .DropDownLines = 8

        .Display3DShading = True

    End With

    Range("c3").Select

End Sub

DÜŞEYARA Yerine iF ile Sayfalardan veri çek

ozkovlu29

ozkovlu29