Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Dzięki wielkie, Działa, aczkolwiek nie do końca jak chcę. Makro kopiuje wiersze, gdzie w kolunie G jest wartość większa niż 1, ale tylko raz. Ja chcę, aby kopiowało wiersz tyle razy ile jest wpisane właśnie w kolumnę G i tą wartość zamieniało na "jedynki". Czyli, jeżeli np. w komórce G2 mam wartość 5 to makro ma wstawić poniżej do wierszy od 3 do 6...
Cześć, chciałbym się podłączyć pod temat chyba z podobnym problemem. Posiadam arkusz excel gdzie osoba trzecia będzie wprowadzać nowe pozycje (wiersze) i uzupełniała do każdej pozycje dane w kolumnach. Każdy wiersz posiada 10 kolumn z czego kolumny 2-3 (trzy) posiadają skomplikowane formuły dot. auto-uzupełnienia. Excel jest tak zrobiony, że jak ta...
Działa i to super. Pytanie mam inne teraz, czy da się to tak zmodyfikować, aby to działało tylko wtedy jeżeli w kolumnie są jakieś dane, a jeżeli nie, to nic nie robi. I jeżeli po wstawieniu już wiersza to w przypadku ponownego użycia makra omija już wstawione makra i nic nie robi, a tylko wtedy jeżeli nie ma odstępu pomiędzy liczbami, jeżeli one się...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
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, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Wypróbuj coś takiego Sub kopiuj() Dim plik As Workbook Dim i As Long, pierwszyWiersz As Integer, ostatniWiersz As Long 'jesli nie dalej niz wiersz Nr 32767 wystarczy As Integer pierwszyWiersz = 1 ostatniWiersz = 100 'jesli w tym samym katalogu Set plik = Workbooks.Open(Filename:=ThisWor... & "\Zeszyt2.xls") 'jesli...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
Witam, ten [url=https://www.elektroda.pl/rtvforum/t... temat idealnie wpasowuje się w mój problem. Czy można przerobić makro z postu #11 [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next w = Target.Row k = Target.Column If k = 7 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2...
tytuł tematu trochę zagmatwany, ale już wyjaśniam. Mam takie testowe makro: [syntax=vb]Sub agregacja() ' ' agregacja Makro ' ' Sheets("agregacja").Select Range("A3").Select Sheets("kohezja").Select Range("G1").Select Selection.Copy Sheets("agregacja").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Dzięki za pomysł ale ja zacząłem myśleć o czymś innym.Może po prostu umieścić w SMARA NETHERLANDS gdzieś indziej osobno wyniki dla braku zapinki i brak woreczka, a później swykłą sumą umieścić je w komórce B5. Żeby nie było jednak za łatwo, zauważyłem dopiero teraz,że wyszukiwanie poprzez ("Paprika*") nie działa.Pewnie dlatego,że excel szuka w komórce...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
Dzień dobry, Mam taki problem, że staram się stworzyć makro, które pozwoli mi kopiować pełne wiersze z odpowiedniego zakresu (B7:AR7) z 8 plików składowych do pliku zbiorczego i ustawiać skopiowane dane w kolejności (w kolejnych wierszach pliku zbiorczego). Na obecną chwilę mam takie makro: Sub fileCollection() Dim bs As Range Dim bd As Range...
Witam potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
Potrzebuję gotowego makra, które będzie dodawało mi nowe wiersze. Może ktoś da radę pomóc. Mamy przykładowo w kolumnie D takie wartości: 1 D 2 5 3 1 4 30 5 8 6 100 Makro miałoby teraz dodawać pod spodem tyle wierszy ile jest napisane w tej kolumnie - 1. Np. Mamy w komórce 2D wartość 5 to pod spodem trzeba dodać 4 puste wiersze. w komórce 3D mamy 1 to...
Witam, dzis kolejna zagadka-zagwozdka: sa w Excelu dwie tabele (rozmiar taki sam) obie maja identyczne wartosci w pierwszej kolumnie z ta roznica, ze nie koniecznie w tej samej kolejnosci. Pierwsza tabela (powiedzmy - A) jest wypelniona, tabela B jest pusta (oprocz oczywiscie pierwszej kolumny). I teraz zaczyna sie jazda: chodzi o to aby makro wyszukiwalo...
Mam plik csv do importu do sklepu no i powinien on posiadać ID numer, ale trzeba go dopisać. Otwieram plik w excelu i mogę tam dopisać na początku każdego wiersza te numery jednak to nie o to chodzi żeby robić to ręcznie prawda? jakiej komendy itd użyć żeby excel dopisał do początku każdego wiersza "1|" ? Dla wyjadaczy to prościzna, ja sie na tym nie...
Mam takie pytanko: czy jest możliwość stworzenia takiego makra, żeby wstawiało puste wiersze, ale nie przed kazdym kolejnym wierszem jak we wzorze poniżej jest tak: 1 wrocław 2 kraków 3 kraków 4 kraków 5 warszawa 6 warszawa a chciałabym, żeby było tak: /pusty wiersz/ 1 wrocław /pusty wiersz/ 2 kraków 3 kraków 4 kraków /pusty wiersz/ 5 warszawa 6 warszawa...
Cześć, jest zupełnie początkująca. Potrzebuję makra, które doda mi wiersz w prawie każdej zakładce (zakładek mam 31). Mam przycisk, zarejestrowałam makro, ale jak wiadomo przycisk mi działa tylko do jednej zakładki. Sub Makro3() Makro3 Makro Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub I w tej jednej...
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
Dzien dobry. Zalaczam plik Excel. Na gorze mamy automatyczny przycisk NEW LINE, i chodzi o to, ze wciskajac ten przycisk tworzyl sie nowy wiersz z zawartoscia formul. Czyli majac, np. 100 osob i klikajac kolejno na NEW LINE aby otwieral sie wiersz kolejny po juz istniejacym. Na dzien dzisiejszy mam tak ze otwiera sie zawsze wiersz "2", tak jak zreszta...
Witam serdecznie Potrzebuję pomocy w napisaniu makra które by działało w następujący sposób: W kolumnie A mam powiedzmy 10 różnych tekstów pod sobą, w kolumnie B mam liczby całkowite przy nich. Potrzebuję powstawiać wiersze dla każdego tekstu o takiej liczbie wierszy jak w kolumnie B przy danym tekscie i żeby teksty były pod sobą. np: A1 / B1 Kot 5...
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
Zablokować pierwszy wiersz, zmienić wysokość, wstawić tam wszystkie przyciski i używać jako "paska menu"...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
trzeba by makro... :) na to samo wyjdzie w ilości klikań, jak wstawisz wiersz, tabela automatycznie się wydłuży. :D pozdr
(at)maciejgonet Dzięki wielkie za pomoc! Miałbym jeszcze tylko pytanie co do działania całego makra. Czy da się z niego wyeliminować zapisywanie w historii sytuacji kiedy ktoś dodaje nowy wiersz? Makro oczywiście wtedy działa tak jak powinno i zapisuje zmiany, czyli zapisuje np. 16000 pustych komórek które zostały dodane przez wstawienie nowego wiersza....
Proponuję wykorzystać rejestrator makr. Bez większej znajomości VBA można doskonale sobie poradzić. Przykład: 1. Nagrywam makra wstawiania i kopiowania wiersza. Wychodzi coś takiego nagrane 'Ctrl+strzałka w dół'[syntax=vb]Sub Makro3() ' ' Makro3 Makro ' ' Selection.Find(What:="Odżywianie", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlWhole, SearchOrder:=xlByRows,...
Potrzebuję makro, które usunie mi cały wiersz Co stoi na przeszkodzie, aby kolega napisał sobie takie makro? Przykładów różnych pętli jest na naszym forum pod dostatkiem, usuwanie wiersza można nagrać rejestratorem, kod wstawić do pętli i podstawić zmienne. Metoda do wyboru: porównywanie każdej z każdą, lub wyszukiwanie (Find) W razie problemów z działaniem,...
1. Klikam przycisk "Dodaj wiersz" 2. Makro dodaje jeden wiersz nad wierszem sumy zostawiając formatowania komórek. W tym przypadku numeruje z automatu kolejny wiersz w pierwszej kolumnie a drugi pozostawia pusty Uruchom sobie makro które jest w pliku to zobaczysz. Problem mam że przy wstawieniu tego makro i przypisaniu w nim zakresu "Tabela2" i tak...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Witam Chciałbym aby makro wstawiało wiersz. [syntax=vbscript] Range("B2").Select Selection.EntireRow.Insert [/syntax] ale to działa gdy jestem w danym arkuszu, a ja bym chciał coś takiego zrobić aby będąc w "Arkusz1" i na podstawie danych z tego arkusza stworzyć nową tabele w nowym arkuszu "Arkusz2" I to jakoś mi nie chce zadziałać (nie mogę składni...
Cześć, mam dość rozbudowany plik - są oczywiście funkcje, formatowania warunkowe i makra. Wszystko działa płynnie do momentu włączenia funkcji udostępniania arkusza (w tradycyjnej formie, Excel 2016). Jedno z makr jest odpowiedzialne za wstawienie poniżej aktywnego wiersza nowych wierszy w ilości podanej przez użytkownika i przeklejenie tam zawartości...
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
Możesz otworzyć sam plik czymś takim (zakładam, że nazwa będzie stała): [syntax=vba] Workbooks.OpenText Filename:="D:\Dokumenty\Nowy Dokument tekstowy.txt", _ Origin:=1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _ Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1,...
Takie cos mam w samym pliku txt, ktory importuje makrem: To jest zrzut ze stronki http://jakasstronka.pl/stronkatest 14-07-05 11:35;2,0;1,3; 14-07-05 21:11;8,0;6,9; Makrem wczytuje ten plik - żadnych tabulacji, rozdzielań tekstu do kolumn - wczytuje wszystko do jednej kolumny a każdy wiersz jest w osobnym wierszu
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Prawie wszystko już jasne. wg mnie pozostaje tylko makro. Czy te dodatkowe kolumny (ukryte) też docelowo maja się kopiowac do kart pracowniczych? I druga rzecz piszesz że wolisz stawiać x przy nazwisku (jest bardziej czytelne). Masz rację przy 5 nazwiskach. Ale sama mówiesz aby przewidzieć ok 20 pracowników. Dalej uważasz że przy dwudziestu nazwiskach...
Poniższe makro wstawi tą formułę w 20 komórek poniżej zaznaczonej komórki: i : [" & i & ".xls]. To tak na przyszłość, jakbyś chciał to kiedyś zmodyfikować.
W załączniku przykład. A teraz do rzeczy: Moja wiedza jest licha, a widzę, że bez makra się zwyczajnie zajeżdżę ;) Chciałbym, aby makro skopiowało mi zawartość kilku komórek jednego bieżącego arkusza (B2;B3;B4;F4;N24) i wstawiło ich wartość do nazwijmy go 'Arkusz1' ale tym razem w jeden wiersz, a następnie wstawiło pusty wiersz i przeszło do arkusza...
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...
1. Makro odpada ponieważ po każdej dodanej wartości wchodzącej w wynik komórek w kolumnach BW i BX musiałbym uruchamiać makro. 2. Podane przez Ciebie makro dalej uzależnione jest od kolumny bz, co mi przeszkadzało, więc wywaliłem pierwsze if, a kolumne w while wstawiłem BV (jeśli nie ma wartośći w BV, to nie ma co liczyć w BW i BX). 3. Nie potrzebuję...
Najwazniejszy jest końcowy rezultat. vs Pytałem czy taki wzor jaki zrobilem moze zostać, przełożeni odpowiedzieli ze nie. Nazwisko ma byc pogrubione i wyśrodkowane. To co w końcu jest ważniejsze? Nazwisko ma byc pogrubione i wyśrodkowane. Najlepsze rozwiązanie już znasz - wstawić je w osobnym wierszu. Ale jak będę chcial rozciągnąć cala zawartość w...
"Zawsze chcesz wstawiać nowe wiersze jako przedostatnie (pomiędzy cyfrą 2 i 3 w kolumnie A)? " Tak, bo pomyślalem ze tak bedzie najłatwiej odnajdywac ostatni wiersz na podstawie formatu pogrubienia i wstawiac wiersz i rozszerzac analogicznie w kolumnie B scalona komórke by mieściło sie w tych mini zakresach które okreslaja scalone komórki w kolumnie...
Jeszcze nikt się nie odezwał ... ? Zatem moja propozycja - sprawdź, czy o to chodziło: 1. Punkt wyjściowy - tabelka w zakresie wierszy ' A2:K19 ' 2. Za pierwszym razem przycisk " Zmiana asortymentu " można wstawić automatem (makro: " a_wyszukaj_kotwe ") lub ręcznie (makro: " b_dodaj_wciskanego ", należy jednak uprzednio zaznaczyć komórkę ' B21 ' - makro...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
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...
Oj Pomógł wielkie dzięki, wcisnąłem "pomógł" :) Mam jeszcze 1 pytanie dla sprostowania całej tej pracy 1. Czy jak wstawię w każdym arkuszu jeden wiersz więcej czy zakłóci to pracę Makra ? Dodano po 31 Jeszcze jedno :) Jak bym chciał w przyszłości dodać kolejny rodzaj umów to wystarczy w tych miejscach co są te obecne umowy dodać kolejne czy trzeba będzie...
Odszukaj w kodzie taki fragment: 'jeżeli nie istnieje utwórz zakładkę o nazwie kolumny B If Not jest_zakl Then wbNowy.Sheets.Add(After:=wbNowy.... = nazwa_zakladki Set wsNowy = wbNowy.Sheets(nazwa_zakladki) wiersz = 1 'kopiowanie nagłówka wsZrodlo.Range("A1:C1"...
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ć...
Dzięki Twoim wskazówką udało mi się wszystko tak jak chciałem dzięki wielkie. Mam tylko takie pytanie czy w arkuszu1 w komórce I14 obok sumy zaraz, mogę wstawić funkcję sumy pośrednie tylko tak żeby zliczały się one gdy np. dodam wiersze i zastosuję autofiltr zawsze stosowałem coś takiego =SUMY.POŚREDNIE(9;O9:O15) i to działało lecz gdy...
Opis może i ma sens, ale nie wyjaśnia kolejności czynności i w związku z tym nie określa sposobu rozwiązania problemu. Jeśli możesz wprowadzić najpierw te kolumny, które mają być skopiowane, a później pozostałe, to możesz skorzystać z grupowania, a potem je wyłączyć. Musisz jednak zadbać o spójność danych, to znaczy jak chcesz usunąć wiersz, to tylko...
excel makro wstawić wstawić wiersz wstawić excel
wyświetlacz piekarnik siemens kondensatory szklane analog siemens
pralka hoover opinia instrukcja toyota corolla verso
Jeep Cherokee 2018 SiriusXM – Android Auto i nawigacja na ekranie, retrofit Uconnect 4C UAQ Jeep Cherokee MY 2019 Uconnect 4 – Android Auto i nawigacja Google Maps bez fabrycznej NAV
