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).
W prosty sposób ikony w pasku można zmienić tylko dla ikon makropoleceń. Więc ostatecznie można stworzyć takie makro i wstawić do paska szybkiego dostępu i zmienić mu ikonę.
Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane. W programowaniu nie ma 'na przykład. Dlatego pokaż arkusz wejściowy i arkusz po wykonaniu makra.:)
... " a " czy mógłbyś poprawić aby wstawiało Datę w komórkach w zakresie od B11 do B2000 i Godzinę od C11 do C2000 1. " a " co to jest to " a " w " If Target <> a " ? 2. "zbiorczo", tj. hurtem (?), czy sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 ? ps: trzeba by wstawić kontrolę zmiennej "i" (wierszy)
Serdecznie dziękuję ! Niestety opcja aparat odpada .... potrzebuję aby wstawiane pola były edytowalne. Może mała podpowiedź - jak zbudować takie makro ?
Do nagłówka/stopki można wstawić obrazek...
Zamiast 1 lub x wstawić nagłówek czy dodatkowo?
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
No ... to citizenrey ma zadanie domowe z klawiszem 'F8' do przećwiczenia ... https://obrazki.elektroda.pl/6624646800_... ... czego zabrakło i gdzie wstawić ...
Dziękuje serdecznie za pomoc i poświęcenie swojego czasu - makro działa bez zarzutu. Pozdrawiam.
Chcemy wstawić w nowo otwarty skoroszyt, w arkusz aero :)
Bardzo dziękuję Panie Macieju. Po zmodyfikowaniu makro działa idealnie w mojej bazie abonentów telefonów służbowych. Bardzo dziękuję.
Opis zagadnienia: mam arkusz do którego w różnych zakładkach wpisują różni użytkownicy swoje dane. Na koniec miesiąca tworzone jest zestawienie - przycisk generuj zestawienie (makro przezemnie napisane), który tworzy nowy skoroszyt, do którego przepisywane są odpowiednie dane. Wszystko OK tylko, że w arkuszu bazowym mamy makro, które chciałbym również...
Makro sobie z tym poradzi. Najważniejsze jest przypisanie Nr pierwszego wiersza. Zastanawiam się nad LP, może powinna być skorygowana? Wystarczy w tym przypadku (wiersze od 3 w dół) za każdym Next wstawić nową linię (Enter) i wkleić [syntax=vb]Cells(i, 1) = i / 2 - 0.5[/syntax]
Witam, 1. potrzebuje pomysłu jak zabrać sie za makro. chodzi o formatowanie danych wejsciowych do określonego wyglądu i sprawdanie poprawności danych. info w zalaczniku. 2. i może banalne ale czy ktoś wie jak w formularzu w vba excel wstawić wzór (wzór z microsoft equation 3,0). czy wstawić jako zdjęcie?? nigdy nie robilem a teraz potrzebuje i nie wiem...
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:...
W załączeniu jest plik ze wstawionymi obrazkami przez makro w wersji excej 2007 oraz 2010, dodtakowo plik z makrem do wstawiania obrazków.
Działa :) Chciałem po prostu poniżej 1/2/2002 wstawić 1/1/2002 i tak jest. Dzięki!
Dzięki adamas - już mi kilka razy pomogłeś. Tym razem przysłałeś podpowiedz ,ale niestety nie mogę tego sprawdzić bowiem od tygodnia coś mi się dzieje i po kliknięciu na makra oraz ewidencja makr otwiera mi się zawsze tylko jedno (czyść) i nie widać tak jak dawniej po lewej tronie takij tabeli gdzie mogłem otworzyć przycisk i mogłem wybrać module i...
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...
Zapewne można napisać kolejne makro korzystając z worksheet_change, albo wstawić listę rozwijalną i z niej wybierać.
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
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
Wielkie dzięki za pomoc, zwłaszcza koledze Clubs :) A jeszcze taka drobnostka - w którym miejscu wstawić ścieżkę, gdzie ma być zapisany plik? I w nawiasach, czy nie?
(at)paweliw dokładnie formatowanie warunkowe miałem już ustawione i ładnie to śmiga ale tylko na jednym arkuszu, wpisałem formułę do sekcji wszystkich arkuszy lecz nadal działa tylko w pierwszym arkuszu (at)Zbych034 Nie mogę wstawić pliku ponieważ wyskakuje komunikat "... Niedozwolone rozszerzenie"
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
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) = ""...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Jak zrobisz już te różne makra, które się mają uruchamiać warunkowo to wrzuć tutaj. Pointeresuj się trochę edytorem makr i językiem VBA. Formularze to nie tylko przyciski którym się przypisuje nagrane makra. Makra są zapisywane w języku VBA. Można je pisać samodzielnie bez nagrywania, lub nagrywać i dowolnie edytować (np. wstawić jakieś warunki "if")....
Najpierw makro, które wstawi przecinki.
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...
... dodać do każdej z nich 2 wiersze ... z automatu pod każdą tabelą wstawić dwa wiersze ... To znaczy, gdzie wstawić ... do tabeli czy pod tabelę ? Przygotuj przykład z minimum 3-4 tabelami w arkuszu.
Zapewne jakieś makro należy stworzyć, które uruchamiało by sie po wywołaniu skrótem klawiszowym. W makrze należaloby wstawić procedure tworzenia nowego arkusza. VBA - tam szukaj.
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ć...
[/quote] zamiast której linijki mam to wstawić bo jak wstawiam zamiast : ActiveWorkbook.SaveAs Filename:= _ to podświetla na czerwono linijkę pod spodem, gdy ją skasuje to niby jest ok ale nie działa.
Załącz plik z tym makrem, może w złe miejsce wstawiłeś?
Dzięki za pomoc. Rzeczywiście działa. W sumie nie napisałem tego ale było również istotne aby plik wynikowy był w formacie xls. Piszę bo może się komuś przydać do przygotowanego makro przez JRV należy wstawić po ActiveWorkbook.SaveAs "shablon" & n, fileformat:=56 Pozdrawiam :)
[syntax=vbscript]Sub HL() Sciezka = "C:\Users\Biuro\Desktop\Dok\" If Dir(Sciezka & Selection & ".pdf") <> "" Then Selection.Hyperlinks.Add Anchor:=Selection, Address:=Sciezka & Selection & ".pdf", TextToDisplay:=Str(Selection) End If End Sub [/syntax] Wygodniej jest 2x kliknąć...
zmieniłem trochę komórki docelowe i udało się dzięki Tobie kolego osiągnąć to co chciałem za co serdecznie dziękuję w załączniku dobry plik schody zaczynają się jak chcę do do mojego Worksheet_Change wstawić bo już coś tam jest i prosi o określić co to jest a co to jest x itp...
Chamski (podwójne NOT) kod, ale działa. - najpierw wybierasz sobie "co chcesz wstawić" z komórek D1..D6 - potem wybierasz sobie "gdzie to wstawiasz" - komórki A1..A6 O pierwszej nad ranem trudno o lepszy kod :) Myślę, że koncepcję moją już znasz, przerobisz sobie "na swoją modłę" - jak będziesz chciał. Kod wklejasz bezpośrednio w kod arkusza, którego...
Mam problem w pliku mam niewiadoma liczba ukrytych arkuszy chciałem wszystkie odkryć za pomocą makra z pomocą Internetu stworzyłem taki kod Sub odkryjbarkusze() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub niestety nie działa moja znajomość VBA nie pozwala mi znaleźć błędu. Excel 2010 podświetlana...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Ale jaka lista (poprawność danych, lista formularzowa. AciveX)? Chodzi o to, że nie wiadomo przy jakiej akcji ma się makro uruchomić... Może na początek nagraj sobie makro: 'Format>autodopasowanie kolumn' i wstaw gdzie trzeba. Chr(10) też można, w prosty sposób, warunkowo wstawić co ileś tam znaków.
Dokładnie tak. I jeszcze jedno. Dlaczego chcesz zepsuć strukturę tabeli umieszczając dwie w jednej? Excel to oczywiście przeżyje, ale ty się bardziej spocisz jak kiedyś zechcesz coś z tego wyciągać. Nie lepiej umieścić to w oddzielnym arkuszu, a nie między wierszami?
Mam problem z Excelem. Mam zbiór zawierający 20 tys. liczb w kolumnie 1 i potrzebuję, aby np. w osobnej kolumnie wyświetlał mi tylko co 4 bądź 5 dana z kolumny 1 (jeszcze nie wiem najlepiej jak mógłbym to zmieniać). Czytając na forach chyba trzeba napisać makro, ale nie wiem jak. Czekam na pomoc. Sprawa bardzo pilna. Dziękuję za wszelką pomoc:) Plik...
adamas_nt faktycznie jest mały problem z tymi wyjątkami. Najwyżej po zastosowaniu makra trzeba by było przejrzeć te nazwy własne i ewentualnie zmieniać je ręcznie. Możesz wstawić to makro którego użyłeś do poprawy znaków? Sam arkusz może być faktycznie trochę nieuporządkowany, jednak nie ja go tworzyłem. Marcin230 w załączniku plik PDF
Dziękuję bardzo. Wydaje się działać. A teraz mam pytanie czy dałoby się wstawić warunek zamiast większy o 0 to jeżeli nie zawiera #N/D "taką wartość zwraca standardowo wyszukaj pionowo jeżeli nie znajdzie? Pozdrawiam Dodano po 7 ślepota ze mnie. Podał Pan odpowiedź na tacy. działa pięknie jeśli złapie #N/D. Super
Proszę o pomoc w napisaniu makra, które będzie uruchamiane za pomocą przycisku. Czyżby jakaś podpucha? Jeśli wiesz jak wstawić przycisk i kliknąć w niego p.p.myszy (czego nawet nie musisz, bo Excel Cię wyręczy), to w czym problem? Wstaw przycisk>Przypisz makro>nowe> i między znaczniki (tagi) Sub-End Sub wklej kod...
Nie wnikam w działanie makra, ale do przemyślenia wykroiłem najistotniejsze. [syntax=vbscript] dirout = Sheets("Parametry").Cells(4, 3).Value Workbooks.Open (dir_in & file_in) For Each sh In Worksheets Workbooks.Add fileout = CStr(Cells(i, col).Value) 'coś tu jest kopiowane, wypełniane, itp 'z odwołaniem do ActiveSheet ActiveWorkbook.SaveAs Filename:=dirout...
Francuzi może i nie zmieniają, ale dane do arkuszy są generowane na różnych komputerach z różnych źródeł i nie wiem czemu ale znaki się zmieniają. Chodzi o nazwy własne, które mają czasem dziwne krzaczki. No nic, myślałem, że to się da jakoś fajnie wstawić gdzieś tu Selection.Replace What:=Worksheets("kody") ... Głównie mam problem ze ścieżkami, ale...
Nic nie zrozumiałem z tego zadania. W kolumnie B powinienem wstawić tak jak na zdjęciu rodzaje produktów, po przecinku, =JEŻELI(C4=1;$C$3;""), ale nie potrafię tego w poprawny i czytelny sposób przenieś do stworzenia funkcji w vba. Makro nagrywałem ale to nadal nie do końca to co próbuję osiągnąć. pozdrawiam
Witam, Chciałbym w Excelu wstawić przycisk powiedzmy o nazwie PRZYCISK1 , który po kliknięciu wstawiałby w aktywną/kliknięta wybraną w tej chwili komórkę daną wartość np. PRZ1 i przechodził do komórki poniżej. Czy da się to zrobić a jeśli tak to jak? Z góry dziękuję za pomoc Pozdrawiam Odpowiedz
Zapewne chodzi o to, żeby otwarcie bez obsługi makr zablokowało arkusze. Można ukryć arkusze z atrybutem veryhidden, zostawiając jeden z informacją w stylu: "sorry, otwarto bez makr, czy cóś". Ukrywanie realizować przy każdym zamknięciu arkusza, a przy otwarciu odkrywać. Edycję VB ochronić hasłem, żeby nikt nie zmienił atrybutów. Edit: O, zdążyłeś wstawić...
..Mam W kolumnie A 1600 wierszy np. z nawziskami i muszę w kolumnie B wstawić odpowiedni komentarz ( teskstowy ) będzie on zmienny .. Można to zrobić tak jak chcesz, za pomocą przycisków ale może są jakieś reguły wg. których dopisujesz ten komentarz? Wtedy lepiej by było napisać jakieś makro które robi to automatycznie.
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...
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...
Prawidłowo przenosi wartości wraz z datą i zmianą, jednak nie zwraca w komórkach D5 i E5 danych do formularza z którego zostały wpisane , gdzie miało pokazywać dla jakiej daty i jakiej zmiany został wyeksportowany ostatni raport - ma to na celu wyeliminowanie możliwości wprowadzania dwukrotnie tego samego zamówienia. Da radę to zrobić? I jeszcze przy...
to makro rzeczywiście jest prostsze i sumuje wszystkie komórki A1 do UZYWANE A1, B1 do B1, C1 do C1 itd. Ale tylko z A1 do A1 bo nie wiem jak to zmienić docelowo aby np można by było samemu edytować, że źródło to np A1 a adres docelowy to np B1. Ale to w sumie najmniejszy tu problem bo mogę stworzyć arkusz docelowy na wzór arkuszy źródłowych i nie będę...
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 Przerabiam makro które ktoś mi kiedyś zrobił ale nie wychodzi to do końca tak jak trzeba.Chciałbym po naciśnieciu przycisku wstawić tabelkę z arkusza B2 lu F, w zależności który przycisk nacisnę. tabelki wstawiałyby sie jedna pod drugą i najlepiej jakby wyskakiwało okienko z polami zaznaczonymi na żólto żeby można było je wpisać ale to dla mnie...
Chcę wstawić proste makro odwołujące ikonę przycisku do komórki w innym arkuszu, tego samego pliku (skoroszytu). Dokładnie komórki (C4) w (Arkuszu2) Oto kod mojego makra: [syntax=vb]Sub Odwolanie() Worksheets("Arkusz2").Range ("C4") End Sub[/syntax] Coś jednak robię źle bo wywala mi komunikat o błędzie. Proszę o poradę... Nie wiem czy będzie potrzebny,...
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,...
Witam, Mam plik Excela służący jako magazyn. W każdy arkuszu są zapisywane ruchy magazynowe dla każdego produktu w formie tabeli Excela. -w każdym arkuszu jest po jednej tabeli -wszystkie tabele mają dokładnie ten sam układ nagłówków (np. Towar, Cena, Ilość, Jednostka, Suma, Nr FV itp.) ale oczywiście różną ilość wierszy -chcę wstawić pomiędzy nagłówki...
Zawsze można użyć kopiuj/wklej. Mam kilkanaście dokumentów Worda Właściwie jest to kwestia skali i "powtarzania się problemu", czyli: jeżeli problem jest bardzo rozległy lub jeśli będzie się powtarzać dla różnych danych, to warto rozważyć makro. Jeśli nie, to po co makra skoro można to zrobić ręcznie? Rozwiązanie bez makr: tabela z pliku txt do Excela,...
Dziękuję za podpowiedz ja mam u siebie takie macro: [syntax=vbscript]Sub Drukowanie() ' ' Drukowanie Makro ' Sheets("WNIOSEK O WYPŁATĘ").Select Range("A1:BS45").Select Selection.PrintOut Copies:=1, Collate:=True Sheets("FORMULARZ").Select Sheets("Polecenie").Select Range("A1:AX68").Select Selection.PrintOut Copies:=1, Collate:=True Sheets("FORMULARZ").Select...
Można by to zrobić w ten sposób: 1. wstawić dwukomórkową tabelkę ze zdjętymi obramowaniami, na wydruku więc nie będzie widowczna 2. lewa komórka przechowuje numery startowo-przerwaniowe i stanowi "zaplecze" dla komórki prawej, zawartość ma czcionkę barwy białej, czyli zawartość niewidoczna 3. prawa, jak na obrazku powyżej, przechowuje numerację tworzoną...
markoz7874, adamas_nt przede wszystkim dzięki za pomoc! Właśnie próbowałem uruchomić oba makra i oba działają, ale... no właśnie... Po pierwsze: a) makro markoz7874 - przy kopiowaniu pomijane są przecinki w niektórych komórkach (nie wszystkich) b) makro adamas_nt - przy kopiowaniu wkleja formuły a ja potrzebuje liczby Po drugie: to na czym do tej pory...
witam, dziwne to co mi wychodzi dlatego zwracam się do Was. Mam tabelkę w zakresie komórek c11:ac50. W tabeli tej mam różne dane osobowe. Po jakimś czasie chciałbym nanieść do tabelki nowe dane. Tak więc postanowiłem wstawić makro czyszczące dane. Ustawiłem makro i działa jak należy. potem chciałem, aby po naciśnięciu przycisku wyskakiwało mi okienko...
Witam Mam mały problem z makrem ponieważ chciałem aby Excel wysłał email do 4 osób obecnie wysyła do 1 osoby mógłby ktoś z was doradzić co wstawić aby wysłał mi do pozostałych 3 osób ? Najlepiej jak obecny adres jjjk1(at)tlen.pl był wysyłany jako do odbiorcy wiadomości a pozostałe jako DW DO- jjjK1(at)tlen.pl DW -test1(at)tlen.pl - test2(at)tlen.pl...
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...
Clubs, wygląda na to, że Twój trop jest dobry i rokuje nadzieje :) . Otwiera się nowe okno IE dokładnie takie jak to które chcemy przekopiować. Połowa sukcesu jest Ale nie zadziałało zaznaczenie, skopiowanie i powrót do excela. makro chyba się zapętla ale nic sie dalej nie dzieje. Kinggustav, gdzie dokładnie wstawić parametr a adresem strony? Dla mnie...
Zablokować pierwszy wiersz, zmienić wysokość, wstawić tam wszystkie przyciski i używać jako "paska menu"...
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...
pozostałe które byłe wprowadzone wcześniej pozostaną na swoim miejscu w "przyrządach pomiarowych" I tak będzie dopóki nie zmienisz czegoś w zakresie "C5:I5" w arkuszu "Rejestracja przyrządów" tzn przypisywana (kopiowana) jest wartość, której nie zmieniłeś. Jeśli jednak komórki te chcesz zostawić puste a zachować wartości w drugim arkuszu musisz posłużyć...
dziękuje za odpowiedź. Jeśli dobrze zrozumiałem to co Pan napisał to z drugiego makra zrezygnowałbym. Myśl moja jest taka. Wybieram miesiąc jaki mnie interesuje np. wrzesień. Kolorami zaznaczają się dni wolne na kalendarzu oraz na wierszach gdzie są osoby - to wzsystko działa. Jak to zostanie wybrane to myśl jest taka (może być makrem) żeby właśnie...
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)...
Ja próbowałem z rejestratorem, ale nie umiem tego połączyć. Próbowałem też wstawić to co napisałeś, ale mi nie idzie. Pewnie coś źle wstawiam [syntax=vbscript]Sub szukaj() On Error Resume Next With Sheets("Dane"): End With If Err = 0 Then MsgBox "Arkusz o takiej nazwie istnieje!" Sheets.Add Method(Excel) End Sub[/syntax]
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...
Witam Chciałbym się podłączyć pod temat. Mam podobny problem i nie potrafię go rozwiązać. Wyjaśnię mam dwie kolumny. W kolumnie A jest wpisana kwota w kolumnie B data(daty się powtarzają może być więcej jak jedna liczba przypisana do tej samej daty) A B C 12----------01/01/2013 Wartosc 15----------01/01/2013 19----------01/01/2013 25----------03/01/2013...
Oczywiście, że można. Wszystko co jest możliwe do zrobienia ręcznie, z menu, jest także do zrobienia przy pomocy makra. Trzeba się pobawić. Możesz wstawić do arkusza lub menu programu przycisk/przełacznik odblokuj/zablokuj, do którego przypiszesz makro, które będzie przed rozpoczęciem wpisywania danych odblokowywało zadanych przez Ciebie obszar arkusza,...
W załączniku znajdują sie dwa arkusze: "DANE" i "WZÓR". W arkuszu"WZÓR" jest przykład o co mi chodzi. W arkuszu "DANE" w kolumnie A jest jakiś zakres danych(danych będzie tysiące i w tym problem) W kolumnie C arkusza"DANE" należy wstawić jakieś dane. Zastanawiam jak rozwiązać aby w kolumnie C wstawić te dane szybko i sprawnie? jak robię zakres od 1-20...
Dla szukania po fragmencie, w argumencie instrukcji Like wystarczy wstawić string pomiędzy gwiazdki (Shift_8). Range.Find znajdzie Ci tylko pierwsze wystąpienie. Maże zastosować jakieś filtrowanie. [url=http://www.elektroda.pl/rtvforum/vi... Najlepiej, gdybyś wrzucił jakiś przykład w załączniku (z tym makro...
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"...
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
Wielkie dzięki za pomoc. Przekazuję Koledze parę punkcików za dotychczasowe wsparcie. FPS może być w dowolnej kolumny, ale wszystko ma się rozpocząć w pierwszym wierszu. Jeśli inaczej, proszę powiadomić Kolorowanie powinno zacząć się od drugiego wiersza. Czy w tym makrze można wybrać pojedynczą kolumnę do kolorowania (np. makro ma kolorować kolumnę...
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ć...
Niestety nie mam żadnej pętli, bo do tej pory nigdy nie robiłem takich pętli, w których był jakiś warunek i kompletnie nie mogę tego ugryźć, poza tym od dawna tego nie robiłem. Nie wiem jak wstawić licznik, makro do otwierania linków zajmuje 2 linijki, więc nie wiem czy się wam to przyda, bo problem polega na konstrukcji pętli, jeżeli nie da się tego...
Komentarz można wstawić i edytować. Nagraj makro i przeanalizuj. Mały przykład: [syntax=vb]Sub komentarz() On Error Resume Next tekst = "jakiś tekst w pierwszej linii" & Chr(10) & Chr(10) & Sheets(2).Range("A1") Range("A1").Comment.Text Text:=tekst Range("A1").AddComment Text:=tekst End Sub[/syntax]
Jak to zwykle bywa przyszły komplikacje, których z moim poziomem zaawansowania nie jestem w stanie samodzielnie rozwiązać. Sęk w tym, że program, który będzie podlegał ewidencji czasu, może być otwierany kilkukrotnie. Właśnie, dlatego chciałbym, aby makro dodatkowo sprawdzało czy komórka przypisana do daty jest pełna (już znajduje się w niej czas),...
Próbuję napisać w excelu tabele dotycząca osób i przypisnaych im dat w tym, w arkuszu pierwszym jest tabela i w niej : 1) będą dopisywane osoby maks 80 (tabele zrobiłem i adekwatnie się powiększa jak dopisuje osobę) (nie przypisuje się jej odrazu numer, chciałbym żeby lp dotyczyło kolejności związanej z nazwiskiem i wskakiwało same). Czasem może być...
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,...
Witam, przeszukiwałem tematy ale nie mogę nic znaleźć podobnego - więc sorki jeśli gdzieś coś było.... Problem: Tabela w arkuszu (rozmiaru od C3 do AE60) importuje dane z innego arkusza i przedstawia je w postaci cyfr i literek. Chciałbym aby za pomocą kodu VBA wyniki : np jeśli pojawi się zaimportowana w daną komórkę w podanym wyżej rozmiarze litera...
Czy możesz mi podać e-mail??? paweliw paweliw czy możesz podać swój e-mail bo nie mogę dorzucić załącznika załącznik wyśle e-mailem będzie łatwiej. Załącznik możesz przesłać e-mailem a nie da się go wstawić na elektrodę ? Coś kręcisz ... Założyłeś temat na ogólnodostępnym forum i tylko na nim możesz otrzymać rozwiązanie. Także dlatego, żeby inni mogli...
Witaj!!! Dzięki serdeczne jeszsze dzisiaj jak wrócę do domu sprawdzę no i przede wszystkim dostosuję do swojego arkusz. O efektach będę pisał Pozdr. Dodano po 2 Witaj!!! Właśnie wrzuciłem to makro do arkusza; po uruchomieni u Basic wyskakuje mi błąd etykiety Compare; dodatkowo wyjaśnie mi proszę:] If (Sheets("Arkusz1").Cells(i, j) = "") Then Return...
Dzień dobry, Makro jest bardzo proste, więc jakby Pan poświęcił chwilę na jego analizę, to sam by Pan doszedł, co trzeba dopisać. Po linii: [syntax=vb]kom.Offset(0, -1) = .Cells(i, "D")[/syntax] wystarczy wstawić: [syntax=vb]kom.Offset(0, 1) = .Cells(i, "E")[/syntax] Oczywiście w Arkuszu1 musi być przewidziane miejsce na wprowadzanie tych cen. Pozdrowienia....
Tak jak radził tommy zrobiłem wstawiając dodatkową kolumnę i ukrywając ją , było wszystko ok do momentu aż z makro jest brak jakiejkolwiek cyfry. Wówczas lecą błędy w następnej kolumnie. Jeśli chodzi o radę Marka to mam takie skomplikowane makra , że nie wiem gdzie to wstawić W celu zobaczenia wysyłam makra - choć pewnie dopiero z programem można by...
Dobry, mam następujący problem: moje makro ma wyciągnąć fragment tekstu z kolumny po prawej i sprawdzić na którym miejscu znajduje się kropka (jeżeli na drugim to ma skopiować dwa znaki (cyfrę i kropkę), jeżeli na trzecim to trzy znaki(dwie cyfry i kropkę) po czym wkleić ten fragment w kolumnie po lewej. dla liczb dwucyfrowych to działa. dla liczb jednocyfrowych...
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ć...
Przy otwieraniu zeszytu z dozwolonymi makrami, procedura wykona numerację samoczynnie i po jego otwarciu numeracja "już będzie", nie będzie potrzeby ręcznego uruchamiania makra.
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ąć...
excel makro wstawić wiersz wstawić excel makro excel petla
naprawić wzmacniacz kraków lodówka listwa tomtom traffic
zgrzewarka transformatorowa bateria podtynkowa
Siemens lodówka – która lampka sygnalizuje najmocniejsze chłodzenie, Super Cool, Super Frost, skala poziomów Stiga 44 E – demontaż koła pasowego wielorowkowego z silnika elektrycznego kosiarki