Witam, Mając kilka otwartych arkuszy i w jednym korzystam z automatycznego zapisu pliku: If NazwaPl = "" Then ActiveWorkbook.Save Else Workbooks(NazwaPl).Save End If Auto = Now() + TimeValue("00:05:00&quo... Application.OnTime Auto, "AutozapisStart" Przed zapisem i zamknięciem pliku wywołuje:...
Ze screena widzę że nie masz otwartego arkusza "Zeszyt2.xlsx" Musi być otwarty w tej samej instancji excela. I tak się nazywać. Masz w tej instancji otwarte dwa arkusze. Oba mają nazwę "Zeszyt1." a dalej nie widać. Dlatego masz błąd bo w kolekcji Workbooks nie masz takiego z nazwą "Zeszyt2.xlsx". Ten skrypt wyświetli Ci w oknie Imediate listę otwartych...
W opcji darmowej to się dokumentami Google robi... https://support.google.com/docs/answer/2... przykładowy fragment: " Udostępnianie pliku i współpraca nad nim z wieloma osobami Plik Dokumentów, Arkuszy lub Prezentacji Google można edytować jednocześnie na maksymalnie 100 otwartych kartach lub urządzeniach. Jeśli...
Właśnie chodzi mi o to żeby wszystkich nie zapisywać. Program generuje wszystkie pliki biorę opcję drukuj do pdf i otwiera mi z automatu w przeglądarce pdf. Tylko generuje pare plików pdf. Każdą kartkę osobno. A ja chciałbym wydrukować dwie na jednej. Więc szukam przeglądarki pdf która ma możliwość drukowania wszystkich otwartych arkuszy :)
Dzięki :) Dodałem jeszcze aby nie tworzyło mi kolejnych arkuszy z tą samą datą lecz ten arkusz tworzyło i odrazu usunęło oraz aby nie wyświetlał alertu czy usunąć :) [syntax=vb]On Error Resume Next ActiveSheet.Name = nazwa nr = 1 Do Until Err.Number = 0 Err.Clear nr = nr + 1 ActiveSheet.Name = nazwa & "(" & nr & ")" Application.DisplayAlerts = False...
Czyli otwierasz kilka plików / skoroszytów (worksheets) o takiej samej konstrukcji z interesującymi danymi w takich samych arkuszach (sheet) i chcesz zawartość całych arkuszy przenieść do nowego skoroszytu? Czy tylko jakiś zakres (range).
Tak myślę że kolega nie wie co oznacza błąd 13. Ale do rzeczy. Rozumiem że kolega chce za jednym zamachem usunąć wszystkie puste wiersze we wszystkich otwartych arkuszach skoroszytu. Jeżeli tak to, skad procedura ma wiedzieć ile arkuszy jest otwarte w danej sesji? Jeżeli używam zmienne to trzeba , dla przyzwoitości je zadeklarować, a jak już to trzeba...
Chciałbym w programie dodać możliwość eksportowania danych przez użytkowników bezpośrednio do ich własnych plików excela. Z wysyłaniem danych do pliku o znanej nazwie i do znanej lokalizacji nie mam problemu, ale w jaki sposób mogę przesłać dane do wybranej przez użytkownika komórki? Nie znam nazwy pliku, arkusza oraz adresu komórki. Próbowałem klasycznie...
Witam, Pracuję od dłuższego czasu nad makrem i niestety napotkałem kilka znaczących problemów, których pomimo szukania nie mogę zlikwidować. Makro działa w następujący sposób: 1. Po kliknięciu ikony pojawia się UserForm, który posiada różne opcje do wprowadzenia pewnych wartości do arkusza. 2. Wybieram przycisk "RUN", który odpala makro- makro ma za...
Moje rozwiązanie: - zrób kopię pliku "Budynki", - otwórz plik kopii budynków i "Analizy" - zmniejsz okna otwartych już plików tak aby były widoczne dwa na jednym ekranie - metodą przeciągnij i upuść, przeżuć zakładki które potrzeba to pliku "Analizy" To rozwiązanie nie przejdzie ponieważ ja chcę, żeby program automatycznie, po użyciu skrótu klawiszowego,...
Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
Bardzo dobrze podejrzewasz - sprawdź ile stron masz otwartych w arkuszu. Śmiem twierdzić że masz dwie strony, druga pusta.
Witam, Jeśli chodzi o makra i VBA jestem laikiem i moja wiedza w zasadzie kończy się na rejestrowaniu makra. Mam oto takie makro, które zarejestrowałem i zaczytuje ono dane z 3 przykładowych skoroszytów do jednego. Makro wykonuje się na otwartych plikach. [syntax=vb] Sub ROBOCZO() ' ' ROBOCZO Makro ' ' Windows("KGP12017 - Raport rozliczenia - 05.xlsx").Activate...
Dodałem miesiące i poprawiłem formułę w Arkuszu osobowym. Nie wiem dlaczego sobie utrudniasz. Przecież przy zwykłych danych wystarczy "=" (równa się) żeby "przejąć" dane. Żadne dodatkowe funkcje nie są potrzebne. ([chyba że korzystasz z bazy danych - ale to inny temat i też inaczej] Otwórz oba pliki aby zrozumieć formułę. Docelowo wystarczy potem otwierać...
Cześć, mam kod który działa poprawnie, ale wysyła maila z konkretnego arkusza - w tym przypadku z arkusza "1". Linijka kodu - With Sheets("1") Problem w tym, że arkuszy mam 150 takich samych różniących się tylko nazwą. Jak zmienić kod aby wysyłał z aktualnie otwartego arkusza? Czyli jeśli będę miał otwarty np. 30 arkusz i uruchomię makro to wyśle tylko...
...Mam skłonność do wybierania krótkich kodów, Żebyś tak jeszcze miał skłonność do pisania krótszych postów ;P Niedawno miałem podobny problem, który rozwiązałem w ten sposób, że przed otwarciem pliku sprawdzam wszystkie otwarte arkusze. Coś w stylu: otwarty = false for each ws in Workbooks if ws.Name = "RAPORT DZIENNY.xls" then otwarty =...
Wciskasz F9 i ci przelicza ale jak chcesz koniecznie makrem to wystarczy Calculate lub ActiveSheet.Calculate Czyli Sub Przelicz() Calculate Sub End a sam arkusz Sub Przelicz_Ark() ActiveSheet.Calculate Sub End Jeszcze przypomnienie ze skrótów klawiszowych excela: F9 oblicza wszystkie arkusze we wszystkich otwartych skoroszytach. Kombinacja...
Zamiast input box'a stwórz własną formę z polami i pokazuj ją jak w przykładzie powyżej.
Niestety wg opisu funkcji się nie nada. Można za jej pomocą pobierać dane tylko z otwartych arkuszy, a to nie wchodzi w rachubę - arkusz zbiorczy będzie poierał dane nawet z kilkuset plików ...
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.
Dziala :) wielkie dzieki za pomoc Dodano po 2 Jeszcze jedno pytanie :) Czy jest mozliwosc aby edytowac makro usuwajace wybrane wiersze aby usuwalo rowniez te same wiersze tylko w drugim arkuszu tego pliku tzn. teraz usuwa w aktualnie otwartym Arkuszu 1 i chcialbym zebym usuwalo jednoczesnie to samo w Arkuszu 2 i zeby nie przenosilo mnie do Arkusza 2
Jak chcesz mieć dostęp do parametrów, to utwórz arkusz 'Parametry' i tam trzymaj swoje 'opcje makra'.
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Skoro próbuje Kolega coś sam pokombinować, to trochę pomogę... ;) Nie wiem na ile dobrze zrozumiałem całą ideę, więc będziesz musiał trochę dostosować kod do swoich potrzeb. Zacznijmy od tego, żeby umieścić kod makra wewnątrz takiego fragmentu kodu (fragment dla makra umieszczonego w zdarzeniu kliknięcia przycisku): [syntax=vb]Private Sub CommandButton1_Click()...
Bardzo dziękuję - makra działają teraz skutecznie. Niemniej ciekawi mnie co jest przyczyną tego, że excel zawala się przy próbie stworzenia nowego pliku po uprzednim skopiowaniu danych z otwartego arkusza. Reaguje tak zarówno na Ctrl+N jak i naciśnięcie przycisku Plik>Nowy>Pusty skoroszyt. Jest to office 2013 na windowsie 10. Może ktoś zna wyjaśnienie...
Propozycja Pawła jest ciekawa, autor wątku może sobie wybrać, co mu bardziej odpowiada. Moje rozwiązanie dotyczy tylko arkusza i nie ma wpływu na działanie innych otwartych równocześnie arkuszy/skoroszytów. Rozwiązanie Pawła blokuje zdarzenia w całej aplikacji, więc użytkownik powinien pamiętać, aby opuszczając arkusz pozostawiał komórkę A1 w stanie...
Nie robiłeś dokładnie "tak", bo w kodzie masz After:=Workbooks("wczyt.xlsm"), co jest składniowo bez sensu: "wstaw nowy arkusz za plik wczyt.xlsm". Ja tylko dodam, że składnia [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh... nie zadziała jak trzeba, bo po otwarciu pliku, jak w przykładzie, aktywnym jest nowootwarty...
Mam pytanie jak wyżej. Potrzebuję skopiować cały element np. 351 z biblioteki relay.lbr do mojej własnej biblioteki a następnie zmodyfikować. Próbowałem otwierać eagle w dwóch oknach i po zaznaczeniu skopiować dany element, ale to nie działa. Ostatecznie ręcznie przerysowałem element, ale to jest zły sposób. Czy ktoś rozwiązał taki problem? Witam A...
Można za pomocą funkcji ADR.POŚR, ale to będzie działać pod warunkiem, że oba pliki będą otwarte . [syntax=text]=ADR.POŚR("[Zeszyt2_dane.xl...
A nie dostałeś jeszcze odpowiedzi na Twoje zgłoszenie problemów do autora kodu ? :D Wydaje mi się, że ja mam dość bujną wyobraźnię :ok: , lecz nie mogę sobie wyobrazić tabeli przestawnej z tych Twoich danych :cry: Spróbuj sam zbudować tabelę przestawną "na piechotę" - przy użyciu narzędzi tabel przestawnych - może znajdziesz wówczas przyczynę problemów...
Witam, Szczerze mówiąc zupełnie nie kumam VBA, a potrzebuje napisać makro, które bardzo ułatwi mi życie. Dla kogoś kto cokolwiek z tego rozumie to pewnie pestka, a ja będę wdzięczny za pomoc w tym zakresie. Potrzebuję makro które będzie się uruchamiać na żądanie (np skrót klawiszowy) w otwartym arkuszu excel, który ma kilkanaście arkuszy. Nazwa arkusza...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Nazwę pliku(ów, w zależności ile ich zaznaczysz) masz w zmiennej vrtSelectedItem . Nic nie stoi na przeszkodzie aby przypisać ją do zmiennej obiektowej, otworzyć plik, skopiować co trzeba i zamknąć. Podpowiem trochę If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems Set wkb = Workbooks.Open(vrtSelectedItem) 'gdzieś tu powinna być...
Ani. Najprawdopodobniej nie opisujesz problem. Utworzym dwa pliki, jeden w odwołań A1 do A1 innego. Zapiszem i zamkniem oba. Otwarte ponownie - w pierwszym w A1 zapiszem wartości, w innem tam w A1 ta wartość. Żadnych komunikatow. Aby załącznik dwa Twoje pliki tutaj.
OK Ale w tym przypadku muszę za każdym razem ręcznie zmieniać nazwę pliku. Ja szukam rozwiązania. np w otwartym arkuszu w komurce A1 wpisuje docelową nazwę pliku. Program otwiera inny plik(wzór) poczym wpisuje do niego kilka wcześniej wpisanych wrtości, w tym docelową nazwę pliku, i zapisuje ten wzór pod nową nazwą. I mi chodzi o to jak to zrobić Aby...
To, co jest przed Find określa, gdzie metoda ma szukać. Może tam być zakres z aktywnego arkusza, jak jest teraz, albo zakres z innego arkusza (z kwalifikatorem Worksheets(nazwa_lub_numer)), albo nawet z innego (otwartego) skoroszytu.
Tak, te funkcje wymagają, żeby oba skoroszyty były otwarte, ale za to są dość szybkie. Nie było warunku, że plik źródłowy będzie zamknięty. W takim przypadku należałoby użyć innych funkcji, ale należałoby też zawęzić obszar poszukiwań. Tu nie było przykładu ani informacji gdzie w arkuszach należy szukać danych.
Nie wiem czy pomogę, bo sam się nie zastanawiałem nad tym problemem. 1. Narzędzia - Prametry - Stacja - Format wyprowadzenia GDI - Wyprowadzenie GDI/Dane plotowania i może trzeba zaznaczyć "wyprowadzenie zgodnie ze skalą", lub zmienić stopień powiększenia X i Y. 2. Przy otwartym edytorze - Opracowanie właściwości i pobawić się "wielkością arkusza",...
Dzięki za odpowiedzi :) Niepotrzebne byloby kupowanie switcha poniewąż ma to być połączony tylko na 24h. pozdrawiam Dodano po 3 Mam jeszcze jeden problem :/ Chodzi o to połączenie mostkowe. Zaznaczam wszystkie 3 połączenia i wybieram połączenie mostkowe. Wyskakuje mi informacja, że: Niemożna skonfigurować mostka sieciowego, kiedy są otwarte arkusze...
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...
Nie kumam tego podłączenia Toż to proste jak świński ogon :D Zaznaczasz swego Checkboxa (w trybie projektowania), klikasz we wstążce właściwości i w otwartej tabelce we wierszu LinkedCell wpisujesz adres bezwzględny komórki, gdzie będziesz miał wskazania stanu tego Checkboxa (PRAWDA|FAŁSZ) :please:
to rozwiązanie niestety nie działa w moim przypadku, ponieważ faktycznie makro wykonuje działania tylko na określonych typach arkuszy, ale za każdym razem jak je otrzymuje to dostaję już wpisane dane, to jest plik z logami z innego programu i bez wpisanych danych plik byłby pusty, więc użytkownik już nie wpisuje danych, tylko je przetwarza na własny...
Witam Jakim rozkazem w vb mogę skopiować z otwartego pliku Excel arkusz do innego skoroszytu, który znajduje się w innym folderze. Skoroszyt docelowy jest "tylko do odczytu". z góry dzięki za pomoc
Witam Potrzebuję do swojego makra dopisać na końcu kod, który będzie powodował przejście do następnego arkusza będącego pierwszym kolejnym po aktualnie otwartym.
Jeśli masz otwarte oba pliki i w nich są wszystkie wymienione arkusze :!: to spróbuj takiego kodu: [syntax=vbscript]Workbooks("cale.xls").A... Sheets("WAC").Select Range("P3").Select Selection.Copy Workbooks("Daily production meeting report.xlsm").Activate Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks...
Ale po co chcesz otworzyć arkusz excela w wordzie? Przy takim zabiegu zawsze będziesz miał robaczki. Otwórz arkusz w excelu, zaznacz tabele i skopiuj ja do otwartej kartki w wordzie.
Zrób zmienną string ze ścieżką i różna ścieżkę w zależności czy otwarty plik czy nie [syntax=vb]Sub aaa() Dim lOstRw As Integer Dim test As Boolean Dim NazwaSkoroszytu As Workbook Dim sciezka As String 'Sprawdzenie jakie arkusze są otwarte For Each NazwaSkoroszytu In Application.Workbooks If NazwaSkoroszytu.Name = "BazaKlas.xlsx" Then test = True Exit...
Przykro. Nie pomogło. Opisze co nie wychodzi. W otwartym arkuszu zauważam błąd w jednej z komórek (pozycji kosztów)np komórka A6 "T14013D2033". Wciskam "Otwórz". Otwiera się formatka z listboxami. Zaznaczam komórkę A6. W listboxach zaznaczają się odpowiednie wartości (ja wcześniej nazwałem je obiektami. Pewnie błędnie ?). Zmieniam wartość w jednym z...
Mi przy otwieraniu umowy informuje że błąd pliku i mogła nastąpić utrata danych. Ale potem mogę działać. Zaraz spróbuje poprawić. Jak teraz poparzyłem to stwierdzam że miałem podobny kłopot z przyciskami i rozciągniętym wierszem gdy przechodziłem z plikami z 2003 do 2010. W chwili obecnej nie mam 2003 jak wrócę do domu to poprawie na 2003 (myślę że...
To może być wirus makro napisany w Visual Basic'u, który zmodyfikował pliki startowe szablonów Office. Spróbuj otworzyć np: excela i jeśli: 1. po otwarciu skoroszyt nie nazywa się Zeszyt1 to 100% coś złapałeś, 2. uruchom następujące menu: Narzędzia - Makro - Edytor Visual Basic i tam w oknie Project: VBAProject powinieneś mieć w widoku podobnym do Eksploratora...
komunikat otwartych alarm otwartych grupowanie arkuszy
linia długa brother zamieni zmienne globalne plikach
Jak grają kolumny Onkyo SC-550? Onkyo A-35 z Altus 140 - Czy to dobre połączenie?