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),...
[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]
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...
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...
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...
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...
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.
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...
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...
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, 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...
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...
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.
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()...
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?...
I jeszcze drobna poprawka dla E2007 na początku makra, aby sprawdzać wszystkie kolory z palety Range("AB5:AC60").... For i = 1 To 56
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
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ą.
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.)
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
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...
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...
Powinno, ale niestety w tym przypadku mi sie to nie sprawdza. Szukam przyczyny i nie mogę tego ogarnąć.
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ę?
Witam. Mam pytanie i prośbę. Stworzyłem kod vba, którego działanie powoduje oczekiwany efekt. Makro sprawdza, czy w zakresie od c15:p15 występują wartości 135 lub 165, oraz w komórce a15 tekst "waluta 150 i 180". Jeśli w a15 tekst jest inny niż "waluta 150 i 180", wtedy makro przestaje działać. Jak widać, jest to napisane baaardzo topornie. Czy mógłbym...
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;...
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.
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...
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...
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.
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
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...
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...
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...
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.
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,...
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...
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...
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.
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.
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, 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...
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...
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...
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...
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...
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) <>...
Witam, Staram się napisać makro, które na podstawie wartości komórki w danym zakresie w arkuszu, zmieni jego kolor (jeżeli znajdzie daną wartość - tekst, w tym zakresie). Sprawdzanie i ewentualna zmiana koloru ma odbywać się we wszystkich arkuszach z wyjątkiem dwóch. Poniżej przedstawiam kod, który udało mi się napisać, jednak nie działa on gdyż ciągle...
Nie mogę jeszcze porównać szybkości, ale wcześniejsze makro które działało na podobnej zasadzie z tym, że wplecione w nim było bardzo dużo działań na arkuszach, w sensie kopiowania wartości komórek z jednego arkusza, wklejanie do innego, sprawdzanie czy pasuje i tak w koło, co podobno brało bardzo dużo mocy obliczeniowej, było w stanie przerobić około...
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...
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...
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...
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...
wartość komórki pomiędzy zmienia wartość komórki excel wartość komórki
wharfedale peavey blokada drzwi pralka mastercook pilot uniwersalny silvercrest
majesty czujnik obniżenie napięcia rezystorem
Schemat połączenia świec zapłonowych Audi 80 B3 1.8S 1989 Lampa ostrzegawcza Hörmann SupraMatic E4 - instalacja i konfiguracja