[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]
Co to za program księgowy? Można z jego bazy brać dane FV i generować korekty, a potem je drukować, czy zapisywać do pdf. Nietrudna rzecz dla np. Akcesa.
[syntax=vbscript]Sub Makro() With Range("J2") .FormulaR1C1 = "=NOW()" .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With p = [F3] Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode...
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
Jeśli to ma działać w kilku czy we wszystkich arkuszach, trzeba ustawić formatowanie warunkowe w każdym z tych arkuszy. Zdarzenie SelectionChange można oprogramować na poziomie skoroszytu. Można to wszystko zapisać w VBA, ale trzeba określić zakresy formatowania i arkusze. W załączonym pliku kod, który we wszystkich arkuszach roboczych formatuje zakres...
Podmień [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & ActiveWorkbook.Name, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/syntax]
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
Cześć, (at)ElektrodaBot Chciałbym napisać makro które będzie zapisywać mi plik w określonej lokalizacji z podaną wcześniej nazwą. Nigdy wcześniej tego nie robiłem i nie wiem co powinienem przerobić w tym co wyskrobałem aby zadziałało. Okno nazwy wyskakuje jednak przy komendzie zapisuj jest błąd. Sub makro1() Dim sciezka As String Dim nazwaPliku As String...
... Filename:= "C:\Documents and Settings\Marek\Pulpit\FORMULARZE.xls&quo... i drugi (można od razu wpisać bez zmiennej Newfilename) ... Filename:= "C:\Documents and Settings\Marek\Pulpit\" & numer & "-2015.xls"
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Makroinstrukcja jest 'wklejana' a podprocedura wykonywana poprzez skok. Makro jest szybsze (mnie instrukcji, nie trzeba nic zapisywać na stosie) ale kod wynikowy jest dłuższy (bo za każdym razem jest umieszczany).
Ręcznie mogę zapisywać pliki, ale dalej nie zapisuje z poziomu makro :/ Sprawdzałem ustawienia excela i wszystko zdaje się być ok.
Chyba nie rozumiem. Ten kod, który napisałeś rozumiem, że pokazuje okienko (Msgbox), ale nie zapisuje mi mojego pliku na pulpicie. Dodam jeszcze, bo nie wiem czy to ma znaczenie, że osoby u których mają zapisywać się te pliki na pulpitach nie pracują jako administratorzy lecz użytkownicy.
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Cześć mam makro, które dzieli mi plik na mniejsze pliki - ale kopiuje do nich tylko po 1 linii oprócz nagłówków. Potrzebowałbym przerobić poniższe makro na takie, które kopiuje wszystkie unikalne wartości tzn. jeżeli w D3 mamy wpisane np. rower, samochód, pieszo kilka razy to makro będzie tworzyło plik z unikalnymi wierszami. Czy mogę prosić kogoś o...
Witam, próbuję napisać makro które, będzie kopiowało na raz z kilku arkuszy dane do jednego. Obecnie wkleja mi się nazmiane raz z jednego a później pyta o zezwolenie na wklejenie nowych danych z innego arkusza. A potrzebuję aby dane były jedne pod drugim i aby się sortowały po nazwisku. Próbowałam z pętlą ale przeładowywało się i plik się wyłączał....
Poszukuję makra, które z 1 arkusza o nazwie "dane" wykopiuje dane do nowych arkuszy w takim samym formacie względem np. kolumny K - wynik działania makra powinien być podobny (tylko dla wszystkich unikatowych danych z kolumny K) jak w załączonym pliku w arkuszu P001 (makro powinno nadać nazwę dodawanym arkuszom
http://obrazki.elektroda.pl/3025550100_1... Mając do dyspozycji jedną matrycę 8x8 czerwonych diod LED o boku 60,2mm oraz mikrokontroler ATtiny861 pozostałe po innych projektach postanowiłem zbudować to, co każdy elektronik chociaż raz w życiu zbudować musi: zegar ;). Ze względu na charakter wyświetlacza miał to być zegar binarny, ale...
Cześć Potrzebuje waszej pomocy. Obecne proste makro które mam: [syntax=vb] Sub Info() Sciezka = "Y:\BAZA INFO" Nazwa = Format(Now(), "yy.mm.dd.hh.mm") & ".xls" ActiveWorkbook.SaveAs Filename:=Sciezka & "\" & Nazwa ActiveWindow.Close End Sub [/syntax] zapisuje wypełniony plik w folderze BAZA INFO a dalej już musze sam przerzucać pliki do podfolderów...
Zamień linię: ActiveWorkbook.SaveAs "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name na: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name & ".pdf", Quality:=...
No to na załączonym obrazku powinieneś mieć Arkusz3.Name Nie wiem, skąd wykombinowałeś to Arkusz3.cennik - tzn. domyślam się skąd, ale tak jest źle.
Mam jeszcze coś takiego ale wskazuje mi błąd Jaki błąd? 1004 programistyczny dostęp do projektu nie jest zaufany - teraz patrze na ten kod błędu więc to będzie coś w ustawieniach ?? Dodano po 17 Mam jeszcze coś takiego ale wskazuje mi błąd Jaki błąd? 1004 programistyczny dostęp do projektu nie jest zaufany - teraz patrze na ten kod błędu więc to będzie...
Właśnie się zastanawiałem czy do tego arkusza (bo to z jednego jest generowane) nie wrzucić makra które będzie zapisywać do innego pliku nawet edycję tego arkusza. Tak będzie chyba najprościej i najszybciej.
Dzień dobry. [syntax=vbnet]Sub Wygeneruj() Dim sciezka As String Dim i As Integer Dim FolderPath As String, path As String, count As Integer FolderPath = "C:\BC" path = FolderPath & "\*.xlsm" Filename = Dir(path) Do While Filename <> "" count = count + 1 Filename = Dir() Loop count = count + 1 Sheets("Dane do list").Range("F12").Value = count...
witam. potrzebuję makro, które pobiera najświeższy plik [czyli plik, który jest zapisany najpóźniej] *.csv z serwera ze wskazanego folderu. do zalogowania na serwer jest potrzebny login i hasło oraz makro miałoby zapisywać dany plik ze wskazane miejsce na moim komputerze z nazwą mms.csv. Z góry dziękuję za pomoc :)
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
Zapytam jeszcze raz JAK WYŁĄCZYĆ OKNO O ISTNIEJĄCYM DOKUMENCIE PRZY ZAPISIE! Napisałem makro które ma zapisywać kilka pól w kilka miejsc. Więc zapisz lub autozapis nie rozwiązują tego problemu.
Dzień dobry Potrzebuję pobrać dane z pliku excel który generuje się co dobę w następujący sposób - dane przykładowo z komórki A1 "arkusza 1" dnia 13.03.2019r powinny być kopiowane do "arkusz2" w pozycji "A2" w dniu 13.03.2019. Następnie po wygenerowaniu nowej doby na 14.03.2019r dane z komórki A1 "arkusza 1" dnia 14.03.2019r powinny być kopiowane do...
Natomiast mam pytanie. Ponieważ gdy chce drukować ten dokument zawsze dostaję informacje że marginesy są błędnie ustawione i czy chce kontynuować wydruk Podmień makro do drukowania i zobacz. [syntax=vbscript]Sub PrintToSpecificPrinter() Dim PrinterName As String PrinterName = "STL-TE100" ' Save the current active printer Dim currentPrinter As String...
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
Cześć, chce makrem z ogólnej bazy klientów skopiować dane do swojego pliku makro wykonuje się, niestety jeśli jest ktoś w pliku "do edycji" wyskakuje mi okno dialogowe: "plik 'klienci zagraniczni' jest zablokowany do edycji, kliknij przycisk tylko do odczytu, powiadom, anuluj" Opcja tylko do odczytu mi wystarczy, nie chce zapisywać zmian w tym pliku...
Mam Excel 2007. Myślałem, że w nowszych wersjach jest z tym lepiej. Czyli musisz, po staremu, zapisywać jako tekst. [syntax=vbscript]konto = "12123423450000000012342345" ActiveCell = Format(konto, "## #### #### #### #### #### ####")[/syntax]
Chcę zrobić makro które wyszuka dany fragment tekstu i zamieni go na podany w danej komórce. Nagraj sobie makro z przeprowadzania procedury systemowej "zamień (ctrl+H)" i w odpowiednie miejsca wprowadź swoje comboboxy :idea: Wszystko rozumiem, ale "zamień (ctrl+H)" w "znajdz" wpisuje szukana frazę i w "zamień na" w co mam wpisać ? chcę aby znajdował...
[syntax=vbscript]Sub ZapiszPliki() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow k = Cells(x, 2) If Dir(k, vbDirectory) = "" Then MkDir (k) ActiveWorkbook.SaveCopyAs k & "\" & Cells(x, 1) & ".xlsx" Next End Sub [/syntax]
adamas_nt dzięki jeszcze raz za pomoc, miałem teraz trochę przerwy w zabawie z VB, ale projekt już skończyłem i wszystko mi działa:) tylko mam pewien problem z uruchamianiem tych makr, gdyż będzie ich używać osoba średnio znająca się na excelu, że nie wspomnę o kodach VB itp. i chciałbym ułatwić to na maksa, bo teraz kiedy chce go użyć to muszę: - za...
Naprosto dodaj do kodu(post #1) przed 'Range( itd.) Sheets("Dane"). np. lRow = Sheets("Dane").Range&#... & Rows.Count).End(xlUp).Row wbName = Sheets("Dane").Range&#... & x).Value & "_" & Sheets("Dane").Range&#... & x).Value
Witaj, Musisz gdzieś w takim razie zapisywać aktualny stan, albo wykrywać pierwszą pustą komórkę w zakresie pracy Twojego makro (o ile konstrukcja arkusza na to pozwoli).
Sposób1. Przed zapisaniem usunąć procedurę dodawania i zapisywania licznika. Sposób2. w procedurze ustawić warunek np: If ActiveWorkbook.Name = "BOOK1.xls" Then (...) End If Przy sposobie 2 makro zawsze będzie kopiowane i przy uruchamianiu pojawiać się będzie monit o makrach. Chociaż nie będzie działać z nieodpowiednią nazwą pliku. Ale jeżeli to nie...
hyhyhy no kolego Dar.El - uważam, że właśnie najprostsze tego typu pomysły jak to co zrobiłeś w postaci makra (odkładanie na stos i pobieranie z niego) - SUPER! .... kurczę .... no też mogłem tak to sobie zapisywać ale wiadomo czasem popada się w nawyk i klepie już na szybko - uważam że to b.fajny przykład i bardzo potrzebnego makra ;) ... no i oczywiście...
1. Admin ma zawsze rację 2. Kiedy nie ma - patrz pkt 1 :D No, w każdym razie dzięki za awans :) Rzecz w tym, że zawsze szukam najprostszych rozwiązań. W takim razie jeszcze jedna próba: A gdyby tak zamiast do zmiennej, zapisywać wiersz pod wierszem w tymczasowym arkuszu, skopiować do schowka i wkleić do Notepad'a cały zakres?
Wszystko ok tylko potrzebuję jeszcze taki moduł gdzie będzie kopiowało tylko wartości komórek a nie formuły i przy wkopiowaniu w oddzielny arkusz będzie sprawdzać który wiersz jest pierwszy wolny i zapisywać pod pierwszym wolnym. Dodano po 3 Mam takie makro to prawie wykonuje to co bym chciał ale kopiuje całe formuły a nie same wartości komórek, jak...
Siemka wyskrobałem takie makro ale nie chce mi zapisywać pliku niby jest zapisz i nic się nie dzieje [syntax=vb] Private Sub Workbook_AfterSave(ByVal Success As Boolean) plik = Application.GetSaveAsFilename(InitialFil... " & Cells(1, 1) & " 2014", _ Title:=" Zapisz plik z danymi") If plik <> "False" Then End If end sub [/syntax]...
cześć, dziękuję za pomoc w powyższym temacie. Jest dokładnie to co opisałeś. Mam natomiast jeszcze trochę inne pytanie: czy da się w excel w danym arkuszu wrzucić warunek, żę w kolumnie A można zapisywać datę jedynie w formacie dd/mm/yyyy a nie np. dd-mm-yyyy?
Jaki Word (wersja)? Myślę, że podszedłeś do tematu trochę źle, ale to moje "gdybanie" - bo nie napisałeś: 1. W jaki sposób te listy wysyłasz? (e-mail, poczta tradycyjna). Jeśli są drukowane, to po co je zapisywać jako tysiące plików Word? 2. Dlaczego są w formacie Word? Przybliż nieco temat...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
Kod działa świetnie na tym podanym przykładzie:-) Niestety po przeniesieniu kodu do innego pliku, krtóry jest zbudowany analogicznie - niestety kod już nie działa. Czy mógłbyś mi jeszcze z tym pomóc na przykładzie poniższego zrzutu? Nie mogę zamieścić całego pliku. I chciałabym zapisywać pliki do jednej lokalizacji na dysku sieciowym, załóżmy w dowolnym...
ale to makro które aktualizuje komórkę A1 jest zahasłowane i nie da rady nic dopisać. Skoro VBA jest chronione hasłem... Zgłoś się do autora.
Cześć, Mam problem z poniższym makrem, które: po otwarciu pliku tworzy jego kopię, a następnie tę kopię zapisuje z odpowiednią nazwą we wskazanej lokalizacji, po czy, zamyka tę kopię, a plik "macierzysty" (początkowo otwierany) wciąż zostaje otwarty i w nim pracujemy. Służy mi to do tworzenia kopii zapasowej przy każdym otwarciu pliku. Mój problem polega...
Do Excela wygodniej będzie ciągnąć makrem VBA. Ja bym to robił w takiej kolejności: 1. Zrób sobie taką pętlę, która przebiega po wszystkich plikach o które ci chodzi. Przetestować. Możesz wypisać nazwy dla weryfikacji czy działa. 2. Otwieraj każdy plik po kolei i czytaj w pętli do końca pliku. Przetestować na 1 pliku. Możesz teraz wypisać wiersze, żeby...
Chciałbym odświeżyć temat edycji plików CSV. Makro jest już gotowe, przygotowałem interfejs graficzny w oddzielnym pliku xls. Teraz po wybraniu miejsca przechowywania plików i miejsca makro powinno otwierać wybrany plik csv, obrabiać i zapisywać we wskazanym miejscu, ale niestety nie obrabia go - wyskakuje Run-time error 91. Poniżej zamieszczam kod:...
Dlaczego nie chcesz użyć programu do fakturowania?
Podłącz makro pod przycisk i wtedy zawsze będziesz miał swoje makro pod ręką. Wytłumaczę na excelu XP. Zrób na początku "czysty" arkusz i wklej do niego swoje makro. Na pasku z przyciskami "włącz" (prawoklik) "dostosuj...". Z zakładki "Polecenia" wybierz makro i przeciągnij "przycisk niestandardowy" lub "element niestandardowy" na któryś z pasków z...
witam nie bardzo wiem o co Ci chodzi, ponieważ nie potrzebuje tak duzo kolum... ponieważ potrzeba mi ich około 10... poza tym i tak juz mam 400000 wiwerszy wiec juz mam zapisane w xlsx... pytanie brzmi jak z jednej kilumny zapisywać w rożnych kolumnach w zależności od wartości w kolumnie obok... gdyby wartości zawsze było po 5 nie byłoby problemu......
Witam. Prosiłbym o pomoc, ponieważ chcę wyjaśnić z ojcem jedną sprawę. Wszystko jest czysto hipotetyczne, raczej nie zamierzam tego robić ;p Opiszę wszystko łopatologicznie od początku. W Nokii 6610 jest radio. Można zapisywać ulubione stacje radiowe. W tym celu należy wcisnąć przycisk "w prawo" aż telefon znajdzie jakąś stację. Wtedy w opcjach można...
zapisywać makro excel makro zapisywać arkusz zapisywać przebieg
obsługa wyświetlacza nokia lavor myjka autoodtwarzanie działa
Ustawienie rozrządu Peugeot 807 2.0 HDI 136 KM Regulator obrotów: żarówka działa, silnik nie zmienia prędkości
