Soru Farklı Sayfalardaki Aynı Tarihlere Ait Veriyi Çekme

[TURKOLOG]

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]

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]

Deneyiniz:

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]

Hocam elinize emeğinize sağlık. Kod çalıştı.

 

[TURKOLOG]

Deneyiniz:

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]

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]

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.