nie mógł zamknąć pliku przed wyłączeniem wszystkich filtrów. pozwala użytkownikowi zapisać plik wywala błąd .......
Jesteś pewien, że masz pełen dostęp do C podmień i zobacz utworzy plik tam gdzie masz .xlsm [syntax=vbscript]Open ActiveWorkbook.Path & "\" & Range("B3") & ".dxf" For Output As #1[/syntax]
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...
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]
To sprawdź sobie takie rozwiązanie.
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Musisz wpisać coś takiego: ActiveWorkbook.XmlImport URL:="C:\Users\Humano\Downloads\" + Worksheets("Obliczenia").Range("D1").Val... _
pochodzą z programu "IFS" Niewiele to mówi, programów ERP jest trochę na rynku - jakie to pliki: tekstowe, xml, html, binarne ?
StarQuery.RunTable ActiveWorkbook.Path & "\Addone-parametres.sqx" spróbuj zmienić na StarQuery.RunTable "z:\moje\Addone-parametres.sqx" Albo na jakąkolwiek inną ścieżkę, którą powinieneś wpisać.
http://obrazki.elektroda.pl/4379317000_1... http://obrazki.elektroda.pl/4379317000_1...
Podstaw nazwę użytkownika pod zmienną, następnie sprawdzaj w dodatkowej instrukcji. [syntax=vb]With ark Do While .Cells(wrs, 2) <> "" haslo = .Cells(wrs, 6) 'tutaj podstaw usrName = .Cells(wrs,8) If .Cells(wrs, 2) = login Then test = True Exit Do End If wrs = wrs + 1 Loop 'jeśli hasło znalezione If test = True Then If haslo = InputBox("Podaj hasło...
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Przy okazji załączania pliku (koniecznie z tym upartym makrem), napisz więcej o systemach i wersjach Excela zainstalowanych na obu komputerach (ilu bitowe).
trochę zmieniłem podejście Musisz założyć z góry co chcesz osiągnąć a nie co chwile wklejać jakieś makra. "Widzę", że chcesz pobrać tylko 5 wartości z kolumn(F,J,L,N,W) można to zrobisz tak j.w czy przez zwykłe kopiowanie. Chciałbym, żeby napisany kod mógł sprawdzić czy plik jest już otwarty i jeżeli tak, żeby pominął krok otwierania pliku - nie udało...
[syntax=vbscript]Sub usun() For Each c In ActiveWorkbook.Names c.Delete Next End Sub[/syntax]
wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.
[syntax=vbscript]Sub Przycisk3_Kliknięcie() ' ' Przycisk3_Kliknięcie Makro ' Range("T4").FormulaR1C1 = "=NOW()" Cells(4, "R") = Cells(4, "R") + Cells(4, "Q") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & "usuwanie.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End...
Wystarczy jedna linijka: [syntax=vbscript]For Each f2 In f With wks Open f2 For Input As #1 Do While Not EOF(1) Line Input #1, linia .Cells(wiersz, 1) = f2.Name '<--- o, tutaj .Cells(wiersz, 2) = linia '<--- tą też można skrócić wiersz = wiersz + 1 Loop Close #1 End With Next[/syntax]
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
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
[syntax=vb] Dim otwarty As Boolean For Each b In Workbooks If b.Name = "zrodlo.xlsx" Then otwarty = True: Exit For Next If Not otwarty Then Workbooks.Open ThisWorkbook.Path & "\zrodlo.xlsx" [/syntax]
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
Coś takiego powinno zadziałać :-) [syntax=vbscript] Sub raport_pobrań () Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("POBRANIA").Select path = "D:\rary\Raport POBR.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 6 To 36 sheetName = Range("N" & wiersz) If sheetName <> "" Then With...
Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...
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:=...
No OK, ale jeśli nacisnę 'zapisz' i nie zamknę pliku? Po mojemu zapisywanie w logu powinno być przy BeforeClose
Spróbuj tak [syntax=vbscript] Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Const fileName As String = "A.xlsx" ' nazwa pliku do otwarcia Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = ThisWorkbook.Path .Filters.Clear .Filters.Add "Pliki Excel",...
Rzadko piszę makra w Wordzie, ale spróbuj [syntax=vb]Open "c:\Przykład.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) = True For tbl = 1 To Me.Tables.Count For wrs = 1 To Tables(tbl).Rows.Count Input #1, wartosc 'tu nie umiem zapisac bezpośrednio :| Tables(tbl).Cell(wrs, 2).Range.Text = wartosc Next...
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Jeju. Aleś się napisał. Pan Tadeusz przy tym to pestka. :D A wystarczą dwie linijki kodu nie licząc deklaracji. [syntax=vb]Sub OtwórzTekstowy() Dim strPlik As String strPlik = Application.GetOpenFilename Workbooks.OpenText strPlik, xlWindows, 1, xlDelimited, xlTextQualifierDoubleQuote, False, True, False, False, False, False End Sub [/syntax]
Jeżeli na komputerze docelowym masz zainstalowanego winrara w znanej lokalizacji, to możesz użyć coś takiego: Call Shell("C:\Program Files\WinRAR\winrar.exe x -o+ ""C:\Documents and Settings\uzytkownik\Desktop\test.rar&quo... *.* ""c:\wypakowane pliki\""", vbHide) Po szczegóły odsyłam...
Czy ktoś ma pomysł na to aby nie zaznaczał całych kolumn A:G tylko aby zaznaczył od komórki A4 do komórki GX Taki efekt możesz uzyskać poprzez wstawkę kodu: [syntax=vbscript]Set thisWb = ActiveWorkbook Set wksK = thisWb.Worksheets("Kosztorys") Lastrow = wksK.Cells(Rows.Count, 1).End(xlUp).Row wksK.Range("A4:G" & Lastrow).Copy[/syntax] ale efekt takiego...
Sprawdz, III zmiana jest kopia II-ej
Upewnij się, że poustawiałeś odpowiednio niski poziom zabezpieczeń i spróbuj czegoś takiego: [syntax=vb]'Dodać referancję: Tools->References->Microsoft Visual Basic for Applications Extensibility 5.3 Private Sub CommandButton1_Click() Dim plik As Workbook Dim arkusz As Worksheet Set plik = Workbooks.Open("c:\\plik.xlsm") Set arkusz = plik.Worksheets("Arkusz2")...
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
To Powershell + Inspekcja na folderze gdzie będą wrzucane. W momencie, kiedy coś się pojawi, to Powershellem dostawać się do pliku i sprawdzać co zostało uzupełnione i aktualizować główny plik z wynikami.
Coś takiego. Plik txt, to 'C:\a.txt'.
Wklej kod w zdarzenie arkusza. Stringi masz podstawione pod zmienne, więc ActiveWorkbook.SaveAs FileName:=Path & "\" & Name Nie wiem, czy Excel nie zjeży się na te nazwy. Zmień na polskie: Sciezka, Nazwa . Usuń te dwie linie rozpoczynające się od "Set", są zbędne. Jeśli to ma być kopia oryginału (obie zapisane), to pierwsza linia Thisworkbook.Save...
Ad1. Mniej więcej taki kod: [syntax=vb]Sub Konsoliduj() Dim tTbl() Dim i: i = 1 For Each MyWorksheet In ThisWorkbook.Worksheets If (MyWorksheet.Visible = True) And (MyWorksheet.Name <> "Razem") Then ReDim Preserve tTbl(1 To i) tTbl(i) = "'" & MyWorksheet.Name & "'!R1C1:R2C2" i = i + 1 End If Next Selection.Consolidate Sources:=Array(tTbl()),...
Nigdy nie programowałem w VBA, ale znalazłem takie coś, może okaże się pomocne. Jeżeli nie to poszukaj w sieci pod hasłami "vba copy rows" i podobnymi, pojawia się sporo wyników. The example codes will copy to a database sheet with the name Sheet2. Every time you run one of the subs the cells will be placed below the last row with data or after the...
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
http://obrazki.elektroda.pl/2803855300_1... Potrzebny (bezpłatny) dodatek. I nagrane makro, w którym można podstawić string ze zmiennej. [syntax=vb]Sub Makro1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\plikPdf.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False,...
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...
Makro podział pliku według danych w kolumnie
Powinno :)
Przykro mi, ale nawet nie sprawdzałeś, jak działa makro... W komórkę C1 wpisujesz ścieżkę do tysiąca plików, na przykład: C:\Users\TwojaNazwaUzytkownika\Pictures\... i naciskasz przycisk 'Zmień nazwę tysiącowi plików'. Makro zamieni nazwę tysiącom plików.:)
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
Nie. W makrze w pliku b dodajesz parametr który przyjmuje procedura makra. gdy makro wywołujesz z pliku A to ustawiasz ją na True a gdy z B na False. Można też ustawić parametr jako optional i wartość domyślną na false, wtedy bez jego podania będzie miał false...
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")...
I do not know how to do that. Macros are Google Apps Script, which runs in Google's servers rather than your computer. Their code has virtually no access to resources in your computer, such as the printer . Zamiast drukowania zrób makro do generowania pliku PDF, który potem po pobraniu możesz wydrukować. [url=https://developers.google.com/apps-...
na komputerze z wersją 2003 poniższe makro działa bez problemu to samo makro na komputerze z excelem 2010 Chyba jest raczej odwrotnie, to na 2003 makro z ".Sort.SortFields" nie będzie działać. Excel 2003 obsługuje co najwyżej składnię ".Sort Key1:=, Order1:=, Key2:=, Order2:=, Key3:=, Order3:=, Header:= ..." Excel 2010 obsługuje zarówno powyższe ,...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
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...
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
Oj, coś słabo Kolega google przetrząsał ;) Z jakiego pliku te dane? O stałej nazwie? Skoro obojętne to rozumiem że ktoś je tam wpisuje ręcznie? Jeśli tak to niech wpisuje do xls'a a wykres to już chyba sobie dorobisz? :) Próbowałeś nagrać makro w Excelu i podpatrzeć kod?
A to żeś rozjaśniła :) Makro będzie zapisane w pliku do którego będą kopiowane dane czy w jakimś innym miejscu? Jeżeli w tym pliku to zmienność jego nazwy nie ma znaczenia. Na jakiej zasadzie będzie zmieniać się nazwa pliku z danymi i czy będzie on ciągle w tej samej lokalizacji (folderze)?
Excel nie jest, i nikt w MS nie obiecywał, nie jest narzędziem do developmentu oprogramowania, np sieciowego
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
że makro łączy się z plikiem, który załączyłem i wyrzuca okno z zapytaniem o ręczne wpisanie daty Być może bo w pliku format włoski
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
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...
Mimo tej modyfikacji, makro cały czas zachowuje się tak samo - wywala ten sam błąd. Przecież masz w nim te stare makro. Po podmianie makra na te co podałem wyżej, wszystko działa w pliku testowym2
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
Hmm... U mnie (Office 2010), nie wiedzieć czemu, zwraca błąd niezdefiniowanego typu. Czyżby należało włączyć jakieś referencje? Po drugie: czy takie nazwy pliku sa w folderze i jego podfolderach A powyższa funkcja przeszukuje tylko podfoldery. Nie testowaliście tow... znaczy kolego PRL Byłoby również wskazane wyłączyć rozróżnianie wielkości liter (compare...
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
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ź...
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...
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
Jeśli chodzi o pobieranie danych i ich sortowanie, to można by to tak zrobić jak w pliku poniżej (jeden z wielu wariantów): 964013 W kodzie praktycznie brak obsługi błędów, więc bierzesz odpowiedzialność za rzetelność swoich danych, będą chińskie albo złe formaty daty, makro się wywróci, będziesz sabotować własne działania w obróbce danych, makro się...
Trochę nieścisłości jest w tym Twoim opisie. Piszesz, że w kolumnie E arkusza Brudnopis po wyczerpaniu nazwisk będą błędy #N/D. Tymczasem w pliku przykładowym są puste teksty. To jak w istocie będzie? W załączonym kodzie są uwzględnione oba warianty. Gdy już się zdecydujesz jak ma być, możesz sobie ten kod troszkę uprościć. W sprawie tworzenia nowego...
Cześć, słuchajcie problem mam, w pliku A potrzebuję makra które aktywuje przycisk w pliku B. Do ów przycisku jest przypisane makro. Plik B ma makra zabezpieczone hasłem, Da się to zrobić?
ark = ActiveWorkbook.Sheets(1).Name trzeba bylo po Nazwapliku = ActiveWorkbook.Name Dodano po 1 myslalem ze to logicznie dojdziesz Dodano po 2 bo po ThisWorkbook.Worksheets(1).Activate bedzie nazwa pierwszej wkladki w pliku, w ktorzem makro
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Nie ma uniwersalnego rozwiązania w takim przypadku. Można oczywiście zapisać plik z makrem jako dodatek i aktywować go w oknie "dodatki", ALE: jeśli ktoś zmieni nazwy, kolejność indeksów arkuszy (jeśli nie nazwy) to kicha. Spróbuj może w ten sposób: 1. Dostajesz plik z logami (gdzieś trzeba by go zapisać). Tutaj arkusz z danymi musi być rozpoznawalny....
Ten plik, który pokazałeś jako wzór ma zupełnie inną strukturę i raczej trudno go dopasować do Twojego nowego pliku. Szkoda, że nie ma w nim żadnych danych, żeby zweryfikować czy formuły kopiują się poprawnie. Poza tym nie wiem, czy tak jak w pliku wzorcowym istotne jest wstawianie wierszy, czy wystarczy samo kopiowanie. W pliku wzorcowym były podsumowania,...
Wygląda na to że wszystko robisz dobrze. Prawdopodobnie nie masz uprawnień administratora i do zapisu bezpośrednio na dysk C, ew. to kwestia ustawienia czegoś w zabezpieczeniach Worda (widzę że to ten nowy, ja się zatrzymałem na 2007). Utwórz na nim jakiś katalog, zmień ścieżką w makro i do niego próbuj zapisać. Oczywiście nazwa pliku ma tutaj znaczenie...
Szukam rozwiązania jak sobie z tym poradzić Na podstawie Twojego przykładowego pliku (tego drugiego :D z nagłówkami ) widzę, że we wszystkich wypadkach występowania błędu #N/D konieczne jest tylko zdublowanie pozycji z kontami "5". Jeśli to było by tylko tak - to można wykorzystać do korekty proste makro jak w załączonym pliku. Po uzupełnieniu pliku...
[syntax=vbscript]Sub Makro() p = [A1] 'Nazwa pliku jest w komórce A1 Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Range("B21:E21,G21:V21,AB17:AB18,B17:V20... With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown...
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro do...
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...
Powinno działać: [syntax=vbscript]Sub ostatnie_30_dni() ' ' ostatnie_30_dni Makro ' Dim ost As Long ost = Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row ' ActiveSheet.Range("A4:B" & ost).AutoFilter Field:=2, _ Criteria1:=Range("L2").Value, Operator:=xlAnd End Sub[/syntax]Twój kod odwoływał się do tabeli, a w pliku tabeli nie było. Może dlatego nie...
Witaj. Tutaj ktoś mądry napisał makro dla Excela, które wyciąga z tego pliku informacje i przedstawia je na wykresie: https://obrazki.elektroda.pl/5522055500_... https://github.com/wavoigt/FNIRSI-1013D-... Na Twoich plikach z 1014D też działa - najwyraźniej format się nie zmienił.
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
Jeśli będziesz miała otwarte oba pliki (tylko :!: ) to w świeżym pliku możesz wykorzystać makro typu :spoko: : [syntax=vbscript]Option Explicit Sub duplikatclear() Dim ws As Worksheet Dim ww As Worksheet Dim i, lrs, lrw As Integer Dim db As Range Set ws = ThisWorkbook.Sheets(1) Set ww = Workbooks(2).Sheets(1) lrs = ws.Cells(Rows.Count, 6).End(xlUp).Row...
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
Problem nie został rozwiązany
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
To było mówić że makro ma być w innym pliku. Kłopotem było to że makro pobierało nazwę pliku z pliku w którym nastąpiło wywołanie procedury. Poniżej poprawka. [syntax=vb]Sub OrderBuilder() ' ' OrderBuilder Makro ' Order building ' ' Klawisz skrótu: Ctrl+q ' Dim i As Long, ostWrs As Long 'otwarcie plików Workbooks.Open Filename:="D:\Desktop\NotWMS\Działa\expo...
makro odświeżanie pliku makro zapisywanie pliku makro odczyt pliku
ferro termostatyczny wózek inwalidzki akumulatory piąta harmoniczna
brother czyszczenie głowicy ne555 przerywacz
Regulacja gaźnika w Oleo Mac 937: czarna świeca i czwórkowanie Zmywarka Bosch - Wszystkie diody świecą, brak startu
