DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞERHATA(İNDİS(Sayfa1!$B$1:$D$17;TOPLA.ÇARPIM((Sayfa1!$E$5:$H$17=$D$4)*(SATIR($A$5:$A$17)));SATIR($A1));"")
=EĞERHATA(İNDİS(Sayfa1!$E$1:$H$17;TOPLA.ÇARPIM((Sayfa1!$E$5:$H$17=$D$4)*(SATIR($A$5:$A$17)));SATIR($A1));"")
=EĞERHATA(İNDİS(Sayfa1!$I$1:$J$17;TOPLA.ÇARPIM((Sayfa1!$E$5:$H$17=$D$4)*(SATIR($A$5:$A$17)));SATIR($A1));"")
sayın çıtır iki çözümde harika ellerinize sağlıkDosyanız.
Dönüş yaptığınız için teşekkür ederim.sayın çıtır iki çözümde harika ellerinize sağlık
Rica ederim.Dönüş yaptığınız için teşekkür ederim.sayın çıtır teşekkür ederim.
-- Makro ile çözüm için alternatif (Sayın @çıtır 'ın müsadeleriyle )=TOPLA.ÇARPIM((A2 : A20="Ali")*(B2 : B20="Veli")*( D2 : D20 + E2 : E20 + F2 : F20 + G2 : G20 + H2 : H20))
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D16]) Is Nothing Then Exit Sub
Range("D19:D21, F19:F22, H19:H20").ClearContents
Set s1 = Sheets("Sayfa1")
Set hcr = s1.Range("E5:H17").Find(what:=Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not hcr Is Nothing Then
sat = hcr.Row
[D19] = s1.Cells(sat, 2): [D20] = s1.Cells(sat, 3): [D21] = s1.Cells(sat, 4)
[F19] = s1.Cells(sat, 5): [F20] = s1.Cells(sat, 6)
[F21] = s1.Cells(sat, 7): [F22] = s1.Cells(sat, 8)
[H19] = s1.Cells(sat, 9): [H20] = s1.Cells(sat, 10)
End If
End Sub
Merhaba.
Örnek belgenizle son sorunuz arasanda bir bağlantı yok anlaşılan.
Sayın @çıtır şu an çevrimiçi değil.
-- Son sorunuza gelince; istediğiniz işlem yapılabilir elbette ve aşağıdaki gibi düşünebilirsiniz.
Formülde mavi kısımlar koşul, yeşil kısımlar ise toplanacak veriler.
-- Makro ile çözüm için alternatif (Sayın @çıtır 'ın müsadeleriyle )
Açılış mesajındaki örnek belgeye göre; alt taraftan Sayfa2'nin adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinide açılacak VBA ekranında,
sağdaki boş alana aşağıdaki kod blokunu yapıştırırsanız, D16 hücresine veri yazıldığında, düğme kullanmaya gerek kalmadan istenilen gerçekleşebilir.
Rich (BB code):Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [D16]) Is Nothing Then Exit Sub Range("D19:D21, F19:F22, H19:H20").ClearContents Set s1 = Sheets("Sayfa1") Set hcr = s1.Range("E5:H17").Find(what:=Target, LookIn:=xlValues, LookAt:=xlWhole) If Not hcr Is Nothing Then sat = hcr.Row [D19] = s1.Cells(sat, 2): [D20] = s1.Cells(sat, 3): [D21] = s1.Cells(sat, 4) [F19] = s1.Cells(sat, 5): [F20] = s1.Cells(sat, 6) [F21] = s1.Cells(sat, 7): [F22] = s1.Cells(sat, 8) [H19] = s1.Cells(sat, 9): [H20] = s1.Cells(sat, 10) End If End Sub