Access SQL   ›   MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   MICROSOFT OFFICE PROGRAMLARI   ›   EXCEL   ›   EXCEL SORULARI   ›   DÜŞEYARA Yerine iF ile Sayfalardan veri çek

DÜŞEYARA Yerine iF ile Sayfalardan veri çek
ozkovlu29
Aktif Üye 40-100

*
Kayıt Tarihi: 11.05.2015
Toplam 34 konu açtı.
Toplam 63 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 0
#1
10-02-2017, 23:39
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...


Eklenti Dosyaları
.zip   sayfa sonu.zip (Boyut: 563,3 KB / İndirilme: 16)



  Bul
  Alıntı
Bu mesajı beğenenler:
ozkovlu29
Aktif Üye 40-100

*
Kayıt Tarihi: 11.05.2015
Toplam 34 konu açtı.
Toplam 63 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 0
#2
11-02-2017, 12:20
Açılır Liste kutusuna aşağıdaki kod yardımı ile verileri çektim. Sadece Seçilen personelle alakalı diğer bilgilerin getirilmesi kaldı.
Visual Basic
  1. ub MemurVeriAl()
  2. '
  3. ' Acilrkutuyaverial Makro
  4. '
  5.  
  6.     ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select
  7.     With Selection
  8.         .ListFillRange = "Memur!$C$2:$C$16"
  9.         .LinkedCell = "$C$4"
  10.         .DropDownLines = 8
  11.         .Display3DShading = True
  12.     End With
  13.     Range("c3").Select
  14.  
  15. End Sub
  16. Sub SozlesmeliVeriAl()
  17. '
  18. ' Acilrkutuyaverial Makro
  19. '
  20.  
  21.     ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select
  22.     With Selection
  23.         .ListFillRange = "Sözlesmeli!$C$2:$C$16"
  24.         .LinkedCell = "$C$4"
  25.         .DropDownLines = 8
  26.         .Display3DShading = True
  27.     End With
  28.     Range("c3").Select
  29. End Sub
  30.  
  31. Sub İsciVeriAl()
  32. '
  33. ' Acilrkutuyaverial Makro
  34. '
  35.     ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select
  36.     With Selection
  37.         .ListFillRange = "isci!$C$2:$C$16"
  38.         .LinkedCell = "$C$4"
  39.         .DropDownLines = 8
  40.         .Display3DShading = True
  41.     End With
  42.     Range("c3").Select
  43. End Sub
  44. Sub TaseronVeriAl()
  45. '
  46. ' Acilrkutuyaverial Makro
  47. '
  48.     ActiveSheet.Shapes.Range(Array("Drop Down 13")).Select
  49.     With Selection
  50.         .ListFillRange = "Taseron!$C$2:$C$16"
  51.         .LinkedCell = "$C$4"
  52.         .DropDownLines = 8
  53.         .Display3DShading = True
  54.     End With
  55.     Range("c3").Select
  56. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  excel makro ile farklı sayfalardan tek bir sayfaya veri kopyalama cuneyt_emir 2 15.003 07-01-2014, 15:45
Son Mesaj: Taruz

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi