Załączonego pliku testowego nie udało mi się otworzyć. Ale jeśli rozumiem treść wpisu, to chodzi Ci o formułę, więc kod VBA nie powinien tu mieć nic do rzeczy. Przykładowe formuły w załączniku. Funkcją, która uwzględnia użycie filtra jest funkcja SUMY.CZĘŚCIOWE. Można jej użyć w powiązaniu z WYSZUKAJ.
Nie musi być ostatnia, ale tak było w przykładzie. Przykład powinien być adekwatny do rzeczywistych danych, a nie warto komplikować kodu "na wszelki wypadek".
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Jeśli dobrze zrozumiałem chodzi o coś takiego: [syntax=vb]Sub FirstAndLast(ByVal c As Integer, ByVal cellRow As Integer, ByVal cellCol As Integer) Dim i As Integer Dim first As Integer Dim last As Integer lastindex = Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row For i = 1 To lastindex If first = 0 And Cells(i, c).Value <> "" Then first = i End...
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
Dobry wieczór, Zastosowana funkcja ILE.NIEPUSTYCH (COUNTA) pomija przy zliczaniu tylko komórki faktycznie puste, a te które zawierają formułę już nie są puste (nawet jeśli formuła zwraca pusty tekst). Inaczej zachowuje się funkcja LICZ.PUSTE (COUNTBLANK), która zlicza nie tylko komórki faktycznie puste, ale również te, które zawierają puste teksty....
Gdy w arkusz1 dopisuje dane data automatycznie zmienia się w arkusz2. Czy coś takiego jest w ogóle możliwe przy zastosowaniu formuł? Dawniej to była uniwersalna odpowiedź: "Tak to można tylko w ERZE" :D Dziś już ERY nie ma - i sam musisz sobie odpowiedzieć czy jesteś w stanie przewidzieć formułę na przyszłość - choćby jakich (nazwa) będziesz miał klientów...
Jeśli dobrze zrozumiałem Twoje potrzeby :?: To efekt taki jak na zrzucie 1011231 tzn. po wpisaniu numeru kontraktu zakupu makro automatycznie wyszukuje "wstecz" (tzn. do góry :D ) czy już wystąpił taki numer i jeśli tak - to wprowadza do kolumny D ilość pozostałą z wcześniejszej transakcji :spoko: 1011234
Co do przycisku wywołujacego makro. Jeżeli masz więcej arkuszy i będzie to w nich wykorzystywane to kod umieść w module. Menu - Widok - paski narzędzi - Visual Basic. Na tym pasku wciśnij Edytor Visual Basic. Otworzy ci się edytor makr. Po lewej stronie będzie okienko "project -VBA project" . Znajdź pogrubioną nazwę twojego skoroszytu i prawokliknij...
:) 8-) Bez przesady. 8-) to ułamek mojej wiedzy 8-) :) Nie no ... oszukuje :) Na poważnie: Miło że Ci się podoba ale kod makra nie jest zbyt ambitny. Może ktoś zrealizuje to prościej ale niestety mam kocioł w pracy i muszę się "wyłączyć". (ostatecznie pomagać wieczorami) W załączeniu poprawki. Zapomniałem wspomnieć Arkusz "Zlecenia" ma się tak nazywać...
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
[syntax=vb] Sub DelDupl() With Sheets(1).Range("A:B") r = 2 While .Cells(r, 1) <> Empty If Application.CountIf(.Columns(1), .Cells(r, 1)) > 1 Then .Rows(r).Delete shift:=xlUp r = r - 1 End If r = r + 1 Wend End With End Sub [/syntax] jeszcze nie jest dobre?
Zmień ostatni argument funkcji MATCH. No i z tym And też coś się nie klei: 1 )
"Zwykłym" WYSZUKAJ też można.
(...) lko wartości liczbowe, czy również daty? Są tam wartości liczbowe. AI: Z jakiej wersji programu Excel korzystasz? Czy używasz jakichś dodatkowych narzędzi lub dodatków, które mogą wpływać na formuły? Nie używam żadnych dodatków. Jeśli jakieś byłyby potrzebne do rozwiązania zadania proszę o informacje. Bezpośrednia odpowiedź na pytanie Aby stworzyć...
Tak, funkcja lewy kopiuje od początku. A jak chcesz ze środka to możesz skorzystać z funkcji fragment.tekstu . Opisy tych funkcji i przykłady użycia są w pomocy, więc nie warto się za bardzo o nich rozpisywać.
Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
To zdaje się, że najlepiej będzie umieścić kod w ThisWorkbook. Np [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Sh.Range("B8:AK8,A16:AK16")) Is Nothing Then MsgBox Date & " " & Application.UserName End If End Sub[/syntax]Wartości wyświetlane w przykładzie przez MsgBox przypisz...
Pomijając literówkę w przypisaniu, zamienione argumenty w Cells(row, column), zakręcony wybór kontrolki w pętli, to zdaje się coś za dużo tych pętli. Po modyfikacji http://obrazki.elektroda.pl/3585684200_1...
Ja zastosowałbym zwykłą sumę warunków: SUMA.WARUNKÓW($F:$F;$A:$A;$H6;$B:$B;I$4) w pierwszej komórce zakresu. Suma iloczynów nadmiernie męczy komputer (w każdym razie mój :) ). Natomiast w komórkach I41:I71 zwykłą sumę I6:L6 ... I36:L36 Ponadto datę w ostatnich dwu wierszach kolumny dni (H35 i H36 oraz H70 i H71) warto dodać jeszcze jeden warunek, żeby...
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...
Pozostało mi jeszcze zrozumienie tego kodu może komentarze będą pomocne :) [syntax=vbscript] Sub Zakresy() Dim ark As Worksheet Dim i&, j&, w& ' deklaracje zmiennych Set ark = ThisWorkbook.ActiveSheet ' utworzenie zmiennej obiektowej w = ark.UsedRange.Rows.Count + 1 ' określenie ostatniego wiersza powiązanego z ilością iteracji pętli i...
Powiem tak: przeczytaj jeszcze raz mój ostatni post #8 (tak od połowy) i porównaj z tym, co masz. Obecnie każdy z 4 argumentów funkcji WYSZUKAJ.PIONOWO (tej z ostatniego załącznika) masz zły :) Grunt, to dobrze zrozumieć tą funkcję: może Wyszukujemy wartości komórki (dajmy na to) U17; przeszukiwany zakres to Y6:AC59 i szukam tego w kolumnie 1. Czy tak?...
Chcesz znać wartość ostatniej danej? To po prostu wartość ostatniej komórki w kolumnie: [syntax=vbscript]MsgBox Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").Value[/syntax]
jest "po staremu. A zwróciłeś może uwagę, że po wykonaniu takich czynności jak poniżej wszystko jest "w porządku" (?) ... :) ... : 1. Kolumny w arkuszu wciąż mają nieokreśloną szerokość w opcji Format\Kolumna\Szerokość Zaznacz cały arkusz i nadaj kolumnom jakąś wartość - domyślnie to 8,43 2. W opcji Format\Kolumna\Standardowa szerokość wciąż jest '0'...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Jeśli to jest nowy Excel, to najlepiej sprawdzi się tu nowa funkcja WYBIERZ.KOLUMNY. Tylko dlaczego ta ostatnia kolumna ma nagłówek "n", a nie liczbowy? To jest arkusz kalkulacyjny, w którym dane powinny być przede wszystkim liczbowe. Teksty pomieszane z liczbami, to jest dodatkowy kłopot. Co oznacza to "n"? Nie można go zastąpić liczbą? Tu można sobie...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
Jestem początkująca w programowaniu vba... ...Potrzebuję wsparcia! Może ze względu na okres Świąteczno - Noworoczny mam ciężką zatrybkę. To co w cytacie zrozumiałem. Z resztą mam problem. Nie wiem czy dobrze zrozumiałem, ale na próbę zamień wiersz: ActiveCell.Copy Destination:=Cells(ostatniekryte... kolumna) na: Cells(ostatniekryteria,...
Sprawdź makro, które podałem Ci ostatnio. W Twoim jest pewien błąd. Otóż, jeżeli komórka A6 zawiera produkt który był w drugim arkuszu na pozycji B4, to makro nie wejdzie do pętli i zmienna y nie zostanie zdefiniowana. Druga sprawa, to przeszukiwanie kolejnego produktu, B5, B6 itd. W Twoim makrze nie ma zmiennej, która decydowałaby kiedy zaprzestać...
[syntax=vbscript]ostatnia = Columns("C").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row[/syntax]
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?...
Powinnaś dokładnie opisać swoje dane, a poza tym trzeba mieć świadomość istnienia dwóch zasadniczych algorytmów wyszukiwania: dokładnego i przybliżonego. Algorytm dokładny działa w ten sposób, że szuka dokładnie poszukiwanego wzorca i jeśli go nie znajdzie zwraca błąd. Jeśli wzorzec występuje wielokrotnie - zwraca pierwsze wystąpienie. Dane do tego...
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
Ostatni, opcjonalny argument funkcji ustaw na PRAWDA, tabela musi być posortowana.
Ale można szybciej. w komórce C2 wpisać = jeżeli(A2="";C1;A2) zatwierdzić enterem ponownie "stanąć" na komórce C2 i nacisnąć kopiuj. zjechać prawym paskiem przewijania na sam dół (ważne by tam była cały czas zaznaczona komórka C2) Przytrzymać klawisz Shift wskazać myszką ostatniąprzy danych komórkę w kolumnie C (zaznaczy się cała kolumna) Prawoklik...
Napisałeś się, napisałeś, a pewnie i tak bez załącznika mało kto się w tym połapie... Ja też po którymś tam warunku wysiadłem, ale z tego co piszesz, to są proste operacje, tylko musisz zastosować kilka pętli. - zacząć możesz od zadeklarowania skróconej wersji arkuszy: [syntax=vb]Set wsrap = ThisWorkbook.Worksheets("Raport") Set wswyn= ThisWorkbook.Worksheets("Wynik")[/syntax...
Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na powrót w wymaganym formacie. Jak przedmówca wspomniał...
2 – Jest możliwe aby w kolumnie Kartony była podświetlona komórka zawierająca najwyższą wartość ALE z wyłączeniem tras zaznaczonych jako Anulowano i Przeniesiono? Ustawiłęm dla całej kolumny formatowanie Warunkowe -> Reguły dla pierwszych/ostatnich -> 10 pierwszych elementów i zmień z 10 na 1. Sprawdziłem, oznacza na czerwono (można zmienić)...
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...
Sypiesz tymi wariantami jak z rękawa, to już powinieneś się nauczyć sam jak generować takie formuły. To wszystko są podobne schematy. Trzeba sobie tylko poczytać jakie funkcje są dostępne w Excelu. W prawo na ukos z pominięciem ostatniej kolumny: [syntax=text]=FILTRUJ(DO.KOLUMNY(C5:E18)... W lewo na ukos z pominięciem pierwszej...
Czyli funkcja ma sobie sama wybrać jeden z ośmiu wyników i skopiować do drugiej tabelki? Co do MS i Open to jak się kiedyś przyglądałem, MS chodził na VisualBasicu a Open na Javie, ale dawno makr pod to nie pisałem, ostatnio jak potrzebuję coś prostego, piszę w PHP :) ps. te dane oryginalnie w czym dostajesz? W xls? Czy jakieś CSV może? Analizujecie...
Przeanalizuj sobie jakich formuł zastosowałem, możesz je sobie połączyć. Kolumna z datą dodatkowo jest w Excelu ustawiona jako format wyświetlania daty. Również dodałem ostatni wiersz, aby zademonstrować, że Excel jest na tyle mądry, że potrafi wygenerować datę cofając się o miesiąc, jeżeli ma przejście z 1 na 31. PS Ale nie kopiuj jak małpa, tylko...
Gdzieś widziałem przykład wykorzystujący funkcję API SendMessage . Ale jak to z API na różnych maszynach może być różnie. Popatrz na taki przykład Dim temp1 As String Dim temp2 As String Sub Makro() temp1 = Cells(1, 1).Value ' zapamiętanie starej wartości dla Undo Cells(1, 1) = "coś" ' wpisanie nowej wartości do komórki...
Witam serdecznie, mam podobny problem lecz jednak inny "...chciałbym aby excel zwracał mi wartość pierwszej i ostatniej (w osobnych komórkach) niepustej komórki w danej kolumnie." Ten problem jest rozwiązany lecz mam problem z tym, że kolumna jest w tablicy z której tworzone są wykresy dynamiczne bazujące na pierwszej i ostatniej niepustej komórki w...
Wszystko zależy od tego, w jakim formacie będziesz miał dane, które dostaniesz. W przykładzie jest to x, y, z, x, y, z na przemian. To by oznaczało, że już przy pierwszym pytaniu pojawią się wszystkie nazwiska, jeśli nic się nie zmieni. Możesz skopiować te nazwiska (jednokrotnie, tak jak w arkuszu na drugiej stronie) i wkleić je tam, gdzie być mają....
nadal zwiększa się ostatnia wartość - 18 Przeciągnij sobie same wartości liczbowe, a dopiero potem zmień dla całego zakresu na pożądany format niestandardowy :idea:
Uwaga: Od 20 do 140 będzie 121 wartość. Przy założeniu że numery, począwszy od pierwszego wiersza i nie pustych wierszy =SUMA(PRZESUNIĘCIE(A1; ILE.LICZB(A:A)-120; 0; 120))
Uwagi: Set Drng = Arkusz1.Range("B6") Brak deklaracji tej zmiennej - inne są, jeśli w kodzie pojawi się instrukcja " Option Explicit " będzie błąd Oferta = Drng.End(xlDown).Offset(-1, 0).Value Będzie pobierać wartość nie z ostatniego wiersza "tabeli/kolumny", ale z przedostatniego - czy taki był zamysł ? Tabela = Split(Oferta, "/") Nr = CInt(Tabela(0))...
Można formułą wyodrębnić ostatni "wyraz" (kolumna D), pomnożyć przez 1 i jeśli jest liczbą porównać z B1. Wyniki (kolumna C) przez kopiuj/wklej specjalnie/wartości skopiować do jeszcze jednej i usunąć pomocnicze... http://obrazki.elektroda.net/98_12837945... Jeśli nie występuje coś w rodzaju 1/2 (A5 na rysunku) to powinno być OK.
W polskiej wersji to działa (excel XP i 2003) =JEŻELI(CZY.BRAK(WYSZUKAJ.PIONOWO(I14;$A... A co zwraca samo? =VLOOKUP(I14,$A$2:$H$5,1,0) a co zwraca =ISNA(VLOOKUP(I14,$A$2:$H$5,1,0)) i ostatnie =IF(ISNA(VLOOKUP(I14,$A$2:$H$5,1,0)),"NI... MA","JEST") A co jeżeli zamiast 0 wpiszesz fałsz - "FALSE" Na tym forum za udzielanie odpowiedzi...
Cześć, Mam jeszcze jedną prośbę o pomoc w Excelu. Otóż mam arkusz zawierający tysiące linii, a ostatnia kolumna jest ustawiona alfabetycznie i ma mnóstwo powtarzających się wartości. Jak można by wizualnie zgrupować te powtarzające się wartości od następnych? Przykład poniżej i w załączniku. Mam to co po lewej, a chciałbym uzyskać coś podobnego do tego...
Policz sobie funkcją akuszową licz.jeżeli ilość wystąpień "System_Erfassung" w danym obszarze, np.: [syntax=vb]Sub x() Dim rRng As Range Dim iCnt As Integer Set rRng = Range("A1:A1000") iCnt = Application.CountIf(rRng, "System_Erfassung") For i = 1 To lCnt 'tu Twój kod Next i End Sub[/syntax]
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
http://swannman.github.io/pdf2gerb/ http://chomikuj.pl/MiniPLC/PDF+to+GERBER Strona 1 Pdf2Gerb 1.6 1 z 11 Spis treści 1. Przegląd ........................................... ........................................... ................................. 1 2 Instalacja / konfiguracja ........................................... ...........................................
Rzeczywiście można bez pętli. To pozostałość bo pierwotny kod pozwalał wybrać liczbę kolumn jaką chcę się dodać. Po przemyśleniu stwierdziłem że może prościej będzie kopiować ostatnią kolumnę? Zamieniłem tę linijkę "ws1.Columns(iCol).EntireColumn.Insert" na "ws1.Columns(iCol).EntireColumn.Copy ws1.Columns(iCol)" i ładnie działa tylko zależy mi na tym...
Tak na pierwszy rzut oka. 1. Nie ma typu zmiennej "Float". Tablice deklarujesz zwykle jako "Variant" lub nie wpisujesz typu i VB przyjmie typ domyślny, czyli "Variant" wlaśnie. 2. Liczby ułamkowe w VB zapisujemy stosując kropkę (0.2 a nie 0,2) 3. Przypisanie wartości zmiennej "ostatniWiersz", Range("a1") brak cudzysłowu i wszędzie gdzie składasz stringi:...
Za dużo kombinujesz ;) Wszystko można zmieścić w takim oto kodzie, komentarze - bez zbędnych dywagacji - w kodzie :) Mam nadzieję że zasadza działania jest jasna? W zasadzie to tylko pętla po wierszach i kolumnach + parę if'ów tłumaczących format excela na worda. "Sekret mnicha" tkwi w tym, żeby ustawić format paragrafu w Wordzie przed wypisaniem tekstu,...
Wg mnie pominąłes ostatni parametr rodzaj porównania. Nie wiem co Excel wtedy robi ale podaje zły wynik. Formuła, która u mnie działa to: =INDEKS(B4:B20;PODAJ.POZYCJĘ(MAX(C4:C20)... Pozdrawiam Solo
Aktualnie kończy mi się lojalka w tp, multipakiet1024. Na multipakiecie (tv przez neostradę) mi nie zależy, ale cena jest ok. Na jaki internet się zdecydować? Do tego warto też było by się rozejrzeć za jakimiś pakietami. W załączniku excel z rachunkami za ostatnie 6 miesięcy. Co przy takim użytkowaniu polecacie? Dużą ilością międzynarodowych w ostatnim...
Hej, Mam 2 arkusze, w 1-generuje się raport pozycji na podstawie innego makra, w 2-uzyskany raport 1 ma zostać przeniesiony do ostatniego wiersza, niezapisanego i stworzyć 1 wspólną listę, poszperałam tu na forum i znalazłam makro, dopisałam jeszcze, by przed kopiowaniem wyfiltrował wartości puste i kopiował bez nich. Makro to działa, ale w związku...
Propozycja dla wierszy (podstawa to nazwa wiersza np DZIAŁ1 i ta sama nazwa [caption] checkboksa. Zrozumiesz czy tłumaczyć na czym polega? [syntax=vbnet] Private Sub CheckBox1_Click() ostatni = Cells(Rows.Count, "A").End(xlUp).Row If CheckBox1 = True Then Ukr_wier (CheckBox1.Caption) Else Rows.EntireRow.Hidden = False End If End Sub Private Sub CheckBox6_Click()...
Teraz ok:) nie znam vba, także nie wiedziałam, że moja "drobnostka" aż tak zmieniłaby kod (bo założyłam sobie, że ten kod będzie rozpoznawał wartość 1 w komórce). Ale dziękuję bardzo za poświęcony czas! i już ostatnie pytanie jak zrobić, żeby makro działało dla wszystkich kolumn?? (bądź powiedzmy pierwszych 100 kolumn)
Witam, potrzebuję procedury, która będzie mi sumować w kolumnie R (od wiersza 5) wartości komórek z kolumn N, O, P, Q (od 5 wiersza) dla zmiennej ilości wierszy arkusza. Napisałam coś takiego ale jest od i = 5 do 1000 a nie wiem jak napisać żeby było dla tylu wierszy ile będzie w danym arkuszu czyli do ostatniego aktywnego wiersza [syntax=vbnet]Sheets("Inna...
Dzień dobry jeszcze raz, Chwilę to trwało, bo jak zacząłem dodawać swoje funkcje "słownie" stwierdziłem, że procedura Staz nie jest doskonała i uznałem, że warto ją podmienić na coś innego. Zapewne dałoby się ją poprawić, ale to już pozostawiam Autorowi, jeśli uzna za celowe. Niestety w VBA nie ma takiej wygodnej funkcji jak półoficjalna DATA.RÓŻNICA...
Excel nie "wydaje się naturalny" jako źródło danych przy wielodostępie. Już prędzej MS Access. Oprócz SQLite o którym wspomniałeś (do obsługi polecam GUI SQLite Studio) warto przyjrzeć się też kompaktowej edycji SQL Servera. Ta ostatnia jest dostarczana z pakietem Visual Studio, który dodatkowo wspiera jego obsługę w designerze. Co więcej, nawet w wersji...
Sprawdź, jak to działa (załącznik). Nie wiem, jakbyś chciał liczyć ceny. Ja założyłem, że: - mamy na przykład 3 dostawy po 10 sztuk towarów, pierwsza dostawa ma towar za 1pln, druga ten sam towar za 2pln, trzecia ten sam towar za 3pln, to wtedy: - w przypadku, gdy ktoś kupuje po jednej sztuce, pierwsze elementy będą miały liczoną cenę zakupu 1pln, po...
Podłączyłeś się pod cudzy temat i nie wyjaśniłeś dokładnie o co Ci chodzi. Czy chodziło o zaznaczenie (selekcję) kilku komórek jednocześnie i żeby we wszystkich tych komórkach liczby kończące zawarte w nich teksty wzrosły o 1? Jeśli o to chodziło i ma to być makro zdarzeniowe SelectionChange, to możesz wykorzystać taki kod w module arkusza: [syntax=vbscript]Private...
Cześć wam. Mam kolejne pytanie z dziedziny excela i odpowiednich funkcji. Chciałbym wprowadzić na arkusz dla serwisu ( bo się nie słuchają :D ) następujące działanie. https://obrazki.elektroda.pl/4542725000_... Jeżeli w komórce znajduje się wartość "Oczekuje na serwis" to dalsze komórki w tym wierszu są zablokowane ,a jeżeli Serwisant...
Witam! Jestem tu nowa, więc bardzo proszę o wyrozumiałość i pomoc. Mam dwa pliki (dokument A i dokument B). W dokument A mam Arkusze o nazwach od A do L- wszystkie mają identyczny układ. W dokument B jest tylko jeden arkusz w którym w kolumnie C "wymienione" są kolejno wszystkie arkusze z dokument A. Moje pytanie czy istnieje możliwość zaprogramowania...
czyli np.: =arkusz1!A1 jak przeciągnę tą formułę w bok (poziomo), to excel automatycznie w następnej komórce skopiuje dane z komórki B1, czyli =arkusz1!B1, a chciałbym żeby w następnej komórce była wartość z komórki A2, czyli =arkusz1!A2 Hmm, to jeszcze byłoby wykonalne. Jeśli kolumny po kolei w jednym wierszu, to skąd wiadomo gdzie ostatnia komórka...
Prośba o pomoc w posortowaniu zawartości z Excela. Mianowicie zależy mi na tym, aby wartości najbardziej od prawej strony (po znaku "/") sortowały się naturalnie, a więc od 1 do n. Dziękuję i pozdrawiam
I dalej to jest niejasne jak nie wiadomo po co to wszystko i jaki ma to sens. można było 9 zmienić na 0 a wtedy wypełnienie komórki zmieni się na czerwone. Ja dotąd rozumiałem, że użytkownik zmienia tylko wartości w kolumnie B na dowolne lub puste i w zależności od tego w kolumnach D : O mają się pojawiać liczby 9 lub 0 i kolory zielony lub czerwony....
...i teraz tak, potrzebuje obliczyc procentowe zmiany wartosci z miesiaca na miesiac. innymi slowy, chcialbym pozbyc sie wszystkich danych oprocz tych z ostatniego dnia kazdego miesiaca... Nie do końca wiem o co ci chodzi. Procentowe zmiany z miesiąca na miesiąc a procentowa zmiana ostatniego dnia miesiąca to trochę co innego ale jeżeli chcesz tylko...
zabiło mi to takiego ćwieka Proponuje zrobić próbę z ręczną edycją przekształceń np. tak jak na zrzucie 1091951 u mnie na Twoim pliku po trzech prostych przekształceniach (to ostatnie wprowadzone ręcznie :idea: ) wszystko ładuje się prawidłowo i po uzupełnieniu tabeli źródłowej - bez problemu ładuje się i odświeża :D
Sorry, ja pisałem swój post nie odświerzając i nie widziałem Twojego ostatniego postu!
Moje rozwiązanie wyglądałoby jakoś tak: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-05-12, autor Darek ' ' Const S1 = 8 ' najmniejszy przedział Const S2 = 16 ' sredni przedzial Const S3 = 32 ' najwiekszy przedzial Const D1 = 3 ' tolerancja sredniej najmniejszego przedzialu Const D2 = 5 ' tolerancja sredniej sredniego przedzialu...
Pisząc kod jak poniżej: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then wszystko działa tak jak chciałem, ale tylko w zakresie podanej komórki. A czy można i jak zapisać aby działało w całej kolumnie? I jeszcze jedno pytanie: Wiersz = ActiveSheet.Cells(ActiveSheet.Rows.Count... "D").End(xlUp).Row -formuła wyszukuje...
Najprostsza może i tak, ale spację też odseparuje gwiazdkami, ostatniej litery wcale nie wrzuci, jeśli zawartość A1 będzie krótsza to na samym końcu dolepi kilka gwiazdek, a jeśli A1 będzie dłuższa to zignoruje wszystko za ósmym znakiem... Aktualnie w wyniku tej formuły dostaniemy wynik "a*b*c*d* *e*f*g" - oczywiście łatwo tę funkcję poprawić, ale pewnie...
Jeśli w kolumnie "B" będzie występował tylko i wyłącznie tekst, to: [syntax=text]=INDEKS(A:A;PODAJ.POZYCJĘ(P...
Wywołałeś mnie z uśpienia i tak się zastanawiam czy warto. Uporządkowanie makra to jedno (ktoś je wcześniej nagrywał i tak pozostawił). Tam jest sporo niepotrzebnych manewrów które właściwie same siebie wykluczają Tu nie ma co poprawiać starego makra tylko trzeba napisać nowe. Jeżeli to ma być tylko tak jak przedstawiłeś we wzorze to wystarczy takie...
Niestety nie znalazłam błędu po rozszerzeniu do 6 miejsc. Zrobiłam na tej samej zasadzie sumowanie kolumny G i działa poprawnie . Próbowałam też puste miejsc wypełnić zerami ale nie pomogło. Range("A1").Select Selection.End(xlDown).Select ost_kom_kolumny = ActiveCell.Address(False, False) ilosc_wierszy = Range("A1", ost_kom_kolumny).Count Range("E1").Select...
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
Nikt nie pomoże? Wyłapywanie ostatnio zapełnionego dnia mogę pominąć, zorganizuje to sobie inaczej. Podpowiedzcie chociaż jak dodać imiona do wyliczonych wartości w drugim arkuszu.
*adamas_nt dzieki, sprawdze co do pkt.2 cos mam, ale bede mial prosbe o weryfikacje oraz pomoc w dodaniu kilku rzeczy. mam takie makro: Sub Arkusz3_Przycisk1_Kliknięcie() Dim LastRow As Long Range("B2:AI2").Se... Selection.Copy 'Sheets("Arkusz3").Sel... If WorksheetFunction.CountA(Cells) >...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Kurcze taka ładną instrukcję napisałem i okno mi się zamknęło. To teraz krótko bo nie mam czasu. A możesz dołożyć kolumnę pomocniczą przed kolumna z twoimi danymi? Jeżeli tak to w załączeniu przykład. Jeżeli coś nie jasne to pytaj. Może wieczorem wyjaśnię.
W podanym przykładzie tzn. w przypadku gdy w jednej komórce są początkowe znaki, a w drugiej te same znaki i jeszcze coś można wykorzystać również funkcje ZNAJDŹ albo SZUKAJ.TEKST np. ZNAJDŹ(A1;B1). Jeżeli A1 zgadza się z początkiem B1 funkcja zwraca wartość 1 (ogólnie zwraca pozycję tekstu A1 w tekście B1). Funkcje ZNAJDŹ i SZUKAJ.TEKST różnią się...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
Microsoft chyba sam doszedł do wniosku, że nie można bezczelnie wykluczyć użytkowników starszego legalnego oprogramowania. Po ostatniej aktualizacji MS Office 2003 zaczął działać poprawnie.
Albrecht AE6690 działa znacznie lepiej, ale z ostatniej dostawy od ALANa przyszły sztuki w których autosquelch działa mniej ciekawie, wieć też lepiej używke. Yosan Turbo JM-3031M jest tańszy od Albrechta 6690 i to praktycznie to samo pod względem funkcji i jakości, tym bardziej jak teraz Albrecht ma te problemy z ASQ. Wadą jest okropny panel tego radia
Zrób makro. W Excel jest wizard, musisz wskazać co ma robić po uruchomieniu makra czyli w Twoim przypadku ściągnąć dane z innego pliku i dopisać w ostatnim wierszu +1.
To sobie zmień zapisy typu [syntax=text]"Firma"&{1;2;3}[/syntax]na stałe tablicowe z faktycznymi nazwami arkuszy: [syntax=text]{"Adidas";"Nike";...}[/synt... A wersję Excela należy zawsze podawać. Gdybyś podał od razu, zrobiłbym to trochę inaczej, a teraz już nie mam czasu przerabiać. Jeszcze inny pomysł na rozwiązanie. Najpierw znalezienie arkusza,...
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...
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
Witam :) Czy istnieje jakaś funkcja która przyjmuje dla zmiennej wartość ostatnio wpisaną w dowolną komórkę Excela? Chciałbym skorzystać z kodu (uruchamia makro po każdym wpisaniu wartości w jakąkolwiek komórkę) Private Sub Worksheet_Change(ByVal Target As Range) 'miejsce na poszukiwaną funkcje MsgBox ("przyjęto nową wartość zmiennej")...
zwraca ostatni warto excel ostatni wiersz excel ostatni wartość
blaupunkt szumi uszczelka podgrzewacza dźwięk jednej słuchawce lenovo
HP DeskJet 930C – reset do ustawień fabrycznych, reinstalacja sterownika, twardy reset Gaźnik Keihin CVK PZ-19 skuter 4T 80 – ile obrotów śruby mieszanki ustawić?