Cześć, potrzebuje pomocy z napisaniem procedury wyszukaj pionowo jako makro. Poniżej wysyłam to co mam. Wpisując wartość w jednej z komórek, makro musi wyszukać dla niej odpowiedni wynik w innym pliku. Jako, że ten plik będzie codziennie inny to makro będzie otwierać najnowszy plik z danej lokalizacji "Baza". Uruchamiając makro otwiera mi się okno w...
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
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
Ale, ale. U mnie zmienna 'test' "pokazuje" posortowane, bez względu na kolejność zaznaczania.[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count test = .SelectedItems(i) Next End With[/syntax]Może toto...
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
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",...
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ż...
Może jakoś tak: [syntax=vbnet] sub Test() dim Fn as string, Wb as object Fn=Dir("C:\twój katalog\*.xlsx") do while (Fn <> "") set Wb=Open(Fn) Sheets(2).Select Fn=Dir loop end sub [/syntax] Tylko otwiera plik i wchodzi do 2 zakładki, nic więcej nie robi.
Przykładowe makro: Po użyciu przycisku w Mobile KPD2 Pro następuje uruchomienie wyjścia monostabilnego na 1s. Potem tworzysz wejście, którego typ linii to "wg wyjścia" a typ reakcji to "techniczna - przycisk drzwi". Wejście to jest sterowane wg wyjścia monostabilnego. Taka wskazówka powinna wystarczyć.
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Nie wiem jaki program otwiera filmy .mkv, ale można dostosować plik Otwórz przepisać dokładnie, aby otworzyć bat-em. I .bat przez %1 będzie działać DisplayChanger i następnie prawidłowe programu otwarcie .mkv Coś takiego set film=%1 if %film:~-8,3%==080 "C:\Program Files (x86)\12noon Display Changer\dc.exe" -width=1920 -height=1080...
... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....
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".
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ść napisałem makro, które otwiera pliki excel, kopiuje ich zawartość do kalkulatora, następnie przekopiowuje obloczenia do zbiorczej zakładki, i tak dla każdego z wybranych plików. Problemem jest powolność jego działania, od 10 plików makro działa o wiele wolniej. proszę o sugestie w jaki sposób mogę przyśpieszyć makro. Dopisałem również zamykanie...
Racja, że to głupi błąd. Dziękuje za zwrócenie uwagi.
Mało szczegółów, to i kod taki sobie. ;) [syntax=vbscript]Sub Drukuj() Workbooks.Open (Range("B1")) Sheets("ArkuszDoWydrukowania").PrintOut ActiveWorkbook.Close End Sub [/syntax]
sprawdzone , załączam plik z danym. makro otwiera się bez problemu w wersji Microsoft® Excel® 2016 MSO (wersja 2202 kompilacji 16.0.14931.20118) 32-bitowa ( wcześniej błędnie podałem , zę to wersja 2003) problem jest w wersji 14.0.7015.1000 excel 2010 32- bitowa przypisane są dwa makra , makro 1 - utworzone przez zarejestrowanie excel 2010...
które pozwoli mi otworzyć konkretny plik dwg, np. jeden.dwg Lub [syntax=vbscript]Sub elka() Dim plik As String Dim sWkb As Workbook Dim katalog As String katalog = "C:\Pulpit\" plik = Dir(katalog & InputBox("Wklej nazwę pliku dwg") & ".dwg") If plik <> "" Then Set sWkb = Workbooks.Open(katalog & plik) sWkb.Close SaveChanges:=False...
Witam. Już wcześniej pisałem w innym temacie na temat centrali integra 64 oraz podłączeniu pod nią i jej czujki pompki cyrkulacyjnej do CWU co udało mi się już zrobić. Temat automatyki mi się spodobał więc kupiłem kolejnych kilka gadgetów, a dokładnie ACU-220 (ABAX 2), 2 piloty APT-200 (ABAX 2) oraz ASW-210 (ABAX 2) Teraz chodzi mi o otwieranie bramy...
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
Witam, mam makro, które pobiera dane z innego pliku udostępnionego na sieci firmowej: otwiera go tylko do odczytu, kopiuje dane i później zamyka. Workbooks.Open Filename:=baza_1, ReadOnly:=True ... If chk_1 = True Then baza_1.Close SAVECHANGES:=False Wszystko działa jak należy do póki ktoś inny go nie otworzy u siebie na kompie, wtedy plik u mnie już...
Dzięki za zainteresowanie. Jednak to makro otwiera plik źródłowy, a mi zależy na tym, aby on pozostawał zamknięty. Chodzi o to, że plik z łaczami jest ogólnodostępny dla wielu użytkowników, natomiast plik źródłowy powinien być dla nich niedostępny.
W makro otwieranie powtarzasz za każdym kopiowaniem. Zostaw tylko jedno na początku, a "Close" na samym końcu...
Cześć Mam makro które otwiera exela z zasobu kopiuje z niego dane do drugiego potem robi wyszukaj pionowo itp. Mam jednak problem tego typu że plik z którego pobierane są dane jest czesto zablokowany do edycij i trzeba go odblokować. Próbowałem formuł jak poniżej: Windows("20230725_INT.xls"... Application.WindowState = xlNormal...
[syntax=vb] Sub sub_OpenFolder() Dim str_folder As String str_folder = "C:\Temp" ' folder do otwarcia Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub [/syntax]
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...
Witajcie Mam już napisane makro w pliku Worda, które otwiera po kolei kilkadziesiąt plików Worda, które wszystkie są korespondencją seryjną. Makro robi swoje we wszystkich tych plikach jednak przy otwarciu każdego z nich muszę kliknąć na przycisk "TAK" na pytanie "Otwarcie tego dokumentu spowoduje uruchomienie następującego polecenia SQL ..." Czy jest...
Cześć, Czy jest możliwość w VBA ignorowania MsgBox, który wyskakuje tuż po otwarciu innego pliku? Mam makro - otwiera plik i wyskakuje MsgBox (coś sprwadza, służy komuś innemu - więc o usunieciu nie ma mowy). Jest jakieś obejście by dezaktywować MsgBox z innego pliku, lub nawet całe kody makr?
Otworzysz te np. 10 plików i co dalej? Musisz uważać żeby któregoś przypadkowo nie zamknąć przed skontrolowaniem? Mnie by się to zdarzało. Dlatego bym zrobił listę plików do kontroli. Można ją zapisać i używać do woli , nawet przez wielu kontrolerów. A samo otwieranie nie jest problemem, można przecież zrobić hiperłącza.
Wystarczy umieścić takie makro w procedurze arkusza 'Worksheet_Change'. Nie lepiej przenieś makro do zdarzenia beforeclose? Pewnie to wordowskie makro otwiera ten D402 ładuje dane i go zamyka.
Witam Część mojego makra w pętli otwiera pliki, kopiuje z nich kolumny, wkleja i wkleja do arkuszy w pliku z makrem [syntax=vbscript] For i = 1 To .SelectedItems.Count Set wkb2 = Workbooks.Open(.SelectedItems(i)) 'TU wytępuje ostatni raz With wkb1.Sheets(tblArkusze(i - 1)) .Visible = True End With With wkb2.Sheets(1) .AutoFilterMode = False .Columns("A:N").Copy...
Cześć, Potrzebuję lekko zmodyfikować makro które otwiera najnowszy folder (po dacie która jest w nazwie) I kopiuje z niego pliki. Problem jest taki że nie otwiera konkretnego folderu ponieważ znajduje się tam również folder "ARCHIWUM", nie mogę go przenieść ani zmienić nazwy. Potrzebuję zmodyfikować kod (pętle) aby pomijał ten konkretnych folder. Czyli...
Mam makro, które otwiera plik o nazwie "Stary". Co należy zrobić, aby makro na początku sprawdziło czy w folderze jest plik o nazwie "Stary" i jeżeli nie to pojawiło się okno np z informacją błąd, a jeżeli jest plik w folderze to go otwierało [syntax=vbscript]For Each b In Workbooks If b.Name = "Stary.xls" Then otwarty = True: Exit For Next If Not otwarty...
Czy jest możliwość, aby makro , które otwiera inny plik przypisało np do arkusza1 kod jakiegoś innego makra?
Witam, napisane w excelu makro otwiera nowy plik jako "tylko do odczytu", aby następnie wyszukać w nim dane i skopiować je. Problem polega na tym, że Excel zmienia jednocześnie strukturę pliku, który otwiera. Plik w formacie *.csv rozdziela kolumny, zmienia format komórek(z tekstu na datę), a co za tym idzie, uniemożliwia schematyczne szukanie po wierszach....
Witam, nie znalazłem rozwiązania na forum. Mam makro, które otwiera linki wpisane w komórki. Wszystkie linki znajdują się w pierwszej kolumnie i lecą daleko w dół. Problem w tym, że chciałbym, aby pętla wykonywała to makro otwierania linku do momentu osiągnięcia numeru wiersza wpisanego w inną komórkę. Czyli jeżeli wpiszemy w komórkę '500' to pętla...
Ctrl + Shift + S Dodano po 3 Makro z reguły zatrzymuje się w jednej linii kodu ze względu na generowany w niej błąd (np. zła nazwa arkusza, zła nazwa pliku, próba otwarcia otwartego pliku itp) - nie wskazałeś tej linii, a mnie (po drobnych modyfikacjach kodu :D ) Wskazałem w pierwszym poście. Workbooks.Open strAdres, UpdateLinks:=0 Windows("Dziś.xlsx").Activate...
Oczywiście znam hasło tylko chcę aby przy kopiowaniu z wielu plików makro samo je wprowadzało bo jak na razie moje makro otwiera plik ale nie wiem jakim kodem sprawić, żeby je samo wpisywało. Wszystkie pliki są chronione jednym hasłem. Dzięki za linki, chyba uda mi się coś spłodzić.
Mam makro, które otwiera plik o nazwie "Stary". Problem w tym, że plik ten może mieć dwa różne hasła ("1" lub "2"). Czy można zrobić tak makro jeżeli nie może otworzyć pliku hasłem "1" (tak jak w poniższym makrze), to otworzyło plik hasłem "2" [syntax=vbscript]For Each b In Workbooks If b.Name = "Stary.xls" Then otwarty = True: Exit For Next If Not...
Witam. Mam zbudowaną bazę danych w formie aplikacji, a mianowicie po otwarciu, wyświetlony zostaje formularz (MENU) z przyciskami w okienku popup. Przyciski odwołują się do innych formularzy lub raportów. Raporty i formularze wywoływane są poprzez makra przypisane do danego przycisku menu. Każdy z przyciskow ma wprowadzone makro otwierające dany raport...
Jest progres :D tylko że makro otwiera nowy plik excela do którego ładuje zeszyt2.xlsx. jak napisać makro które aktywuje już otwarty zeszyt2.xlsx? [syntax=vb]Public exc2 As Excel.Application Sub monit2() Set exc2 = New Excel.Application ' New zamienić na zeszyt2.xlsx? exc2.Visible = True exc2.Sheets(1).Range("a1") = "2 monit" End Sub [/syntax]
Napisałem proste makro, które otwiera plik, z którego mają zostać skopiowane dane, zaznacza i kopiuje potrzebne dane do innego pliku. Pozostaje mi dodanie instrukcji "if, która przed kopiowaniem będzie sprawdzać, czy dane w pliku źródłowym się nie zmieniły. Dziękuje za pomoc i mobilizacje do samorozwiązania problemu. [syntax=vbscript]Application.Calculation...
Witam, Proszę Was o pomoc w napisaniu makra, które otwierałoby po kolei wszystkie pliki z danego folderu i uruchamiało stworzone wcześniej makro. Wyobrażam sobie to tak, że w folderze z plikami do przerobienia znajduje się jakiś plik, który należy uruchomić i w nim odpalić makro, które: 1. otwiera każdy plik po kolei z folderu 2. uruchamia moje makro...
chciałbym zapisać dane do tabeli za pomocą formularza Musisz kolego w formularzu umieścić odpowiednie przyciski i oprogramować w VBA ich funkcjonalność (np. zapis nowego rekordu) :D Wykorzystaj przykładowe bazy demo do analizy kodu obsługującego takie przyciski :idea: Dziekuje za odpowiedz :) mam stworzone makro pod przyciskiem, które otwiera formularz...
Witam, Jestem mocno początkujący w VBA i mam problem. Makro które próbuję stworzyć ma za zadanie otwierać plik za pomocą przycisku oraz kopiować poszczególne komórki z pliku otwierającego do pliku otwieranego. Makro się wykonuje, tzn otwiera plik, tyle że kopiuje dane z pliku otwieranego do otwierającego: [syntax=vbscript]Sub CommandButton1_Click()...
PRL - jeżeli to o zakładaniu nowego konta było do mnie, to nietrafione. To jest pierwsze. Nie jestem znawcą VBA - makro stworzyłem poprzez nagrywanie. Okienka o których mowa wyskakują z automatu - moje makro otwiera cztery pliki, każdy obrabia, wyniki wrzuca do piątego, cztery zbędne potem zamyka - bez zapisywania, bo potem miałbym błędy przy kolejnym...
1. Otwieram wzór arkusza ze zleceniem w którym zapisane jest moje makro. 2. Wypelniam ten wzór w odpowiednie dane. 3. Uruchamiam makro, które tworzy nowy plik zapisuje je pod nazwą pobraną z odpowiedniej komórki po czym tworzy hiperłącze które łączy nowo stworzony plik z plikiem wzorca. 4. Później aby wzór pozostał wzorem, to plik który wypełniałem...
Witam mam problem z kodem, otóż chciałbym aby makro otwierało mi pliki po długości i początku numeru. Nazwa plików to są zawsze cyfry , plików jest ich zawsze 12 : 10234567 20134566 30345672 40874510 ... 100541294 110560328 120549356 mam problem ponieważ jak chce otworzyć pierwszy plik z nazwą początkową:10 otwiera mi sie ten dłuższy plik początek 100...
makro otwiera arkusz makro otwiera folder makro otwiera lokalizacje
konica sprzęgło budzik melodia schemat instalacja elektryczny bosch
mikser ręczny analizator widma
Iveco Daily 2.8 JTD vs 2.3 HPI – ciśnienie na listwie wtryskowej, Bosch CP1/CP3, wartości robocze Ustawienie języka rosyjskiego w Nokii 6310
