[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...
[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]
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
Podmień [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & ActiveWorkbook.Name, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/syntax]
... 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 ;)
(at)zbysiomysio Zobacz jak się pisze pulpit.
[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]
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...
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...
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...
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...
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Dzień dobry wszystkim W pracy zlecono mi zrobienie pewnej tabelki i nie mogę sobie poradzić z dwoma problemami 1 potrzebuję by po naciśnięciu guzika zapisz dane do komórki r4 dodawało q4 i w q4 podawało wynik tego dodawania czyli R4=2 Q4=4 czyli po na ciśnięcie otrzymujemy Q4=6 gdy znowu wpiszemy nową wartość w R4=4 i klikniemy to w Q4 otrzymamy wynik...
Witam w załącznikach dodałem przykładowe pliki bardzo okrojone ale mające pokazać o co mi chodzi. Prosiłbym o pomoc w zrobieniu makra które przeniesie dane z pliku DANE do pliku STATYSTYKA. Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby...
Męczę raport i próbuje napisać makro , które by działało następująco: Jeśli komórka w plik1 ma określoną wartość (np wtorek) to przenieść wartość komórki która jest pod nią (w następnym wierszu) do pliku2 w miejsce (X,Y). Proszę pomóżcie.
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
Dzień dobry, potrzebuję takiego makra, które przefiltruje wszystkie wartości po jednej kolumnie i stworzy nowe pliki tyle ile jest wariantów w filtrze. 1. na C jest katalog dostawcy (zamieszczony) w nim plik z makrem start.xlsm i plik z danymi dane.xlsx i folder podzielone 2. makro start w pliku start.xlsm otwiera plik dane.xlsx 3. sprawdza w kolumnie...
https://obrazki.elektroda.pl/7268233500_... Ten artykuł powstał w odpowiedzi na propozycję kolegi (at)Techekspert i jest rozwinięciem mojej prezentacji przedstawionej na konferencji The H(at)ck Summit w dniu 20 października 2023 r. Samą prezentację możesz pobrać stąd: Wyrzucamy algorytm Gutmanna do kosza Podstawowe informacje o niszczeniu...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Hey mam do was pytanie czy można w jakiś sposób skonwertować fragment arkusza xls do doc ? Tak jak mamy makro zapisujące do formatu pdf tak zapis do formatu doc ?
Makro uruchamia pokazanie czasu i wkleja jej wartość do określonej komórki.
Dobra wszystko działa w jak najlepszym porządku, nie działało mi inne stare makro zapisujące WORD albo DWORD, ale poprawione zostało na funkcje i już wszystko jest oki :) Dzięki za pomoc i nakierowanie mnie na właściwą drogę ;)
Mam identyczny plik, problemem jest właśnie przycisk 'dzielenie', którego ma nie być ;) Ed. Bezsensownie utrudniłam sobie całą procedurę. Czy byłbyś w stanie zmodyfikować makro zapisujące wybór z listy do oddzielnych komórek a nie do komórki I1? Private Sub ListBox1_Change() Dim i As Integer Dim tekst As String For i = 0 To ListBox1.ListCount...
Z góry przepraszam za pewnie dla większości banalne pytania ale nie mogę sobie z tym poradzić. 1.Jak zmodyfikować powyższe makro aby z arkusza z plik o nazwie 1 do nowego pliku o nazwie komórki B3 z pliku 1 kopiowały się dwa arkusze ("xyz" i "abc") z czterech jakie posiada plik 1. 2. Co zrobić aby ten nowy plik o nazwie wziętej z komórki B3 pliku 1...
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.
Dzięki koledzy. Wygląda na to że już będzie działało, ale jeszcze chciałbym uściślić parę wątpliwości To w końcu float, czy uint16_t? To są różne rzeczy. jest mi obojętne czy to będzie float czy integer byleby działało. Ogólnie będą liczby całkowite więc wystarczy uint16_t, ale próbowałem już różnych sposobów. Nie działała funkcja eeprom_write_byte...
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...
Jeszcze raz bardzo proszę o pomoc w poprawieniu makra.
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
Może to jakieś makro? Nic nie zmieniałeś, nie zapisywałeś? Masz gwarancję pewnie, więc oddaj.
Witam, prośba o pomoc uruchamiam makro z poziomu sap które wyowłuje odpowiednią transakcje z danymi np mb52 niestety nie wiem za pomocą jakiego kodu uzyskane dane można zapisać do postaci pliku excel chodzi mi o kod VBA który zachowywałby sie analogicznie jak wywołanie manualne z poziomu sapa:List-> export->spreadsheet->format pliku + nazwa ścieżki...
Mógłbyś jeszcze podpowiedzieć jak wstawić całą ścieżkę do pliku? [syntax=vbscript]Range("A1") = Application.GetOpenFilename[/syntax]
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
Witam, Potrzebuję pomocy w napisaniu makra, zapisującego wybrane komórki z arkusza do pliku .txt. Mam Arkusz1 i chciał bym aby z komórek od A7 do komórki A30 pobrało dane i zapisało je do pliku .txt jako kolejne rekordy. Zapisany plik miał by mieć nazwę pobraną z Arkusza1 z komórki B2. Na koniec jeszcze rozszerzenie pliku miało by się zmienić na .dxf....
Chciałbym do tego makra dodać to, że wszystkie te pliki, które zostaną zapisane po odpaleniu makra i wybraniu ilości kopii otwierają się [syntax=vbscript]Workbooks.Open sciezka & Cells(2, 3) & ".xlsm"[/syntax] I chesz otworzyć na raz 10 plików? Porąbany pomysł.
Edit Jest jeden myk: [syntax=vbscript] ActiveWorkbook.Windows(1).Caption = "dowolna nazwa" [/syntax] Jak chcesz go potem zapisać to w oknie dialogowym pojawia się nadal Zeszyt1 zamiast "dowolna nazwa".
Brak załącznika. Podobny temat [url=https://www.elektroda.pl/rtvforum/t...
Lzep :arrow: Z fotki wynika wszystko jasno, chyba że ktoś nie miał do czynienia z Excelem i dartem ... tomi1972 :arrow: Excel działa domyślnie w trybie natychmiastowego przeliczania formuł. Bez odpowiedniego makra nie da się zrobić tego co oczekujesz. Usuwając sumy pośrednie (F2 i J2) wartość zawsze będzie "wracać" do 501. Napisałem proste makro sumujące...
Nie zapisuje nowego pliku w .xlsx bo jak pisałem w tym rozszerzeniu nie może być makra a Ty masz makro, jest błąd i nie zapisuje. Nie usuniesz makra z którego w danej chwili korzystasz. Trzeba to obejść tworząc kopię Arkusza bez makra i zapisując kopie. Sub Zapis() Dim Sciezka As String Dim adres1 As String Dim adres2 As String adres1 = Range("G2")...
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")....
A może spróbuj inaczej. Daj użytkownikowi swój plik excel-a z makrem do importu arkuszy z danymi z jego pliku wg tego rozwiązania: https://msdn.microsoft.com/en-us/library... Wg mnie (ale to tylko gdybanie) przy zapisywaniu kodu źródłowego makra jest on translatowany do kodu pośredniego i raczej ciężko to widzę, że część kodu działa...
No OK, ale jeśli nacisnę 'zapisz' i nie zamknę pliku? Po mojemu zapisywanie w logu powinno być przy BeforeClose
mając wtyczke do zapisywania tabeli excela w formacie .pdf jak zrobyc makro by po kliknięciu w przycisk kombi pojawiało mi się okno tylko z wyborem w jakim folderze ma zapisać plik. Ewentualnie jeszcze z wyborem nazwy. Wiem, to tylko kilka mniej kliknięc niz w start i zapisz jako , ale jednak potrzebuje to jako makro by przypisać pod przycisk.
jeszcze takie pytanie: chciałbym, żeby makro zapisywało dwie wersje pliku: jedna z usuniętymi kolumnami, druga ze wszystkimi. gdzie powinno być kolejne SaveAs?
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
Nie bardzo rozumiem. Przecież w makrze używasz zmiennej "ścieżka" do zapisywania danych. Nie potrafisz zmienić wartości tej zmiennej? Załączone rysunki są nieczytelne, przytnij je, po co w nich tyle pustego miejsca?
Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...
Dodać nowy moduł w VB, wkleić do niego kod i uruchomić. W celu ułatwienia użytkowania, można dodać przycisk uruchamiający makro do wstążki - nie posiadam wersji 2016 ale dla 2010 to należy zrobić tak: Opcje programu Outlook -> Dostosowywanie wstążki. W oknie po lewej - Wybierz polecenia z: Makra (zaznaczasz właściwą procedurę). W oknie po prawej...
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...
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Tak wszystko ma się dziać w Excelu.Szczerze mówiąc próbowałem stworzyć swoje makro. Zapisywało ono wartości temperatury i czasu w kolejnych wierszach. Na ich podstawie chciałem tworzyć wykres. Wydało mi się to trochę "za biedne" i porzuciłem pomysł, tym bardziej, że makro musiałem odpalać ręcznie:|. Byłbym wdzięczny za informacje o zdalnym uruchamianiu...
makro zapisujące arkusz makro zapisujące pliki arkuszu makro uruchamiać makro
sterownik poduszka fabia nagrzewnica indukcyjna temperatury amatorska elektronika
analizator widma lodowkie samsunga
Nice Robus 600, MC824H – brama zamyka się po przecięciu fotokomórki podczas otwierania Kuchenka Amica - Kod błędu Er 81: Przyczyny i Rozwiązania
