[ÇÖZÜLDÜ] Sütunda eşleşen hücrelerdeki sayıları yazdırma

[hayri tekin]

Selam arkadaşlar,
"D2:M2" aralığında tarihler yazılı ve bunlar birleştirilmiş hücreler aynı zamanda.
Bu tarihlerin altında üçer adet sayının yazıldığı hücreler var.
İstediğim : "I11" hücresine yazdığım tarihe isabet eden, bu üç sayılık hücreleri başka hücrelere yazdırmak.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz. I11 Hücresi değiştiğinde çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I11]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set Bul = Range("D2:M2").Find(Target)
If Not Bul Is Nothing Then
    Range("J13") = Cells(Bul.Row + 3, Bul.Column)
    Range("K13") = Cells(Bul.Row + 3, Bul.Column + 1)
    Range("L13") = Cells(Bul.Row + 3, Bul.Column + 2)
Else
    Range("J13:l13").ClearContents
End If
End Sub

 

[Ali]

Birleştirilmiş hücre olduğu için aranan değerin adresini bulmaya yönelik bir formül ve kaydır fonksiyonu ile yapılmıştır.

Q1 hücresinde formül dizi formülü olup formül çubuğunda iken direk ENTER tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturulmuştur.

I11 hücresine veri girerek sarı alandaki sonuçları inceleyiniz.

Örnek dosya ektedir.

 

[hayri tekin]

Sn.Necdet Yeşertener
Sn.Ali

İlginize çok teşekkür ediyorum.

 

[hayri tekin]

Sn.Ali
Konuyu kapatmıştım ama yeni birşey sormam gerekiyor.
Önceki şartlarım aynen geçerli olmak kaydıyla bu sayıları benim vereceğim satır numarasına göre almamız mümkünmü ?

 

[hayri tekin]

Sn.Ali
Konuyu kapatmıştım ama yeni birşey sormam gerekiyor.
Önceki şartlarım aynen geçerli olmak kaydıyla bu sayıları benim vereceğim satır numarasına göre almamız mümkünmü ?

Daha iyi anlaşılması için ekli dosyayı sunuyorum.

 

[Ali]

Tarihlerin bulunduğu 2 nolu satırı saymadan 1,2,3 gibi saymanız gerekir. Dolayısıyla 6 nolu dediğiniz satır, KAYDIR fonksiyonu için 5 satır olmuş oluyor.Dolayısıyla sizin verileriniz tarih sütununun bulunduğu satır hariç 3'üncü satırdan başlıyor.

H11 hücresine 5 yazınız.

J13 hücresine

=EĞER(KAYDIR(DOLAYLI(Q1);H11;0)="";"";KAYDIR(DOLAYLI(Q1);H11;0))

K13 hücresine

=EĞER(KAYDIR(DOLAYLI(Q1);H11;1)="";"";KAYDIR(DOLAYLI(Q1);H11;1))

L13 hücresine

=EĞER(KAYDIR(DOLAYLI(Q1);H11;2)="";"";KAYDIR(DOLAYLI(Q1);H11;2))

yazınız.

 

[hayri tekin]

Sayın ALİ,
Emeğiniz için çok teşekkür ederim.Gerçi formülde satır numaralarında kayma var ama,bu da benim işimi görür..
Saygılar