Włącz nagrywanie makr, zrób co masz zrobić i gotowe.
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
Przy odświeżaniu pliku potrzebuję aby wykres ten został usunięty. W jego miejsce makro tworzy nowy w oparciu o aktualne dane. Jeśli wykres jest tego samego typu i nie zmienia się układ danych, tylko dochodzą nowe, to po co usuwać wykres ? Wystarczy "rozszerzyć" zakres danych dla wykresu już istniejącego ... ? : / ?
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
W jaki sposób mógłbym ustawić żeby przy kopiowaniu pomiędzy każdą kolumną były te znaki Tego się nie da magicznie ustawić :not: Można natomiast wykorzystać do przygotowania odpowiedniej treści kopiowanych komórek albo formułę np jak na zrzucie 965333 która po wklejeniu do edytora tekstowego da pożądany efekt 965334 Albo można wykorzystać makro do preparowania...
Pozwoliłem sobie trochę przetestować :) Moje wnioski: Przeniesienie kolumny pomocniczej (rozwiązanie marek003) do ark "Baza danych" do kol D i korekta formuł w ark "ABC" =JEŻELI(CZY.BŁĄD(INDEKS('Baz... danych'!A:A;PODAJ.POZYCJĘ($B2;'B... danych'!$D:$D;0);1));&qu... danych'!A:A;PODAJ.POZYCJĘ($B2;'B...
Excelem łączę się przez referencje Dzięki CreateObject("Excel.Application") nie musisz dodawać referencji do Excela w twoim makrze. To jest właśnie najpiękniejsze. GetObject używa już dodanej referencji do Excela natomiast CreateObject tworzy obiekt z COM bez potrzeby ręcznego dodawania referencji. Działa w większości wersji Excela. Ciekawe czy takie...
Proponuję poniższy kod dla zdarzenia WorkbookOpen. Kod sprawdza czy ostatni arkusz w skoroszycie ma nazwę równą dzisiejszej dacie, jeśli nie to tworzy na końcu skoroszytu nowy arkusz z nazwą taka jak dzisiejsza data. [syntax=vb]Private Sub Workbook_Open() Dim sShNm$ sShNm = ActiveWorkbook.Sheets(Sheets.Count).Name If sShNm <> CStr(Date) Then Sheets.Add...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
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...
Źle zrozumiałeś ten zapis. Część odpowiedzialna za taktowanie co 10us wygląda tak: ... _pulse_in5: (at)genus(9) ; THIS FOR 10 US UNITS but approx. depends on XTAL ; you can remove the above call and tailor this routine ; when remarked 10 cycles/loop are needed and for 1 Mhz this is 10 uS ; for 4 MHz you need additional 30 cycles and the...
Załącz arkusz wraz z makrem, które generuje tę listę, to będzie można na to pytanie próbować odpowiedzieć.
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...
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
Jeśli są tylko te 2 możliwości, to można tam gdzie jest: [syntax=vbscript]Case "P2"[/syntax] dopisać K2 (po przecinku): [syntax=vbscript]Case "P2", "K2"[/syntax]
With Arkusz1 jest dobrze, to jest nazwa kodowa arkusza. Na pierwszy rzut oka błędu nie widać. Ale nie widać też w którym wierszu ten błąd się pojawia. Wykonaj program krokowo i po ustaleniu miejsca błędu wykonaj jeszcze raz, zatrzymując się przed błędem i sprawdź wtedy co zawierają poszczególne zmienne. Np. Jaką wartość ma zmienna SelRow?
Przyjmij sobie jako zasadę, żeby zawsze załączać plik Excela ilustrujący problem. W nim należy pokazać układ danych i oczekiwany wynik. To ułatwia potencjalnym pomagającym wyobrazić sobie oczekiwania pytającego. Inaczej trzeba sobie wyobrażać, jakie są oczekiwania i niepotrzebnie traci się czas. Zobacz, czy o to chodziło? W jakim formacie miał być ten...
[syntax=vbscript]Range(Cells(x, "H"), Cells(x, "I")).Copy Sheets("Tylko M").Cells(m, 1)[/syntax] Dostosuj...
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
W sumie nie wiem co to makro miało by robić. Kolorować kody w kolumnie B i A jeśli w kolumnie C jest wartość? Można do tego użyć formatowania warunkowego zaaplikowanego dla kolumn A i B w zalezności od wartości C
Wyszukiwanie wartości / vba z guzikiem
W Wordzie są dostępne polecenia sumowania tabeli (Menu Tabela->Formuła ...): =SUM(ABOVE) - Sumuj komórki nad kursorem =SUM(LEFT) - Sumuj komórki z lewej strony kursora =SUM(RIGHT) - Sumuj komórki z prawej strony kursora. Uwaga Program Word wstawia wynik obliczeń jako pole w wybranej komórce. W przypadku zmiany wartości w komórkach, które obejmuje działanie,...
Proszę zatem o pomoc/podpowiedź Odnoszę wrażenie, że tu wystarczyła by ulokowana w każdym arkuszu tabelka sumująca wagi wszystkich wyrobów ważonych każdego dnia :D np. tak jak na zrzucie :spoko: 1078331
W załączniku.
Przetestuj makro z załącznika.
Witam Nawiązując do tematu: [url=https://www.elektroda.pl/rtvforum/t... Wpisałem makro ale tworzy mi puste pliki.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, -2) = Date Target.Offset(0, -1) = Year(Date) & "/" & Target.Row - 1 End If End Sub
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
"Baza" to przykładowa nazwa arkusza, na której ma działać funkcja WYSZUKAJ.PIONOWO - Ty tam możesz wstawić ten zakres, gdzie masz nazwy tych krajów. Żeby Ci to działało na zasadzie "zastępowania", to byś musiała zamieniać wartość na formułę, a do formuły wstawić skrót kraju "na sztywno", czyli taka małą modyfikacja: [syntax=vb]For Each c In .Range("A2:A"...
Poniżej procedura VBA, która sprawdza pliki z poziomu Accessa. Jest zrobiona na szybko, więc nie jest optymalna, ale pokazuje pewne mechanizmy, które można na różne sposoby wykorzystać. W tym przykładzie w Accessie stworzyłem tabelę: "Tabela_Pliki_PDF ", gdzie w polu " Pliki_PDF" jest lista plików pdf "101.pdf, 102.pdf" itd. Tworzymy też do testów formularz...
Dowiedz się wszystkiego o zmiennej MCU, on w avr gcc przekazuje nazwę mikrokontrolera, jedynie trzeba zrobić #MCU, aby powstała zmienna typu char/string Przepraszam za wcześniejsze nieporozumienia. Wygląda na to, że doszło do pewnego zamieszania wokół sposobu, w jaki można wykorzystać informacje o mikrokontrolerze, dla którego kompilowany jest kod...
Witam wszystkich. mam utworzony plik "A", w którym makro "X" tworzy nowy plik "B" z pewnymi danymi. Chcę, aby ten nowy plik "B" miał automatycznie po utworzeniu podłączone pod "guzikiem" makro "Y". Czy jest to wykonalne? Bardzo proszę Was o pomoc. :)
Napisalem wszystko od nowa. Makro testuje czy folder istnieje jesli tak - zapisuje w nim nowy plik pod warunkiem ze plik juz sie tam nie znajduje, jesli nie - tworzy nowy folder i zapisuje w nim nowy plik - nowy miesiac. =INFO("Directory") nie dzialalo dobrze w moim przypadku gdyz nie zawsze pokazywalo prawidlowa lokalizacje. Co o tym myslicie? Czy...
NO tak, nie zmieniłam nazwy arkuszy i mówię że nie działa. Działa. Makro przechodzi pięknie i zapisuje pliki we wskazanej lokalizacji. Ale w skoroszytach które makro tworzy są tylko arkusze przekopiowane, nie ma danych przefiltrownaych wg klucza. Powinnam coś jeszcze zmienić w tym makrze? Używam makra na przykładzie wyżej. Zmieniłam tylko nazwę arkuszy.
Cześć, mam pytanie, czy można napisać makro, które będzie kopiowało ostatni dodany arkusz? Czyli: mam arkusz 2020, makro kopiuje mi go i tworzy arkusz 2021, kolejny raz makro kopiuje mi arkusz 2021 i tworzy arkusz 2022 itd. pozdrawiam :)
Ok rozumiem. W przypadku wrzucania tego na drukarkę jest super bo wydrukuje się jedno po drugim. W przypadku PDF tworzy to jakaś przeszkodę w prawidłowym funkcjonowaniu mojego arkusza. Ale i tak dzięki za pomoc bo arkusz stał się dużo bardziej funkcjonalny.
Ten fragment nie ma znaczenia - to mi działa. Chodzi mi o to aby w nowym wydzielonym tym makrem pliku arkusz wyglądała tak samo (szerokość kolumn, wielkość czcionki. Teraz jak tworzy mi nowy plik z fragmentem danych który wydzieliłam makrem to są stałe szerokości kolumn i wielkość czcionki taka jakbym po prostu otworzyła nowego excela i wkleiła tam...
Posiadam makro zmieniające kolory losowo a potrzebuje tylko dwa kolory w my Buton np; biały i czarny. i dobrze by było aby po zamknięciu Excela kolor wracał do początkowego np białego. PROSZE O POMOC W ZNALEZIENIU ROZWIAZANIA Znalazłem takie makra- PIERWSZE TWORZY MyButton1 [syntax=vbscript]Sub Creator() Dim shp As Shape Set shp = ActiveSheet.Shapes.AddShape(1,...
Cześć, mam plik w którym znajduje się lista kodów pocztowych miast. chce napisać makro które po zliczeniu do ostatniego wiersza ile jest kodów stworzyłoby mi nowe pliki excel o nazwach z kolumny kod niestety to co mam obecnie tworzy mi tylko jeden taki plik i wyrzuca błąd: [syntax=vbscript]Columns("A:A").Select lastrowA = Application.WorksheetFunction.CountA(Sel...
W plikach nagłówkowych procesorów AVR znajdują się przeróżne makra na potwierdzenie tezy wstawię kawałek kodu pliku nagłówkowego. [syntax=c] #ifndef __PGMSPACE_H_ #define __PGMSPACE_H_ 1 #define __need_size_t #include <inttypes.h> #include <stddef.h> #include <avr/io.h> #ifndef __ATTR_CONST__ #define __ATTR_CONST__ __attribute__((__const__))...
(at)cbrman Mogę prosić o wyjaśnienie kodu? Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch". (at)lanzul 1. Po AU09 ma być AU10. 2. Zestaw znaków zawiera się w zbiorze jaki tworzy alfabet angielski + cyfry + znaki specjalne jak kropki, przecinki, myślniki 3. Ma się to dziać jedynie w jednej, scalonej komórce o adresie B+C, 9+10...
Cześć, Może ktoś podpowiedzieć jak działa to makro ? Tj gdzie tu jest wklej zawartość do pliku .. albo co zmienić aby to działało. https://www.extendoffice.com/documents/e... Generalnie mam arkusz z dużą ilością obliczeń i chcę część z nich zapisać do pliku CSV - to makro robi teoretycznie to co chcę tj zaznacza...
Dołącz plik tutaj
Cześć, napisałem 2 makra i nijak nie mogę ich połączyć. Makro 1 - tworzy nowy folder Makro 2 - zapisuje plik pod nową nazwą folder i plik pod aktualną datą, ta w komórce Q2. Oba makra działają, folder się tworzy, plik zapisuje się pod nową nazwą ale nie w nowym folderze Sub X() ' zaznacz1komorke Range("Q2").Select 'zrób nowy foler Dim Rng As Range Dim...
Właściwie z tych obiektów potrzebujesz tylko Folder i Plik (do pętli) - to warto zadeklarować. Czyli można od razu zrobić: Set F = CreateObject("Scripting.FileSystemObject... i dalej jak powyżej. I jeszcze jedno: nie chcesz wykorzystać pliku z makrem? Musisz go mieć (no chyba że użyjesz personal) bo uruchamiasz makro VBA,...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
wszystko działa pięknie poza tym łączem, scieżkę musiałem zmienić i problem ma z wybraniem konkretnego pliku do którego ma przypisać łącze bo w miejscu gdzie ma znajdować się już sama nazwa konkretnego pliku wyświetla zmienną "p" i nie potrafi otworzyć linku. Range("A15").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "C:\Users\Wioletta...
Cześć, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
Przecież masz instrukcje/manual pod F1 - poszukaj sobie jak się tworzy makra - przyda Ci się w przyszłości !
tworzy makro excel makro tworzy katalog makro tworzy folder
wymiana grzałki podciśnienie diego skraplacz ariston
interfejs multidiag hilti udaru
Hydroelementy w Honda Shadow 1100 VT - brak podkładek Honda Shadow VT1100 1996: Grubość podkładek zaworowych
