diğer sayfadan kriterlere göre veri alma

[keman]

arkadaslar merhaba

ek te bir dosya gonderdım.yardımcı olurmusunuz.gerekli açıklamalar ekli dosyanın içinde (sayfa 2 de) mevcuttur.

SAYGILARIMLA

http://s6.dosya.tc/server5/hojppb/DENEME.xlsx.html

 

[bzace]

Merhaba,
Üç adet ad tanımlayın. Bunlar aşağıdaki şekilde olsun.

• Malzeme__Sınıfı = Sayfa1!$I$2:$I$16
• toplanacak = Sayfa1!$J$2:$J$16
• birim =Sayfa1!$M$2:$M$16

A2 için;

=İNDİS(Malzeme__Sınıfı;
  KÜÇÜK(EĞER((Malzeme__Sınıfı<>
    "Malzeme (Sınıfı)/Hizmet Açıklaması")*
  (EĞERSAY(A$1:A1;Malzeme__Sınıfı)=0);
SATIR($1:$15));1))
[COLOR="blue"]Formül dizi formülüdür. CTRL+SHIFT+ENTER ile tamamşayınız.[/COLOR]

B2 için;

=TOPLA(ETOPLA(toplanacak;EĞER(Malzeme__Sınıfı=A2;toplanacak;"");toplanacak))
[COLOR="blue"]Formül dizi formülüdür. CTRL+SHIFT+ENTER ile tamamşayınız.[/COLOR]

C2 için;

=EĞER(A2="";"";İNDİS(birim;
  BÜYÜK(SATIR($1:$15)*(Malzeme__Sınıfı=A2);1)))
[COLOR="blue"]Formül dizi formülüdür. CTRL+SHIFT+ENTER ile tamamşayınız.[/COLOR]

Merakımı bağışlayın ama verileri çekerken hangi programı kullanıyorsunuz.

Saygılar,
Hay marja!

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub icmal()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "A").End(3).Row
For i = 3 To son
    If IsDate(s1.Cells(i, "A")) = True Then
        yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
        If WorksheetFunction.CountIfs(s2.Range("A2:A" & yeni), s1.Cells(i, "I"), s2.Range("C2:C" & yeni), s1.Cells(i, "M")) = 0 Then
            s2.Cells(yeni, "A") = s1.Cells(i, "I")
            s2.Cells(yeni, "B") = s1.Cells(i, "J")
            s2.Cells(yeni, "C") = s1.Cells(i, "M")
        Else
            For j = 2 To yeni
                If s1.Cells(i, "I") = s2.Cells(j, "A") And s1.Cells(i, "M") = s2.Cells(j, "C") Then
                    s2.Cells(j, "B") = s2.Cells(j, "B") + s1.Cells(i, "J")
                End If
            Next
        End If
    End If
Next
End Sub

 

[keman]

Teşekkür

Merhabalar
Öncelikle çok tşk ederim.kullandığım program logo go plus

Saygılarımla