Widzę, że to sumuje jakoś co drugi wiersz a powinno sumować wiersz utworzony z następnym pod nim Dodano po 35 zaraz sprawdzę bo się wstrzeliłem Dodano po 9 teraz wygląda to elegancko, tylko czy nie da się skasować wartości z tych komórek co są na czerwono https://obrazki.elektroda.pl/8186001000_... ? Dodano po 12 Teoretycznie może nawet...
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...
[syntax=vbscript]Sub Przycisk3_Kliknięcie() ' ' Przycisk3_Kliknięcie Makro ' Range("T4").FormulaR1C1 = "=NOW()" Cells(4, "R") = Cells(4, "R") + Cells(4, "Q") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & "usuwanie.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End...
hej, mam taki problem: potrzebuję sumować dane w zależności od koloru tła komórek w których się znajdują i jednocześnie po tekście. Na przykład muszę zsumować kwoty dla XY na tle zielonym, niebieskim, żółtym (oczywiście oddzielnie) to samo dla YZ itd. czy jest jakis sposób na to? używając makra do sumowania po kolorach zrobiłam jedną część sumy, używając...
Witam forumowiczów, Próbuję rozwiązać problem nad którym pracuję, ale mi nie idzie mi i stąd prośba do Was o pomoc. Pracuję nad arkuszem, który zsumuje wartości w komórkach odpowiadających miesiącom dla indeksów jakie zostaną identyfikowane przez kod na te, które podlegają wymianie na inny indeks. W arkuszu baza znajdują się indeksy „z”...
Witam, Mam podobny problem jak (at)coobah. Czy byłby ktoś w stanie mi pomóc? Plik będzie składał się z kilku tysięcy wierszy (klientów) i będą się oni powtarzali - makro miałoby grupować ich i sumować zużycie oraz wartość dla danego klienta. Dodatkowo dane w pliku co pewien okres będą zmieniane, więc dobrze by było gdy plik był "ruchomy". Jeśli byłby...
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ęść...
aż tak dobry w excelu to ja nie jestem (niestety). ale będę się zagłębiał w ten temat bo nadal nie rozumiem jak sumować zakresy (tu D82:F139) a nie pojedyncze komórki. Będę jeszcze miał pytania :) edit: wyszło mi coś takiego, ale i tak się nie liczy w UZYWANE. [syntax=vb]Sub Makro2() MyPath = "M:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal)...
i chce wywoływać makro z poziomu Accessa i teraz pytanie czy jest możliwość by w accesie zapisała sobie to makro na zasadzie wywołaj mi go w pliku 1234.csv Tak, czyli access musi otworzyć sobie 1234.csv (ma wstawić w t4 date i sumować r4 i q4, zapisać jako csv ?)
Witam. Prosiłbym o pomoc w edycji mojego kodu, który przenosi dane z jednego arkusza do drugiego. Potrzebuję przenosić wartości z wybranych kolumn G, L i M, dopóki są wypełnione danymi, do osobnego arkusza, a następnie sumować te wartości zaraz pod danymi. Sumowanie działa tak, jak trzeba, lecz chciałbym, aby makro wstawiało formułę, a nie gotowy wynik. Makro...
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:...
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
Arkusz1.Cells(ostw + 1, kQy.Column).Formula = Application.WorksheetFunction.Sum("=D7/E... Bardzo dziwne rzeczy wypisujesz w tym wyrażeniu. 1) Jeśli po prawej stronie masz wyrażenie zwracające wartość (WorksheetFunction.Sum), to po lewej stronie powinno być .Value, a nie .Formula. Pisałem już o tym, to nie jest formalny błąd, ale zagmatwanie kodu. 2)...
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,...
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...
a jak te makro miałoby wyglądać ?
Arkusze po kolei: a, Arkusz1, Arkusz2, ...... ArkuszN, b To raczej zakończy się błędem argumentu... Jak wspomniał kolega walek33 pozostaje makro lub funkcja użytkownika z wykorzystaniem pętli Np For i = 1 To Sheets.Count W przypadku funkcji użytkownika Excel nie przelicza arkusza automatycznie, ale można je wymusić Np przy zdarzeniu Worksheet_Activate...
Witam, Dopiero uczę się VBA i mam taki problem. Potrzebuję napisać makro, które dla pewnego zakresu dat (wskazanego przez użytkownika poprzez inputbox) będzie: a) sumować dane b) wyliczać średnią z tych danych c) zaktualizuje wykres na bazie tych danych (co miesiąc nowy wykres) Dla przykładu w kol. A mam daty a w kolumnie B kwoty, na których chcę wykonać...
Excel niestety kaleki jest w opcję "suma strony". Też próbowałem swego czasu z hPageBreacks.count i hPageBreacks(n).Location, ale ja swoje a Excel swoje... Sposobu nie znalazłem. Jeżeli zmuszony jestem do sumowania stron w przypadku długiej tabeli, to przełączam do widoku "Układ strony", wstawiam wiersz na dole strony i sumuję zakres. Na nst. stronie...
Makro jest O.K ale sie nie sprawdzi, może jakaś formuła?
1. Najpierw należy zrobić listę unikatowych numerów z całego skoroszytu (makro). Nie powinno być problemów. Porównujesz każdy numer ze znajdującymi się już na liście. Pierwszy, wiadomo musi być unikatowy. Jeżeli drugi jest różny od pierwszego - dopisujesz, jeśli nie - następny. itd przez wszystkie arkusze poza ukrytymi. 2. Sumowanie wartości wg numerów....
witaj, chodzi o to, że ta wartość mi się nie zgadza z tego Nie tak. ~(GPIO_AFRL_AFRL0 | GPIO_AFRL_AFRL1) zanegowane to: 0xFFFFFF00. Potem GPIOC->AFR[0] & 0xFFFFFF00 daje: 0xPPPPPP00. Gdzie P o poprzednie wartości (niezmienione). I potem 0xPPPPPP00 | GPIO_AFRL_AFRL0 daje na końcu: 0xPPPPPP0F. Oczywiście wartość do czyszczenia można zapisać jako makro...
Tak, makro załatwi sprawę. Spójrz tutaj: [url=http://www.elektroda.pl/rtvforum/to...
Popatrz na makro z załącznika i pobaw się: [syntax=vb]szt = Application.Sum(Range(Cells(11, 9), Cells(ow, 9))) kpl = Application.Sum(Range(Cells(11, 10), Cells(ow, 10))) Windows(Zeszyt).Activate Sheets("Import").Select Cells(NowyWiersz, 1) = szt Cells(NowyWiersz, 2) = kpl [/syntax] P.S. Chcesz sumować wszystkie WZ z każdego pliku do jednej wartości,...
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...
Ja to zrozumiałem trochę inaczej, ale rzeczywiście opis nie należy do klarownych. Makro zdarzeniowe reaguje na zmiany w komórkach B5:B7 wprowadzone ręcznie, nie makrem. Tekst makra jest w module arkusza. Zakres trzeba dopasować. Jeśli w B8 wpiszę "14", to w C8 ma być formuła "=400+B8" chyba jednak źle zrozumiałem, ale może to sobie przerobisz.
[url=https://www.youtube.com/watch?v=Lw8...
O ile dobrze zrozumiałam Twoje pytanie... Sub Dodawanie() ' makro odczytuje aktualną zawartość komórki c1 liczba = Range("c1") 'teraz dodajemy zawartość komórki a1 wynik = liczba + range("a1") range("c1") = wynik End sub Potem kwestia jak chcesz uruchamiać makro - guzikiem czy też ma być...
Doskonale, odwaliłeś całą robotę za mnie... :) Spróbuję teraz to zrozumieć i dostosować do dużej bazy danych. Mam tylko jedną wątpliwość: wydaje mi się, że makro powinno dodawać sumę wartości ze skoroszytu "Statystyka" do pustej komórki a nie do już istniejącej i zapełnionej danymi bo przy odświeżaniu będą nam się sumować powierzchnie nowe z tymi co...
Ale co ma ci sie aktualizować jeżeli makro "przeplywy" zwraca ci cyfrę a nie formułę do komórki G7. Mylę się? Co masz po uruchomieniu makra w komórce G7? Jeśli chcesz aby ci zaktualizowało uruchom jeszcze raz makro "przeplywy" lub zmień jego kod. Z tym że obawiam sie że wprowadzenie w jednej formule 50 nazw plików z ich ścieżkami dostępu przekroczy...
Proponuje zrobić własną funkcję w makro [syntax=vb]Function Suma_Pisana(zakres As Range) As Double Dim a As String, wartosc As Double, i As Range, tabelka() As String, x As Double a = "" wartosc = 0 For Each i In zakres a = a & "+" & i.Value Next i a = Replace(a, "(", "") a = Replace(a, ")", "") tabelka() = (Split(a, "+")) For x = LBound(tabelka) To...
Prot, bardzo dziękuję, jest to rozwiązanie które spełnia moje oczekiwanie i je zastosuje w moim szablonie, tylko za bardzo nie rozumiem komendy ”=Fir”, pozostałe formuły są mi znane. Makro adamas_nt również działa bardzo dobrze. Wielkie dzięki. Ale jest mały problem z makrem, nie chodzi o to, że źle działa tylko tabelka docelowa trochę się...
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...
Zrobiłem gotowe makro wykazujący numery ewidencyjne i dla nich sumy kwot. Sub Sumy_kwot() Range("I1:k50000")... ' Czyszczenie kolumny z numerami ewidencyjnymi a = 0 ilewierszy = Sheets(1).Range("c1&quo... ' sprawdzenie ilosci wierszy w bazowej tabeli For Licznik = 1 To ilewierszy...
można na przykład tak: Arkusz 1 komórka a1 z formułą np =DZIŚ() komórka b1 to cena komórka c1 to ilość komórka d1 formuła =b1*c1 komórka e1 wstawiamy button (makro do buttona poniżej opiszę) Arkusz 2 wiersz 1 kolumny A,B,C,D opisane jak w arkuszu 1 komórka e1 formuła =ile.niepustych(a:a)+1 Teraz będzie makro do butona: [syntax=vb] sub arhiwum() Range("A1:D1").Select...
głupio pytać ale może Mógłbyś mi jeszcze zrobić jedno makro też żeby było w magazynie ale z dokumentu o nazwie podsumowanie z arkusza "zużycie na obiekt " sprawdzało po indeksie towaru czy wystąpił taki sam jak w magazynie i jeżeli tak to odjęło znalezioną wartość z kolumny "ilość" przy danym indeksie od stanu magazynowego oraz z magazynu pobrało cenę...
Witam Zrobiłem troszeczkę inaczej. Myślę że lepiej ale jeżeli nie będzie ci pasowało - nie ma sprawy - poprawie dokładnie tak jak chcesz. Po wciśnięciu OK w okienku pojawia się komunikat czy chcesz wprowadzić kolejny dokument. Jeżeli tak data i numer pozostaną, jeżeli nie zamknie się całe okienko i jego ponowne otwarcie (z "głównego" przycisku) otworzy...
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ę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...
Lzep :arrow: Z fotki wynika wszystko jasno, chyba że ktoś nie miał do czynienia z Excelem i dartem ... tomi1972 :arrow: Excel działa domyślnie w trybie natychmiastowego przeliczania formuł. Bez odpowiedniego makra nie da się zrobić tego co oczekujesz. Usuwając sumy pośrednie (F2 i J2) wartość zawsze będzie "wracać" do 501. Napisałem proste makro sumujące...
=jeżeli(D15=1;C15;0)+jeżeli(...
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,...
Z tymi -1,1,0 chodzi o to, że tylko te liczby wchodzą w ciąg 5 elementowy (liczbę L u nas ) czyli moze byc np -1,0,1,0,-1. Już rozumiem. Niestety w tym przypadku moje rozwiązanie przy wystąpieniu "-1" rozjedzie się, więc trzeba je skorygować. Pytanie czy dane w jednej komórce (dana "liczba" ) są takie jak przedstawiłeś w przykładzie czyli cyfry rozdzielone...
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_...
Poczytaj o WYSZUKAJ.PIONOWO, a jeżeli makro to o VLOOKUP.
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
Podepnij sobie pod jakiś przycisk lub kształt: Public Sub Dodaj() Dim Wynik As Integer Wynik = MsgBox("Czy dodać?", 4) If Wynik = 6 Then Range("A2") = Range("A2") + Range("A1") End If End Sub {/code]
To tylko makrem
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...
sumować kolumna makro makro sumować kolumna excel sumować kolumna makro
zdalny telefon programowanie pilotów alarmu skoda wzmacniacz ul1482
spawarka porównanie odkurzacz bezprzewodowy
Jak zaprogramować pilota do Jeep Grand Cherokee ZJ? Samsung NP550XDA NB2772_PCB_MB_V4.1 Rev 1.0 schematic access, boardview, repair tips
