Veri çekme

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Hocam kolay gelsin iyi çalışmalar Excel sayfam 3 sayfadan oluşmaktadır ana biri mülakatları yapıldı mülakatları yapılamadı şeklinde 3 sayfadan ibarettir ana veri de H sütununda mülakatları yapıldı yapılamadı şeklinde ibareler yer almaktadır yapılanlar mülakatları yapıldı sayfasına yazmış olduğum kimlik bilgilerinin gelmesini istiyorum yapılanmayanları ise yapılamadı sayfasına kimlik bilgilerinin gelmesini istiyorum Rica etsem yardımcı olur musunuz ekte paylaştım
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,534
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

ANA VERİ adlı sayfanın kod sayfasına kopyalayıp çalıştırın.
Kod:
Sub Test()
    Dim SonSatir As Long
    SonSatir = Cells(Rows.Count, "A").End(xlUp).Row

    Range("A:P").AutoFilter Field:=8, Criteria1:="YAPILDI"
    Range("B2:G" & SonSatir).Copy Worksheets("MÜLAKAATLARI YAPILDI").Range("B4")
    
    Range("A:P").AutoFilter Field:=8, Criteria1:="YAPILAMADI"
    Range("B2:G" & SonSatir).Copy Worksheets("MÜLAKATLARI YAPILAMADI").Range("B4")
    
    Me.ShowAllData

End Sub
 

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Merhaba.

ANA VERİ adlı sayfanın kod sayfasına kopyalayıp çalıştırın.
Kod:
Sub Test()
    Dim SonSatir As Long
    SonSatir = Cells(Rows.Count, "A").End(xlUp).Row

    Range("A:P").AutoFilter Field:=8, Criteria1:="YAPILDI"
    Range("B2:G" & SonSatir).Copy Worksheets("MÜLAKAATLARI YAPILDI").Range("B4")
   
    Range("A:P").AutoFilter Field:=8, Criteria1:="YAPILAMADI"
    Range("B2:G" & SonSatir).Copy Worksheets("MÜLAKATLARI YAPILAMADI").Range("B4")
   
    Me.ShowAllData

End Sub
Hocam bunu formülle yapma şansımız yok mu
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,534
Excel Vers. ve Dili
2019 Türkçe
Yapıldı sayfasının B4 hücresine aşağıdaki formülü kopyalayın.
Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!H$2:H$100="YAPILDI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Yapılamadı sayfasının B4 hücresine de aşağıdaki formülü uygulayın.
Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!H$2:H$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Formüller dizi formülüdür CTRL+SHIF+ENTER basmayı unutmayın. Daha sonra alt hücrelere kopyalayabilirsiniz.
C, D, E, F, G hücrelerine bu formülleri kendiniz uyarlayın.

Not: Çok fazla formül olacağı için dosyanız ağırlaşabilir.
 

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Yapıldı sayfasının B4 hücresine aşağıdaki formülü kopyalayın.
Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!H$2:H$100="YAPILDI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Yapılamadı sayfasının B4 hücresine de aşağıdaki formülü uygulayın.
Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!H$2:H$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Formüller dizi formülüdür CTRL+SHIF+ENTER basmayı unutmayın. Daha sonra alt hücrelere kopyalayabilirsiniz.
C, D, E, F, G hücrelerine bu formülleri kendiniz uyarlayın.

Not: Çok fazla formül olacağı için dosyanız ağırlaşabilir.
Muzaffer hocam atmış olduğum ek sayfada bunları Keşke yapsaydınız ya beceremedik olmadı orada yapıp ekten alsam ben
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,534
Excel Vers. ve Dili
2019 Türkçe
Öğrenmeniz açısından sizin yapmanız daha doğru olur.

Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$H$2:$H$100="YAPILDI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Bu formülü "YAPILDI" sayfasının B4 hücresine kopyalayın. Hücreye bir şey yazacakmış gibi içine girin CTRL+SHIF+ENTER tuşlarına basın. Formülün başına ve sonuna {} işaretleri eklenir.
Sonra B4 hücresini sağa doğru G sütununa kadar çoğaltın. B4:G4 hücrelerini seçip aşağıya doğru 100. satıra kadar çoğaltın.

Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$H$2:$H$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Bu formülü de "YAPILMADI" sayfasına yukarıda anlattığım şekilde uygulayın.

Not: Doğum tarihi hücrelerinin formatı değişecektir. Tarih hücrelerini seçip hücre biçimlendirmeden Kısa Tarih formatını seçin.
 

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Öğrenmeniz açısından sizin yapmanız daha doğru olur.

Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$H$2:$H$100="YAPILDI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Bu formülü "YAPILDI" sayfasının B4 hücresine kopyalayın. Hücreye bir şey yazacakmış gibi içine girin CTRL+SHIF+ENTER tuşlarına basın. Formülün başına ve sonuna {} işaretleri eklenir.
Sonra B4 hücresini sağa doğru G sütununa kadar çoğaltın. B4:G4 hücrelerini seçip aşağıya doğru 100. satıra kadar çoğaltın.

Kod:
=EĞERHATA(İNDİS('ANA VERİ'!B$2:B$100;KÜÇÜK(EĞER('ANA VERİ'!$H$2:$H$100="YAPILAMADI";SATIR('ANA VERİ'!B$2:B$100)-SATIR('ANA VERİ'!B$2)+1);SATIR(A1)));"")
Bu formülü de "YAPILMADI" sayfasına yukarıda anlattığım şekilde uygulayın.

Not: Doğum tarihi hücrelerinin formatı değişecektir. Tarih hücrelerini seçip hücre biçimlendirmeden Kısa Tarih formatını seçin.
Hocam hocam haklısınız Sabahtan beri uğraşıyorum ama yapamadım göndermiş olduğum ek de halledip gönderebilir misiniz rica etsem
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,534
Excel Vers. ve Dili
2019 Türkçe
Yaklaşık 2,5 senedir foruma üyesiniz CTRL+SHIF+ENTER tuşlarına basmayı ve hücre kopyalamayı öğrenemediyseniz bence burada bir sorun var.
Öğrenmeye odaklanmanız daha doğru olur. Ben şahsen öğrenmeye hevesli birilerini görünce heyecanlanıyorum.

Dosyayı hazırladım. Kolay gelsin.
 

Ekli dosyalar

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Yaklaşık 2,5 senedir foruma üyesiniz CTRL+SHIF+ENTER tuşlarına basmayı ve hücre kopyalamayı öğrenemediyseniz bence burada bir sorun var.
Öğrenmeye odaklanmanız daha doğru olur. Ben şahsen öğrenmeye hevesli birilerini görünce heyecanlanıyorum.

Dosyayı hazırladım. Kolay gelsin.
Hocam çok sağ olun Teşekkür ederim Allah razı olsun
 

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Yaklaşık 2,5 senedir foruma üyesiniz CTRL+SHIF+ENTER tuşlarına basmayı ve hücre kopyalamayı öğrenemediyseniz bence burada bir sorun var.
Öğrenmeye odaklanmanız daha doğru olur. Ben şahsen öğrenmeye hevesli birilerini görünce heyecanlanıyorum.

Dosyayı hazırladım. Kolay gelsin.
Muzaffer hocam Elinize emeğinize sağlık Çok sağ olun Çok teşekkür ederim Çok güzel olmuş sayfayı tekrardan paylaşsam ismim baş harfleri büyük soy isim tamamen büyük olarak tekrardan formüllebilir misiniz ve 2 sayfamızda da 11 yaşından büyük olan kişilerin bilgilerinin gelmesini istiyorum Bir de bu sayfaya yardımcı olabilir misiniz ek de gönderiyorum
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,534
Excel Vers. ve Dili
2019 Türkçe
11 yaşından büyük olanlar için I sütunu "YAPILDI", "YAPILAMADI" kısmı dikkate alınacak mı?
 
Üst