Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

DÜŞEYARA Yerine iF ile Sayfalardan veri çek

ozkovlu29
ozkovlu29
Excel Cevaplanmış Soruları
1
1401

DÜŞEYARA Yerine iF ile Sayfalardan veri çek

#1
ozkovlu29
Aktif Üye
ozkovlu29
Bul
Aktif Üye
Adı Soyadı: Ba.... Çİ....
Yaşı: 38
Konum: Gümüşhane
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 29/08/2019,08:35
Yorumları: 92
Konuları: 39
Kayıt Tarihi: 09/08/2016
Teşekkür Puanı: 0
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...
.zip sayfa sonu.zip (Dosya Boyutu: 563,3 KB | İndirme Sayısı: 18)
Cevapla
#2
ozkovlu29
Aktif Üye
ozkovlu29
Bul
Aktif Üye
Adı Soyadı: Ba.... Çİ....
Yaşı: 38
Konum: Gümüşhane
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 29/08/2019,08:35
Yorumları: 92
Konuları: 39
Kayıt Tarihi: 09/08/2016
Teşekkür Puanı: 0
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task