Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70215 Skopiuj do schowka Wstawienie wartości będącej wynikiem formuły sumowania
Autor Wiadomość
zbysiomysio 
Exceloholic


Wersja: Win Office 2003
Posty: 211
Wysłany: 22-02-2021, 16:56   Wstawienie wartości będącej wynikiem formuły sumowania

Jak można zrobić, żeby makro w kolumnie C aktywnego arkusza (od 3 wiersza) wstawiło wartość będącej sumą komórek z innych arkuszy (1!':31!') z tych samych zakresów, ale spełniających określony warunek. I tak dla komórki C3 powinna to być wartość będąca wynikiem n/w formuły:
Kod:
=SUMA.JEŻELI('1'!$H$84:$H$115;H3;'1'!$C$84:$C$115)+SUMA.JEŻELI('2'!$H$84:$H$115;H3;'2'!$C$84:$C$115)+..........+SUMA.JEŻELI('31'!$H$84:$H$115;H3;'31'!$C$84:$C$115)
ID posta: 400853 Skopiuj do schowka
 
 
kuma 
Excel Expert


Wersja: Win Office 2010
Pomógł: 1439 razy
Posty: 4107
Wysłany: 22-02-2021, 16:59   

To jest to samo A gdzie załącznik?
_________________
Pozdrawiam.
ID posta: 400854 Skopiuj do schowka
 
 
zbysiomysio 
Exceloholic


Wersja: Win Office 2003
Posty: 211
Wysłany: 22-02-2021, 19:05   

kuma napisał/a:
To jest to samo
. Wygląda na to, że dzięki twojej pomocy z formułą udało się stworzyć kod. Nie wiem jeszcze czy nie popełniłem gdzieś błędu. W każdym razie kod wygląda j.n.:
Kod:
Sub Sumuj_rz()
Dim wsRz         As Worksheet
ows = Sheets("Rezerwa").Cells(Rows.Count, "B").End(xlUp).Row
    Set wsRz = Sheets("Rezerwa")
    With wsRz.Range("I3:I" & ows)
        .FormulaR1C1 = "=CONCATENATE(RC[-8],RC[-7])"
        .Value = .Value
    End With
        With wsRz.Range("C3:C" & ows)
        .FormulaR1C1 = "=SUMPRODUCT(SUMIF(INDIRECT(Arkusze&""!$H$84:$H$115""),RC[6],INDIRECT(Arkusze&""!$C$84:$C$115"")))"
        .Value = .Value
    End With
        With wsRz.Range("D3:D" & ows)
        .FormulaR1C1 = "=SUMPRODUCT(SUMIF(INDIRECT(Arkusze&""!$H$84:$H$115""),RC[5],INDIRECT(Arkusze&""!$D$84:$D$115"")))"
        .Value = .Value
    End With
    With wsRz.Range("E3:E" & ows)
        .FormulaR1C1 = "=SUMPRODUCT(SUMIF(INDIRECT(Arkusze&""!$H$84:$H$115""),RC[4],INDIRECT(Arkusze&""!$E$84:$E$115"")))"
        .Value = .Value
    End With
    With wsRz.Range("F3:F" & ows)
        .FormulaR1C1 = "=SUMPRODUCT(SUMIF(INDIRECT(Arkusze&""!$H$84:$H$115""),RC[3],INDIRECT(Arkusze&""!$F$84:$F$115"")))"
        .Value = .Value
    End With

End Sub
ID posta: 400860 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe