Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Makro wstawiające wiersze z warunkiem

fuinalge 12 Lut 2018 17:34 621 6
  • #1 12 Lut 2018 17:34
    fuinalge
    Poziom 2  

    Witam, jako że raczkuje w VBA to chciałbym prosić o pomoc.
    Mam w pliku dane tego rodzaju:
    A1 - nazwy, B1 wartość
    przykładowo:
    Gdańsk, 20
    Wrocław, 40
    Poznań, 30
    Gdańsk, 30
    Warszawa, 50
    Wrocław, 35
    Gdańsk, 70
    Warszawa, 15

    Muszę to ustawić w arkuszu w sposób posortowany (z tym nie ma problemu) ;-)
    Ale pod każdym zestawem tego samego miasta muszę wstawić podsumowanie:
    Gdańsk, 20
    Gdańsk, 30
    Gdańsk, 70
    Suma, 120
    (pusty wiersz)
    Poznań, 30
    Suma, 30
    (pusty wiersz)
    Warszawa, 50
    Warszawa, 15
    Suma, 45
    (pusty wiersz)
    Wrocław, 40
    Wrocław, 35
    Suma, 75

    Czy ktoś może pomóc, nakierować ...
    Będę wdzięczny za wszelką pomoc.
    Pozdrawiam

    0 6
  • #3 13 Lut 2018 11:51
    fuinalge
    Poziom 2  

    No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę.
    Chyba nie dość dokładnie opisałem w czym rzecz ;-)

    Suma, 30
    (pusty wiersz)

    Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej.
    Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad tą "sumą" (załóżmy w pierwszym wstawionym wierszu Suma * 1,23, w kolejnym: Suma * "kurs waluty" ...)
    Coś w tym stylu ;-)

    Dziękuję za odpowiedź.
    Pozdrawiam

    0
  • #4 13 Lut 2018 14:34
    lanzul
    Poziom 26  

    fuinalge napisał:
    makro, które znajdzie wiersz podsumowujący
    A po co makro miałoby się tak wysilać ? Samo może zrobić podsumowanie ... :) ...

    fuinalge napisał:
    Coś w tym stylu
    ... może i w tym ... może w tamtym ...
    Sumy.zip Download (8.46 kB)

    Takie odrobinę automatyczne ... podajesz adres początku tabelki, jeśli w innym miejscu jak 'A1', parę innych rzeczy, jeśli chcesz je zmienić, i jak nie będziesz za bardzo kombinować a la "koń pod górę", i "jak tu oszukać kod", to powinno działać.

    1
  • #5 13 Lut 2018 18:46
    fuinalge
    Poziom 2  

    Jesteś wielki !!! Prawie idealnie o to mi chodzi ;-)
    Odezwę się na prv.

    Bardzo dziękuję za pomoc.
    Pozdrawiam

    0
  • #6 14 Lut 2018 01:32
    lanzul
    Poziom 26  

    Nie ma prywaty, jest forum, a co do "chodzenia", to tak jak piszesz i cię zrozumieją, tak będziesz mieć, pisz w punktach, zwięźle i jasno.

    0
  • #7 14 Lut 2018 12:42
    fuinalge
    Poziom 2  

    Ok, to podsyłam plik w którym mamy arkusze: dane, parametry i docelowy (widok oraz wynik pracy makra).

    Arkusz Dane - dane jak wcześniej (trochę więcej kolumn).
    9 pierwszych wierszy zarezerwowane. Dane od wiersza 10.

    Arkusz Parametry - parametry na których będzie opierało się makro.

    Arkusz Docelowy - tutaj trochę zmian ...
    Każdy rekord danych ma argument PRACA lub KOSZT
    Każde miasto wymaga podsumowania z podziałem na argument.
    PRACA (suma) dodatkowo może być zależna od parametrów Rabat (% lub kwota).
    Makro wstawiające wiersze z warunkiem
    Podsumowanie wartości każdego miasta (Razem netto).
    kolejne miasto, kolejne ...
    W ramach jednego miasta mogą być zarówno prace i koszty ale także same prace lub same koszty.

    Na koniec,
    Podsumowanie łączne sum z poszczególnych miast (netto).
    Podsumowanie łączne brutto (z wykorzystaniem zmiennej Vat z arkusza Parametry).

    Zobrazowałem to w pliku ;-)
    Jeśli miałbyś czas i chęć pomocy to z góry dziękuję.
    Pozdrawiam jak zawsze.

    0
  Szukaj w 5mln produktów