Czyli nie możesz porównywać dat? A co dokładnie masz w pliku, jak są zapisane te daty? Jeżeli masz w formacie daty to do porównania też musisz mieć datę, jak string to string. Sprawa prezentacji dat w Excelu jest tu drugoplanowa. Chyba nie załączyłeś przykładowego pliku.
ja bym zrobił tak, ze zrobiłbym rzeczywiście pomocnicza kolumnę C, gdzie łączyły by się zawartości obu kolumn np =A2&B2. Wtedy wkepujemy funkcję wyszukaj pionowo w kolumnie D gdzie będziemy wyszukować wartości z kolumny C ( z arkusza docelowego) i porównywać je z tabelą z arkusza roboczego odnoszącej się do kolumny nr 3 (jeżeli zaznaczasz jako tabelę...
A co w ogóle chcesz osiągnąc? Nie rozumiem, co ten program ma robić... Tak na drugi rzut oka: - czemu Suma jest typu Variant? Nie jest to błąd, ale po co aż taki typ? - "For Each kom In Zakres" - po czym chcesz przemiatać "Zakres"? Po kolumnach? Komórkach? Jeśli po komórkach to powinno być Zakres.Cells - "kom <> 0" i podobne - nie możesz porównywać...
No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: https://obrazki.elektroda.pl/1929850600_... Tak się jeszcze zastanawiam. Zamiast porównywać...
I jeszcze jedno – dlaczego w makro – kolory nie zaznacza wszystkich takich samych komórek tylko niektóre Dlaczego uważasz że nie zaznacza takich samych? Podaj przykład na twoich danych. Tylko że miej na uwadze że dla funkcji CountIf() każdy znak ma znaczenie. Nie tylko wielkość litery ale i ... a nawet zwłaszcza spacja. Jest różnica między...
Jeśli będziesz miała otwarte oba pliki (tylko :!: ) to w świeżym pliku możesz wykorzystać makro typu :spoko: : [syntax=vbscript]Option Explicit Sub duplikatclear() Dim ws As Worksheet Dim ww As Worksheet Dim i, lrs, lrw As Integer Dim db As Range Set ws = ThisWorkbook.Sheets(1) Set ww = Workbooks(2).Sheets(1) lrs = ws.Cells(Rows.Count, 6).End(xlUp).Row...
Sprobuj na początku makra Application.ScreenUpdating = False na koniec Application.ScreenUpdating = True Ale to jest OK, ponieważ w tabeli 1 indeksy zapewniają wszędzie, musimy przejść przez całą listę dla każdego indeksu tabel 2. w tabeli 1 w kolumnie B poszukiwana wartość może być ukryta w tekście Jeśli nie to, można spróbować innej metody. Dodano...
Witam, moim zadaniem jest napisanie makra, które będzie porównywać dwie kolumny. Jeżeli dana wartość występuje w pierwszej kolumnie oraz w drugiej, to komórka, w której ta wartość występuje, zostanie oznaczona kolorem żółtym. Niestety moje makro działa w ten sposób, że przykładowo: w kolumnie A wartość "2910624111005 5000" występuje 1 raz, a w kolumnie...
[syntax=vbnet]Sub Bazy() On Error Resume Next Dim a As Worksheet, b As Worksheet Set a = Sheets("Baza danych A") Set b = Sheets("Baza danych B") a.Select owa = Cells(Rows.Count, "B").End(xlUp).Row owb = b.Cells(Rows.Count, "C").End(xlUp).Row For x = 5 To owa w = "" w = Application.Match(Cells(x, 2), b.Range("C5:C" & owb), 0) + 4 If w > 0 Then Cells(x,...
Błąd polega na tym że w kolumie A wszystkie dane masz jako tekst (mimo że wyglądają na liczbę) natomiast w kolumnie C masz większość danych jako liczbowe. Zaznacz wszystko i odznacz wyrównanie do prawej. Jeżeli żadna z opcji formatowania nie zostanie włączona to tekst jest wyrównywany do lewej krawędzi a liczba do prawej. Mimo że wyglądają tak samo...
Ganjor86, porównanie ksenona i diody byłoby trudne ponieważ próby z ksenonem robiłem w starszym projektorze. Jeśli chodzi o kolimator 4° to niebardzo, ponieważ do cree xm-l nie ma takich kolimatorów. Najlepsze skupienie ma chyba ledil iris xm na papierze 9°. Znaczenie ma tutaj wielkość struktury z której emitowane jest światło. W xm-l to 4mm²....
Witam Makro ma porównywać wartości z ComboBoxa txt1 z danymi w 1 kolumnie arkusza "Rejestr" oraz wartości z TextBoxa txt2 z danymi w 2 kolumnie arkusza "Rejestr". Jeżeli tekst z txt1 jest już w kolumnie pierwszej arkusza „Rejestr” oraz jednocześnie tekst z txt2 też jest odpowiednio w kolumnie drugiej arkusza „Rejestr” to makro...
Cześć, Bardzo proszę o pomoc, muszę zdobyć makro, które było by w stanie PORÓWNYWAĆ dwa arkusze na podstawie ich wierszy. Arkusz "NEW" oznacza nowy raport , natomiast arkusz "Old" oznacza stary raport. Chciałbym aby makro porównywało oba arkusze i wypisywało kropka w kropkę powtarzające się wiersze w następnym arkuszu , lub wypełniało powtarzające się...
Zakładając że w arkuszu 1 w kolumnie A kody nie są powtarzane oraz w arkuszu 2 i 3 tylko kody jak w arkuszu 1 [syntax=vb]Sub porownaj() Dim bd As Range Set bd = Worksheets("4").Cells Worksheets("1").Activate r = 1 While Cells(r, 1) <> "" rd = Application.CountA(bd.Columns(1)) + 1 Cells(r, 1).Resize(, 2).Copy bd(rd, 1) Cells(r, 3).Copy bd(rd, 5)...
Witam, chciałbym napisać makro, które preszuka kolumne 3 i jak znatrafi na "+", to zapamięta cenę przy danej dacie. (załączyłem obrazek żeby było latwiej zrozumieć o czym mówię). Następnie porówna ceną z dnia następnego i jeżeli cena będzie poniżej wartości początkowej to zacznie porównywać każdy kolejny dzień i jeżeli w końcu cena spadnie do -20% to...
Witam, potrzebuję pomocy z napisaniem kodu, który będzie w stanie wyszukać we wskazanym zakresie komórki, które mają obramowanie w kolorze czerwonym. Jeśli komórka ma czerwone obramowanie, to dana kolumna w której jest komórka powinna zostać ukryta. Napisałem prosty kod, który to robi i wrzucenie tego w pętle to też nie problem, ale jest pewien szkopuł,...
E tam, zaraz zabije. VBA nie jest taki słaby jak się go rozsądnie używa. Używanie arkuszy Excela do porównywania takich plików odpada, ale VBA jest (prawie) takim samym jeżykiem jak inne. Porównując wiersz po wierszu bardziej liczą się MB, niż liczba wierszy. Zresztą do bazy też musisz jakoś to załadować. Porównywalny czas. W najprostszym przypadku...
Dziękuję bardzo za zainteresowanie. W podanym warunku If trzeba określić "treść szukanej frazy". Nie wiem czy dobrze to zrozumiałem, ale nie mogę z góry znać szukanej frazy. Chyba, że czegoś nie rozumiem. Chodzi o to, że to co wpisuję przez UserForma w dwóch polach (txt4, txt2) nie mogę z góry określić, gdyż te dane nie są stałą treścią. Makro ma porównywać...
Czy ktoś z Was wie jak powinno wyglądać makro porównujące ze sobą tabele Sądzę, że wielu wie ... ale pewnie są na urlopach ... :) Nie załączyłeś żadnego przykładu, więc i reklamacji nie ma ... jest jak jest, inaczej nie będzie ... 895194
w określonym interwale czasu będzie na innym dysku zapisywał kopię zapasową Witam, odświeżę nieco temat. Mam podobny problem, mianowicie w chwili obecnej przy pomocy poniższego kodu zapisuję kopię zapasową podczas każdorazowego zamknięcia pliku. [syntax=vbscript]Private Sub Workbook_BeforeClose(Cancel As Boolean) FolderName = ActiveWorkbook.Path &...
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
Idziemy za ciosem. ; D ecrement J ump if Z ero ; DJZ licznik,etykieta wyjścia .MACRO DJZ DEC (at)0 BREQ (at)1 .ENDM I jeszcze jeden, choć nie jest już tak kompatybilny z 51. ; C ompare, J ump if N o E qual ; CJNE reg1,reg2,etykieta .MACRO CJNE CP (at)0,(at)1 BREQ (at)2 .ENDEM Porównuje tylko dwa rejestry, a w oryginale można porównywać prawie wszystko.
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Można uporządkować nieco kolumnę i zastąpić wszystkie wyrazy "wymieniono", "stary", "nowy" oraz ":" pustym ciągiem. Wtedy dostaniemy dwa identyfikatory rozdzielone mniejszą lub większą ilością spacji, ewentualnie z możliwymi spacjami na początku i końcu. Dalej można to odfiltrować funkcją "usuń.zbędne.odstępy", co wywali poprzedzające spacje oraz zwielokrotnione...
Witam. Korzystam z makra które ma porównywać wartości w różnych plikach, jeśli znajdzie takie same komórki to kopiuje komórkę która znajduje sie obok. Makro zostało napisane jakiś czas temu i działa bez większych problemów na komputerze z MS office 2003. Jednak ja korzystam z office 2007 i tutaj pojawia się problem. Makro przerywa działanie zaznaczając...
Próbowałem różnych rzeczy zmieniałem w poleceniu if znak Musisz porównywać każdy z każdym i jeśli wynik porównania po zakończeniu przebiegu wewnętrznej pętli =0 to kopiujesz, jeśli >0 to znaczy, że występuje i nie kopiujesz...
Nie widzę uniwersalnego rozwiązania. Można rozbić ciąg na fragmenty, gdzie separatorem jest spacja i porównywać dwa z nich. Wtedy wyniki byłyby najbardziej wiarygodne: Kowalski Jan Maria, Maria Kowalski = prawda Stefan Kowalski, Kowalski Jan = fałsz Jan Nowak, Jan Kowalski = fałsz Nowak Jan, Jan Nowak = prawda Kowalski Jan Maria, Maria Konopnicka =...
Ale co ty właściwie chcesz zrobić? W 1 części dopisujesz do wiersza z kodem 2, 3 wartości z kodem 1. Dziwne. Teraz chcesz porównywać dwa pliki, ale jak prezentować wyniki porównania? Może warto przemyśleć to zadanie od początku. Wszystko da się zrobić, ale nie wygląda to na najlepszy sposób prezentacji. Chyba że czegoś nie rozumiem. Jeżeli chcesz wyłapać...
To chyba nie będzie takie proste. Niestety Excel jest bardzo ubogi jeśli chodzi o "kolorowe funkcje". Wg mnie musiałbyś zrobić wzorcową tabelkę z indeksami kolorów i przepisać ją do tablicy. Następnie do drugiej tablicy przepisać indeksy z "kolorowego" zakresu do sortowania i dodatkowo umieścić je w kolumnie pomocniczej Wreszcie czymś na wzór sortowania...
Pętla miała porównywać każdą komórkę kolumny A z każdą komórką kolumny C. Jeśli natrafi na to samo, w tym wypadku "c" to ma kopiować komórkę z prawej od komórki z kolumny A do komórki po prawej od komórki z kolumny C gdzie natrafiła na to samo, niezależnie od tego, czy wiersz kolumny A i C jest ten sam. Nie wiem dlaczego nie działa mi druga petla while,...
Jestem "canonierem" od ponad 20-tu lat. Zaczynałem od 40D a teraz mam 5DIII. Jestem amatorem i fotografuję (staram się ?) wszystko. Od makro po astro. Używam szkieł oryginalnych jak również od starego sprzętu analogowego, którego jestem użytkownikiem od prawie 60-ciu lat. Miałem też sporadyczne kontakty ze sprzętem Nikon'a, Penatx'a i Sony, więc mogę...
Makro wykonujące obydwie czynności może wyglądać np. tak: Private Sub CommandButton1_Click() poprz_wartosc = Empty For Each c In ActiveSheet.Range("C1:C6553... 'tu można zawęzić przeszukiwany zakres If c = "dolek" Then ActiveSheet.Cells(c.Row, 4) = poprz_wartosc If Not IsEmpty(poprz_wartosc) And...
Tu nie chodzi o to żebyśmy Ci dali instrukcję przy jakiej pogodzie jaką ustawić czułość i żebyś bezrefleksyjnie ustawiał taką latami, tylko żebyś zrozumiał jak szukać kompromisu między wyższą czułością a brakiem szumu. Tryb auto jest dla takich co nie chcą zrozumieć. Ekspozycja to raptem 3 parametry - czułość matrycy, czas otwarcia migawki i stopień...
Należy utworzyć makro w języku VBA, które w pętli będzie wybierać rekordy z pierwszej bazy i porównywać je z pozostałymi (wyszukując również w pętli pasujący rekord). W zależności od wyników porównania będzie dokonywał stosownych operacji. Jeśli bazy są duże (>10000 rekordów), lecz nr kat są posortowane we wszystkich, to można całą operację znacznie...
Hej, Super działa :) Jestem bardzo wdzięczna. A wiesz może jak porównywać zawartość dwóch kolumn i kolorować np. na zielono to, co znajduje się w obu (np. w A i C), na czerwono to, co jest np tylko w kolumnie A a na niebiesko to co występuje tylko w C. W obu kolumnach znajdują się kody jakiś produktów, a zadanie polega a tym, żeby sprawdzić czy zawartość...
Zakładam, że w kolumnie A może być ta sama wartość, a różna w kolumnie B. Np 123 ms524 123 ms524 123 ms599 Wpadłem na pomysł, żeby składać obie wartości do stringa. Porównywanie będzie wtedy znacznie szybsze. W związku z tym pytanie Nr 326/2014: Potrzebny jakiś znak rozdzielający. Np "(at)" lub coś, co nie jest używane w "material no". W czym rzecz....
https://obrazki.elektroda.pl/4671082400_... Interfejs graficzny Home Assistant opiera się o potężny język szablonów Jinja2. Jinja2 używany jest do przetwarzania danych z czujników, tworzenia warunków w automatyzacjach czy dynamicznego formatowania komunikatów. W celu ułatwienia pracy z Jinja2 Home Assistant oferuje wygodne narzędzie...
U mnie działa z 3 plikami. Wprawdzie nie sprawdziłem, co robi, bo brak danych, ale przy zaznaczeniu 3 plików wszystkie 3 otwiera i zamyka.
Witam, Jak by tu odpowiedzieć ... Nie będę pisał tutoriala z VBA - ani czas ani miejsce. Jeżeli chcesz się nauczyć VBA to sporo materiałów jest w necie. Jak ma działać makro ? Punkt 1) "Czy produkt ...." Dwie pętle (for /while). Pierwsza (produkt po produkcie) pobiera informacje na temat szukanych danych. Druga szuka danych z pierwszej pętli w drugim...
Makrokierunek zupełnie niesłusznie nie cieszy się jakimś wielkim zainteresowaniem. W 2014 na 80 miejsc było w lipcu 58 kandydatów (czyli przyjmowali wszystkich chętnych), potem w ramach naboru uzupełniającego poupychali tam jeszcze tych, którzy nie dostali się na AiR lub Inf. Nieco lepiej było w 2013 (na 80 miejsc 78 chętnych) i 2012 (90 miejsc 76 kandydatów)...
Witam, chciałabym stworzyć makro porównujace dwa wskazane przeze mnie pliki. Układ obu plików jest taki sam. Na kilkaset wierszy czasami zostanie zmieniony tekst/kwota lub całkiem usunięty/dodany nowy wiersz. Widziałabym to tak że wskazuje konkretne dwa pliki, a makro porównując je usuwa powtarzające się wiersze (sprawdzając zarówno tekst jak i kwoty)....
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" Makro VBA można wykorzystać do automatyzacji wielokrotnie powtarzanych czynności w aplikacjach Office :idea: Nie przedstawiłeś kolego żadnych plików, ani żadnych informacji, które wskazywały by, że w Twoim przypadku istnieje jakakolwiek możliwość zastosowania kodu VBA...
Witam, piszę tutaj ponieważ od dłuższego czasu powraca do mnie problem wykonania makra, które sprawdzałoby formuły (nie wartości jakie wynikają z formuł, ale "tekst" samych formuł) w 2 plikach. Często mam do czynienia z 2 plikami, które są do siebie podobne (takie same zakładki, takie same lub podobne wartości) i chcę sprawdzić czy formuły w nich występujące...
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Witam, Czy chodzi Ci o coś takiego jak w załączniku? Makro napisane na szybko, "na kolanie", z bezczelnie zagnieżdżonymi 5 pętlami FOR (gdzie aż się prosi aby użyć jakiejś rekurencji...), dodatkowo operacje wykonywane na liczbach całkowitych, żeby uniknąć problemów z sumowaniem i porównywaniem liczb zmiennoprzecinkowych (czyli 1 = 0.1, 2 = 0.2 etc).
Cześć, Chciałbym aby makro porównywało mi kolumne a z kolumną b i w kolumnie d wpisywało komentarz większe lub mniejsze Makro niech nie porównuje gdy niepuste wiersze bądź wartość 0. Udało mi się napisać coś takiego : [syntax=vbscript]Sub porównaj() Dim ostw As Long ostw = ThisWorkbook.Sheets("Arkusz1").Cells(Row... "c").End(xlUp).Rows For x =...
Dzięki Marku - właśnie zabrałem się do testowania - będę podglądał makro i porównywał z tym przed Twoją przeróbką co od czego zależy.Kupiłem książkę : "EXCEL w biurze i nie tylko" niestety w dziale Tworzenie Makra jest bardzo nie wiele ... Pozdro
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
porównywać zdjąć porównywać atmega8 porównywać tablica
polowa obrazu mercedes 320cdi grzanie octavia
harman kardon reset wyłączenie napisów
Jak nakładać drugą warstwę farby ftalowej na blat? Pliki z rozszerzeniem *.udflf - EaseUS Data Recovery Wizard
