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()...
Moja nieudolna próba podejścia do takiego zadania w załączniku (będzie to Makro1 w module2). Regulując parametr DOKL regulujemy precyzję. W makrze tym brakuje jakiejkolwiek inteligencji, więc działa bardzo wolno. Sprawdza wszystkie wartości od 0 do 180 podstawiając je do O/P i w konsekwencji po 180*180 iteracjach (dla DOKL=1.0) albo 1800*1800 (dla DOKL=0.1)...
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. Następnie chciałbym zsumować:...
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...
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, 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;...
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...
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...
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...
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....
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...
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")...
Inaczej chodzi o to że w tym arkuszu znajdzie się przykładowo 20 wierszy( z różnymi zleceniami ) cztery kolumny będą mieć nazwy : 1. zlecenie (nazwa) ,2. zadane godziny, 3. wykonane godziny i 4. różnica godzin( między zadanymi a wykonanymi), i teraz gdy gdy 5 z nich przeniesiemy do skoroszytu archiwum za pomocą makra to te wiersze muszą zostać wyczyszczone...
(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...
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...
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...
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...
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...
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, 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...
Witam, Opracowywuje pewne makro które przyda mi się w pracy. Od razu zaznaczam że jestem raczej kiepski w te klocki. Chodzi o listę numerów telefonów, którą importujemy przez jako plik CSV do kontaktów google i te dalej są synchronizowane do naszych telefonów służbowych. Lista jest bardzo długa, a numery często się zmieniają. Zrobiłem makro, które plik...
zapisz makro jak formatujesz komorke, potem tylko wystarczy odpalic to makro po wybraniu konkretnej wartosci z listy.
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...
To makro z założenia szuka w zdefiniowanym obszarze pierwszej komórki, której ciąg znaków odpowiada wzorcowi. Np komórka wzorcowa to "olej". Makro skacze do kolumny B i po kolei sprawdza komórki w dół tak jak chciałeś. Jak napotka komórkę z ciągiem olej zapamiętuje w zmiennej "y" wartość np 324 i tą wartość wpisuje pięć komórek w prawo obok komórki...
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.
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.
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...
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...
Myslim ze Darek chcial to: Tak dokładnie o takie rozwiązanie chodziło teraz w momencie gdy w komórce L4 pojawi się kod błędu #N/D! lub #ADR! który wynikł ze złego podania danych w komórkach które odpowiadają za wyliczenie "naukowo-matematyczno-astronomiczne" :D dostajemy komunikat z MsgBox("ZLE WPISANY KOD", 5 + 16, "BLAD DANYCH") Dzięki wielkie za...
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ą...
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
(Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię dzisiaj prosty sposób na organizację naszego zbioru części...
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...
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...
Musiałoby być cos takiego, sprawdź Sub CopyCount() Const wrt01 As Single = 72 Const wrt02 As Single = 15 Const wrt03 As Single = 13 Dim i As Integer, licznik As Integer, ark As String ark = "Arkusz2" ' nazwa arkusza docelowego licznik = 2 'pierwszy wiersz ark docelowego Sheets(ark).Range("A2... & Range("A2").End(xl...
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, więc mam taki problem. Mam kilka arkuszy restauracyjnych w Excelu podobnych do tego: Teraz wprowadzam ilość porcji... Excel przelicza mi wartość itd...ale, jak mówiłem jest kilka arkuszy działających tak samo (Napoje, dodatki , desery), no i ostatni podsumowanie. No i właśnie w tym ostatnim chciałbym aby Excel po włączeniu makra albo jakimś innym...
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...
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...
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?...
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, 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) <>...
Jak już odpowiadałem Ci na PW Gdybyś poczytał dokładnie wszystkie wpisy z Twojego wątku (również z tego podlinkowanego) to miałbyś sporą kopalnię wiedzy nt "zliczania kolorów" :please: Na początek zatem trzeba ustalić, że: - metody liczenia kolorów tła komórki dotyczą jedynie formatowania ręcznego lub formatowania przez makro - nie dotyczą w ogóle formatowania...
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),...
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ę? Rozumiem. Tak w kolumnie są do wyboru 3 opcje tekstowe. Chciałbym aby makro sprawdzało konkretna...
#N/D! w Twoim arkuszu prawdopodobnie nie jest stałą tekstową, lecz wynikiem formuły. Metoda Replace, którą chciałeś zastosować odnosi się do stałych i do fragmentów formuł (ale tak jak zostały zapisane w komórce, a nie do ich wyników). W tym przypadku sugerowałbym użycie np. kodu: [syntax=vbscript]Dim r As Range For Each r In Range("G2:G10") If IsError(r)...
Cześć, Makro jest OK właśnie sprawdzam jego działanie ale nie jest to dokładnie to co potrzebuje bo zwraca całość, z stworzonych danych, a u mnie ma dopasować te dane . Myślałem nad czymś takim : Dodano po 1 Cześć, Chyba to mam, ale może jakaś optymalizacja kodu ? lub lepsze rozwiązanie tego problemu ? [syntax=vbscript]Sub Dopasuj_do_zawartosci() Columns("B").Select...
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 Mam kolumnę gdzie są 2 wartości tak nie . I teraz jeśli komórce jest słowo Nie to chce by migała. Migotanie tła realizuję przez VB : Private zmiana As Boolean Sub migajaca() Dim zakres As Range Set zakres = Range("A1") If zmiana Then zakres.Interior.ColorIndex = xlNone zakres.Font.Color = vbBlack Else zakres.Interior.Color...
Wydaje się, że makro jest dosyć proste ale samo się nie napisze. ... żeby makro zliczało wszystkie powtarzające się wartości ... Do tego wystarczy licz.jeżeli() ... ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik... Tu też można "obejść" dodając kolejne "dane" w kolejnych kolumnach a nie w wierszach....
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...
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...
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...
Najlepiej by było gdybyś w załączniku podpiął twój przykładowy arkusz. Wtedy łatwiej będzie znaleźć ten błąd. I jeszcze jedno - na chwilę obecną to makro sprawdza wszystkie kolory z palety więc nie trzeba nic definiować. Wklej ten kod między Private Sub ...() a End Sub Dim kom As Range, i As Integer Application.ScreenUpdating = False Range("AB5:AC60")....
Hej, nigdy nie miałam styczności z VBA, potrzebuję jednak napisać makro. Chodzi mi o makro, które będzie sprawdzało 5 komórek z Arkusza1 i Ma ono sprawdzić tylko i wyłącznie czy którakolwiek z nich jest mniejsza od 0, a jeśli chcoiaż jedna <0 wyświetlić komunikat (msgBox), że tak nie może być. Makro ma się też uruchamiać od razu, gdy zmienia się...
Na stronie 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.)
Tu masz proste makro: (sprawdza kolumny dopóki jest wartość w kolumnie C zaczynając od 7 wiersza Sub filtr() a = Range("C3") b = Range("C4") i = 7 Do While Cells(i, 3) <> "" If (Cells(i, 3) >= a) And (Cells(i, 3) <= b) Then Rows(i).EntireRow.Hidden...
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,...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
Witam, Mam taki kod jak poniżej, ale mi nie działa - proszę o podpowiedź co spaprałem ;) Ogólnie ma przemielić wartości w tabeli i wypluć kolejną tabelę z wynikami. Sytuacja wygląda następująco: 1. mamy dwa arkusze: Raport i Wynik 2. w arkuszu Raport mamy nieznaną liczbę kolumn, z tym, że jest ich 1 +3*n nie wiemy też ile będzie wierszy 3. Kolumna pierwsza...
Myślę, że może, ale na sprawdzanie który ma zmieniony lub zostały dodane będą iść nawet więcej czasu. Obecnie makro po prostu usuwa stare dane i pisze nowe z pliku użytkownika Dodano po 1 opcja, gdy zamiast wszystkich formuł w pliku ogólnem kopiowane tylko wartośći. To jest około 4 razy szybciej przed należy użyć poprzedni makra dla kopiowania wszystkego...
Witam. Zachwyciłem się programowaniem VBA i ulepszam swój arkusz kalkulacyjny. Bardzo przydała by mi się funkcja prezentowana w tym filmiku: Posty scaliłem, zamykam temat. RADU23
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ę...
Przepraszam że się wtrącam (wyjdzie że się czepiam) ale dla ścisłości by autor się nie pomylił lub źle nie zrozumiał. wstawić pusty wiersz między nie (w ten sposób kolumna B przejdzie do C). Tu chodzi o wstawienie kolumny nie wiersza, reszta jest jak najbardzie trafna. (tylko że z założeniem że w pierwszej kolumnie są liczby porządkowe - bo to się trochę...
Owszem, jestem tego samego zdania, jednakże wolę zrozumieć kod pisząc go, a nie dostawać wszysko gotowe, stąd moje stopniowe rozwiązywanie problemu. Jeśli jednak plik jest niezbędny, utworzę taki (w tej chwili pracuję na danych, których nie mogę udostepnić). Powracając do tematu, jak wspomniałem wcześniej, wybrałem zapis "AcitiveCell.Value = " zamiast...
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,...
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...
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...
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...
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...
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...
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...
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?...
Ta funkcja ma wyliczyć średnią sprzedaży z 28 ostatnich sprzedażowych, która bierze pod uwagę tylko dni, w których towar był na magazynie. Czyli ma sprawdzać jaki był stan na magazynie (parzysty numer kolumny z zakresu - w nich będzie występował stan magazynu), jeśli stan jest różny od 0 ma pobrać wartość sprzedaży do tablicy (wartość sprzedaży jest...
I teraz zupełnie nie wiem co mam zrobić z makrem które zrobiłeś, za duże uproszczenie. Przepraszam.. Mam je trochę skomplikować?? ;) Wydaje mi się że tutaj powinnam wstawić fragmenty odpowiedzialne za kopiowanie: Napisałaś, że warunkiem kopiowania jest: Kopiuje wartości które spełnią warunek taki że kolumna "B" zawiera "tak" do ostatniego pełnego wiersza...
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...
Zatem sprawa jest całkiem prosta: w inputbox niech użytkownik wpisuje nie zakres adresów, a numer wiersza OD i DO, a po pobraniu tych wartości zmień zakres danych wykresu (tu z dodatkowym sprawdzaniem, czy w obu oknach podano liczby): If (IsNumeric(KomorkaPoczatkowa)... And (IsNumeric(KomorkaKoncowa)... Then Wykres2.SetSourceData...
Jeszcze mam jedno pytanie, ta sama funkcja transponuj. Jeżeli w kolumnie A mam liczby, są to różne liczby są też puste komórki i obok każdej liczby w kolumnie B jest przypisana wartość, chciałbym żeby sprawdzał liczbę w kolumnie A np. 2,5,7,1 i kopiował lub przenosił wartość z Kolumny B odpowiednio do kolumn C1 D1 E1 F1 następny wiersz C2 D2 E2 F2 itd....
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...
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...
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...
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. 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...
Witam Forum Panowie potrzebuje małej pomocy w VBA. Proszę o poradę potrzebuję kod aby aby sprawdzało ze w A1 =jeśli jakąś wartość, B1= jeśli jakąś wartość, C1 =jeśli jakąś wartość to D1 do D4 To kopiuje dane A1, B1, C1 oraz D1:D4 do nowego arkusza i tak w petli. Ma kopiować jeśli znajdzie dane w każdej z komórek a1,b,1,c1 oraz D1:D4, jeśli któraś z...
Chcę aby w arkuszu produkcja kolumna N , wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. No a jak "kolumna N" nie zna dobrze VBA :?: :D To jeśli W Excelu porusza(m) się biegle szuka(m) innych możliwych rozwiązań dla uzyskania pożądanego rezultatu. Przykładowo w Excelu 2007: 1. Porządkuje skoroszyt Produkcja.xls :sprawdzam...
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
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...
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...
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...
Do While Worksheets(1).Cells(Wiersz, kolumna).Value <> "" 'Tu rób co do ciebie należy lub nie rób nic Wiersz = Wiersz + 1 Loop W zmiennej "Wiersz" będziesz ostatnią sprawdzaną pustą komórkę. Zmienna "kolumna" <- tu podaj którą kolumnę będziesz sprawdzał To rozwiązanie mimo że zadziała, nie jest dobrym sposobem z dwóch powodów: 1. jest czasochłonne...
Jak macie zainstalowany MS konwerter z 2007 do 2003 to widać makro. ... Dla niego OstW to wiersz 30 ponieważ jest pusty. ... U mnie pokazuje (pomimo pustych) powyżej 7690 Na razie rozgryzam funkcję a możesz w dwóch zdaniach opisać funkcję Unik.Add? A "błąd" jest w tym że cały komunikat ma łącznie 224145 znaki i w oknie fizycznie nie pokazuje ci wszystkiego....
Garść informacji uzyskasz w okienku "Szacuj Formułę". W innym przypadku rozwiązanie widzę jedynie w stworzeniu nowego narzędzia. Można pobrać formułę z komórki, Np[syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox Target.Formula End Sub[/syntax](makro w kodzie arkusza, uruchamiane przez...
w bazie jest ponad 22tyś. Łącznie definicji jest ok 150, czyli takich wierszy składających sie np. na klasę A1, samych klas ostatecznie jest ok 30 ( czyli uogólniając po 5 wierszy na klasę) To przypisywanie do klasy to czynność jednorazowa? Jeśli tak, to optymalizacja kodu nie jest aż taka istotna. Jeśli nie, to może pogrupować te klasy na grupy, które...
Dzień dobry, Tak to jest jak się nie pisze dokładnie o co chodzi. Trzeba było napisać od razu, że chodzi o kopiowanie, a nie wpisywanie lub że o jedno lub drugie. Proszę wypróbować takie makro, reagujące na wprowadzanie danych w dowolny sposób (zdarzenie Change). Ma działać w kolumnach H, J i K (osobno). Można wprowadzać jedną komórkę na raz. Tym razem...
Zamknij wcześniejszą twoją pętlę w jeszcze jednej pętli warunkowej While ... Wend Dodaj jej warunek sprawdzający każda komórkę z pierwszego wiersza czy nie zawiera "cena" oraz ogranicz do ilości kolumn (np. poprzez przekroczenie wartości zmiennej odpowiedzialnej za kolejne podstawianie nr kolumny) Poradzisz sobie?
Skoro prościej nie można tak to zrobiłem ... ... Porównałem zawartość dwóch kolumn, w trzeciej kolumnie pojawia się napis np. USUN jeżeli komórka się powtarza ... :D ... jedni wolą funkcje, inni makra, a jeszcze inni 'wewnętrzne machanizmy excel'a" ... :D ... wszystko jest dobre i "proste", jak się sprawdza w rozwiązaniu naszego problemu. Faktem jest...
Sorry, Chodzi o to aby makro: zaznaczyło zakres C5:F50
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...
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.
Działa prawie idealnie! ale kiedy się wspisuje po kolei noc, rano, południe, wieczór, a jak wybiórczo, to już nie. Ale i tak już jesteśmy do przodu hihi Dziekuje serdecznie i miłego dnia :bye: 'Łąńżurz' ... :D ... odpowiaduje tak ... :D .... cyt.: "a może by ten kod w ogóle skrócić odrobinę, np.:" - wersja nr 1 z nadpisywaniem: [syntax=vba] Sub log_02()...