Andie, bardzo dziękuję za Twoją odpowiedź. Sprawa niestety wygląda tak, że wartości komórek J4, J5 to również wynik formuł w nich zawartych, a te odnoszą się do kolejnych komórek z formułami... dość to rozbudowane, dlatego załączam prosty plik (w załączeniu; rozszerzenie zmieniłem z .xlsb na .txt ponieważ nie mogłem załączyć pliku z rozszerzeniem .xlsb),...
Nie jestem biegły jeśli chodzi o makra ale tak przeglądając parę stron o Excelu natrafiłem na makro uruchamiane przy każdym przeliczeniu arkusza, i uruchamiające kolejne makro pod warunkiem że zmieniły się wartości w pewnych komórkach. W Twoim przypadku można by uruchamiać makro sortujące wyniki przy każdym przeliczeniu arkusza (czyli po wpisaniu/usunięciu/zmianie...
Witam, Jak widać po problemie jestem początkujący w programowaniu VBA. Dlatego chciałem prosić o małą pomoc. Potrzebuje napisać makro w którym jedną z czynności będzie sprawdzenie czy wartości w kolumnie C (od C2) są równe wartościom w kolumnie D (od D2). Jeżeli tak się dzieje wówczas makro powinno usuwać cały wiersz. Jednym słowem jeśli C1 = D1 then...
[syntax=VBA] Private Sub Worksheet_Change(ByVal Target As Range) If Cells(3, 2).Value = Cells(1, 1).Value Or Cells(3, 2).Value = Cells(2, 1).Value Or Cells(3, 2).Value = Cells(3, 1).Value Or Cells(3, 2).Value = Cells(4, 1).Value Then Cells(3, 2).Interior.ColorIndex = xlNone Else Cells(3, 2).Interior.ColorIndex = 3 End If End Sub [/syntax]
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
Witam! Mam problem z stworzeniem makra który pobierze dane z tabelki a następnie wklei w odpowiednie miejsce. Po prawej stronie jest tabelka z wartościami i chciałbym żeby makro sprawdzało wartość komórki czy jest rożna od zera. Jeżeli tak to w nowym arkuszu(lub pliku) Tworzy wpis ID Gniazda | ID | ID siedliska| Wartość komórki, jeżeli wartość komórki...
I jeszcze drobna poprawka dla E2007 na początku makra, aby sprawdzać wszystkie kolory z palety Range("AB5:AC60").... For i = 1 To 56
Może tak: Sub del() Dim i As Integer For i = 100 To 3 Step -1 'ile wierszy będzie sprawdzanych If Range("B" & i).Value = Range("B2") Then Rows(i).Delete End If Next i End Sub
Sprawdź dobrze, bo pisane w przerwach między obieraniem ziemniorów i marchewy, i mogą być błędy. 919204 Stałe, zmienne i kod na tyle czytelne, że od razu zrozumiesz intencje. Kody z ich wartościami na oddzielnej zakładce, makro uruchamiane zmianą zawartości komórek w określonym zakresie (stałe dla zakresu początkowego i końcowego), zdefiniowanym w module...
To nie ma związku z formułami. W wierszu oznaczonym poprzednio komentarzem 4) zamiast lw było wpisane 12, więc pętla w ogóle się nie wykonywała (od 13 do 12 nie ma żadnej wartości). Poza tym ponieważ lw szuka ostatniego zajętego wiersza w kolumnie A, a w tym ostatnim wierszu była teraz formuła zwracająca pusty tekst, więc dodałem jeszcze w pętli warunek...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Dziekuje serdecznie za znalezienie źródła problemu. Teraz pozostaje pytanie jak temu zaradzić? Czy jest jakiś sposób, aby zapętlenia uniknąć i żeby wszystko działało tak jak należy?? Jak mogę zmienić procedurę żeby nie powodować zawieszania? Czy potrzeba może stworzyć osobne makra, działające niezależnie od siebie? Może stwórz makro wpisujące wartości...
Ok. Zrozumiałem. napisałem małe makro dla zakresu i pętlą sprawdzanie. plik w zalączeniu. kod: Option Explicit Sub ZakresPetla1() Dim wiersz As Long For wiersz = 19 To 30 Step 1 Do While Cells(wiersz, 2).Value = Range("E16").Value Range("F16").Copy Cells(wiersz, 3).PasteSpecial wiersz = wiersz + 1 Loop Next End Sub
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
Stoję przed ostatnim w zasadzie problemem mianowicie w jednym z pól mam taką formułkę: ='10-07-13'!C25+'11-07-13'!C24 która jak widać opiera się na pobieraniu wartości z pola z poprzedniego dnia+wartość z pola z obecnego dnia. czy mogę jakimś sposobem zmodyfikować tą formułe (lub powyższe makro) tak aby sama wiedziała że ma korzystać z zadanych pól...
Witaj. Należy użyć formatowania warunkowego z określeniem funkcji, na podstawie której robiony jest format. Jeśli posiadasz Excela w wersji 2013 lub nowszej, to ma on wbudowaną funkcję CZY.FORMUŁA, która rozróżnia czyw komórce jest wpisana liczba/tekst, czy wartość jest obliczona na podstawie formuły rozpoczynającej od "=" - i o takie rozróżnienie chyba...
Cześć, potrzebuję pomocy z wykonaniem jednego makro. W przykładzie, który zrobiłem wszystko działa prawie jak należy, ale chciałbym to zmienić ze względu na ilość kodu oraz zmienić warunek. Makro uzupełnia komórki znajdując pierwszą wolną komórkę w kolumnie "C", jest to prosty, skuteczny kod, ale zarazem długi. Jeśli chciałbym to zrobić dla większej...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
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...
Worksheet_Change uruchamia się tylko w przypadku zmiany wartości jakichś komórek i pracuje tylko na tych zmienionych komórkach więc nie ma ryzyka jakiegoś zapętlenia. Co znaczy "po wybraniu w KOLUMNIE którejś z wartości" - makro ma sprawdzać konkretną kolumnę?
Na stronie https://support.microsoft.com/pl-pl/help... masz przykład makra uruchamiającego się po edycji komórki Do tego dodaj tylko sprawdzanie wartości aktualnej komórki oraz zerowanie pozostałych (Cells(ActiveCell.Row, "B").ClearContents, itd.)
Ja sprawdzałem i działa. Musisz wszystkie słowa Target zastąpić ActiveCell Sub data() If IsDate(ActiveCell) Then cel = ActiveCell.Address For i = 2 To Sheets.Count Sheets(i).Range(cel) = DateSerial(Year(ActiveCell), Month(ActiveCell), Sheets(i).Name) Next Else MsgBox "Wartość w komórce...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Dzień dobry, Przypuszczalnie to się da zrobić w Excelu, tylko nie wiadomo, co dokładnie ma być w tych komórkach - jaki numer ma być w komórkach D166 i M166 i jak to ma być powiązane z zakresem E175:E290? Czy komórki D166 i M166 mają zliczać wartości niezerowe w zakresie E175:E290, czy je sumować, czy tylko sprawdzać, czy jest jakaś wartość niezerowa?...
A jak zmienić kod aby do zmiany wartości była uwzględniana tylko kolumna C, ale skrypt był wyzwalany po zmianie w kolumnach B, C, D. Do tych kolumn wklejam jednocześnie dane, po wklejeniu danych do trzech kolumn skrypt nie działa. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem, że chce Pan zmodyfikować skrypt w Google Apps Script tak,...
Wróżąc z fusów wróżę, że ta propozycja nie doprowadzi do postępu. Klawisz Enter nie ma tu znaczenia. Sprawdzałem, że jeśli makro wstawia wartość do komórki zdarzenie Change jest generowane i godzina się pojawia, choć nie jest używany żaden klawisz.
Jak Ci wierszy przybędzie do miliona, to zaczniesz myśleć, dlaczego to tak długo liczy...;) Ale jeżeli już chcesz tak, to nie sprawdzaj w każdym przejściu pętli, czy komórka jest różna od pustej, tylko wylicz wartość końcową pętli na przykład tak: [syntax=vb] For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row Cells(x, 1) = "=IF(RC[1]<>"""",R[-1]C+1,"""")".....
Witam serdecznie, mam mały problem. Chcę aby makro sprawdzało mi wartość pewnego przedziału komórek, następnie gdy wartość , którejś z nich jest "NIE" , żeby w podanym przedziale komórek, wklejało do pierwszej pustej (ważne aby to była pierwsza pusta z podnego przedziału) odpowiedni komentarz. Póki co mój kod wygląda następująco:[syntax=vb]Sub BrakAkceptacji1()...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...
Polecam zaprzyjaźnić się z debuugerem. Pomaga na zgryzoty :D Wstawiasz break ("czerwone kółko") na początku obu funkcji, ale nie przy deklaracji zmiennych (klikając na szarym polu po lewej stronie kodu). Potem robisz jakąś akcję w excelu, np. zmieniasz arkusze, i kiedy program zatrzyma wykonywanie w zaznaczonym miejscu, wciskając F8 przechodzisz kolejne...
Co do błędu 2043 poczytaj [url=http://www.articlesbase.com/data-re... W makrach podesłanych przez kolegę masz sprawdzanie czy data i ilości wprowadzonych cyfr. Makra działają.
Powinno, ale niestety w tym przypadku mi sie to nie sprawdza. Szukam przyczyny i nie mogę tego ogarnąć.
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Dzięki za szybką pomoc- wypróbuję Twoją pierwszą propozycję. Jeżeli chodzi o sprawdzanie w środku makra -to słuszne , ale makro znajduje się w innym skoroszycie.
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
Chcesz odfiltrować komórki zawierające liczby od tych które zawierają tekst? Nie trzeba do tego makra. Dodaj dodatkową kolumnę z =CZY.LICZBA( [tu adres sprawdzanej komórki] ) i filtruj po tej kolumnie
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
Jeśli komórki byłyby wyliczane, to można to zrobić tak, jak zrobiłem w przykładzie wyżej sprawdzając puste komórki. Jeśli są wpisywane, to przepisujesz jakąkolwiek formułę byś w nich umieścił. W tym przypadku kombinowałbym z formatowaniem warunkowym ustawiając w niektórych przypadkach (w tych, w których nie chcesz komórki wyświetlać) białą czcionkę...
Witam, to mój pierwszy post na forum elektroda. Dopiero zaczynam z VBA i mam mały problem. Problem do rozwiązania wygląda tak: Kolumna Wiersza 1 aaa 2 aaa 3 aaa 4 5 bbb 6 bbb 7 bbb 8 9 c n+1 W arkuszu mam taką serię w kolumnie A. Wartość każdej komórki nie ma żadnego znaczenia. Chciałbym aby makro sprawdzało czy komórka jest pusta i jeśli jest pusta...
Cześć, Tworzę w Excelu proste Makro (których znawcą nie jestem). Mam listę zamówień na daną ilość oraz wartość różnych produktów. Lista zawiera przykładowo 155 pozycji, jednak towarów jest tylko 5. Do zsumowania łącznych ilości i wartości zamówień poszczególnych towarów używam sumy częściowej, co widać na poniższym obrazku. http://obrazki.elektroda.pl/7840969700_1...
Potrzebne są dwie zagnieżdżone pętle. Zewnętrza, sprawdzająca wartość komórek w kolumnie 'A' oraz w bloku instrukcji warunkowej wewnętrzna, przeliczająca wartości w komórkach wiersza. Użyj wyszukiwarki, przykładów ci u nas dostatek.
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
Dzień dobry, Obawiam się, że formułami to byłoby trudno osiągnąć. Można próbować za pomocą makr, ale należałoby dokładnie określić co te makra mają robić i w jakim zakresie komórek. Więc jeśli makra wchodzą w grę to trzeba określić: jak będzie określony zakres komórek, w którym makro ma działać. Rozumiem, że byłoby to jedno lub dwa makra - jedno inicjujące,...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
Witam, mam następujące wyzwanie dla ekspertów VBA. Mam kolumnę w której są dane w postaci ciągów znaków - litery oraz cyfry. Chodzi o stworzenie makra które będzie sprawdzało czy dana komórka jest pełna czy pusta. Dla pełnej komórki jej wartość powinna być zapisana następnie powinien być wstawiony separator w postaci [spacja]OR[spacja]. Makro powinno...
Poprawiony kod, zmienne masz opisane, więc pozostaje przypisać do nich odpowiednie wartości (makro nie sprawdza czy arkusze o zadanych nazwach istnieją w skoroszycie): [syntax=vb]Sub kody_RegEXP() Dim sShSrc$ 'nazwa arkusza źródłowego Dim lRowSrc& 'od którego wiersza sprawdzać dane wejściowe Dim sCol$ 'kolumna z danymi wejściowymi Dim sShDest$ 'nazwa...
Kod: Private Sub Worksheet_Change(ByVal Target As Range) Dim CelkaZValid As Range If Target.Cells.Count = 1 Then On Error Resume Next 'sprawdzenie czy komórka zawiera sprawdzanie poprawności Set CelkaZValid = Target.SpecialCells(xlCellTypeSameValida... On Error GoTo 0 If CelkaZValid Is Nothing Then 'nie zawiera ElseIf CelkaZValid.Validation.Value...
(at)PRL Przepraszam za złe wytłumaczenie mojego problemu. Postaram wytłumaczyć jaśniej: 1. W arkuszu "MENU" w komórce F5 makro wstawia na przykład liczbę 1 2.W arkuszu"AAA" i "BBB" muszą zaciągnąć się funkcje 3.Drukowanie arkusza "AAA" do domyślna drukarkę 4. Makro sprawdza czy w arkuszu "MENU" w komórce G13-jest rożna od pustej: 4.1 jeżeli komórka...
Private Sub Worksheet_Calculate() Sprawdz = Range("F11").Value Select Case Sprawdz Case 1 Call sortuj_malejąco Case 0 Call sortuj_rosnąco End Select End Sub Powyższa formuła działa tylko dla aktywnego arkusza tzn nie można sprawdzać wartości komórek w innym arkuszu. W arkuszu może być tylko jena taka formuła.
Dzień dobry, A co w tym kodzie oznacza "ark"? Czy nie jest to arkusz aktywny (ActiveSheet)? Poza tym czy 6 to stała? Jeśli tak, to po co tak komplikować ten adres, wystarczy [syntax=vbscript]ark.Range("E6:F" & dstW)[/syntax]Poza tym, jak często zmienia się wartość "dstW"? W sumie można makrem uruchomić też sprawdzanie poprawności danych, tylko tę procedurę...
Witam, potrzebuję makro, które sprawdzałoby komórkę, w której jest wpisana data i kopiowała inną w tym samym wierszu, w której znajduje się jakaś wartość. Chodzi o to, żeby użytkownik zaznaczył/wpisał datę, albo zakres od jakiegoś dnia do innego - wtedy makro sprawdzałoby czy w kolumnie B znajdują się takie daty, jeśli tak, to wartość z kolumny G w...
Witam ponownie mam jeszcze jedną prośbę jak zrobić takie makro, postaram się wytłumaczyć. Ogólnie mówiąc chciałbym żeby na początku makro sprawdzało czy w arkuszu 1 w komórce C2 znajduje się wartość jeżeli tak to tworzy nowy arkusz z tą nazwą i kopiuje zawartość z Arkusza 2 od A1:H7. Następnie skopiowane wartości porównuje - Arkusz 1 wartości od A3...
Nie wiem jak zmieniasz miesiąc i gdzie jest on podany. Musisz wykryć zmianę miesiąca, po zmianie miesiąca wywołujesz makro które ustawia im kolor kolor biały, potem w drugim kroku ponownie sprawdzasz wartości w komórkach w kol. M, jeżeli jakaś ma N to kolorujesz cały wiersz. Drugi krok wykonujesz w pętli. To chyba będzie najprostsza i najszybsza metoda.
czy jest możliwość zrobienia makra Jest ... jeśli masz jakieś pojęcie o pisaniu kodu, to możesz wykorzystać do tego np. : 1. Właściwość 'HasFormula' (zamiennie metodę 'SpecialCells') 2. Właściwość 'Formula' 3. Którąś z funkcji wydzielania tekstu, np. 'Left' 4. Pętlę sprawdzającą zawartość danej komórki w interesującym cię zakresie Jeśli nie masz pojęcia...
Tak. W procedurze zdarzeniowej worksheet_change, w pętli For Each porównuj komórki zakresu wyłączając Target z wartością Target... Funkcją Replace "podstaw" pusty znak pod wszystkie cyfry i znak minusa.
Cześć! Drodzy forumowicze! Mam przed sobą następujące zadanie. Piszę makro które ma za zdanie wysłać maila na wskazany adres pobierając dane (jako treśc maila ) z komórki A1 oraz A2 ale ma wysłać taką wiadomość dopiero kiedy w tym wierszu w którejkolwiek z kolejnych komórek A3-A10 pojawi się umowiony symbol np: 1. Makro powinno działać dla wszystkich...
dzięki działa. To może jeszcze pomarudzę. Właśnie zmieniły się zasady wyskakiwania komunikatu - szefostwo buuu Makro ma sprawdzać zakres komórek, przyjmijmy że od a1 do a5 a okienko ma reagować na każdą wybraną z listy pozycję. przepraszam.
Witam, poszukuję makra, które uruchamiało by się automatycznie po wykryciu zmiany wartości w kolumnie "Data" w arkuszach 1,2. Miało by ono działać następująco: gdy w kolumnie "Data" zostaje wprowadzona zmiana, makro sprawdza nazwę z kolumny A oraz zapamiętuje starą wartość komórki "Data", przechodzi do arkusza 3 i wyszukuje w kolumnie A nazwę z arkusza...
Powracam do tematu, Czy mógłby ktoś wyedytować makro, które napisał PRL w ten sposób, aby można je było odpalić "ręcznie" przypisując je do np. jakiegoś autokształtu ? Makro miałoby działać identycznie jak to napisane przez PRL z różnicą taką, że uaktywnia się po wciśnięciu przycisku i makro sprawdza całą kolumnę G i z automatu kopiuje i wstawia poniżej...
Cześć, pracuję nad plikiem Excel, w którym potrzebuję połączyć teksty. Próbowałam rozwiązać to za pomocą dwóch warunków JEŻELI. Pierwszy warunek JEŻELI (AD4""; AD3&": "&...) sprawdza, czy komórka AD4 nie jest pusta. Jeśli nie jest pusta, to łączy zawartość komórki AD3, dwukropek i spację. Drugi warunek JEŻELI (AD4""; AD4&", "; "") sprawdza, czy komórka...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
Najpierw napisałeś po wpisaniu numeru tygodnia , później Numer tygodnia będzie kopiowany z innego arkusza , więc zrozumiałem, że będzie następować zmiana w komórce A3, dlatego zaproponowałem użycie zdarzenia Change do wywołania makra. Teraz okazuje się, że w A3 jest formuła, więc zdarzenie Change w tej komórce nie występuje. Trzeba podawać precyzyjne...
Witajcie, Potrzebuję pomocy z makrem. office 2010 Chciałbym,żeby automatycznie drukowało mi arkusze, ale jeżeli wartość w komórce j1 jest większa od zera.(w tej komórce przesyła mi dane z zamówienia) Wiem, że to proste, ale okazałem się być zbyt ułomny. Czyli powinno sprawdzać po kolei arkusze i jeżeli J1>0 , powinno drukować obszar wydruku. Ktoś pomoże?...
Prosiłem o plik Excela, a nie o obrazek. Pytałem, jak to ma działać? Czy to makro ma reagować każdorazowo jak zmieni się kolor (rozumiem, że sprawdzana ma być kolumna C), czy ma być wywoływane okresowo (np. przyciskiem) i ma sprawdzać całą kolumnę pod kątem pokolorowanych duplikatów? Czy może wystąpić taka sytuacja, że jakiś wpis ma już kolor i ten...
Proszę o pomoc!! Czy jest możliwość napisania makra, które pobiera dane z komórki Excela wkleja wartość na stronie internetowej kopiuje wynik i wkleja do sąsiedniej komórki w excelu. np.: pobiera kwotę w złotówkach sprawdza na stronie kurs i wkleja np. w dolarach ... wiem że można wpisać po prostu kurs walut ale to jest przykład bo takich wartości mam...
Zapis:[syntax=vb]Private Sub Worksheet_Change(ByVal Target.Address(0,0)="A1" As Range)[/syntax] jest oczywiście błędem (jest zresztą w edytorze VB wyświetlany czerwoną czcionką). Target jest zadeklarowana jako zmienna typu Range, i jest odwołaniem do aktualnie zmienianej komórki. W deklaracji zmiennej nie ma miejsca na przypisywanie jej wartości. Właściwie...
Bez przykładowego pliku traci się zbyt dużo czasu na domysły. Ty piszesz, że coś się sprawdza lub nie, a ja mam się domyślać na czym polega problem. Jak już pisałem, zapis: [syntax=vbnet]Range("H32").Formula = Application.WorksheetFunction.VLookup(..... wartość, chociaż użyto właściwości Formula. Natomiast zapis: [syntax=vbnet]ActiveCell.Formula...
A nie prościej zrobić formatowanie warunkowe. Wówczas mamy sprawdzanie przez excela wartości i makro nie obciąża go dodatkowo...Piszę już jakiś czas makra i np jak robi się kopię dużych arkuszy, to makro jest zbyt wolne - lepiej zamiast przenoszenia Rows(A) użyć zaznaczenia i polecenia kopiuj excela wpisując formuły poprzez makro niż kopiować fizyczną...
Witam, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
może jakaś formuła? Wszystkie funkcje Excela "nie widzą" ukrycia zakresów. Pisał już o tym mo99 . Natomiast makra nie mają tej "wady". Jeśli nie możesz użyć makr, to wydziel sobie dwanaście komórek i zbuduj formułę, która będzie sumować, sprawdzając najpierw ich wartości. =JEŻELI(AA1<>"";SUMA...
Witam, mam następujący problem. Z VBA jestem że tak powiem początkującym. Mam w arkuszu w którym zależałoby mi żeby zrobić formatowanie warunkowe. Jak już wiadomo excel 2003 ogranicza to do 3 warunków. A potrzeba ich zrobić dużo więcej. Mianowicie chciałbym żeby po sprawdzeniu komórki i sprawdzeniu jej wartości i powiedzmy jeżeli w danej komórce będzie...
Wkradł się mały błąd. Sumujesz komórki z zakresu A:AD i sprawdzasz, czy wynik = 0. Jak będą 2 komórki '-1' i '1', to też wiersz zostanie ukryty, a tak nie powinno być. Proponuję zliczyć wszystkie komórki zawierające zero w tym zakresie: [syntax=vb]Sub Ukryj_Zerowe() For x = 2 To Cells(Rows.Count, 4).End(xlUp).Row If Application.CountIf(Cells(x, 4).Resize(1,...
Witam, potrzebuje pomoc z makrem wyszukaj pionowo w VBA. Sprawdzałem wiele makr i próbowałem je przerobić ale bez skutku, więc opisze problem tutaj, a więc: mam dane w kolumnie C, są to loginy, w kolumnie D są liczby, kolumnie M i N czyli analogicznie są loginy i liczby. Chcę zrobić takie makro, które sprawdzi czy loginy z kolumny M znajdują się w kolumnie...
Prot , mógłbyś wyjaśnić jak miałoby działać to makro, które przywołałeś? Wg mnie ten warunek sprawdzany w jego treści będzie spełniony zawsze gdy tylko będzie przeliczany arkusz, niezależnie w której komórce zajdzie zmiana. Ja proponowałbym raczej coś takiego: Private Sub Worksheet_Calculate() Static list Dim Xrg As Range Set Xrg = Range("C3:C6")...
ten plik Excela podpięty jest do innego programu, który wrzuca w komórki H5:H30 i F5:F30 wartości liczbowe (co 0,2 sekundy). Tak więc w naszym arkuszu musimy sobie "wyobrazić" (monitorować), że w kolumnach H i F pojawią się wartości liczbowe i jeśli spełnią warunek to pojawią się w kolumnie AR i AQ. Nie rozumiem, czego nie rozumiesz ;) Zamiast kwerendy...
1. Sprawdzanie poprawności danych działa, gdy zmienić wartość w komórce. to komórka w kolumnie H nie może być pusta Z drugiej strony, jak Excel powinien wiedzieć, że nie zamierza wprowadzić dane w wierszu? W tym przypadku należy użyć metody sugerowane PRL 2. Może makro, które nie pozwalają aktywować komórki z formułami
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
To może zamiast pętelkować sprawdzając każdą komórkę z zakresu czy jej wartość jest w tablicy lokalizacji i ewentualnie usuwać dany wiersz, zrobić coś innego. Wyfiltrować z bazy do nowego arkusza wiersze nie zawierające tych lokalizacji czy to przy pomocy filtra zaawansowanego czy przez MSQuery albo ADO.
Dzień dobry, Potrzebuję pomocy z Makro, które będzie mi sprawdzało czy w jakimkolwiek pliku .xls w katalogu np. "D:\testy" znajduje się wartość taka sama jak w głównym pliku. W załączniku umieszczam przykładową strukturę plików Głównym plikiem w którym makro chciałbym aby działało jest plik "raport.xls", który powinien sprawdzić we wszystkich plikach...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
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ć...
Witajcie. Chciałbym troszkę liznąć excela od strony pisania makr. Na początku chciałbym sprawdzić ile linii mam wpisanych w danym skoroszycie. Napisałem taki kod: [syntax=vbscript] Sub Przelicz() Dim Ilosc As Integer Dim n As Integer Ilosc = 0 n = 4 Do Until Worksheets("Arkusz Testowy").Cells(B, n) = "" Ilosc = Ilosc + 1 n = n + 1 Loop Worksheets("Arkusz...
czy jest szansa do zrobić w prosty sposób ? Moim zdaniem zbliżony efekt możesz uzyskać poprzez ujęcie całego zakresu np. I3:K30 niestandardowym trybem sprawdzania poprawności danych poprzez formułę =JEŻELI($H3="Oczekuje na serwisanta";"") :idea: :D Uzyskasz wtedy (dla opcji "odrzucania danych" :!: ) w przypadku próby wpisywania czegokolwiek w ustawionym...
Wszystko ok tylko potrzebuję jeszcze taki moduł gdzie będzie kopiowało tylko wartości komórek a nie formuły i przy wkopiowaniu w oddzielny arkusz będzie sprawdzać który wiersz jest pierwszy wolny i zapisywać pod pierwszym wolnym. Dodano po 3 Mam takie makro to prawie wykonuje to co bym chciał ale kopiuje całe formuły a nie same wartości komórek, jak...
Ale jaki są twoje potrzeby? Piszesz co ma robić makro, ale ten zamieszczony kawałek tego nie robi. Nie kopiuje kolumny E, sprawdza wartość ">)", a nie zero. Jeżeli chcesz pomocy w napisaniu makra to trzeba wyjść od wymagań, jeżeli chodzi o poprawienie, to nie bardzo wiadomo jak to poprawić. Osobiście lubię kopiowanie poprzez: Sheets("działki").Cells(j,...
Do autora: Jak zauważyłeś twoja funkcja działa - więc już połowa sukcesu. (na marginesie zmienna "dzień" to nie to samo co zmienna "dzien"więc akurat ten kod który przedstawiłeś nie powinien działać ale ...) Przechodzimy do koncepcji i twojej procedury głównej. Bardzo dobrze pomyślałeś (dobra w tym przypadku koncepcja) że "biorę po kolei dni tygodnia...
Teoretycznie mogę to zrobić przez formatowanie warunkowe ale jak pisałem wcześniej jest to tylko część bardziej złożonego makra. Makro to jest podpięte do formularza pod kontrolkę CheckBox, więc chwilowo formatowanie warunkowe odpada Dodano po 53 spróbuj tak (piszę bez sprawdzania - ale powinno działać) zmień linię kodu "With ..." na: Kod Visual Basic...
edytowania sumy, w taki sposób, aby automatycznie i proporcjonalnie zmieniały się też składniki sumowania Musisz przemyśleć założenia i określić ograniczenia, które możesz napotkać, np.: Założenia: 1. Określony, być może stały, zakres komórek w kolumnie ze składnikami do sumowania (argumenty) 2. Wyliczenie współczynnika proporcjonalności danej składowej...
Witam, Mam jeszcze jeden dość złożony temat do bardziej zaawansowanych użytkowników. Mam w arkuszu makro, które po dwukrotnym kliknieciu w kolumnie C, wstawia w niej wartość, "zaktualizowane". W jaki sposób zmodyfikować kod, aby dla klikniętego wiersza sprawdzało czy dodana jest jakaś wartość w kolumnie E (jeśli dwukrotnie kliknę A9 to ma sprawdzić...
Witam, Mam następujący problem. Mam arkusz o zmiennej ilości wierszy. Wypełnione kolumny zawsze od A do J. W kolumnie A występują kody, kody mogą się powtarzać- dla ułatwienia jeśli się powtarzają są jedne pod drugim ale nie ma stałej określonej liczby powtórzeń. Chodzi mi o to by makro sprawdzało kod w kolumnie A - unikat kopiujemy do Arkusza 2 z wartościami...
Makro jest proste i nie wymaga wiele pracy. W pierwszej kolejności sprawdzasz długość tabeli. Następnie w pętli powtarzanej tyle razy ile wynosi długość z pierwszej komórki pobierasz do zmiennej wartość do wyszukania w drugiej tabeli i kopiujesz resztę potrzebnych danych. Przechodzisz do tabeli z wynikiem, wyszukujesz wartość ze zmiennej w pierwszej...
If haslo = "1234" Then 'sprawdza poprawność hasła Tutaj 'haslo' jest zmienna, ma wartosc "1234", Worksheets("arkusz1").Protect "haslo", userinterfaceonly:=True 'odblokowuje ochrone arkusza tu haslo naprosto ma wartosc "haslo" To moje niedopatrzenie, na potrzeby publikacji kodu na forum ciąg znaków będącym hasłem zmieniłem z właściwego na "hasło". Zmienna...
Witam. Niestety nie znam jeszcze VBA więc proszę o pomoc w napisaniu dość prostego makro. Mam dwie kolumny Q i R. W kol. Q jest lista rozwijana z możliwością wyboru TAK lub NIE, a w kol. R jest kolumna w której wpisywana jest data. Dodatkowo w kol. R wpisana jest formuła do sprawdzania poprawności danych: =ORAZ($Q4="TAK";$R4>=$K4;$R4<=DATA...
Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 W VBA możesz użyć czegoś takiego: Do moderacji: Wiem, że odświeżam temat, ale może ta krótka instrukcja się komuś przyda, bo autor pewnie już sobie poradził. Usuwajcie jeśli uznacie...
Czyli muszę uzyskać wpis z formuły, z listy lub z palca. W takim razie chyba faktycznie pozostaje makro. To na szczęście jest w miarę proste - obsługa zdarzenia Change arkusza Opis i wyszukanie wartości w arkuszu źródłowym plus sprawdzanie, czy przedtem użytkownik nie wprowadził czegoś do komórki z palca lub z listy: [syntax=vb]Private Sub Worksheet_Change(ByVal...
przywraca wartość komórki zmienia wartość komórki wartość komórki pomiędzy
renault naprawiać prosty regulator prądu ładowania prasa elektryczny
telewizor sharp telewizor sharp
Manta 50 26 wyłącza się po 10 sekundach - przyczyny Sherman 250 – schemat elektryczny, MIG250-J04, inwerter, serwis, naprawa
