Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
dziękuję bardzo Marcinie szczęka mi opadła i to maksymalnie no powiem tak genialnie Dodano po 5 Hej a jednak nie działa perfektnie jeśli w kolumnie np. A jest zbyt mało wartości to nie chodzi o to żeby przenieść z kolumny B, lecz sumować A+B,dobierać wartości z B w załączonym pliku kolumna L nie spełnia warunku napisałem sobie funkcję do sumowania po...
dzięki za wszystkie odpowiedzi wracając do jednak do nich, chciałbym stworzyć grafik, który pokrótce załączam a w nim chciałbym wprowadzić kilka rozwiązań: troszkę sobie porobiłem manualnie by łatwiej było naświetlić o co mi chodzi i tak: 1. jak z sumować czas w jednej kratce od 06:00 do 14:30 to 8,5 h tak by nie wpisywać ciągle tegoż od 07:15 do 09:00...
Jeżeli kilku pracowników wykonuje taki sam przedmiot to ilość przeniesiona z zamówienia będzie nieadekwatna do stanu rzeczywistego (trzeba sumować ich produkcję). Proponuję działanie w druga stronę. W pliku z zamówieniami dodać kolumny z pracownikami i tam przenieść ilości przez nich wyprodukowane. Wtedy łatwo operować danymi. popróbuj z takim makrem....
[syntax=vb] Sub InsSubtot() Dim bs As Range Dim r&, rp& For Each sh In ThisWorkbook.Sheets Set bs = sh.Cells ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
[syntax=vb]Range(Cells(lOstRw, 12).Offset(1, 0), Cells(lOstRw, 19).Offset(1, 0)).FormulaR1C1 = "=SUM(R[-" & lOstRw & "]C:R[-1]C)"[/syntax]
Witam Innymi słowy, w kolumnie C musi suma komórek z kolumn A i B?
No a warunkowe WYSZUKAJ.PIONOWO w kolumnie pomocniczej nie wystarczyłoby?
Hej, już raz mi pomogliście. Chciałam zapytać jak poprawić makro, żeby działało. Mam taką tabelkę jak ta poniżej: 1 0.2 2. 0.4 itd. a w trzeciej kolumnie chciałabym, żeby mi się te dwie liczby sumowały Napisałam takie makro Dodano po 48 Na prawdę nikt nie wie jak to zrobić?
Hmm... Trochę więcej tych danych, niż się spodziewałem. Najprościej byłoby dodawać[syntax=text]WYSZUKAJ.PIONOWO(RAN... MIN w kolumnie C, to 2, MAX - 32, suma kolumny 80326 (losowań) w 5000 wierszach :( Nie mam tyle cierpliwości. No i będzie się działo gdy zmienią się dane w kolumnie C. LOS, MAX.K, INDEX(... w...
Na obrazku efekt działania makra. Dane wejściowe z załącznika. Sprawdź, czy o to Ci chodzi (liczby w kolumnach D i F są sumowane). http://obrazki.elektroda.net/17_12597370...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
A to? [syntax=vbscript]Sub WstawWiersze() x = 2 While Cells(x, "C") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C") Cells(y, "D") = Cells(x, "D") + Cells(x + 1, "D") 'tutaj sumuj kolejne kolumny Range("D" & y & ":I" & y).NumberFormat = "0" x = x + 2 Wend End Sub [/syntax]
Zlitowalem się nad VBA i wyrzuciłem formatowanie komórek/zakresu poza ostatnią pętlę, bo pierwotnie było wewnątrz. Reszty już nie poprawiałem. Trzeba jeszcze zwrócić uwagę na E1, bo sumowało daty (??)...
Z tego co widzę próbujesz sumować warunkowo dla wybranych klientów? Dlaczego nie używasz filtra? Można odfiltrować niepotrzebne, skopiować do nowego arkusza. W swoim przykładzie odwołujesz się do całych kolumn (Np A:A), co zdecydowanie spowalnia działania na tablicach. Dlatego zamieniłbym zakres na tabelę Excela. (zaznacz, Menu>Wstw>Tabela). Zamiast...
Cześć, potrzebuje makra które będzie sumować zakres. w linku zobrazowane o co mi chodzi. Czy mógłby mi ktoś w tym pomóc? https://obrazki.elektroda.pl/6553279700_...
Dzień dobry wszystkim W pracy zlecono mi zrobienie pewnej tabelki i nie mogę sobie poradzić z dwoma problemami 1 potrzebuję by po naciśnięciu guzika zapisz dane do komórki r4 dodawało q4 i w q4 podawało wynik tego dodawania czyli R4=2 Q4=4 czyli po na ciśnięcie otrzymujemy Q4=6 gdy znowu wpiszemy nową wartość w R4=4 i klikniemy to w Q4 otrzymamy wynik...
Dla danych wejściowych z kolumną, w której jest połączone '1' z 'X' taki kod: [syntax=vb]Sub Konsoliduj() ostw = Sheets("Dane").Cells(Rows.Count, "A").End(xlUp).Row Sheets("Wynik").Select Range("A2").Select Selection.Consolidate Sources:=Array( _ "'Dane'!R2C1:R" & ostw & "C1", _ "'Dane'!R2C1:R" & ostw & "C5"), _ Function:=xlSum, TopRow:=False, LeftColumn:=True,...
Cześć, bardzo ładnie proszę o stworzenie makra, które pozwoli mi: 1) pobrać dane z jednego arkusza do drugiego sumując przy tym dane dla powtarzających się ID klientów. W tabeli mam m.in : id klienta, nazwę klienta, typ dokumentu, wartość. ID, Nazwa i typ dokumentu mogą powtarzać się wielokrotnie, przy czym lista Id klientów nie jest stała. Chcę w drugim...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Proszę o pomoc w następującym temacie: Mam listę części zamiennych, które występują kilkakrotnie w kolumnie E. Ilość części w kolumnie B. Chciałbym aby w oddzielnym arkuszu powtarzające się części zostały scalone do jednego wiersza równocześnie je sumując.
W załączniku masz plik z Makrem - żeby go uruchomić musisz włączyć Makra, następnie wciśnij ctrl + Q Makro zrobione w excelu 2000 (bo takiego mam) więc mogą się pojawić problemy z kompatybilnością, wtedy ci to przepiszę na nowszą wersje, jak będę w pracy i znajdę chwilkę wolnego. Wyrzuciłem wiersze z błędną wartością w kolumnie G (było ich sporo) bo...
Dziękuje działa :) a czy dałoby się jeszcze napisać jedne makro, które sumowałoby mi kwoty z kolumny B z danego warunku?
Nie skorygujesz tego. Jest to ograniczenie Excela. Masz do wyboru - albo zrobić sobie kolumny pomocnicze, w których porównasz 15 ostatnich cyfr z osiemnastocyfrowego kodu (wszystkie kody u Ciebie mają jedynkę i kupę zer na początku, więc przynajmniej dla tego przykładu nie zrobi to różnicy - możesz to zrobić jeszcze inaczej, na przykład pierwsze trzy...
Może niech makro kasuje funkcję sumującą i wpisuje ją jeszcze raz?
Za wybieranie rekordów odpowiada zapytanie SQL, w tym kodzie to fragment: Sql = "SELECT [ID klienta], SUM([Godzin]) FROM [Dane$] GROUP BY [ID klienta] ORDER BY [ID klienta]" Jeżeli chcesz dodać kolumnę o nazwie SIGN i grupować najpierw po ID klienta, a później po niej, napisz: Sql = "SELECT...
HiFi-Man , powinieneś odróżniać makra (makroinstrukcje) od funkcji, bo Twoje pytanie jest przez to niezrozumiałe. Makro to działanie wykonywane jednorazowo, doraźnie. Po wykonaniu wynik ma najczęściej formę stałej (liczby lub tekstu). Makro można powiązać ze skrótem klawiaturowym i uruchamiać go za pomocą tego skrótu. Z kolei funkcja (lub w tym przypadku...
Nie jest potrzebne makro. Wystarczyłaby funkcja SUMA.WARUNKÓW, gdyby nazwy z listy "typ_aktywności" były zgodne z nagłówkami tabeli (wiersz Nr2 arkusza "Rozliczenie tygodniowe"). Chodzi o Np "spotkania" / "spotkanie" etc.
Formuła komórki C2: =JEŻELI(A2<B2;B2-A2;JEŻELI(A2>B2;2... Komórki A2 do C32 muszą być sformatowane na niestandardowe > gg:mm , wszystkie inne sformatowane na ogólne. Godz. początku i końca wpisujemy więc gg:mm Problem jest z sumowaniem kolumny C, ponieważ suma jest MODULO 24h. W związku z tym stosuję kolumny...
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
Wiem ze jest odpowiedź ale nie umiem jej wykorzystać bo nie znam się na VBA. Ja tylko klikam nagrań makro, pisze formule jakąś, konxze nagrywanie i podpinam to pod przycisk. Tyle.. Wiec mam nawiązania do komórek i nie wiem jak powiązać to z nagłówkiem kolumny. Np Kolumna A kolumna B kolumna c kolumna d Pusto. 2 3 Makro W makro jest nagrana najprostsza...
Czy do takiego checkBox'a potrzebujemy jakąś komendę do odświeżania danych po jej użyciu? Nie odświeżają mi się wartości z sumy częściowej po odkryciu i zakryciu wierszy? Przycisk działa tylko na pierwszą kolumnę (która sumuje częściowo), w pozostałych kolumnach sumowanie nie działa ?? Dodam, że funkcja agreguj działa tak samo jak suma częściowa, czyli...
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
Może być w ten sposób? (kolumny pomocnicze można ukryć) Co prawda załączyłaś dane gdzie zawsze był nr transakcji ale działa też jak go wykasujesz -uwzględnia to. edit: podmieniłem trochę formuły by było łatwiej kopiować w bok. Może trochę utrudniłem zrozumienie formuły ale... Główna formuła np. dla "a" w danym miesiącu to: =SUMA.ILOCZYNÓW((C1:C10000="a")*1;(A1:A1...
Jeżeli dobrze zrozumiałem intencje autora to tutaj raczej bez makra się nie obędzie. Oczywiście można użyć opcji wklej specjalnie->dodaj ale będzie to bardzo uciążliwe. W załączniku proste makro wykorzystujące zdarzenie Change arkusza , bez obsługi błędów i sprawdzania rodzaju danych wpisywanych do kolumny.
Nie napisałeś, w której wersji Excela ma to działać. W każdej wersji to jest standardowy przykład do zastosowania konsolidacji. Nagłówki kolumn trzeba sobie wpisać ręcznie albo skopiować. Potem umieszczamy kursor (komórkę aktywną) w miejscu, gdzie ma być początek wyniku (pod wierszem nagłówkowym w lewej kolumnie) i otwieramy dialog Dane/Konsoliduj....
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
Poszukaj informacji na temat sortowania bąbelkowego. Tak się składa, że w VB litery i łańcuchy też można porównywać. "b">"a", "Alicja">"Ala" itd Musiałbyś kopiować dane ze wszystkich kolumn wiersza do tymczasowej tablicy, co pokazałeś że potrafisz już robić. Sumowanie najlepiej zrobić funkcją SUMA.JEŻELI. W VB Aplication.WorksheetFunction.SumIf(argum...
Makro jest O.K ale sie nie sprawdzi, może jakaś formuła?
Upierasz się, żeby nie załączać pliku, a to przecież Twój interes, a nie mój. A problem opisujesz nieprecyzyjnie. Jeśli masz w kolumnie liczby z końcówką "kg" przy formatowaniu Ogólne, to takie liczby są dla Excela tekstem i nie przeszkadzają w sumowaniu liczb (w tym kwot zł). Żeby Excel traktował kilogramy jak liczby ten wpis "kg" musi być albo w innej...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
W załączeniu wg mnie trochę bardziej uporządkowany kod i parę zmian. Też myślałem o tym by dane otwierały się kiedy trzeba. Poprawiłem ale na razie jest jedno "ale" jeżeli zaczął byś wpisywać w liście coś od litery "w" przerzuciło by cie do danych - dlatego dodałem spację do pierwszej nazwy. Pomyślę o innym rozwiązaniu ale na razie nie mam czasu. Zobacz...
Witam serdecznie, mam napisane makro, które sumuje mi unikatowe wartości z kolumny w "Arkusz1" o nieskończonej liczbie wierszy i pokazuje je w arkuszu "Suma" w kolumnie C. W kolumnie D są natomiast wartości do porównania z kolumną C. Jeśli wartości wierszy z kolumn C i D są różne to odpowiednia komórka w kolumnie C ma pojawić się na czerwono. Nie wiem...
które sumuje wpisane dane Gdzie wpisane? Zadanie na 3, czy 5? Wpisane w komórki w jakiejś kolumnie. Zadanie na zaliczenie nie musi być zrobione perfekcyjnie
Można i makro. Ja próbowałem formułami, ale nie udało mi się uzyskać efektu jaki zamierzałem. W załączniku propozycja z kolumnami pomocniczymi dla kolejnych miesięcy. Kolumny I:T można ukryć. Byłoby łatwiej gdyby nazwiska nie były pomieszane, tylko w każdym miesiącu nazwisko miało taki sam adres. Wtedy można stosować sumowanie 3-W.
Witam wszystkich, potrzebuję pomocy w dorobieniu jednej funkcji w kodzie VBA. W załączonym pliku jest tabela, w której znajdują się produkty, ale są one zduplikowane. Za pomocą makro usuwam zduplikowane pozycje, zapisując je w tabeli obok. Potrzebuję pomocy, aby dołożyć tam opcję sumowania pozycji zduplikowanych w kolumnie ENABLED. Poniżej przykład:...
Witam. Mam następujące makro: Sub Makro2() ' ' Makro2 Makro x = 1 y = 1 suma = 0 Do While Cells(x, 1) <> "" Do While Cells(x, y) <> "" If Cells(x, y).Interior.ColorIndex = 3 Then suma = suma + Cells(x, y) End If y = y + 1 Loop y = 1 x = x + 1 Loop Cells(6, 1) = suma End...
kłopot wydaje się banalny, ale nie wiem jak sie za to zabrać. Jak sam piszesz: jeśli żółte, to sumuj. Makro w przykładzie dodaje wartości w kolumnie "M" i jeśli trafi na odp. kolor, wpisuje sumę 5 kolumn dalej. Dorób pozostałe 4 sumowania i powinno być OK [syntax=vb]For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 13).Interior.ColorIndex =...
Pomysł ciekawy. Pozwoliłem się pobawić tym makrem. :arrow: do autora Makro działą tylko że nie znajduje sumy w kombinacji sum 5 liczb. (Można dodać okno z wyjaśnieniem) Twoja suma pojawi się (12 kombinacji) jak dodasz jeszcze pętle dla sumy sześciu (6) liczb. czyli w miejsce 'tu kolejna pętla dla kombinacji 6 liczb itd' wklej For n = m + 1 To a kontrol...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
jest to tabela do płatności za faktury, i jest to rozróżnienie czy dana faktura jest przeterminowana, czy nadal w terminie płatności. Do tej części mam już porobione makra, które same automatycznie sumują daną część arkusza. jedyne czego mi potrzeba to właśnie sumowanie po rodzaju waluty i nadawanie waluty w zależności od danych z kolumny C.
edytowania sumy, w taki sposób, aby automatycznie i proporcjonalnie zmieniały się też składniki sumowania Musisz przemyśleć założenia i określić ograniczenia, które możesz napotkać, np.: Założenia: 1. Określony, być może stały, zakres komórek w kolumnie ze składnikami do sumowania (argumenty) 2. Wyliczenie współczynnika proporcjonalności danej składowej...
Kolejne pytanie: chciałbym stworzyć makro, które przy dzieleniu pliku na mniejsze (sortowanie po jednej z kolumn, to już mam) w trakcie dzielenia w drugim arkuszu np. w komórce B2 (arkusz2) sumowało po wybranej kolumnie (G - arkusz1) przy warunkach wartości w kolumnie C(arkusz1)>0 i E(arkusz1)='szkoła'. Mam problem z zapisaniem tego, bardzo proszę o...
Tylko czemu wynik jest dopiero od 435 wiersza? Najprawdopodobniej masz jakieś puste wiersze, które makro widzi jako puste wartości. Spróbuj dopisać klauzulę WHERE. przypuśćmy,że mam jeszcze jedną tabelę tylko z dwoma kolumnami: material no( z nr komponentów-nie powtarzają się) i stock( ze stanami zapasów). W jaki sposób mogę połączyć teraz te dwie...
sumować kolumna makro makro sumować excel sumować kolumna makro
zaprogramowanie pilota thomson zdalny telefon wymiana grzałka piekarnik mastercook
spawarka porównanie odkurzacz bezprzewodowy
Jak sprawdzić tranzystor BD136 multimetrem? Peugeot 508 2016 Allure lift – brak napięcia na kostce CD po naprawie head-unitu SMEG+
