Skip to main content

AccessTr.neT


DÜŞEYARA Yerine iF ile Sayfalardan veri çek

DÜŞEYARA Yerine iF ile Sayfalardan veri çek

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