Cześć, a czemu nie użyjesz funkcji SumIf lub SumIfs? Myślę, że to jest najlepsze rozwiązanie tej kwestii. Pozdrawiam Paweł
Najprościej nazwać arkusze i odpowiednio ustawić je na pasku zakładek. Ten z sumą nazwij "Suma" i ustaw go jako pierwszy z lewej. Pierwszy ze składnikiem/składnikami nazwij "Pierwszy", ostatni "Ostatni" Jeśli nowe arkusze będą wstawiane pomiędzy "Pierwszy" i "Ostatni", wystarczy Np taka formuła Dodano po 13 :arrow: markoz7874 A jeśli zakres będzie wielokomórkowy?...
Dodano po 3 Jak w dowolnym arkuszu nie będzie pozycją "Wartosc", błąd występuje Dodano po 4 wtedy[syntax=vb]Sub test2() Dim naglowek As Variant Dim lastrow As Long For Each sh In ThisWorkbook.Sheets With sh Set naglowek = .Rows(1).Find(what:="Wartosc", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False) If Not naglowek Is Nothing Then col = naglowek.Column...
Podpowiedziałem ci w drugim topiku który założyłeś. Ale jeszcze raz: "wróć" do rozwiązania że w jednej komórce wpisujesz datę w formie "2014-01-01" "Dołóż" kolumnę np pomoc2 (później ją ukryjesz) wpisz w pierwszej komórce tabeli funkcję: =miesiąc(odwołanie do komórki z datą z tego samego wiersza) skopiuj funkcje w dół. efektem będzie numeryczne określenie...
Jak sprawić aby excel sam po wpisaniu odczytu licznika z datą nowego miesiąca liczył sumę Całą prostą zabawę można zrealizować w jednym arkuszu (oczywiście można to rozpisać na kilka arkuszy z odpowiednimi odwołaniami ;-) ) np. tak jak na zrzucie 1232639 Musisz jednak wprowadzić odpowiednie formatowanie wszystkich danych i wykorzystać kilka formuł...
[syntax=vbscript]Sub Sumuj() Application.ScreenUpdating = False Katalog = "C:PlikiExcela" Plik = Dir(Katalog & "*.xls*") While Plik <> "" Set a = Workbooks.Open(Katalog & Plik) For x = 1 To Sheets.Count Sheets(x).Range("OO1").Formula = "=SUM(A1:A100)" s = s + Sheets(x).Range("OO1") Sheets(x).Range("OO1") = "" Next a.Close False Plik =...
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...
No, a jeśli wprowadzimy dni robocze? Jeśli zapiszesz formułę np. tak =SUMA.JEŻELI($B$5:$L$5;"<="&$B$9;... to uzyskasz wyniki jak na zrzucie :idea: :D 1094581
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.
dziennie może być od 30-60 i do każdego będzie osobne rozliczenie Jeśli tak :cry: to proponuję inne rozwiązanie budowy pliku z arkuszami oznaczonymi nazwą (lub kodem) klienta i datą ważenia :D po wypełnieniu tabelki danymi - makro (uruchamiane skrótem ctrl+r ) zrobi raport dla tego arkusza oznaczy go stosowną nazwą i przygotuje następny szablon do...
WIERSZ()-13, skad te 13 ? Druga linia tabelek jest o 13 :!: wierszy niżej dlatego formuły tam trzeba tak skorygować :please: Oczywiście to dotyczy 1 wersji mojego pliku tzn w tym bez sumowania wzg dostawców :cry: Formuły z sumą iloczynów występują w drugiej wersji :D
Tak mnie zaintrygowało że się uparłem. Przecież to nie jest trudne tylko trzeba trochę poklikać. No ... trochę przy tym posiedziałem (dwa piwa i lampka wina) - edit: I jeszcze jedno: pokazane wartości procentowe są "zgodne z prawdą" do trzeciego miejsca po przecinku (czyli liczba prawidłowa do 5 miejsca po przecinku) - myślę że wystarczy. Pozostałe...
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....
[syntax=vbscript]Arkusz1.Cells(row, col).Value vbNewLine[/syntax] Działa ci to? zmień na [syntax=vbscript]suma = Arkusz1.Cells(row, col).Value + suma[/syntax]
Prawie dobrze ;) Spróbuj: [syntax=vb]Sub Makro2() MyPath = "C:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("D1:F10") 'tu dopisz ile trzeba ark = "Arkusz1" On Error Resume Next 'If ofs > -1 And Err = 0 Then With Sheets("Arkusz1") 'nazwa arkusza docelowego w UŻYWANE.xls For Each rn In rang .Range(rn) = Empty Next Do While myname...
myślę teraz nad wyświetlaniem wielu wyników dla danej daty :?: A w jaki to sposób chcesz umieścić te 18 wartości (np dla 2019.08.06) w tych 5 komórkach kalendarza :?: Czy Ty w ogóle zastanawiałeś się jak będziesz z tego arkusza korzystać :?: Przecież jak zwiększysz dla każdego tygodnia liczbę wierszy do 20 to stworzysz gigant-tabelę, która nie nadaje...
Nowego arkusza w tym samym skoroszycie? Dołącz plik przykładowy. Jeśli wiesz, wszystkie wartości 1A, 1B, 2A, 2B itp to nie potrzebne makra, w Excel => 2007 jest formula(funkcja)
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...
Żeby się odnieść do poprzedniego arkusza musisz zrobić coś takiego: Range("AD3").Value = ActiveSheet.Previous.Range("AD3").Value + Range("T9").Value
Dzieje się tak, ponieważ każda zmienna jest domyślnie widoczna tylko w obrębie danej procedury. Nie możesz w CommandButton1_Click() przypisać Set wb = Workbooks.Open(sciezka), a próbować ją odczytać w innej: CommandButton2_Click(). Żeby nie kombinować ze zmiennymi globalnymi: 1. Albo w CommandButton1_Click() w miejscu komentarza '.......dalsza część...
Rzeczywiście na bieżącą chwilę w kodzie "czysc" jest parę błędów i niepotrzebnych rozwiązań. (może coś się zmieniło w stosunku do pierwszych rozwiązań np. 13 arkuszów lub nie zablokowany arkusz DANE) Wejdź w edytor VBA w Module1 kod makra czyść powinien być taki: nie zamknąłem w okienku kodu by zaznaczyć co należy zmienić lub dodać. ---------------------------...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Dobry wieczór, Nie da się chyba tego zrobić w sposób oczywisty, ale jakoś można, stosując pewne "sztuczki". Przede wszystkim w komórkach, w których mamy wprowadzać dane i wykonywać obliczenia muszą być odpowiednio sformatowane (niestandardowo). Podam 3 sposoby (żaden nie jest idealny, ale jest z czego wybrać). Sposób 1 - najbardziej naturalny Format...
W arkuszu 1 w wierszach od 2 do 30 brak formuł W arkuszu 2 w tabeli w kolumnie "J" muszą być wartości większe niż zero to w wierszu8 i 9 będą wartości. Pozdrawiam
W excelu można sobie łatwo budować taki prosty program. W załączniku przykład. Nawet jeśli nie programowałeś w VBA to pewnie nie będzie Ci ciężko zrozumieć kod tego makro. Oczywiście jest prosty do bólu, jedyne co robi to dekrementuje komórkę E4 w kierunku zera, jak osiągnie przy wrzucie zero to wyświetla komunikat. Po wrzucie można zapisać arkusz i...
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...
Zobacz w załączniku, czy ta propozycja spełnia Twoje oczekiwania. To jest makro zdarzeniowe, które reaguje na wpis dokonany ręcznie (nie przez makro), ale można kopiować z innej komórki. Wypełniać komórki można tylko pojedynczo. Jeśli chce się zmienić proporcje składnika, trzeba usunąć wpis istniejący (delete), a następnie wpisać nowy. Makro nie przelicza...
Dzień dobry, Problem można też rozwiązać samymi formułami, nie potrzeba żadnych kolumn pomocniczych. Do znalezienia unikatów można użyć formuły tablicowej: [syntax=text]=INDEKS($D$8:$D$57;PODAJ.PO... gdzie: $D$8:$D$57 - zakres danych (tytuły), $F$63:$F63 - zakres wyników (unikaty). Początek...
Po dłuższym kombinowaniu w Open Office 3.4 doszedłem do takiego rozwiązania: =SUMA('1'.H2;'2'.H2;'3'.H2) Próba skrócenia do =SUMA('1:3'.H2) jednak nie zadziałała tak ze pozostaje mi tylko ta dłuższa formula. Jednak to mi nie przeszkadza. Zauważyłem że w O.O. zamiast (!) ma być (.) (zwykła kropka)
Sposob #1 =SUMA(ADR.POŚR("Arkusz1!"&ZNAK(WIERSZ()+... Dodano po 5 Sposob #2 =SUMA(PRZESUNIĘCIE(Arkusz1!C3;0;WIERSZ()...
public Sub Dodaj() Dim Wynik As Integer Wynik = MsgBox("Czy dodać?", 4) If Wynik = 6 Then Range("Arkusz2!A2") = Range("Arkusz2!A2") + Range("Arkusz1!A1") End If End Sub {/code]
Witam, Potrzebuję funkcji, najlepiej wywoływanej przez skrót, np. Ctrl+L, która będzie wykonywać następujące czynności: 1. Znajduje w kolumnie "D" wszystkie komórki o tych samych wartościach, np. "11111111111". 2. Sumuje komórki z kolumny "L", ale tylko te, które znajdują się w tych samych wierszach co komórki z kolumny "D", np. o wartościach "11111111111"....
Witam serdecznie, mam taki problem: W Arkusz1: w kolumnie B zrobiłam unikatowe wartości, Zakres listy: H1:H1000, Zakres kryteriów: I1:I1000 w kolumnie D zrobiłam unikatowe wartości, Zakres listy: K1:K1000, Zakres kryteriów: I1:I1000 w kolumnie M zrobiłam unikatowe wartości, Zakres listy: I1:I1000 w kolumnie C : =SUMA.JEŻELI(I2:I1000;M2;J2:J1000) Potrzebuję...
Miałem chwilę to dokończyłem. Dodałem zaliczki wpłacone na prąd i poprawiłem ostatnią formułę bo nadpłata lub niedopłata za 2020 to co innego niż odsetki. Wcześniejsza formuła nie sumowała odsetek. w rejestrze formuły są wprowadzone w zielonych polach. Wyniki pojawią się jak wpiszesz nowe nazwisko. Po wpisaniu nowego nazwiska w rejestrze na liście osób...
Problem w tym, ze liczby w komorkach A1 A2 A3 itd musza zostac nie zmienione, czyli wyswietlana wartosc musi zachowac przecinek, natomiast jedynie suma musi byc suma licz calkowitych wartosci sprzed przecinkow. Nie myślałeś, żeby napisać jakąś "swoją" własną funkcyjkę (?) ... nie jest to takie trudne na pierwszy rzut oka ... np: =sumwart(A2:A11)...
masz pomysł jak to zrobić? Jak przenieść wyfiltrowane ID z zrzutu 2 do kryteriów filtra w arkuszu 2? Przenieść bez kopiowania :D - nie :cry: Teoretycznie można by utworzyć tymczasową tablicę dynamiczną z wyfiltrowanymi danymi i poddać ją ponownemu filtrowaniu (w pamięci), ale i wówczas musisz tą tablicę wynikową (lub same wyniki sumowania) gdzieś zrzucić...
Hej Potrzebowałbym formuły z dynamicznym zakresem do raportu, która by sumowała wartości z 7 ostatnich dni. Dane są w komórkach od C2 do I2 w każdym z arkuszy. Arkusze są podzielone na tygodnie, w których pod każdym dniem są wpisywane daty. (at)ElektrodaBot AI: Czy mógłbyś opisać, jak dokładnie są zorganizowane dane w komórkach C2 do I2? Czy są tam...
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...
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.
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...
Witaj. Ekspertem z Excela co prawda nie jestem, ale zobacz załącznik. Generalnie pozmieniałem właściwie tylko format danych w komórce (zastosowałem format, który jest interpretowany nie jako godzina taka jak na zegarku, która będzie zawsze dodatnia i w zakresie 0:00-23:59, a format godziny:minuty, który umożliwia wyświetlanie wyników dodatnich/ujemnych...
Musisz się zdecydować albo wpisujesz godziny jako tekst (wtedy w cudzysłowiu) albo jako liczby. Jeżeli chcesz to dalej np. sumować to proponuję konsekwentnie jako liczby. Z tym że trzeba pamiętać, że wpisane 8:00 to liczba równa 0,333.. a tylko prezentowana w formacie godzinowym. Czyli np. 12:00 to 0,5 (część doby), 6:00 to (0,25 część) doby. Do obliczeń...
hej W załączniku plik z formułami Łukasz
Witajcie. W Excelu mam załóżmy DWA arkusze o nazwie: A i B. W każdym z arkuszy jest kolumna z imieniem i nazwiskiem i przyjmuje ona wartości 1 w drugiej kolumnie: A: Jan Kowalski 1 Grażyna Nowak 1 Jan Kowalski 1 B: Marek Zięba 1 Jan Kowalski 1 Grażyna Nowak 1 Teraz w arkuszu C chcę, aby z tych dwóch arkuszy pobrało mi dane osobowe razem z sumą jedynek...
Witam, napisałem bardzo długie funkcje które następnie postanowiłem wpisać do makra. W vba nie można gnieździć funkcji wiecej niz 7 razy jak i długosc zmiennej moze wynosic tylko 255 znakow wiec dziele je na kawałki by później zlepić w jedno. Funkcja robi bardzo prostą rzecz: dodaje odpowiednie komórki z tablic w arkuszach jeśli w rzedzie 2 i kolumnie...
lecz widoczny wynik to sam wiersz Sumy A jaki zakres komórek obejmuje nazwa Cena :?: :D Jeśli chcesz sumować "tylko widoczne" - zmień formułę na =SUMY.CZĘŚCIOWE(9;[Cena]) :idea:
Sumowania są w arkuszach, jeśli taki wariant wybrałaś. Wystarczy się do nich odnieść...
Gdy w kolumnie A22 wpiszę: suma=(A1;A20) to niestety nic mi nie wylicza. Powinno być =suma(A1:A20) A co do danych liczbowych to zaznacz cały arkusz -> formatuj komórki -> ustaw jako liczby
Cześć, mam problem z formułą. Mam dwa arkusze "przekazanie" i "raport" chciałbym aby formuła przeszukała kolumnę produkty (lista rozwijalna) w arkuszu "przekazanie" i wrzuciła odpowiednią ilość [kg] w arkusz "raport" dla danego produktu - jeśli go nie będzie wrzuci "0". Problem polega na tym - nie wiem czy się da go łatwo rozwiązać, że niektóre produkty...
Witam Chciałbym się podłączyć pod temat. Mam podobny problem i nie potrafię go rozwiązać. Wyjaśnię mam dwie kolumny. W kolumnie A jest wpisana kwota w kolumnie B data(daty się powtarzają może być więcej jak jedna liczba przypisana do tej samej daty) A B C 12----------01/01/2013 Wartosc 15----------01/01/2013 19----------01/01/2013 25----------03/01/2013...
sumowa kolumna excel excel sumowa wynik excel kopiować arkusz arkusz
sprzęgło odsrodkowe mytab firmware zatrzymanie programu prania
zmywarka whirpool mruga start naprawa wiertarki hilti
Firmware for Challenger LD 32D28 T2 TV Słaby sensor pilota - przyczyny i rozwiązania
