[syntax=vbscript]Sheets(Range("J3").Valu...
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]
Hasła ochrony skoroszytu nie zapiszesz w VBA. I nawet gdyby to było możliwe musisz posłużyć się porównaniem i instrukcją If i wtedy nici z takiego hasła, bo łatwo je podejrzeć. Reasumując. Jeżeli chcesz mieć "zahasłowaną" ochronę skoroszytu NIE UŻYWAJ VBA
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Zadeklarowałeś nieprawidłowy typ. Jest: 'As Workbook' powinno być: 'As Worksheet'... Nie próbowałem Twojego makra w działaniu, ale niczego więcej, co mogłoby powodować błąd, nie widać.
Sprobuj to [syntax=vb] Sub zbior() Dim wb As Workbook fl = Application.GetOpenFilename("Excel ,*.xls*", , "Any files") If fl = False Then Exit Sub fl = Dir("*.xls*") With ThisWorkbook While fl <> vbNullString Set wb = Workbooks.Open(fl) shn = wb.Name wb.Sheets(1).Name = shn wb.Sheets(1).Copy after:=.Sheets(.Sheets.Count) wb.Close False fl = Dir...
[syntax=vbscript]Sub przeniesienie() Application.ScreenUpdating = False Set wb = ActiveWorkbook.Sheets("Arkusz1") Path = "C:\Users\Martyna\Desktop\najnajnowsze\P... Set Filename = Workbooks.Open(Path) For wiersz = 2 To wb.Cells(Rows.Count, 13).End(xlUp).Row sheetName = wb.Range("M" & wiersz) If sheetName <> "" Then With Filename.Worksheets(sheetName)...
Stąd nazwa zmienny. Jeśli nazwa jest zawsze taka sama to zamiast ThisWorkbook.Activate wpisz Workbooks("zmienny.xlsx"... Dodano po 1 bo ThisWorkbook jest skoroszyt, w ktorem makro
Menu>Recenzja>Chroń skoroszyt? Zarejestruj makro zakładania oraz zdejmowania ochrony i wklej tam gdzie trzeba...
Przetestuj poniższe makro [syntax=vb]Sub kopiuj() Dim shInv As Worksheet Dim shInpt As Worksheet Dim lOstRwDst As Long Dim lOstrwSrc As Long Application.ScreenUpdating = False Set shInv = ActiveWorkbook.Sheets("Inventory") Set shInpt = ActiveWorkbook.Sheets("Input") lOstRwDst = shInv.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row lOstrwSrc = shInpt.Cells(Rows.Count,...
Witam ponownie, Nie linczujcie mnie :) podejrzewam, że dzisiaj jeszcze poproszę kilka razy o pomoc - jestem początkująca, ale bardzo chętna do nabywania wiedzy:) Mam problem ze stworzeniem pętli do tworzenia nowych skoroszytów, napisalam makro tworzące 10 skoroszytów o nazwach dane_1, dane_2 itd., zapisujących się w folderze utworzonych na pulpicie...
Możliwe byłoby blokowanie arkusza(y) wykorzystując metodę OnTime . Sprawdzałoby się co, powiedzmy 5 minut, czas zegara systemowego i jeśli warunek spełniony - włączamy blokadę...
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
jeżeli praca trwa w bez dostępu do sieci W makrze otwarcie sieciowego skoroszytu musi nastąpić dopiero po upewnieniu się, że praca jest w trybie "bez dostępu do sieci". W jaki sposób to zrobisz to już Twoja inwencja, bo nie napisałeś ani jak jest zrealizowane makro ani jaka to lokalizacja sieciowa (plik dostępny z internetu czy z sieci lokalnej itd).
Jeśli makro zdarzeniowe ma działać w konkretnym arkuszu, to powinno być zdefiniowane w module kodu tego arkusza. Jeśli takie samo makro ma działać w kilku arkuszach, to można alternatywnie zdefiniować makro skoroszytu w module Ten_skoroszyt (ThisWorkbook). Te makra mają trochę inne nazwy, trzeba wybrać odpowiednie makro z listy.
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
Spróbuj makra jak w załączniku uruchamianego przy otwarciu skoroszytu. Ale jeśli masz bardzo dużo zależności, to wyświetlenie wszystkich może być nieczytelne.
Nieprawda. Korzystając w arkuszu z menu "Znajdowanie i zamienianie" i zaznaczając check box Wewnątrz: Skoroszyt, opcja ta jest zapamiętywana w skoroszycie i makro działa na wszystkich arkuszach skoroszytu. Pytanie brzmi, czy można ten check box ustawić w VBA, aby nasze makro działało zgodnie z naszymi oczekiwaniami.
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Cześć, przejdę do rzeczy. Chodzi mi o zrobienie makra które wykonuje poniższe czynności. Mam szablon, przykładowo : Ilość jabłek : 2 Ilość gruszek 4 Chce by makro, które podłącze pod przycisk tworzyło skoroszyt z tego szablonu, nadawało mu ID np 01 i każdy następny szablon robił np. 02,03,04. Potrzebuję również by makro kopiowało ilość jabłek i gruszek...
Zrob przeliczane calego skoroszytu manualnie, tylko w kodzie arkuszu(roboczy) wpisz
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ź...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
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...
NO tak, nie zmieniłam nazwy arkuszy i mówię że nie działa. Działa. Makro przechodzi pięknie i zapisuje pliki we wskazanej lokalizacji. Ale w skoroszytach które makro tworzy są tylko arkusze przekopiowane, nie ma danych przefiltrownaych wg klucza. Powinnam coś jeszcze zmienić w tym makrze? Używam makra na przykładzie wyżej. Zmieniłam tylko nazwę arkuszy.
Trzeba tylko pamiętać, że po umieszczeniu makra w Personalu jest ono dostępne tylko na tym kompie na którym jest ów plik. Jeżeli więc wyślesz komuś swój skoroszyt z niego korzystający, a makro ma wykonywać jakieś operacje na jego arkuszach to nie będzie działało. Jak to mówią: "Każdy kij ma dwa końce" i trzeba wybrać mniejsze zło. :cry:
Jak to makro przerzucić do skoroszytu makr osobistych?
Zrób jedno makro jak uruchamia się skoroszyt które chowa paski oraz drugie uruchamiane jak zamykasz skoroszyt które będzie odkrywało paski. Powodzenia
jak wrócić do skoroszytu który codziennie ma inną nazwę? Chcę przejść z jednego skoroszytu np: 123434 (codziennie ma inną nazwę, z niego uruchamiam makro) do skoroszytu import ( nazwa zawsze taka sama) i coś tam zrobić Makrem i potem wrócić z powrotem do wcześniejszego pliku. wiem jak to zrobić jeśli mam zawsze taką samą nazwę skoroszytów ale jak zrobić...
Nie załączyłeś kodu i temat robi się rzeka. (nadal nie wiem czy chcesz otworzyć plik czy co.) A jak widzę takie cuda to ech.. np Workbooks("nazwapliku_maj_2023.xls").Act... Bardzie pasuje mi to zastosowanie zmiennych i "operacja" na nich i tak (a- pobierze nazwę skoroszytu tam gdzie masz makro, b- aktywnego skoroszytu) [syntax=vbscript]a = ThisWorkbook.Name...
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...
Wersja 2016 Automatyczne przeliczanie skoroszytu włączone :/
Czy ktoś jest w stanie napisać do tego odpowiednią funkcję/makro??
Witam, problem polega na tym: mam folder X(C:Dokumenty) który zawiera kilka skoroszytów(111-01,111-02,111-03 itd.), oraz skoroszyt o nazwie "WZÓR". Potrzebuję makro(w osobnym skoroszycie), które sprawdzi czy w danym folderze istnieje już skoroszyt o nazwie np: xxx-xx, jeżeli tak to go otworzy, a jeżeli nie to skopiuje skoroszyt o nazwie "WZÓR" nada...
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Czyli makro ma nie tworzyć nowego skoroszytu? :>
defincje wksz as worksheet oczywiście były, dużo wierszy to już ok 200 (jesli ogranicze pętle Do - do na przykład x=5 wtedy też jakby lepiej działa jak jest wiecej to nawet cały widok czasem sie nie odswieża - skopiowana tabela sie wogóle nie pokazuje, muszę kliknąc 2 razy (dokładnie 2 razy) na jakąś komórke i wtedy pokazują sie skopiowane wiersze -...
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.
[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
Opis zagadnienia: mam arkusz do którego w różnych zakładkach wpisują różni użytkownicy swoje dane. Na koniec miesiąca tworzone jest zestawienie - przycisk generuj zestawienie (makro przezemnie napisane), który tworzy nowy skoroszyt, do którego przepisywane są odpowiednie dane. Wszystko OK tylko, że w arkuszu bazowym mamy makro, które chciałbym również...
Witam Mam makro (wstawianieprocedury), które wstawia procedurę (Makro2) do aktywnego skoroszytu. Przy okazji jest tworzony przycisk w aktywnym arkuszu, który miałby uruchamiać tą wstawioną procedurę z Makra2. Problem w tym, że przycisk nie próbuje się odwoływać do Makro2 z aktywnego skoroszytu, ale do tego skoroszytu w którym jest makro wstawianieprocedury....
Przede wszystkim załącz przykładowy plik i jednoznaczny opis, aby było można zorientować się do czego zmierzasz ? Wstępnie można Ci zaproponować uruchamianie jednego makra, które w zależności od wstawionej opcji (1, 2, 3) w określonej komórce uruchamiać będzie różne działania (kopiowanie danych, drukowanie lub zamykanie skopiowanego skoroszytu) ;-)
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
A skąd kolego masz ten pik z makrami "Skoroszyt.xlsm" ? Odpowiedz na pytanie Excela - czy masz go z zaufanego źródła ? :?: Zaufane źródła - z reguły nie ukrywają żadnych makr ani arkuszy typu "sheet8.xml" :D Otwórz sobie jakiś nowy skoroszyt, wprowadź jakieś dane i zapisz go raz jako zwykły skoroszyt(1) xlsx, a potem zapisz ten sam skoroszyt(2) jako...
Kopiowałem do nowego skoroszytu i pominełem
To trzeba takie napisać. Opis problemu jest niewystarczający, żeby pomóc w jakikolwiek sposób - po tym opisie nie można ustalić co i skąd ma to makro kopiować i do którego skoroszytu i w jakie miejsce. W zasadzie to potrzebne jest makro, które coś gdzieś kopiuje - można sobie takie nagrać rejestratorem makr i problem rozwiązany. Ewentualnie proszę przedstawić...
Przetestuj poniższy kod: [syntax=vb]Sub Rozdziel_Pivota() Dim pvTbl As PivotTable Dim pvFld As PivotField Dim pvItm As PivotItem Dim shArkPvTbl As Excel.Worksheet Dim shArkList As Excel.Worksheet Dim lLstRwList& Dim rngList As Excel.Range Dim rngCp As Excel.Range Dim wbkDest As Excel.Workbook Dim shDest As Excel.Worksheet Dim sItem$ Dim oWSShell As...
Jest kilka możliwości odwołania się do arkusza o zmiennej nazwie. Można to zrobić po indeksie - czyli jakby numerze pozycji, w jakiej arkusze są "poukładane" w skoroszycie. Jeśli ten arkusz ma zawsze taką samą pozycję w skoroszycie, czyli znajduje się (przykładowo) zawsze na 5 karcie (zakładce), licząc od lewej strony - można wykorzystać w kodzie jego...
Super. Kliknąłem podziękowanie :D. Dzisiaj w pracy przetestuję (nocna zmiana). Czy te makro dodajemy jakoś specjalnie do skoroszytu czy też normalnie na zasadzie makro/wstaw nowe?
ze tak czy siak potrzebne są dwa klawisze Można z jednym np. "end" wrzuć to do modułu [syntax=vbscript]Sub test() MsgBox "ok" End Sub[/syntax] a to do thisworkbook [syntax=vbscript]Private Sub Workbook_Open() Application.OnKey "{end}", "test" End Sub[/syntax] Zapisz zamknij i uruchom skoroszyt naciśnij "end"
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Witam/ Nie wiem czy to pomoże, ponieważ nie korzystam z wersji 2010, 2013, ale zdarzenia zamknięcia skoroszytu Przypisz makro zapisać najniższą wersję. Osobiście zawsze zrobić swoją pracę na offìce97, i inne offìce jest właściwie rozumie, wyjątkiem jest OpenOffìce, jeśli masz makra.
tylko dlaczego (7)? Czy jest jakiś spis tych pól w zależności od indeksu. Liczbę właściwości zliczysz przez .Properties.Count . Nas interesuje tylko kilka. Otwórz nowy skoroszyt, uruchom poniższe makro (umieszczone w module). Następnie zmień nazwę arkusza2, zmień kolejność na pasku, i uruchom ponownie. [syntax=vb]Sub PropId() With ThisWorkbook.VBProject.VBComponents("Ark...
chciałbym utworzyć 100 plików xls Pustych plików?
Dziękuję za pomoc Panowie, temat do zamknięcia Dodano po 6 Nazwę "AktywnyWiersz" zdefiniowałem dla całego skoroszytu.
Witam [syntax=vbnet] With Sheets(tblArkusze(i)) .Visible = True [/syntax] Masz błąd bo musisz określić którego skoroszytu to dotyczy [syntax=vbnet]With wkb1.Sheets(tblArkusze(i)) .Visible = True End With[/syntax]
Dzięki bardzo za jakieś pierwsze wskazówki, tylko problem polega w tym, że jestem słaby w pisaniu makr. Bardzo proszę o pomoc, żebym miał taki plik zbiorczy z makrem (format w załączniku powyżej), żeby mi zebrał w całość wszystkie odpowiedzi z innych skoroszytów.
Cześć, załącz przykładowy plik wynikowy. andie
otwierał nowego Excela nowe wystąpienie programu Excel, lub nowy skoroszyt?
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]
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Propozycja rozwiązania w oparciu o makro. W module uniwersalnym wpisałem takie makro: [syntax=vbscript]Sub NowaData() On Error Resume Next Dim ark As String With ActiveSheet ark = .Range("BA22").Value .Range("BI21:BI25").FormulaLocal = "=SUMA.ILOCZYNÓW('[Wyniki tygodniowe.xlsx]T" & ark & "'!$H$2:$H$23;--('[Wyniki tygodniowe.xlsx]T" & ark & "'!$G$2:$G$23=$BH21))"...
Widzę, że dopracowałeś trochę arkusz. Dopisałem funkcje która zmienia kolor wypełnienia komórki w przypadku "przeterminowania" zadania. Sprawdzane pod kątem niedotrzymania terminu są tylko zadania niewykonane (oznaczone czerwoną czcionką). W arkuszu jest skoroszyt z kodami kolorów, jak otworzysz makro są tam komentarze i jest napisane którą liczbę trzeba...
Dzięki za kod ale nie wiem co robię nie tak bo mi nie działa. Robię to w ten sposób że nagrywam puste makro (tzn klikam ikonkę narywania a potem od razu stop). Potem wchodzę w edycję tego pustego makra i wklejam podany kod. Robię tak ponieważ nie umiem robić tego poprzez wstawianie modułów. Pytanko tylko czy przy nagrywaniu mam to makro nagrać w "Ten...
Witam Tworze makro które będzie otwierało skoroszyt o zmiannej nazwie, wykonywało w nim kilka operacji typu filtrowanie itd a potem przenosiło z niego pofiltrowane dane do pliku w którym uruchamiałem makro. Arkusz w którym będzie uruchamiane makro też będzie miało zmienną nazwę niestety. Teraz mam problem ponieważ po otwarciu pliku z makrem uruchamia...
[url=http://software-solutions-online.co...
Chodzi o to, aby w pliku zbiorczym znalazły się wszystkie arkusze ze zbioru plików. Nie jest ściśle określona liczba plików. Wiadomo tylko, że znajdują się w jednym katalogu, a ich nazwy różnią się 2 znakami na końcu. Nie wiadomo ile dokładnie arkuszy zawiera każdy z plików (ta ilość z czasem rośnie) Ważne jest, aby przy kolejnych aktualizacjach pliku...
Witam Wszystkich, Chciałbym aby podczas otwierania/zamykania określonego skoroszytu uruchamiało się makro z dodatku. Próbuję ze zdarzeniem [syntax=vb]Call AddIns.xlam!.Module1.MakroName[/syntax] Jednak to nie to. Proszę o pomoc
Witam wszystkich, mam następujący problem. Mam skoroszyt w którym mam pozapisywane dane dotyczące komponentów w module i potrzebuję kopiować to (formuła, makro) do innego skoroszytu na podstawie wpisanego tam do komórki numeru modułu. Najlepiej żeby dało się ręcznie ustalać która komórka gdzie ma się znaleźć. Przykład podałem w pliku z tą różnicą że...
Ale dlaczego się tam zapisały (w PERSONAL.XLSB)? Do końce jeszcze nie znam wszystkich "zagrań" excela 2007 i wyżej ale już coś podobnego gdzieś miałem. Już wiem (to nie jest kwestia wersji - ale nigdy tego nie używałem więc ta niewiedza) Sprawa dotyczy "zapisywania nagrywanego makra i opcji gdzie ma być przechowywane makro. Zapewne masz zaznaczone...
Witaj [syntax=vb]Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)[/syntax] w kodzie skoroszytu.
Formatowanie warunkowe - formula =DZIŚ()<wygaśnięcia (zielony) komunikat - makro do zdarzenia na otwarcie skoroszytu
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
Ostrzeżenie pojawia się tylko raz. Klikam "włącz zawartość" a mimo to makro się nie wykonuje. Natomiast skoroszyt otwarty na innym użytkowniku działa prawidłowo.
Dzięki za poprawną formę kodu. Oczywiście na początku u mnie nie zadziałał, ale doszedłem w końcu w czym jest problem. Wraz z uruchomieniem makro, przed kopią danych do innego skoroszytu, były usuwane wszystkie odstępy przy użyciu Trim, co skutkowało tym że dane przyjmowały postać tekstu. Teraz zostało mi dostosować swoje makro pod Twój kod z pętlą.
Życzę powodzenia z wydajnością tego skoroszytu Dlatego kolego clubs udzieliłem takiej odpowiedzi :D jest jakaś opcja, żeby makro pracowało bez przerwy Teoretycznie tak Po drobnych korektach budowy skoroszytu proponuję autorowi wykorzystywanie do tego sumowania danych makro :spoko: 1150517 Całość w zmodyfikowanym pliku w załączeniu :D 1150518
Witam Czy jest możliwe, aby makro uruchamiało się automatycznie po wciśnięciu przycisku "Aktualizuj" w oknie informującym, że skoroszyt zawiera łącza do innych źródeł danych?
Witam! Przeszukałem forum, zastosowałem kilka zapisanych tutaj makr, ale niestety żadne nie odpowiada mi w 100% dlatego proszę o pomoc. Problem: Mam skoroszyt, w którym chce podsumować dane z innego skoroszytu, który ma kilkadziesiąt arkuszy. Chciałbym, aby makro przechodziło pomiędzy arkuszami i kopiowało odpowiednie komórki. Z jednej komórki pobrało...
Witam Hehe .. Mam podobne zdanie do Twojego odnośnie drukowania w VB. :cry: wg mnie: powinieneś osadzić kontrolkę sformatowanego arkusza Excela w oknie programu, załadować ją danymi z bazy, a następnie wydrukować taki skoroszyt z poziomu Excela, lub wywołać Excela z tym skoroszytem, a w nim uruchomić automatycznie makro, które wydrukuje zadeklarowany...
Witam wszystkich, jako że dawno nie miałem okazji popracować z makrami to niestety pojawił się problem potrzebuje napisać makro które przeszuka cały skoroszyt z 41 arkuszami i aktywuje ten który w komórce B1 ma taką samą datę jak w userform wpisaną w textbox. Dzięki za wszystkie podpowiedzi.
Działa. Dzięki. Robiłem coś takiego, ale w zły sposób, bo włączałem nagrywanie, minimalizowałem i tworzyłem nowy plik na pulpicie. W makro bylo tylko "minimalizacja" A trzeba wybrać menu plik, nowy "pusty skoroszyt"
Jeśli dobrze zrozumiałem to makro wyszukuje w obrębie jednego arkusza/skoroszytu
Cześć, szukałem w internecie po wielu miejscach sposobu na rozwiązanie problemu związanego z ochroną skoroszytu jednak rozwiązania nie znalazłem. Mam makra, które w odpowiedni sposób chowają, odkrywają arkusze oraz zabezpieczenia do tych arkuszy za pomocą hasła tak aby nikt nic nie zmieniał. Jednak chciałem jeszcze zrobić zabezpieczenia przed tym aby...
uruchomi makro o nazwie "test1" wpisane w ThisWorkbook ThisWorkbook, to A, czy B? Jeżeli B, to: [syntax=vbscript]Sub MojeMakro() InnaLokalizacja = "\\Serwer\PlikiExcela\" Plik = "B.xlsm" Workbooks.Open Filename:=InnaLokalizacja & Plik Sheets(Sheets.Count).Select Run "'" & Plik & "'!" & "ThisWorkbook.Test1" End Sub [/syntax]
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....
Co może być przyczyną? Najlepiej załącz plik z tym dziwnym makrem :!: Podejrzewam, że gubisz się w chwilowej aktywności poszczególnych skoroszytów (wg moich wyliczeń operujesz na 4 skoroszytach :D ) :?: Dodatkowo makro możesz wykonać w MVBA nawet w pliku xlsx , przyciskiem możesz wykonać makro tylko w pliku z obsługą makr np. xlsm :idea: :D
Rozumiem też, że skopiowanie arkusza, aby służył na następny miesiąc, nie spowoduje problemów? Czy trzeba będzie robić od nowa makro i w ogóle? Wszystko powinno być w porządku. Makro jest jedno ale obejmuje tylko ten skoroszyt. Jeżeli ma obejmować inne skoroszyty to albo trzeba kopiować makro do innych soroszytów - do modułu, albo umieścić bodajże...
Profesjonalne podejście do programowania zawsze rozdziela Dane (surowe) i Widok (coś, co je prezentuje). Implementacje tego są przeróżne, ale zasada jest fundamentalna. Excel to chciał dać mniej abstrakcyjnie, dotykalne paluchem "dana jest tam gdzie ją widać" - i to daje ogromne problemy (90% kodu excelowego na świecie to kopiowanie z miejsca na miejsce)...
Chciałabym stworzyć makro, które po wybraniu ODDZIAŁU pozycji w filtrze utworzy nowy skoroszyt z 3 zakladkami jak te w pliku i beda zawierac dane tylko tego oddzialu i zapisze go z nazwa wybranego oddziału. Jeżeli zrezygnujesz z 2 filtrów (pozostanie tylko jeden - ODDZIAŁ :D ) to możesz wykorzystać załączone 3 makra 880002 (zaczynasz zawsze od makra...
SUPER! bardzo dziękuję Makro działa, tabela niestety nie ma racji bytu, ponieważ w kolejnych wierszach tabeli będą się zmieniały wartości czy nie zawsze będzie szukać B, a makro wyszukuje z całości jedną daną. Mam natomiast inne pytanie, czy mogę przekopiować to makro do innego skoroszytu? Pytanie banalne, no ale coś mi to nie idzie, jak pisałem wcześniej...
otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...
nagrane makro nie rozwiązuje sprawy ponieważ, żeby działało skoroszyt docelowy musi być już otwarty potrzebna jest procedura(?), która ten skoroszyt otwiera, zmienia właściwość "tylko do odczytu", zapisuje, i zamyka go.
myfile = "C:\Goods In\Goods In Data_DO NOT DELETE__\ Goods In Data .xlsx" Application.Workbooks. Open FileName:=myfile Workbooks("Goods In Handover .xlsx"). Activate Otwierasz plik A, a potem chcesz aktywować inny B nieotwarty skoroszyt :sm31: Nie załączasz żadnych przykładowych plików, więc nawet nie wiadomo w jakim pliku ma być zlokalizowane Twoje...
Witam Czy jest możliwość zrobienia w vba kodu który podmieni mi aktualnie otwarty skoroszyt? czyli aktualnie mam makro które pobiera z serwera nowsza wersję ale wiadomo że przy takiej samej nazwie nie podmieni bo plik w użyciu
czyli w zależności ile wierszy w skoroszycie A tyle połączonych w skoroszycie B Kolego piszesz o skoroszytach a obrazki i makro z działań na arkuszach. [syntax=vbscript]=JEŻELI(Arkusz1!A1<&... ";Arkusz1!B1;" ";Arkusz1!C1);"")[/syntax]
Tabelki nie mają żadnej nazwy Okazuje się, że jest inaczej: http://obrazki.elektroda.pl/4887606500_1... Z jednej strony powinno to ułatwić, z drugiej... te naaazwyyy :( Spróbuję napisać jakieś makro i najpierw je wszystkie uporządkować. Jakieś przeciwwskazania? Powinny być, jeśli gdzieś są one używane w odwołaniach (dot. również ew....
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
makro kopiujące skoroszyt makro kopiować skoroszyt skoroszyt formatowanie
zasięg telewizji naziemnej wymiana kostka stacyjki silnik mercedes atego temperatura
trzeszczy głośnik trzeszczy głośnik
Piaggio X8 125 2006 – brak iskry po spaleniu akumulatora, trzask przy rozruchu, diagnostyka układu zapłonowego Schemat podłączenia włącznika trójfazowego – jak podłączyć 3-fazowy wyłącznik, kolory przewodów, bezpieczeństwo