Przyznam, że u mnie w domu jest to samo co u ciebie. W pracy zapisywało mi bez przycisku a jedyna różnica to taka że w pracy mam W7 co nie powinno mieć wpływu. Edit: A może w pracy już dodałem tą linijkę kodu i dlatego mi działąło. Poniżej kod kolegi adamasa z linijką usuwającą przycisk. [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie...
Witam! Możesz wykorzystać kod: :spoko: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name End If End Sub [/syntax]
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
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:=...
Oto twoje makro. Powodzenia Dim PreviousValue As Variant Private Sub Worksheet_Change(ByVal Target As Range) Dim wsZestawienie As Worksheet Set wsZestawienie = ThisWorkbook.Sheets("Zestawienie") If Not Intersect(Target, Me.Range("C3")) Is Nothing Then Dim NextEmptyCell As Range Set NextEmptyCell = wsZestawienie.Cells(wsZestawienie.Rows.C... "C").End(xlUp).Offset(1,...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Rozumiem że w jednym pliku excela jest zapisane makro i otwierasz w excelu następny plik wykonujesz makro i chcesz zapisać zmiany w drugim pliku, otworzyć następny, wykonać makro i zapisać zmiany. Jeśli tak to ostatnia linijka powinna mieć postać ActiveWorkbook.SaveCopyAs Filename:=katalogZapisu & "\" & Format(Date, "DD-MM-YYYY") & "_" & ActiveWorkbook.Name...
Potrzebuję napisać makro w Excelu, które: przy wyłączaniu Excela zapisze wszystkie otwarte dokumenty w jakichś plikach po włączaniu otworzy je.... Pomocy, potrzebuje to na wczoraj :)
Widzę, że lubisz chyba jak się Ciebie ciągnie za język. :D Chętnie bym się w tym temacie doedukował jak coś wskażesz. Jak dla mnie śp. pamięci "kozak vba" "Charles Pearson" http://www.cpearson.com/excel/optimize.h... ps widzę że nie którzy stosują zapis np. [A1] łatwiejszy zapis ale jak piszą wolniejszy.
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Witam Poszukuję pomocy ze stworzeniem makra dla zapisu plików w excelu. Mianowicie chodzi mi o to żeby plik excela który otwieram z pulpitu po jego wypełnieniu i kliknięciu w dyskietkę (zapisz), zapisywał się automatycznie z datą w docelowym folderze. Może ma ktoś już podobne makro które mógłbym wykorzystać ?
Chciałbym się podpiąć pod pytanie. Chciałbym jednam żeby mój plik z makrem po zakończeniu procedury zamknął się?? czy to w ogóle możliwe?? Kończę swoje makro poleceniem: ActiveWindow.Close SaveChanges:=False Zamyka mi się jednak wszystko ale sam excel (bez otwartego żadnego pliku) jest otwarty.
... 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...
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
hej, dzięki, Działa. Jednocześnie przez weekend posiedziałem nad tematem i napisałem coś takiego, też działa. Zostawiam dla potomnych, ale mam kolejne pytanie. Mianowicie, jak w tym nowym folderze osadzić plik zapisywany wg wartości w komórce? Obecnie zapisuje plik wg wartości w komórce ale nie w nowostworzonym folderze. Sub MakeFolders() ' zaznacz1komorke...
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ć...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
Witam. Mam wielką prośbę. Dostałem w pracy zadanie utworzenia wizualizacji do procesu walcowania taśmy wraz z raportowaniem przebiegu.. Wizualizację (napisaną w In-Touch z wykorzystaniem SPC) połączyłem za pomocą DDE z arkuszem excel'a w którym ma być tworzony raport z walcowania taśmy. I tu zaczyna się mój problem. Samą wizualizację napisałem bez problemu...
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
automatyczne nadawanie nazw zapisywanym arkuszom tak aby po każdym zapisaniu generował się kolejny numer i zapisywał jako plik w wybranym folderze Chodzi o automatycznie nadawane nazwy arkuszom, czy plikom? Według jakiego wzorca?
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
Spróbuj Zmień swój czas do pracy makro
Witam Mam wielki problem. Mam plik Excela w nim jest makro. Problem jest taki że jak otworze plik z danymi i nie zapisze danych lub zapisze to plik znika z folderu. Nie można odnaleźć gdzie on podzial. Gdzie jest problem? Excel wersja2007.
To całe makro?? Ten fragment służy jedynie do wybrania nazwy pliku. Zapis nastąpi w momencie wywołania: [syntax=vb]ThisWorkbook.SaveAs (ZapiszJako)[/syntax]
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Jest błąd w linii określającej warunek: If Right (komorka, 3) = " a " Then Powinno być: If Right( Cells (komorka, 3), 1 ) = "A" Then A jeszcze lepiej zamienić na małe litery. Taki zapis jest odporny na ciągi z/bez użycia CapsLock'a. [syntax=vb]If Right(LCase(Cells(komorka, 3)), 1) = "a" Then[/syntax]
ActiveCell.FormulaR1C1 = _ "=VLOOKUP( RC ,' tu masz błędny zapis
Dziełasz na "zwykłym" adresowaniu czy na FormulaR1C1 Przy "zwykłym" kopiowanie: Cells(1,2)=Cells(1,1) Zaznaczenie cells(1,3).select Poza tym excel ma coś takiego jak "zarejestruj makro". więc włącz ten zapis, zrób co trzeba, zatrzymaj zapis i zobacz jaki kod powstał.
Przede wszystkim dziękuję za pochylenie się nad moim problemem :) Co do zapisywania pliku z samą godziną, bez minut i sekund (czyli samo hh w formacie) - zrobiłam to celowo. Plik użytkuje wiele osób, jest wielokrotnie otwierany w ciągu dnia. Taka nazwa nie generuje błędu przy kolejnym zapisie w tej samej godzinie, jak pisałeś, natomiast powoduje nadpisanie...
wtedy nie zastap tylko w makro FormulaLocal
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:=...
Rozbudowałem Ci to makro tak, żeby uwzględniało operacje na kilku komórkach jednocześnie, ale nie zmieniałem zasady jego działania. Więc jeśli zależy Ci na historii wszystkich komórek, musisz przestrzegać pewnych reguł. Makro działa w ten sposób, że po zaznaczeniu komórki/komórek zapamiętuje ich zawartość i adres (procedura SelectionChange). Następnie...
Witam, Mam problem z makro. Tworząc pewien raport w każdy poniedziałek filtruje daty w kolumnie Y dla poprzedniego tygodnia. W formularzu Excel umieściłam w 2ch komórkach następujące funkcje; Y3 =dziś(), Y2 =dziś() -6, a następnie w filtrze niestandardowym wybieram większy lub równy Y2 i mniejszy lub równy Y3, aby uzyskać interesujący mnie przedział...
No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: https://obrazki.elektroda.pl/1929850600_... Tak się jeszcze zastanawiam. Zamiast porównywać...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
Taki problem, który pewnie jest dla wielu banalny. Zapisując plik za pośrednictwem zwykłej funkcji: Zapisz jako i wybierając .CSV rozdzielany przecinkami uzyskuję plik, który przy ponownym otwarciu jest podzielony na kolumny (patrz załącznik: 1058226 ZDEM_via_Excel.csv) tymczasem gdy stosuję taki kod do zapisania pliku. ActiveWorkbook.SaveAs Filename:="C:\ZDEM.csv"...
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...
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
[syntax=vb]Sub zapisz1() numer = InputBox("Podaj numer kolejny") NewFilename = numer & "-2015 " & ".xls" ActiveWorkbook.SaveAs Filename:=NewFilename End Sub[/syntax] lub [syntax=vb]Sub zapisz2() ActiveWorkbook.SaveAs Filename:="FORMULARZE" & ".xls" End Sub[/syntax]
HiFi-Man , powinieneś odróżniać makra (makroinstrukcje) od funkcji, bo Twoje pytanie jest przez to niezrozumiałe. Makro to działanie wykonywane jednorazowo, doraźnie. Po wykonaniu wynik ma najczęściej formę stałej (liczby lub tekstu). Makro można powiązać ze skrótem klawiaturowym i uruchamiać go za pomocą tego skrótu. Z kolei funkcja (lub w tym przypadku...
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
można to zrobić w 3 etapach 1. Przejdź do lokalizacji (ChDrive, ChDir) 2. przy pomocy funkcji Dir i FileDateTime zrobić listę plików 3. Sortuj listę malejąco po Data-godzina pierwszy na liście będzie plik, którego szukasz
No, to prawie wszystko masz gotowe, tylko o funkcji CDate() zapomniałeś - "w polskich warunkach systemowych" FileDateTime() zwraca tekst, a nie podtyp daty z "Variant", jak napisane jest w pomocy podręcznej - łatwo to sprawdzić, np. przez "?TypeName(test2)" w oknie Immediate. Czyli porównujesz np.: tak: "If CDate(test) > CDate(test2) Then", chociaż...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
A dlaczego warunkujesz działanie działanie Textboxów w Arkuszu1 od stanu filtrowania w Arkuszu2 (który jest całkowicie pusty) ? Popraw makro w zapisie "Arkusz1" zamiast "Arkusz2" i będzie działać :D
Witajcie, mam taki problem. Stworzyłem sobie makro tworzące plik csv (z konkretnego zakresu danych) w określonej lokalizacji, w moim przypadku chodzi o Pulpit. O ile makro działa u mnie na kompie, będzie problem jeżeli z pliku i makra będzie chciał skorzystać ktoś na innym kompie (inna ścieżka zapisu). Czy może mi ktoś podpowiedzieć jak sobie z tym...
w naszej pętli zamiast MsgBox wystarczy podstawić Razem byłoby coś takiego Sub petla() For i = 2 To Range("D2").End(xl... For j = i To Range("D2").End(xl... If Cells(j, 4) <> Cells(j + 1, 4) Then Exit For 'porownanie w kol D indeks 4 Next i = j 'żeby nie od...
Moje pytania: 1. W jaki sposób opisać warunek w którym pętla będzie działać aż do znalezienia pustej komórki w kolumnie B? 2. W jaki sposób stworzyć zapis w którym komórka B1 i C1 z Arkusza1 będzie zastępowana kolejnymi komórkami z kolumny B i C z Arkusza2 i zapisywana? 3. W jaki sposób opisać kolejne komórki (A1+i)? Nie mogę znaleźć odpowiedniego...
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
spróbuj zarejestrować (nagrać) makro i skopiuj jego kod do przycisku . Akurat na tym komputerze nie mam exela więc tego nie sprawdzę, ale powino się udać
Strzelam :) Czyli przeszukujemy zakres (tu zapisany w tablicy) [syntax=vb]Dim XlApp As Object Dim Tablica() As Variant Dim WymZloz As Long On Error Resume Next Set XlApp = GetObject(, "Excel.Application") Tablica = XlApp.Worksheets(1).Range("C5:C30") For i = 0 To UBound(Tablica) If WymZloz = Tablica(i) Then knyps = True Exit For Next If knyps And WymZloz...
Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne hasło ochrony VBA. Przy zamknięciu ustawić na...
Worksheets("nazwa arkusza") Taki zapis będzie stosowany do istniejącego arkusza o nazwie 'nazwa arkusza', którego zapewne nie ma w skoroszycie.
Przy porannej kawie wyszło coś takiego (załącznik). Zapisz plik w folderze, tym samym gdzie "Pula.xlsx" i uruchom makro. dodano po chwili: sorry, zapomniałem załączyć plik :)
Odwołujesz się podobnie jak w Excelu, musisz znać jedynie indeks tabeli i wyciąć 2 znaki specjalne komórki. Np [syntax=vb]pdfFileName = Left(Tables(1).Cell(1, 2).Range.Text, Len(Tables(1).Cell(2, 2).Range.Text) - 2) _ & "_" & Left(Tables(1).Cell(1, 2).Range.Text, Len(Tables(1).Cell(3, 2).Range.Text) - 2) & ".pdf"[/syntax]
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
Cześć, dzięki za podesłane rozwiązanie niestety dla mnie nie jest do końca przydatne ze względu na to że, chodziło mi o "ZAPIS NOWEGO PLIKU POD NAZWĄ Z ARKUSZA" jak zostało to opisane poniżej. Potrzebuję dla generatora pytań napisać makro które pozwoli mi na zapisanie nowego Zeszytu(pliku) pod nazwą z Arkusza(Dane). Tak abym mógł wprowadzić kilkadziesiąt...
Witam, czy pomoże ktoś przerobić to makro Visual Basic na Apps Script w Arkuszach Google, to jest automatyczny zapis daty. Np. po wpisaniu tekstu w komórce A1 automatycznie przypisze się na stałe data w komórce B1 i godz. w C1: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:B1000"))...
Witam Mam taki mały problem potrzebuję zrobić makro które po wywołaniu będzie kopiowało zawartość z "Arkusz" od A3 do G30 do "Arkusza3" i po przekopiowaniu automatycznie będzie czyściło zawartość kolumny B3:B30 w "Arkusz", następnie po kolejnym uruchomieniu makra będzie wykonywało tą samą czynność tylko zapis w "Arkusz3" będzie w kolejnych wolnych wierszach,...
Taki zapis nie będzie działał, ponieważ suma ma dotyczyć tylko kolumny dane!E:E, nie można mnożyć wartości tekstowych (błąd LICZBA!).
No tak. Miałeś ActiveSheet. [syntax=vbscript]Sub Drukuj_jezeli() Dim Arkusz As Worksheet For Each Arkusz In Sheets With Arkusz If .Name <> "Dane z zam" And .Name <> "Arkusz1" Then If Application.WorksheetFunction.CountIf(.R... ">0") > 0 Then .PrintOut .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\test\pdf\" + .Range("f7")...
Witam, chciałbym napisać makro które gdy klikniemy button zapisze arkusz pod nazwą podaną w komórce a2 i przed zapisem w komórce a3 doda datę a w komórce a4 godzinę zapisu oraz dodatkowo ustawi brak możliwości edycji komórki a3 i a4 - chronione hasłem. Jest taka możliwość??? Proszę o pomoc
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Ps. Błąd z Makro już się nie pojawia - jedynie co jakiś czas wywala Excela (ustawiłem zapis co 1 minutę - jednak przy księgowaniu traci się parę linijek.) Gdy używałem przez 2 lata moich programów ( bez Makra nigdy mi Excel się nie rozkraczał. Pozdr :D
hallo, tak próbowałem dziękuje... pokazuje błąd w zapisie "Selection.AutoFill Destination:=Range("A" & pw & ":A" & pw + ow - 1), Type:=xlFill" Kopiuje tylko nazwę 2 arkusza.
A co jest przechowywane w a? znaczy się mychą coś zaznacza i dopiero puszczasz makro? a = Selection.Row ? Moja porada to za pomocą komendy msgbox wyświetlaj sobie na bierząco czy masz właściwą ścieżkę przechowywaną w "strName" po każdej modyfikacji rób: Msgbox strName Chyba wiem w czym tkwił błąd. Zapomniałeś jednego shesha:) strName = strPath & "\"...
Ręcznie mogę zapisywać pliki, ale dalej nie zapisuje z poziomu makro :/ Sprawdzałem ustawienia excela i wszystko zdaje się być ok.
Bede bardzo wdzieczny za jakiegos tzw. gotowca. Jako nowo-zarejestrowanemu w formie promocji :) Rozciągnij kolumny na jakieś 250 pikseli, będzie lepiej widać (sam się złapałem na spacjach). Spróbuj[syntax=vb]Sub proba() Dim tbl1 As Variant, tbl2 As Variant, test As Boolean Dim i As Long, j As Long, w As Long w = 2 Range("C2:C" & UsedRange.Rows.Count).ClearContents...
Teraz jest ok jeżeli chodzi o tworzenie pliku DXF. :-) Jest jeszcze jednak mały problem techniczny zapisu rekordów w samym pliku, a mianowicie przed każdą liczbą i po każdej liczbie w danym rekordzie makro wstawia spację np. "30" natomiast powinno być tak "30" (sama liczba tak jak jest wpisane w komórce). Przy ciągach literowych ten problem nie występuje.
Zgadzam się ze zdaniem kolegi Prot . Po jakimś czasie uzbiera się tych kopii tyle, że zrobi się bałagan. Wg mnie, kopię takiego zestawienia można zmieścić w jednym wierszu arkusza (jednej linijce pliku tekstowego). Do podglądu/wydruku archiwów wystarczy odwrócić makro zapisu + jakaś zgrabna wyszukiwarka/filter. Jeśli z jakiegoś powodu będzie potrzebny...
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Drobna literówka w zapisie formuły kolegi marcinj12 . Zajrzyj do pomocy na temat funkcji DZIEŃ.TYG i zmień typ lub warunek...
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
Czesc, Niestety przyszlo mi dzialac w pracy przy pomocy OneDrive, nie kalsycznego serwera gdzie kazdy moze po prostu wejsc do folderu.... i pojawil sie problem z transferem plikow. Mianowice, potrzebuje stworzyc makro, ktore bedzie dosyc prostym UserFormem, w ktorym pozostali wypelnia podstawowe dane oraz za pomoca przycisku ''browse'' wskaza mi plik...
Założenia: arkusz z pomiarami nazywa się 'Pomiary'. Arkusz z danymi do wykresu ma nazwę 'Wykres'. Po uruchomieniu tego makra w arkuszu 'Wykres' będziesz miał pomiary z odstępem minuty. Mam kolumnę z czasem "A" oraz kolumnę z danymi: kolumna "B" to napięcie, kolumna "C" to natężenie. Rozumiem, że te wszystkie dane mają być w karci (czy arkuszu) o nazwie...
Porada, którą otrzymałem zmusiła mnie do bardziej intensywnych poszukiwań rozwiązania, a było dość proste. Mianowicie po wykonaniu się makra dopisałem pomnożenie tych komórek, które tego wymagały by zmienić się z tekstu na zapis cyfrowy, w wierszu wstawionym przez makro. Jest Ok, dzięki za natchnienie. janusz
Nie dokładnie o to mi chodziło kod blokuje mi tylko wiersz tej jeden w którym jest coś aktualnie wpisanie (zaznaczenie). Chciałbym aby blokował wszystkie wiersze powyżej, które w jednej z kolumn w danym wierszu mają wartość (dla mnie zapis "m" lub "p" lub "c") takie blokowanie warunkowe. Np. warunkową kolumną jest kolumna E. Jeżeli w danym wersie jest...
Mam funkcję "worksheet_change" i zmieniam wartość w Arkuszu 1 w dowolnym polu. Następuje wywołanie funkcji "worksheet_change" i rusza makro. Niestety rusza makro które wykonuje operację dla ponad 1000 komórek. Mam pytanie, czy da się odczytać w VBA w jakiej komórce została zmieniona wartość (czyli położenie komórki w arkuszu, następnie wartość wpisaną...
Witam. Potrzebuję makro do Excela, które zapisze modyfikowany plik do innego katalogu a stary usunie.
ponizej moje agrane makro, z niedoskonalosciami: Może tak? [syntax=vbscript]Sub save_unicode() ActiveWorkbook.SaveAs _ Filename:="C:\users\desktop\TEST\" & ActiveSheet.Name & ".txt", _ FileFormat:=xlUnicodeText End Sub[/syntax]
Tak wszystkie ale tylko jeden raz czyli bez powtórzeń. Jeśli nie da rady formułą to przyjmę coś innego, ale fajnie było by formułą. Proponuje wykorzystanie formuły arkuszowej "RemoveDuplicates Columns" :idea: w małym makro - analogicznie jak w załączonym przykładzie :D 840585
Załączam przykładowe makro: - zapisu do pdf bieżącego arkusza Excela - wydruk pliku arkusza za pomocą komendy Shell i Acrobat DC - wydruk zewnętrznego pliku *.pdf za pomocą komendy Shell i Acrobat DC. Nie ma żadnych zabezpieczeń (błędne ścieżki, brak plików itp.) Trzeba uzupełnić własną ścieżkę do Acrobat.exe. Oczywiście to tylko prosty przykład, możliwości...
Cześć, proszę o pomoc, skorzystałem z kodu znalezionego na forum, jednak potrzebuję pewnej modyfikacji. W obecnej postaci makro sprawdza czy istnieje w lokalizacji skoroszyt o określonej nazwie, jeżeli tak to go usuwa i tworzy nowy. Docelowo chciałbym żeby makro w przypadku kiedy istnieje już plik tworzyło w nim nowy kolejny arkusz, a jeżeli nie istnieje...
Cześć. Chciałbym żeby w makro Zapisz excel pobierał ścieżkę z komórki H1. Obecnie w makro mam ustawioną wartośc stałą jako Pulpit ("C:\Users\Pawel\Desktop\") i wygląda to w ten sposób: Sub zapisz() ' ' zapisz Makro Range("H3").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Pawel\Desktop\" + ActiveCell.Text,...
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
A gdzie ma być to makro zapisane? Tak jak miałeś zrobione, to wszystkie arkusze zostałyby przeniesione do nowych skoroszytów (bez makr), a ten skoroszyt źródłowy zniknąłby wraz z makrem, bo nie byłoby w nim arkuszy. Musisz mieć przynajmniej 1 arkusz (ja go nazwałem Ostatni), który zostanie w skoroszycie i wraz z nim makro. Ten skoroszyt możesz sobie...
Gdyby faktycznie miało sens drukowanie (czy zapisywanie w pdf) jednej kolumny arkusza z kilkadziesiąt czy kilkaset wierszami :D - to wówczas lepiej wykorzystać domyślne ustawienia Excela do ustalenia długości jednej strony (zapewni to lepszą czytelność wydruku niż Twoje 70 wierszy na stronie). Przy takich założeniach :idea: wystarczy wykorzystać kod...
sub Zapis() ActiveWorkbook.SaveAs "Jacek " & Cells(1, 1) & " 2014.xls" End Sub Dodano po 3 Private Sub Workbook_AfterSave - To nie trzeba
Nagraj sobie makro. Parametr 'Filename' jest stringiem, więc poskładaj tekst z ComboBox'ów...
Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...
Jeśli masz tych wzorców kilka (np. 4), nie ma potrze by stosowania makr, wystarczy kilka funkcji (logicznych i tekstowych), w następnym kroku (np. na następnym arkuszu) wyniki możesz zebrać tak, aby nie było między nimi pustych wierszy - takie zapisy pojawiały się już na Elektrodzie - z tego, co pamiętam ostatni ok. 2 miesięcy temu.
makro excel zapis makro excel zapis pliku zapis makro
usterka zawiesi scania zamek tylnej klapy shark pomiary
dahua software pralko suszarka samsung
Czy gramofony Lenco są dobre? Opinie i recenzje Błąd C1122 w Opel Agila - diagnostyka i rozwiązania
