Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Wygląda na to, że tak. Wstaw przed pętlą Do (po With) [syntax=vb].ShowAllData[/syntax]i spróbuj.
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, 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 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ć...
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 Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
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...
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...
Witam, mam makro sprawdzające wiersze w arkuszu Excel. Działa dobrze, jednak chciałbym aby jednym przyciskiem, który mam na Arkuszu1 program sprawdził wiersze w arkuszach w zakresie "Arkusz4:Arkusz36". Teraz muszę wklejać przycisk w każdym arkuszu, żeby zadziałało. Oto moje Makro: Sub przelicz() Const max As Integer = 36 Dim i As Integer i = 26 Rows("26:36").Select...
Witam chciałbym stworzyć makro, pozwalające przesunąć wybraną część wiersza w sposób automatyczny po wpisaniu formuły w postaci jakieś wartości. Czy jest taka możliwość? Na języku Visial Basic kompletnie się nie znam, a rejestrator makr umożliwia przesunięcie danego fragmentu wiersza, ale tylko za pomocą klawisza skrótu, Problemem staję się również...
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...
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...
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 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, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W arkuszu Arkusz1 jest całość artykułów widniejących w systemie ( ok. 40 tys ). Do arkusza Arkusz2 będę wklejał dane artykułów, które będę kontrolował pod kątem jakości. Plik powinien szukać identycznych artykułów w kolumnie D w arkuszu Arkusz2 z tymi z arkusza...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Witam, nazywam się Asia i muszę przeprowadzić analizę do pracy magisterskiej. Potrzebuję znaleźć wszystkie dotacje unijne, które skierowane są do kobiet. Robię to w taki sposób, że znajduję wiersz w którym znajduje się interesujące mnie słowo ( kobiet, kobiecy, matka itp.) a następnie kopiuję wiersz do innego pliku. Zajmuje to jednak ogromnie dużo czasu...
Cześć. Posiadam dwie takie same tabele w dwóch arkuszach (jeden dokument), w pierwszym ma tylko jeden wiersz w którym wpisuje dane np. data, imię, nazwisko. I potrzebuje aby kopiowało się w pierwszy wolny wiersz do drugiej tabeli. Taka baza danych, którą uzupełniam przez tabele w pierwszym arkuszu. Wydaje się łatwe, ale już trochę siedzę i nie potrafię...
Witam, Mam plik exel, w którym chciałabym żeby po wyborze danej pozycji z listy rozwijalnej "rodzaj nieruchomości" odkrywały się konkretne wiesze. po wyborze "grunt" - wiersze 33-43 po wyborze " dom" - wiersze 45-60 po wyborze "lokal mieszkalny" - wiersze 62-76 Bardzo proszę o pomoc ;)
Witam Jak napisać makro które będzie przeszukiwało kolumnę A i B http://obrazki.elektroda.pl/4124127900_1... Jeżeli w kolumnie B będzie więcej niż jeden ciąg znaków to dodaje wiersz i scala komórki jak na zdjęciu poniżej wartość z komórki A wkleja do scalonej komórki a wartości z kolumny B z danego wiersza wkleja do oddzielnych komórek...
Witam. Szukałem w sieci swojego rozwiązania ale nie potrafię tego przekuć w program lecz mogę podać algorytm co może trochę wyglądać śmiesznie ale tak najszybciej potrafię coś zobrazować ;) Excela dopiero co poznaję. Formuły jako tako opanowałem ale w pewnych momentach podczas przeliczania excel zamraża mi się na dłuższy czas. Program zrobiłem też na...
wyszło zupełnie inaczej niż we wzorze Mówisz zupełnie inaczej. A co konkretnie? Nie wstawił wiersza 4 (Twojej tabeli 3). Nie przeniósł daty z C3 do C4? Nie zsumował D2 i D3 w D4?
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Wstaw plik to popatrzę.
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
Co chcę uzyskać 1.w arkuszy tabelk_b2 wypełniam dane poza polami zaznaczonymi na zółto 2.naciskam przycisk wstaw b2 3.wyskakuje okienko 4.wypełniam pola naciskam ok. wstawia wpisany text w arkusza b2 (pola na żólto w tej chwili) i jednocześnie po naciśnieciu ok copiuje(to jest makro) do arkusza naklejki. 5.analogicznie z wstaw F 6.jeszcze przycisk "usuń...
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
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"...
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...
W załączonym pliku nie ma tabeli!!! Wybacz mój błąd, chodzi mi o makro dodające wiersze tak jak w załączonym pliku.
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...
Witam, mam tabelę z transakcjami i jednym wierszem nagłówkowym, a potrzebuję go wstawić nad transakcjami z każdym kolejnym kontrahentem (klienci są nazwani a,b,c,d itd.) Wygląda to tak KlientTowarykod cena ilość atowar71234567891018 5,05 1 atowar81234567891019 5,06 2 atowar91234567891020 5,07 1 btowar101234567891021 5,08 2 btowar111234567891022 5,09...
Dziękuję za chęć pomocy, tabela jest utworzona w excelu poprzez "wstaw tabele" w załączniku plik z przykładem w docelowej wersji są jeszcze inne tabele niżej dla których też chce zrobić taki przycisk
Witam Proszę o pomoc w napisaniu makra które by ułatwiło mi pracę i skróciło czas jej wykonywania. Mam następujący problem W bazie danych mam 4 arkusze i chciałbym stworzyć makro które wstawiało by 5 wierszy pod każdą nazwę kraju w Arkuszu o nazwie Kraje1 i Kraje2, następnie z Arkusza Kraje1 lub Kraje2 (nie ma znaczenia z którego bo lista zawsze jest...
Wstaw lipne dane i załącz plik Pliki zawierają ok 25 000 wierszy, w razie potrzeby podeślę na priv. Pozdrawiam Kamil
Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
W podanym linku jest gotowe makro do wklepania, z tym że nie wiesz gdzie go wkleić. Zrób arkusz wstaw jakieś liczby w komórki, dodaj przycisk, dodaj kod reagujący na ten przycisk w którym wstaw tylko komentarz że tu trzeba wywołać coś aby wymieszać komórki w zakresie A1:A3
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ć...
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę. Chyba nie dość dokładnie opisałem w czym rzecz ;-) Suma, 30 (pusty wiersz) Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej. Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad...
Pewnie jest w tym makro jakiś błąd (sądząc po godzinie powstania = mniej więcej godzina postu to nawet bardzo prawdopodobne). Niestety bez rzeczywistego pliku danych ciężko coś poprawić. Nie znam specyfiki Twojego arkusza, ale spróbuj zmienić na początku makro: Const MaxR = 20 ' maksymalna ilość powtórzeń zamiast 20 wstaw 100. Zobacz czy coś się zmieni,...
Witam, Mam następujący problem: w arkuszu Excel mam dane z datami w kolumnie A od komórki A2 w dół. Dane są w porządku malejącym, ale mają luki - tzn. np. po 26/01 czasami jest od razu (bez pustego wiersza) 24/01. Chcę napisać makro, które w takim wypadku wstawi odpowiednią ilość pustych wierszy w miejscach, gdzie brakuje dat. Póki co mam kawałek kodu,...
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...
Witam, Temat ogólnie już był poruszany, ale został zablokowany a ja chciałabym stworzyć coś dodatkowego do niego i nie wiem jak. Konkretnie chodzi mi o taką tabelkę jak w załączniku 1 i stworzenie do niej makra by oddzielały się wiersze po nagłówku "Obiekt" i dodatkowo by tam gdzie jest nagłówek "Godziny" tworzyło się auto-sumowanie dla powyższych kolumn...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Zauważ, że wiersze wstawiane są "od końca". W związku z tym daty należy obliczać podobnie. For count = 1 To how_many Range("A" & i + 1).EntireRow.Insert xlShiftDown Range("A" & i + 1).Value = Range("A" & i).Value - how_many + count - 1 Next count
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie. Wstawiam załącznik. Byłem w pracy i nie mogłem zajrzeć wcześniej na forum. Dane w komórkach są fikcyjne (musiałem oczyścić prawdziwe dane, gdyż nie mogę ich udostępniać), ale bardziej chodzi o zasadę działania na danych. Wierszy w tabeli jest ok. 500 wierszy i przy każdej zmianie trzeba...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
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...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Przyznam, że zaczynam się gubić. Spróbuj: [syntax=vb]Private Sub CommandButton1_Click() Dim szukaneTabl As Variant Set wscel = Worksheets("sheet1") Set wsbaza = Worksheets("sheet2") ost_wiersz_celu = wscel.Range("A65536").End(xlUp).Row 'ost_wiersz_bazy = wsbaza.Range("D100").End(xlUp).Row szukaneTabl = wscel.Range("A2:B" & ost_wiersz_celu).Value...
Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste wiersze to zamiast tych dwóch linijek wewnątrz, wstaw If Cells(1,...
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,...
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): http://obrazki.elektroda.pl/6793685500_1... a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
da sie coś takiego zrobić? Da się, Np przy użyciu pętli (For lub Do). Wewnątrz wstaw instrukcję wyboru (If) porównującą wartości komórek w kolumnach obu arkuszy i jeśli są równe, to licznik pętli będzie interesującym nas numerem wiersza, dalej już z górki. Podobny temat: [url=http://www.elektroda.pl/rtvforum/to... ostatni post.
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
Do szczęścia mi brakuje aby efekt makra robił się na arkuszu "wynik" a wartości były brane z arkusza dane. :please: Efekt taki jak na zrzucie 961076 dla wielu "statusów" można uzyskać poprzez makro w załączonym pliku :spoko: 961080
Chcialabym aby po nacisnieciu przycisku wstawil mi sie nowy wiersz pod zoltym wierszem i i zeby zwaratosc zoltego skopiowala sie do tego wstawionego i tak z kazdym kolejnym. nagralam takie Makro: [syntax=vbscript]Sub Makro3() ' ' Makro3 Makro ' ' Rows("6:6").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("5:5").Select...
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete End If Next s[/syntax] 2. Do swojego projektu wstaw moduł (Insert->Module)...
Niestety nie można zarejestrować w makro "inna komórka", VBA nie zrozumie takie. W post #2 PRL podal Ci link Dodano po 3 Być może jednak wiersze w arkuszu są równomiernie, na przykład co 40 wierszy umieścić numery?(w m6, m46, m86 itd.) Dodano po 19 No tota M6, przy prawej krawędzi, lub na ilu kolumny w lewo? Numer na każdej stronie powinno być 5 wierszy...
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro będzie dostępne w każdym dokumencie. Żeby nie rozsyłać makra...
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
makro wstaw wiersze excel makro wstaw makro wstaw
multisim wzmacniacz kupno używanego samochodu behringer kolumna
strojenie elizabeth płytka sterująca bieżni
TP.HV352T PB753 Firmware: Android 12 Image, USB Flashing, Board & Panel Matching CozyLife Smart Plug Models: HomeKit, Energy Monitoring, Tuya-Based Outlets
