[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]
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...
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...
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...
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 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.
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?
Witam Innymi słowy, w kolumnie C musi suma komórek z kolumn A i B?
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]
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ść, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
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...
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...
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.
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...
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....
Makro jest O.K ale sie nie sprawdzi, może jakaś formuła?
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...
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...
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.
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...
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 =...
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...
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:...
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ż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.
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...
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...
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ć?
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...
Witam serdecznie Kolegów. Mój problem polega na stworzeniu makra do excela, który kopiuje konkretne komórki do nowego arkusza. Nie są to całe wiersze czy kolumny, ale wybrane według pewnego algorytmu. W pierwszym arkuszu (cennik) znajdują się kolumny: A-nazwa usługi B-cena netto C-ilość szt. z VAT 8% D-ilość szt. z VAT 23% Załóżmy, że w wierszach znajdują...
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
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...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 otwiera nowy skoroszyt i wkleja do określonego arkusza zakres komórek A1:Sn+1 lub całe wiersze 1:n+1. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Udało mi się stworzyć coś takiego, ale niestety wyrzuca mi błąd :( [syntax=vbscript]Sub...
OK, rzeczywiście jest jak mówisz. Wracając do makra z tego ostatniego pliku: zmień linijkę rekalkulacji w Excelu. Zmiana koloru takowej nie powoduje, więc dopóki coś nie zmieni wartości, funkcja pokaże starą wartość. PS 3. Nie wiem czemu piszesz, że nie możesz funkcji użyć w kodzie VBA: taki sposób wywołania działa: [syntax=vb]MsgBox SumByColorsFuction(Range("AA4:AA13"),...
Po pierwsze taki skaner to co przeczyta wysyła do komputera tak jak klawiatura naciśnięcia klawiszy (tzw. emulacja klawiatury). 1.Jak rozumiem-czytnik czyta to co jest nadrukowane na etykiecie? Jeśli tak, to na etykiecie może być: co, masa,cena ? 2.Ok, ale czy można "domowym" sposobem napisać program /np makro w Excelu/ który będzie wpisywał każdy...
Faktycznie strasznie zawile to tłumaczysz. Chyba się domyślam scenariusza, pewnie zmieniono indeksy magazynowe, a tym masz zrobić zestawienie z poprzedniego roku kiedy były jeszcze stare, tak aby można było porównać dane z tymi z roku bieżącego. Masz dwie operacje. 1.Zamiana indeksów 2.Sumowanie Uważam, że makro zbędne. No chyba, że będziesz to robił...
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...
Ale wartość ilości w kolumnie d jest wynikiem formuły, może w tym jest problem? Nie. Czy pliki WZ mają taką samą strukturę, jak te załączone tutaj? Powtarzam: na plikach, które podesłałeś, działa właściwie. Makro wyszukuje w pliku WZ kolumnę 'E' od wiersza 11 to końca. Jeżeli znajdzie szukany numer, to sumuje sztuki z kolumny 'D'. http://obrazki.elektroda.pl/4912954600_1...
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...
Załączam. Makro potrzebuję napisać w pliku statystyki.xlsm - makro licz_uslugi. Później podepnę je pod przycisk W pliku "zlecenia.xlsm" mam dane osobowe wraz z zamówionymi usługami (usługi w kolumnach od K do BK - jak w komórce pojawia się liczba 1 lub 2 lub 0,5 to znaczy, że dana usługa była zamówiona). W pliku statystyki sama podaję daty, które mnie...
jeśli chodzi o VBA to dla mnie ok, natomiast jeśli chodzi o kolorki to tych danych nie nie jest jakoś dużo i nie wszystkie są kolorowane, ale ze względu na specyfikę danych muszą być ręcznie - co więcej, ich kolory zmieniają się dosyć często dlatego chciałabym stworzyć do tego formułę, która będzie je zliczać. upraszczając strukturę pliku w jednej kolumnie...
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 (??)...
Witam potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
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...
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ć...
Nie do końca rozumiem co TERAZ chcesz zrobić. Ja to widzę tak: 1. Uruchamiasz sumy częściowe, którego wynikiem jest to co masz na pierwszym screen'ie 2. Uruchamiasz makro z poprzedniego mojego postu i w wierszu sumy wypełniana jest komórka stanowisko. 3. Sumujesz komórki z wierszy suma kolumn Np F:H i wynik umieszczasz w kolumnie N (pierwsza wolna)...
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...
Witam. Męczę się już od dłuższego czasu nad tym zagadnieniem w VBA. Jeśli chodzi o formuły excel itd. mam wszystko zrobione. (Wrzucam do wglądu) Ale wolałbym aby to było zrobione za pomocą makro ze względu na to że codziennie przy nowym gatunku muszę ręcznie zmieniać formułę grubości z 2 na 3 lub coś w tym stylu. Mimo że próbuję w żaden sposób nie umiem...
Może niech makro kasuje funkcję sumującą i wpisuje ją jeszcze raz?
Ja robię to tak, że w kolumnie obok sprawdzam zawartość komórki, jeżeli jest wg wzorca ($A-z$x) to 1, jeśli nie to 0/nic. Następnie sumuję zawartość kolumny dla poszczególnych wzorców. Do 200 tyś działa z lekkimi zacięciami na E7400 z 2GB Ram. Z 4GB jest deko lepiej. Ale ja nie operuję na tych danych, tylko liczę gotowe. Jeśli operujesz na tych danych...
Witam, przepraszam za przerwę ale inne obowiązki musiałem wpierw rozwiązać, wracając do tematu plik zawiera dane które spływają z innego pliku lecz czasem zdarza się że trafiają tam dane o takim samym numerze więc dla porządku i by nie trzeba było szukać dwóch o takim samym numerze dobrze by było by makro po wykryciu dwóch o takim samym numerze po prostu...
Dokładnie o to mi chodziło! :) Wielkie dzięki! Jednakże niestety tutaj pojawił się kolejny problem: a mianowicie nie do każdej komórki wprowadzam jakies dane, i jeśli tego nie zrobię, to analogicznie pojawia sie błąd #ARG. Chodzi o to, że dalej mój skrypt sumuje wszystkie powstałe wartości, i #ARG przeszkadza w sumowaniu. Mógłbym zrobić na przykład:...
Hej, jeśli umieściłam temat nie tu gdzie trzeba to przepraszam i proszę o przekierowanie. Mam plik który w jednej kolumnie ma nazwiska pracowników a w kolejnej przypisany do nich czas pracy np. Jan Nowak 2h, Anna Kowalska 4h, Barbara Marzec 4h, potem znowu Jan Nowak 6h itd. Wydaje mi się, że najlepiej byłoby wykorzystać makro, które po kliknięciu przycisku...
Wolałbym makro bo mam np 70 arkuszy. A jak złączyć te teksty aby wartości z kolumy A i D były tylko raz a wartości z B były takie i tyle razy o ile w d jest coś.
Witam, próbuję zsumować dane z dynamicznego zakresu. Chodzi o to aby zakres komórek do sumowania był zależny od kolumny z datą. Zakres do sumowania powinien być od daty przez wszystkie kolejne puste komórki. Nowa komórką z datą powinna się już sumować w kolejnym zakresie. Jak widać zakresy nie zawsze mają tą samą wielkość. Czy ktoś jest w stanie pomóc...
Próbowałem to formułą zrobić (suma warunków) ale sobie nie poradziłem więc może ktoś pomoże mi napisać takie makro. Mam stały schemat pliku z narastającą datą w jednej kolumnie. Każdej dacie jest przyporządkowana stała liczba wierszy 20. 1.Wyszukaj datę dziś plus zakres do 2 dni do przodu 2.Potrzebuję zsumować wartości w kolumnach C,E,G,I gdy w kolumnie...
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...
Dzięki, udało się to ogarnąć dzięki Twojej pomocy. Mam jeszcze pytanie co do obsługi błędów. Mianowicie chciałbym, aby w sytuacji gdy nie znajdzie Wartości to wyrzuciło błąd i zakończyło makro. Zrobiłem to w taki sposób, lecz myślę, że trochę za dużo tego: [syntax=vbscript] Sub test() Dim sh As Worksheet Dim naglowek As Variant Dim lastrow As Long On...
Dzięki Witam, czy mógłbyś pomóc jeszcze w jednej kwestii? Chodzi o to aby w weekend lub święto dane w kolumnie załóżmy H nie zerowały się ale zwiększały swoją wartość. Do tej kolumny ściągają się dane z innego arkusza. Codziennie ( w dzień roboczy )operator zeruje zawartość arkusza z którego dane się pobierają. W weekend również zeruje ale w kolumnie...
[syntax=vb][/syntax] Witam wszystkich Forumowiczów, Jest to mój pierwszy post na tym forum jednak od jakiegos czasu sledze watki na elektroda.pl . Jednoczesnie przepraszam za brak polskich znaków. Poszukuje kodu VBA do znalezienia pierwszej wolnej komórki w zakresie a nastepnie wklejenie do tej komórki w kolumnie A tego co znajduje sie w schowku . Powyzsze...
Witam, Od razu zaznaczę, że nie jestem biegły w programowaniu VBA, jednak coś tam jeszcze zostało w pamięci z nauki tego języka programowania :) Potrzebuję programu który będzie sumował dany asortyment. Np Orzechy włoskie - 481 itd (według danych z pliku) Makro powinno również utworzyć nowy arkusz, zmienić jego nazwę i w kolumnach obok siebie zapisać...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q...
Jeśli sumujesz zakres, który zawiera błąd to wynikiem będzie błąd. Należałoby postawić warunek dla formuły, która błąd generuje. W Excelu wystarczy użyć CZY.BŁĄD Np =JEŻELI(CZY.BŁĄD(Twoja Formuła);0;Twoja Formuła) W wyniku czego wartość komórki przy błędzie będzie zerowa (akceptowalna jako składnik sumy).
Ja to widzę przez makro, jakkolwiek do eksperta w tej dziedzinie mi na pewno daleko, więc mój kod na pewno da się porządnie zoptymalizować. Range("A1").Select na początku makro trzeba zmienić na inny (np B1, jeśli będzie nagłówek o wysokości jednego wiersza). Wypadałoby zmienić wtedy również warunek głównej pętli While maxY > 1 na poprawny (zamiast...
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...
Witam ponownie. szczególnie marka ,który praktycznie w większości napisał mi makro w tym programie i jego proszę o pomoc. Program hula mi super, ale ja wymyśliłem pewne usprawnienie i mimo pomocy forumowiczów nie daję sobie do końca rady. Omówię pokrótce o co mi chodzi i pokażę jak mi pomagali koledzy.Program który wysyłam jest do minimum skrócony i...
Ok, jestem po dłuższej przerwie... Ogarnąłem temat z funkcją wyszukaj.pionowo z wpisaniem treści formuły do komórki: [syntax=vbscript] Range("K50").Formula = "=VLOOKUP('HDK'!A43, 'HDK'!A:E, 5, False)" [/syntax] lub [syntax=vbscript] Arkusz1.Cells(w, kIL.Column).Formula = Application.WorksheetFunction.VLookup("C... Worksheets(Arkusz1.Cells(w, 2).Value).Range("C:E"),...
Witam, trochę namiesząłem, koncepcja się zmianiła w trakciw pisania oczywiście chodzi o sumowanie czyli jeśli w wierszu znaleziono konkretny string to dodajemy wartość z pola ilość i tak dla każdego wiersza... z tym, ze wierszy może być kilkanaście i warunków też kilka wiem, że to można na funkcji "licz jeżeli" ale wolałbym makro, gdyż to wykorzystam...
Dziwię się bo u mnie działa. Zmieniłem trochę formułę w kolumnie F by nie wykorzystywać makra a zwykłe funkcje excela. Nie wiem po co ktoś użył makra jeżeli można to było zrobić wbudowanymi funkcjami. Zawsze wbudowane funkcje działają szybciej niż makro.(wykasowałem makro) Dzięki temu dwie zalety: nie trzeba pozwalać na uruchamianie makra a po drugie...
Tabela przestawna też nie jest rowiązaniem Ponieważ tabelka miesięczna musi pozostać w niezmienionym formacie. Żadnej innej formy nie przyjmie Klient. W tabeli przestawnej Tygodnie, Miesiące, Kwartały są usytuowane ciągiem w kolejnych kolumnach excela a ja potrzebuje aby dla kazdego miesiąca powstawała osobna tabelka jedna pod drugą. Nie bardzo rozumiem,...
Witam wszystkich serdecznie. Na wstępie chciałbym uprzedzić, że jeśli chodzi o VBA to jestem praktycznie noga. Przeszukałem internet oraz obecne forum i znalazłem makro prawie pasujące do moich potrzeb, mianowicie makro sumuje konkretną komórkę ze wszystkich plików znajdujących się w danym folderze. I tu moja prośba do kolegów. Czy byłby ktoś w stanie...
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...
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 wszystkich, po raz kolejny wracam do vba w excelu i znowu ściana. Mam ciąg danych pomiarowych zawierających wartości w poszczególnych dniach roku dla kilku lat. Potrzebuję: - wyszukać ile jest wartości, które występowały przez określoną liczbę dni z rzędu np. 2, 3, 4 i tak do n dni, w danym roku, ale ich wartość jest większa równa 0,1 - a potem...
Proszę o pomoc w rozwiązaniu takiego zadania. Jest to swego rodzaju harmonogram. Mamy kolumnę liczb posegregowaną wg. określonej kolejności, chciałbym aby od pierwszego wiersza następowało sumowanie z warunkiem aby suma = 1000, jeśli np. wiersz1 + wiersz2 <1000 to dodajemy wiersz3 itd. Jeżeli suma 1000 zostanie osiągnięta to wartość "1000" zapisywana...
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ę...
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...
Zakładam, że chodzi o zajęcia w liceum albo na studiach? Należy zastosować narzędzia programowania języka VBA w Excelu. Dokładny kod skryptu zależy od tego jak procedura ma działać. Czy ma działać na wyeksportowanym pliku czy też ma działać w czasie eksportu. Jeżeli procedura ma działać na gotowym pliku Excelowskim to kolejne pytanie jest takie, czy...
Masz funkcję SprawdzNorme, która sprawdza normę w jednym tygodniu. Przyjmuje dwa parametry liczbowe: wrs => nr wiersza, od którego ma zacząć obliczanie normy (oblicza do wrs + 6, czyli 7 dni) oraz kol => numer kolumny z nazwiskiem (założenie jest, że dane z godzinami są podane w kolumnie obok, tj. kol + 1) Pętla For Each c In Range... sumuje godziny,...
Witajcie, Czy ktoś jest mi w stanie pomóc z poniższym makrem. W arkuszu1 mam listę 8 nazwisk (A2:A10) W arkuszu2 mam kolumna A: listę nazwisk tych samych co w arkuszu1 + inne, B: liczbę godzin (1,2...), ale również inne. Chciałbym aby w arkuszu1 w kolumnie C2:C10 sumował mi godziny dla danego nazwiska, które znajdzie się w arkuszu2. Musi to być macro....
Jeżeli nie ma takiej możliwości, to będę wdzięczny za pomoc przy makro Jak widać w Twoim pliku jest on naszpikowany makrami korygującymi zapis czasu :D w takim układzie proponuję dodać tylko jedno makro (w module uniwersalnym), które podsumuje Ci wszystkie komórki H1 z analizowanego miesiąca - wybierasz np. arkusz "lipiec - suma" i uruchamiasz kod...
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...
Dziękuje obie odpowiedzi jak najbardziej poprawne :) dodam jeszcze że wykonałem sumowanie uzyskanych wyników (sumowanie poszczególnych kolumn) For x = 0 To 9 Step 1 Cells(105, 8 + x).Formula = "=Sum(" & Range(Cells(11, 8 + x), Cells(103, 8 + x)).Address(False, False) & ")" Next x Aktualnie pracuje nad nowym kodem, ale napotkałem na nowe błędy!! :((...
No teraz już widze, że nie będzie to takie proste. Makro czyści odpowiednie komórki - działa tak jak to sobie wymyśliłem i poprosiłem. Jednak nie przewidziałem podstawowej rzeczy. wszystkie komórki w obszarze miesiąca mają przypisaną funkcje jeżeli, jeśli makro czysci komórki zaznaczone kolorem czyści również z danej komórki funkcje. Potem po zmienie...
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....
Witam serdecznie wszystkich zainteresowanych forumowiczów. Pisaniem w VBA zajmuje się dopiero tydzień i pojawił się pewin problem, który w pewnym sensie przerósł moje możliwości. W załączonym schematycznym pliku są dwa arkusze: "baza" i "tabela". W bazie są kolumny z datą, Dostawcą i Ilością sztuk, natomiast w tabeli chciałbym je segregować z podziałem...
Najprościej: 1. Dołożyć pętlę z "gumką myszką" 2. Potraktować Offsetem z InputBox'a 2a. Jeśli zakres źródłowy jest ciągły, zamiast Array też można podstawić InputBox i w pkt.2 pytać o przesunięcie, a nie Nr kolumny (nie uwzględniłem w przykładzie) [syntax=vb]Sub Makro2() MyPath = "C:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("A1",...
Witajcie! Wiem, wiem... powiecie, że temat był przerabiany wiele razy. To ja też wiem, gdyby chodziło o samo liczenie to nie byłoby najmniejszego problemu. Mój problem jest jednak bardziej złożony. Arkusz służy do rozliczania czasu pracy pracownika budowlanego. Tabela pokazuje dany miesiąc, poszczególne wiersze to dni miesiąca, a kolumny to symbol budowy,...
Można napisać makro, które będzie to dodawać. Jeśli w danym polu są dopuszczalne tylko i wyłącznie dwie wartości rozdzielone plusem to da się to też zrobić na formułach. O ile wszystkie składniki są w kolumnach A, B i C i są tylko i wyłącznie w formacie godzinowym excela (gg:mm:ss) albo tekstowym (gg:mm:ss+gg:mm:ss, ewentualnie plus może być rozdzielony...
Tak po przemyśleniu stwierdziłem że w stopce się nie da bo trzeba by było zmieniać stopkę każdej strony a nie mogę znaleźć funkcji odpowiedzialnej za (kierującej na) stopkę danej strony. Pomyślałem więc, że zrobię coś takiego. Sprawdzę ile jest "złamań" strony. Odczytam wiersz złamania i dodam jeden wiersz z sumą od góry do przedostatniej komórki. Na...
Cześć, Mam dwa pliki i chcę zastosować SUMIFS w VBA. Jednak mam dwa błędy 91 oraz 424 Plik 1 z którego są pobierane dane: DanedoSumIFs.xls Plik 2 - tutaj sumuje, kolumnę C z pliku 1, dla każdego kodu z Plik2 z daną datą z Plik2. Mam dwa problemy w napisanym makrze: [syntax=vbscript]Sub Makro1() Dim ok, ostk As Integer Dim ow, ostw As Integer Dim i,...
Dobra czas aby autor się wypowiedział. :) Więc wersja kolegi marek003 przekonuje mnie bardziej niż wersja kolegi adamas_nt, pewno ze względu na to że jest bardziej uproszczona bez dodatkowych kolumn. Niestety tak jak w poprzednim przypadku pozostaje kwestia odejmowania, więc marek003 skoro napisałeś Jeżeli w tabeli wynikowej miałyby być pełne ilości...
Dzięki, właśnie do tego dotarłam ale inną metodą, przed skopiowaniem nagranego makra tworzącego nagłówek wpisałam, po sumowaniu komórek: 'suma kolumny G ost_wiersz = wsNowy.Range("E65536")... With wsNowy.Cells(ost_wiersz + 1, 5) .Font.Bold = True .Formula = "=SUM(E2:E" & ost_wiersz & ")"...
Dobrze zrozumiales tylko nie z jakiejs komórki podanej odgórnie a spelniajacej parametry w stylu: jezeli j2 arkusza zbiorczego istnieje w rzedzie 2 arkusza2 i b3 istnieje w kolumnie b arkusza2 to wspolrzedne spotkania sie tych punktow daja wspolrzedne komorki w arkuszu2 i taka dana jest kopiowana do akrusza zbiorczego. Cos jak celowanie w komórke, najpierw...
Witam, mam plik z dwoma kolumnami z danymi. W pliku znajduje się Userform (niestety nie wiem, czy da się załadować plik z formularzami), przy pomocy którego wybieram kolumnę, z której chcę zsumować dane. Po wybraniu z listy wybranej kolumny uruchamiane jest makro sumujące dane oraz wyświetlające komunikat w postaci zsumowanej wartości. [syntax=vbscript]...
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.
makro sumowanie makro sumowanie kolumny sumowanie kolumny makro
zasilacz zawodny bezpiecznik termiczny schemat błędy candy
mikrokomputer cobra1 odkurzacz xiaomi
Kompatybilność pilota DMR-EH57 z DMR-EH56 Panasonic Programowanie pilota Cabletech UET-606 do Funai LT7-M19BB