+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: DÜŞEYARA Yerine iF ile Sayfalardan veri çek (/konu-duseyara-yerine-if-ile-sayfalardan-veri-cek.html)
DÜŞEYARA Yerine iF ile Sayfalardan veri çek - ozkovlu29 - 10/02/2017
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...
Cvp: DÜŞEYARA Yerine iF ile Sayfalardan veri çek - ozkovlu29 - 11/02/2017
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