Soru Farklı Sayfalardaki Aynı Tarihlere Ait Veriyi Çekme

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
Herkese Merhaba
Macro ile şöyle bir şey yazmak istiyorum nasıl yazabilirim yarımcı olabilecek olan var mı.

Eğer Aktif sayfa I6 ile Gruplar sayfası A2:A aralığındaki tarihler aynı ise Gruplar sayfasında A2:A aralığında uyuşan tarihin karşısındaki E sütununda yazan yazı veya rakam ile /5 yazısını birleştirerek aktif sayfa I7 hücresine yaz.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,698
Excel Vers. ve Dili
Microsoft 365 Tr-64
Gruplarda A2:A (anladığım son dolu satıra kadar) aralığında uyuşan tarih ancak 1 tane mi olabiliyor?
Ve diyelim E sütunuda
555 yazıyorsa, aktif sayfa I7 ye 555/5 ifadesini
Ahmet yazıyorsa Ahmet/5 ifadesini mi yazacağız?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Deneyiniz:

PHP:
Sub kontrol()
son = Sheets("Gruplar").Cells(Rows.Count, "A").End(3).Row
If WorksheetFunction.CountIf(Sheets("Gruplar").Range("A2:A" & son), [I6]) > 0 Then
    [I7] = WorksheetFunction.VLookup([I6], Sheets("Gruplar").Range("A2:E" & son), 5, 0) & "/5"
Else
    MsgBox "Veri bulunamadı!", vbInformation
End If
End Sub
 

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
Hocam elinize emeğinize sağlık. Kod çalıştı.
 

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
Deneyiniz:

PHP:
Sub kontrol()
son = Sheets("Gruplar").Cells(Rows.Count, "A").End(3).Row
If WorksheetFunction.CountIf(Sheets("Gruplar").Range("A2:A" & son), [I6]) > 0 Then
    [I7] = WorksheetFunction.VLookup([I6], Sheets("Gruplar").Range("A2:E" & son), 5, 0) & "/5"
Else
    MsgBox "Veri bulunamadı!", vbInformation
End If
End Sub
Hocam satırı A3:A yapmam gerekti ama böyle olunca E3 ten itibaren 1 yazmıyor. E2 den itibaren 1 yazmıyor. Koddaki A2 yazan her yer A3 yaptım ama yine de olmadi
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Bu kodda E sütunuyla ilgili bir işlem yok ki? Farklı bir işlemden mi bahsediyorsunuz? Yapılan işlemde A2 ya da A3'ten başlaması kodun çalışmasına çok etki etmez ayrıca. Çünkü kod temelde EĞERSAY ve DÜŞEYARA formüllerini uyguluyor.
 

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
Bu kodda E sütunuyla ilgili bir işlem yok ki? Farklı bir işlemden mi bahsediyorsunuz? Yapılan işlemde A2 ya da A3'ten başlaması kodun çalışmasına çok etki etmez ayrıca. Çünkü kod temelde EĞERSAY ve DÜŞEYARA formüllerini uyguluyor.
Hocam haklısınız ben başka bir kod ile karıştırdım. Ilginiz için çok teşekkür ederim.
 
Üst