do C1 wstaw JEŻELI(CZY.PUSTA(A1);"";B1) i ukryj kolumne B, było tutaj też: http://www.elektroda.pl/rtvforum/topic12...
Rzeczywiście ten opis jest ciężkostrawny, nie wiadomo, kiedy chodzi o ilość, a kiedy o numer. Na przykład: wynik połączony z wierszy 3 z kolumnami odczytać "z trzech wierszy" czy "z trzeciego wiersza"? Załącznik nieco wyjaśnił, chociaż przydałby się jeszcze oczekiwany wynik. Poza tym arkusz jest tak rozbudowany, że mam wątpliwości, czy wszystko jest...
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,...
Odnośnie tej drugiej funkcji to to: Kod Visual Basic - Może i jest zbędne ale jest w Twojej "źródłowej" procedurze. Jak zaznaczyłem: bez wiedzy jak ma działać do końca procedura nikt nie jest w stanie dać jasnych rozwiązań. Nie do końca rozumiem ale jak sobie radzisz to nie ma problemu ale ...: Data początkowa z kolumny C Kolumna C ma 65 tys komórek...
Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...
W tabeli 1 kolumna D może być ukryta
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
Zupełnie mnie nie przekonuje to rozwiązanie, wpisywanie wartości w jednym arkuszu a potem wyszukiwanie wg kilku kryteriów, automatyczna zamiana lub dopisanie itp. Trochę za dużo kombinacji. Trzeba pamiętać, że działania makr są nieodwracalne, najmniejszy błąd i pozamiatane :( Oczywiście makro jw. da się napisać :) Proponuję inne, wg mnie prostsze rozwiązanie...
Z czego wynika niespójność zapisu danych w ostatnim arkuszu? W wierszu drugim są te dane zapisane koło siebie, kolumna po kolumnie. W wierszu trzecim między każdą kolumną jest przerwa. Czemu tak jest? Jeśli makro ma sortować wyniki z lotto to można je uprościć, nie musi liczyć do 100 pozycji w wierszu, tylko do sześciu, do tego nie musi liczyć na liczbach...
Ponieważ kolumna C to trzecia kolumna więc zamień we wszystkich Cells() jedynkę po przecinku na trójkę czyli ,1) na ,3) np.: Cells(1,1) na Cells(1,3) i dla pewności w lini kodu OstWrs = Cells(Rows.Count, 3 ).End(xlUp).Row
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
Jest prosty sposób na uruchomienie makra jeśli aktywowana będzie określona komórka. Powiedzmy, że zmieniasz dane w A1. Jeżeli posługujesz się klawiaturą to następna aktywowana komórka będzie A2 lub B1. Przykład uruchomienia makra dla B1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) wiersz = 1 kolumna = 2 If Target.Row = wiersz...
No i nie może działać co najmniej z dwóch powodów. Nie załączyłaś pliku ze swoim układem danych, podałaś tylko opis, a potem chcesz to stosować w innym układzie danych. Makra muszą być skrojone "na wymiar", nie są tak elastyczne jak funkcje. Makro zdarzeniowe (czyli takie, które uruchamia się automatycznie po zajściu jakiegoś zdarzenia np. edycji komórki)...
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Czemu jak już zrobiłeś przykład nie załączyłeś go do postu? (spakuj na przyszłość zipem i załącz) Po prostu wykorzystaj funkcję wyszukaj.pionowo() Zamknąłem w pętli i sprawdza po kolumnie M czy wysłano (dlatego tez na końcu pyta czy wysłałeś. Poniżej z paroma "wodotryskami". Makro nie sprawdza poprawności adresu mailowego więc jeżeli będzie zły a ty...
Proszę bardzo prosty kod w makro. Zmodyfikowałem troszkę nagrane makro - Zamień (Ctrl+H) z uwzględnieniem wielkości liter. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Cells(x + 1, 1).Value, Replacement:=Cells(x + 1, 2).Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False,...
Lub w inny sposób: [syntax=vb]Sub Kasownik() For Each szukana In Range("1:1") If szukana.Value = "MSISDN" Or szukana.Value = "Kod sprzedawcy" Then kolumna = szukana.Column Columns(kolumna).Delete shift:=xlToLeft End If Next End Sub [/syntax]
Przyczyna błędu jest skutkiem błędnego zadeklarowania lub błędnego użycia zmiennej kol. Jest zadeklarowana jako String (tekst), a w tekście procedury jej wartość jest odczytywana z komórki T1, która zawiera wartość liczbową 50. Potem używa się zapisu: [syntax=vbscript]Range("f11:" & kol & wynik)[/syntax]który po podstawieniu wartości zmiennych daje...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Podstaw pod argument Source - jest typu string... 1. znajdź ostatni wiersz i przypisz do zmiennej: ostW =Range("A" & rows.count).end(xlup).row jeśli nie ma nic "pod spodem" lub ostW =Range("A3").end(xldown).row jeśli kolumna A jest zawsze pełna. Jeśli nie, wybierz inną - pełną (bez dziur) 2. podstaw zmienną do string'a ... SourceData:= _ "Arkusz1!R4C1:R"...
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...
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Moje pytania: 1. W jaki sposób opisać warunek w którym pętla będzie działać aż do znalezienia pustej komórki w kolumnie B? 2. W jaki sposób stworzyć zapis w którym komórka B1 i C1 z Arkusza1 będzie zastępowana kolejnymi komórkami z kolumny B i C z Arkusza2 i zapisywana? 3. W jaki sposób opisać kolejne komórki (A1+i)? Nie mogę znaleźć odpowiedniego...
Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
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()...
Chodzi o sumę zakresu. Wartość pierwszego argumentu funkcji SUMA określana jest przez funkcję ADR.POŚR gdzie zmienia się Nr kolumny (dane w poziomie) i dlatego użyłem funkcji ADRES. Pierwszym argumentem funkcji ADRES jest Nr wiersza, drugim Nr kolumny. Pomniejszyłem go o 7 sugerując się adresem z Twojego rysunku. Dopasuj go do arkusza. Jeśli 13 dzień...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako kolejne kolumny 5. tworzy nowy plik z danymi z zakladki KOR, zapisuje i przechodzi do pkt 1...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim As String = "," '<<< select comma or semicolon...
Chyba pomieszałam. Niestety wcale nie "Chyba" :cry: , ale na pewno :D Komórka C5 nie jest powiązana z żadnym boxem umożliwiającym jakikolwiek wybór :!: Jeżeli cokolwiek wpiszesz do komórki C5 :arrow: zaczyna działać Twoje makro (oderwane zupełnie od arkusza Słownik :!: i tamtych tabelek), lecz po wybraniu checkboxa (ze względu na kod: If TrybEdycji...
w naszej pętli zamiast MsgBox wystarczy podstawić Razem byłoby coś takiego Sub petla() For i = 2 To Range("D2").End(xl... For j = i To Range("D2").End(xl... If Cells(j, 4) <> Cells(j + 1, 4) Then Exit For 'porownanie w kol D indeks 4 Next i = j 'żeby nie od...
A po co takie pojedyncze klikanie w każdy nagłóweczek. Trzeba było wszystko razem. Poniżej kod do formatowania nagłówków we wszystkich tabelach w skoroszycie (we wszystkich arkuszach tego skoroszytu). Dodano po 1 ...aby formatował tylko wybrane nagłówki: [syntax=vbscript] Sub test_formatowanie_wszystkich_tabel() Dim ListaTabel As ListObject Dim ListaArkuszy...
Kolumna A - numery seryjne (dajmy na to od A1 do A100). Komórka B1 - miejsce do wpisywania poszukiwanego numeru. Komórka C1 - Formuła: =JEŻELI(LICZ.JEŻELI(A1:A8;B1... MA") W komórkę B1 skanujesz kod, następnie Enter - a komórka C1 od razu wyświetla czy dany kod jest na liście czy go nie ma.
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...
1. ... Chciałbym aby pętla opierała się na "numerze dostawcy" i po zmianie numeru na inny - początek nowej pętli. Pusta kolumna = koniec pętli. 2. ... działa, ale potrzebuję, aby obejmowało tylko dany "numer dostawcy". Po zmianie numeru na inny - start nowego macra. 3. ... Obecnie macro nagrywa mi całą zawartość tabeli ( tabela 1) Pkt 1 i 2 - Pętla...
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
Makro czy funkcja w tym przypadku to żaden problem. Kłopotem jest to czy to co przedstawiłeś jest "prawdą". Czyli czy nie ma innych danych w arkuszu oprócz tej tabeli - tak jak to przedstawiłeś (bez nagłówków i innych danych w innych komórkach - inne komórki "czyste")? (A może zawsze tabela "ściągana" ma te same "namiary komórkowe"? ) Czy może jednak...
Wiesz co, za daleko to poszło tu pojawiają się jeszcze inne błędy. Musze to przemyśleć od początku. edit ----------------------------------------... Trzeba było tak zrobić od początku - nie było by tylu problemów. Skróciłem formułę ale dodałem "zamianę" danych co jest logiczne: Jeżeli godzina końca jest mniejsza od godziny początku to znaczy, że godzina...
Cześć, poszukuję makra które otwiera PDF-a znajdującego się w konkretnej lokalizacj (ma 5 stron) i przekopiowuje wszystko co jest na 1 stronie wkleja do 1 zakładki w excelu w konkretnej kolumnie np.AN, następnie przekopiowuje wszystko z 2 strony pdf i wkleja do kolumny AN w drugiej zakładce i tak do końca 5 strony. W skrócie otwórz PDF-> 1 strona CTRL-A,...
Dzień dobry. Zwracam się z prośbą o pomoc, bo sam nie jestem w stanie przygotować makra, które wykona zadanie opisane poniżej (w załączniku wrzucam plik obrazujący zagadnienie). Makro ma znaleźć w kolumnie "A" różne grupy, które są odpowiednio oznaczone. Między grupami występują też pojedyncze pozycje, które nie mają być uwzględniane przez makro. W...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka Może nie doprecyzowałem chciałbym aby kopiował dla n kolumn tzn a1,b,1c1....=Tak nie tylko gdy w A1=Tak Dodano po 10 Jeszcze inaczej, chciałbym skopiować do nowego arkusza te kolumny dla których w pierwszym wierszu kolumny było słowo Tak Kopiowanie do nowego arkusza bez...
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
Wiem ze jest odpowiedź ale nie umiem jej wykorzystać bo nie znam się na VBA. Ja tylko klikam nagrań makro, pisze formule jakąś, konxze nagrywanie i podpinam to pod przycisk. Tyle.. Wiec mam nawiązania do komórek i nie wiem jak powiązać to z nagłówkiem kolumny. Np Kolumna A kolumna B kolumna c kolumna d Pusto. 2 3 Makro W makro jest nagrana najprostsza...
Posiadam działającą wyszukiwarkę w Excelu, która działa tylko dla jednej kolumny [syntax=vbscript]Private Sub TextBox1_Change() ActiveSheet.ListObjects("Data1").RANGE.A... field:=2, Criteria1:="*" & [a2] & "*", Operator:=xlFilterValues End Sub[/syntax], jak zmodyfikować makro bądź utworzyć całkowicie nowe, aby działało dla wielu kolumn....
Coś bardzo namieszałeś z tą kolumną AA. Po pierwsze: dlaczego są tam odwołania do komórek A131 i A132, które są puste, a nie do komórek A10 i A11, jak było pierwotnie? Po drugie: Po co jest dodany ten Arkusz2? Czy on ma być używany do obliczeń, czy pełni tylko jakąś funkcję kontrolną? Po trzecie: Opisz słowami, ewentualnie przykładem w pliku, co ma...
Witam serdecznie. Potrzebuję stworzyć makro które pozwoli mi seryjnie szukać wyniku za pomocą goal.seek kodem VBA Wiec Tak mam arkusz o nazwie "Brudnopis" zakres komórek od A5 do AT 330 Wynik które chcę zmienić jest w kolumnie K (wynik formuł) (niebieski) Parametr zmieniany - Kolumna J (żółty) Wynik który chcę uzyskać - Kolumna L (szary) Problemem jest...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
Użycie modulo jest faktycznie wygodne ale tylko przy parzystej. Nie wiem dzisiaj czy nie będe miał potrzeby za jakiś czas określić, że kolumna do wstawienia godziny modyfikacji to będzie np co 3 kolumna, wówczas kiedy zmieni mi się kolumna ją poprzedzająca: |DaneA| |DaneB| |Wstaw czas modyfikacji DaneB| DaneC| |DaneD| |Wstaw czas modyfikacji DaneD|...
Proszę: [syntax=vbscript]Sheets("START").Select Range("B2").Select Wiersz = ActiveCell.Row KOLUMNA = ActiveCell.Column Do While Cells(Wiersz, 3) <> "" plik = Cells(Wiersz, 3) FILTR = Cells(Wiersz, 2) Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\" & plik Windows("DaneScalone.xlsx").Activate KOLUMNA = 4 Do While Cells(Wiersz, KOLUMNA)...
Witaj, Tak, jest to możliwe. Dobrze byłoby, gdybyś wstawił przykładowy plik. Czy w docelowym arkuszu kolumna ma być zastępowana nowymi danymi, czy ma być doklejana do istniejących?
Proponuję stworzyć arkusz słownika. Kolumna A Towar i B na co zmienić.
Można uzyskiwać również dostęp do danych w plikach zamkniętych Przecież wyszukaj.pionowo działa na zamkniętych skoroszytach i nie trzeba cudować z makroexcel4. Jak pominąć to otwierające się okno, aby makro samo otwierało plik i pobierało wartość? Masz źle zrobione odwołanie do skoroszytu (baza), oprócz samego pliku musisz jeszcze dodać z którego arkusza...
W jaki sposób makro ma wiedzieć, które miasto należy do danego województwa? Masz gdzieś tabelę miast/województw? W danych wejściowych w kolumnie A powinno być przypisane przy każdym mieście województwo, albo jeśli kolumna B jest pogrupowana już województwami (a w przykładzie jest) to musiałyby gdzieś być jakiekolwiek znaczniki, że już kolejne województwo...
No właśnie z tym mam problem. Ustawienie kolumn jest różne. A jest B a B bywa Z w zależności od dnia. Chcę żeby makro sprawdziło za każdym razem wartości pierwszych komórek i tylko wybrane kopiowało do innego pliku. Zaznaczam że nagłówki się nie zmieniają. Zakładając A1 to "deska" a następnym razem Z1 to "deska" - za każdym razem będzie kopiowana cała...
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ł,...
Cześć. Sprawdź, czy takie coś Ci pasuje: [syntax=vbscript]Sub Rep() Const RFrom = "A1" Const RTo = "H1" Const Src = 3138 Dim x As Long For x = Range(RFrom).Column To Range(RTo).Column Columns(x).Replace what:="#", replacement:=Cells(Src, x).Value, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False...
Zamiast klikania w Ukryj użyłbym onEdit. Z jakiegoś powodu hideRow nie działa zgodnie ze specyfikacją, ale hideRows już działa. [syntax=javascript]function onEdit(e) { const range = e.range; if (range.getColumn() == 14) { // 14 - kolumna N if (range.getValue() == true) { e.source.getActiveSheet().hideRows(range... } } }[/syntax]
Analizowana tylko kolumna E (zamknięcie). Wartość mniejsza o -10% tylko z kolumny zamknięcia. Max liczony od wystąpienia w kolumnie G "kupuj", więc analizowany okres jest różny. Tak jak to opisałem w przykładowym Excelu
Chciałeś szukać duplikatu w kolumnie C od komórki powyżej zaznaczonej do komórki w pierwszym wierszu, czy tak? A gdzie szukasz? ActiveSheet.UsedRange czyli w tym przypadku w zakresie od A1 do L15 wierszami, zaczynając od komórki następnej po zaznaczonej, czyli jeśli zaznaczona była pierwotnie komórka C14, to przeszukane będą komórki od D14 do L15, a...
Działa super! Tylko właśnie problem mam z tym aby do skopiowanych wartości dodał jeszcze dwie kolumny i przypisał tam wartości, które by pobrał z nazwy pliku. Przykładowo plik o nazwie 34_190_2023-05-19, w którym znajduje się 20 wierszy, makro kopiuje wszystkie + dodaje kolumnę z datą "2023-05-19" + kolumna z numerem "190" dla wszystkich 20 wierszy...
(at)clubs Tak tylko informacyjnie, Wszelkie próby z VBA spełzły na niczym.Efekt cały czas taki sam,zapisuje puste karty,lub wszystko od początku. Póki co wspomogłem się dodatkową kolumną "Zakres2",gdzie za pomocą formuły [syntax=vbscript] =JEŻELI(ROK($A3)>=ROK($M$2);$B3;"") [/syntax] Wybiera mi z kolumny "A" wpisy z rokiem wskazanym w komórce "M2"...
Wszystko jest ok. A jak zrobić, żeby każda kolumna z pliku txt została wklejona do Excela również w oddzielnych kolumnach?
Witam, Potrzebuję pomocy z makrem. Chcę aby funkcja działała na całą kolumnę. Próbowałem załatwić to Range ale wywala błąd Mismatch zaraz przed komenda kolorowania. Co chce żeby makro robiło: 1. gdy w kolumnie A nie ma słowa "zielony" a w kolumnie B jest słowo "duza", to komórka w której nie ma słowa "zielony" ma byc kolorowana. 2. gdy w kolumnie A...
Dzień dobry, proszę o pomoc w napisaniu makro, które wykonuje poniższe czynności: 1. Zaznacz całą widoczną tabelę (tabela może mieć różną ilość wierszy). 2. Skopiuj zaznaczoną tabelę do kolejnego arkusza. 3. Dodaj kolumnę z lewej strony tabeli, która będzie częścią tej tabeli. 4. W nowo dodanej kolumnie wypełnij wartości do końca tabeli (tabela może...
Witam ponownie, Pojawił się problem o którym wcześniej nie pomyślałem. W wierszu 2 mam zastosowaną funkcję PRZESUNIĘCIE. Makro w kolumnie A wyszukuje zawsze jako pierwsze wartość z wiersza 2. Czy można zmienić zakres aby kolumna A była przeszukiwana od A4 ?
Cześć, potrzebuję pomocy z porównaniem dwóch dużych plików danych . Dotychczas używałem wyszukaj pionowo lub zwykłego if w excelu. Czy jest możliwość zbudowania makra które porównywało by dwa pliki kolumna po kolumnie ( pliki mają takie samo ułożenie i będą posortowane). Fajnie jeśli zakres kolumn, wieszy będzie można wpisać ręcznie. Piewsza kolumna...
No to albo kolumna pomocnicza z filtrem (wtedy masz tylko jeden "klik"-wybierasz 0 ) albo makro. Ponizej z kolumną a makro za chwile podrzucę.
Dzień dobry. Zwracam się z prośbą o pomoc przy kolejnym projekcie :) . Próbowałem coś porobić samemu, ale skutek mizerny z tego wyszedł. Nie bardzo umiem w VBA a niestety nie wszystko można załatwić formułami. W czym problem? Mam arkusz zawierający 6 komórek z listami. Nie każda zawiera pozycję "RAL" (numer koloru lakieru). W załączonym arkuszu dwie...
Witam, potrzebuje pomocy w stworzeniu makra które bedzie wynajdowało w ciągu znaków datę. Układ byłby następujący: kolumna A - imię i nazwisko kolumna B - numer pesel kolumna C - tekst z opisem W kolumnie C - znajduje sie ciąg znaków z tekstem, gdzie w pewnym miejscu (niepowtarzającym sie) pojawia sie data w formacie (dd-mm-rrrr). Jako efekt - chcialbym,...
Cześć Potrzebuje mieć zrobione makro które z folderu w którym są pliki csv. Jak w zakładce BUF_1111F01111_.... pobierze je po kolei wczyta, zrobi tabele przestawną jak w zakładce pivot table a następnie wklei w odpowiednie pola w zakładce customer report z zachowaniem formuły jeżeli w kolumnie M. Następnie zapisze się jako plik .xlsx usuwając formuły...
Witam, Dopiero zaczynam przygodę z makrami i natrafiłem na problem z którym nie potrafię sobie poradzić. Otóż mam w jednej kolumnie (w moim przykładzie kolumna H) formuły zwracające tekst TAK lub brak tekstu, potrzebuję zaznaczyć/odznaczyć checkbox - nadać odpowiedniemu polu w innej kolumnie (w przykładzie kolumna C) wartość TRUE lub FALSE. Dla jednego...
Zobacz w załączniku, czy ta propozycja spełnia Twoje oczekiwania. To jest makro zdarzeniowe, które reaguje na wpis dokonany ręcznie (nie przez makro), ale można kopiować z innej komórki. Wypełniać komórki można tylko pojedynczo. Jeśli chce się zmienić proporcje składnika, trzeba usunąć wpis istniejący (delete), a następnie wpisać nowy. Makro nie przelicza...
Witam, potrzebuje makro które przefiltruje mi po wyszukanej wartości - kolumna w której ma być założony filtr zmienia się, – czasem jest to 9 czasem 10 kolumna, czasem 11, ale zawsze ma tą samą nazwę „ala”, a standardowo nagrywając makro wybiera się konkretna kolumna, obecnie moje makro wygląda jak poniżej jednak zakłada filtr na kolumnę...
Witam! Mam dość duży dla mnie problem. Potrzebuję stworzyć makro które będzie aktualizowało jeden skoroszyt pobierając dane z innego skoroszytu. Niestety nie zawsze wszystkie pola są wypełniane więc pojawiają się pustki i nie mogę skorzystać z funkcji znajdź pierwszą pustą by tam wklejało dane. Byłoby łatwiej gdybym mógł zmienić kolejność kolumn - jednak...
Najprościej będzie z przekazaniem Nr wiersza: [syntax=vbscript]Sub Makro1(w As Long) Dim MyCell As Range For Each MyCell In Range("B" & w & ":Z" & w).Cells If MyCell = 0 Then MyCell.EntireColumn.Hidden = True Next MyCell End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Address(0, 0) = "A2" Then If Target.Column...
Podmień Jak zwyklę w punkt :) dziękuję . Działa Jeszcze ostatnia rzecz i stawiam kratę dobrego piwa ! A czy można (pewnie można) dołożyć warunkowanie które będzie uruchamiało różne makra na podstawie zawartości kolumny A w aktywnym wierszu. Wpisując w kolumnę D=AWARIA lub SPRAWNY lub WARUNKOWO , VBA sprawdza co widnieje w kolumnie A i na podstawie...
Dziękuję za szybką pomoc! W kolumnie O znajdują się liczby (dodatnie, ujemne, czasem 0), a dokładnie liczba dni opóźnienia np. coś miało być zrobione do 10.07, dziś jest 18.07, więc kolumna O pokaże liczbę -8. Ale pojawiają się też puste wiersze = puste komórki w kolumnie O. Przetestuję przesłane przez Was funkcje :)
Kod ean musi być czytany automatycznie np. z drugiego pliku i wyświetlany odpowiednio w kolejnych kolumnach arkusza, kolejno z indeksem i nazwą – celem weryfikacji przez operatora. Natomiast kolumna do wprowadzenia kodu wew. powinna informować o pozytywnej lub negatywnej weryfikacji.
Cześć, Potrzebuję makra na wysyłanie maili do różnych użytkowników z różnymi załącznikami. Pomysł na to to : •Pierwsza kolumna (adres mailowy) •Druga kolumna (ścieżka z której excel ma dodać plik) I ważne np. w komórce A1 będzie właściwy adresat do pliku B1 i tak dalej A2/B2, A3/B3 Treść jest uniwersalna dla wszystkich, jedyne unikaty to...
Witam Szanowne grono specjalistów. Utknąłem w trakcie projektu. Mam tabele z wieloma kolumnami. Potrzebuje zrobić rozwijaną listę kolumn (nagłówków) - z tym sobie poradzę. Potem najważniejsze: z listy rozwijanej wybieram jedną klumnę (nagłowek) na przykład kolumna Z. Następnie uruchamiam makro i makro musi wiedzieć że skoro wybrałem z listy rozwijanej...
Potrzebuję makro które: 1. Zamienia przecinki na kolumny 2. Kopiuje kolumny ze wszystkich skoroszytów (w tym przypadku kolumna F) do jednego arkusza Po co dwa makra jak można to zrobić jednym "w locie"?
Jeśli numer wiersza to zmienna, a kolumna niezmienna (stała) to: Cells(wrs, "A" ) lub Cells(wrs, 1 ) gdzie podstawiasz nazwę lub indeks... To z "roztrzepania", czy alergia na [F1]?
Witam, czy mógłby mi ktoś pomóc w napisaniu makra które będzie transponować komórki na wiersze. Mam w kolumnie B np. 7200 licz. Kolumna A podzielona jest na godziny od 1 do 24. Każda godzina ma przypisaną liczbę z kolumny B. Musze uzyskać transpozycję kolumny A i B. Nie da rady tego zrobić bez makra, ponieważ jest ograniczenie ilości komórek które mogę...
Makro jak wyżej działa :) i wiem że mogę wyszukać nazwę jaką chcę. Chodzi mi tylko jak ustawić aby funkcja If działała w kolumnie z daną nazwą, do ostatniego niepustego wiersza. Ponieważ ta kolumna ma stałą nazwę ale może mieć różne położenie w arkuszu.
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
Załaczam plik. Maly komentarz: Arkusz 1: kolumna A liczby od 1-4, nagralam makro, ktore dziala, gdy uruchamiam go w komórce B1 Arkusz 2: kolumna A liczby od 1-6, gdzie nagrane makro nie dziala tak jak bym chciala (uruchamiane z komórki B1), bo w kolumnie B preciagnie funkcje tylko do B4, :/ Dzieki za poswiecony czas :)
Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...
ale ja mam kilka makr i nie chodzi mi o jedno konkretne. Pytanie moja milo na celu informacje czy da sie to zrobic jakos automatycznie zeby nie zmieniac wszyskich wartosci komorek z palca w formulach jakie to makro wkleja, bo jak wczesniej wklejalo do kolumny np K2 to terazpo wstawieniu dodatkowej jest to kolumna L2. A on pamieta ze ma wkleic do K2.
Sprecyzuję: Mam 3 arkusze, "Wyłącz", "Stan", "Eksport", Arkusz Eksport jest codziennie różny i pokazuje stany magazynowe produktów. Arkusz stan, wyszczególnia określone niezbędne produkty (jest ich 1000) oraz pokazuje ich stan z wyszukaj pionowo eksportu. Również w arkuszu stan jest kolumna "L" która pokazuje warunki jeżeli stan jest <x wtedy w kolumnie...
Mam plik .xsl z licznymi arkuszami. Potrzebuję by do jednego pliku .pdf drukowały się wybrane arkusze W pliku mam arkusz ze spisem treści (nazw arkuszy w pliku - kolumna B) przy których (kolumna C) zaznaczono niezbędne do druku arkusze (naprzeciwko których zaznaczono "PRAWDA"). Czy poradzicie jak stworzyć makro do druku? Dziękuję ogromnie!
Plik Historia jest ataki sam jak "RaportpodręcznyZamówienianaprodukcjePK" i posiada kolumny w których nazwy kolumn są zawarte w pierwszym wierszu. Każdy pracownik ma własne ustawienia (inna kolejność ustawień kolumn lecz nazwy sa dalej przypisane do nich). do pobierania danych używam kodu;Windows("ZAMÓWIENIE ").Activate Worksheets("KOL_4").Activate...
makro łączyć kolumna makro usuwać kolumna dodawać kolumna makro
zmywarka pompa buczy napięcie krytyczne inwerter monitor schemat
amplituner yamaha droga dojazdowa
Czy dolewać naftę do oleju napędowego? Dane techniczne półprzewodnika SMD AVH (SMAJ130C)
