Da się zrobić przycisk który uruchomi makro. Pytanie co konkretnie ma robić makro?
Nagraj makro rejestratorem, otrzymasz kod gotowy do podpięcia, niemal bez przeróbek. Pamiętaj także o[syntax=vb] Do While ActiveWorkbook.Connections.Count > 0 ActiveWorkbook.Connections.Item(1).Delet... Loop [/syntax]bo po jakimś czasie nazbiera Ci się ich mnóstwo... P.S. Obrazek usuń z postu (jest zbędny), albo zastosuj się do instrukcji...
Jeszcze raz prosba o pomoc, jezeli cos niejasno napisałem to proszę o info a wyjasnie bardziej szczegółowo.
Sądząc po nazwie ("Polewyboru") to nie ActiveX tylko formularzowe. Wykorzystaj wartość komórki wpisanej jako "łącze komórki"... P.S. Na końcu procedury włącz odświeżanie ekranu.
Witaj ActiveWorkbook.Connections( _moje połączenie").Refresh BackgroundQuery:=false 'Sheets(1).QueryTables("moja").Refresh BackgroundQuery:=false
Obejmujesz kod który ma nie wywoływać błędów: On Error Resume Next 'po błędzie kontynuuje dalej ....kod... On Error GoTo 0 'przywracamy raportowanie błędów
niestety nie znalazłem jeszcze rozwiązania. jak narazie musze odświeżać "ręcznie"
Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Nie do końca. Makro "start" odświeża 3 tabele i planuje jednorazowe uruchomienie makra "button3". Żeby działało co zadany czas musisz wywołać procedurę "start" w "button3". Co może być nie tak? makro czasem działa, czasem nie. Wpisz jawnie nazwę arkusza, w którym znajduje się...
Witam zobacz [syntax=vb]ActiveWorkbook.RefreshAll[/sy...
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
Cześć wszystkim. Pojawił mi się problem z plikeim VBS - miesiąc temu normalnie działał teraz w połowie przestaje wykonywać pętle. Wyjąsniam o co chodzi i gdzie leży problem. Makro powoduje najpierw usunięcie w folderze X plików .TXT i wgranie nowych z folderu Z. Póżniej kopiuje z X plik Excel i umieszcze go w folderze L. W folderze X jest plik Access...
Próbowałem w ten sposób ale opcja właściwości połączenia mam nieaktywne :/
Temat zamykam.Rozwiązałem problem. Oczywiście kod adamas_nt oraz dołożyłem jeszcze odświeżanie arkusza i wszystko działa tak jak chciałem.
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
To Makro działa super. Jakby jeszcze udało się zrobić, żeby działało automatyczne odświeżanie to byłoby idealnie :) Pozdrawiam
po dojsciu do polecenia "ActiveSheet.Paste" przechodzi automatycznie Spróbuj wcześniej Thisworkbook.Activate (przed sheets(mySto).select) Makro umieściłeś w module? Może właściwiej (dla copy-paste) będzie otwierać pliki w jednej instancji? Jeśli wyłączysz odświeżanie, nie będzie znowu tak bardzo rzucało się w oczy...
Witam, Zrobiłem makro do odświeżania zapytania w power query ale chciałbym aby działało z listą rozwijaną no i tu poległem. Pomóżcie proszę. Dziękuję za wszelką pomoc.
Zwykle na czas działania pętli wystarcza wyłączenie zdarzeń i odświeżania.[syntax=vb]Sub Kasuj() Application.EnableEvents = False Application.ScreenUpdating = False For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).delete shift:=x1Up End If Next Application.EnableEvents = True Application.ScreenUpdating =...
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
Pozwoliłem sobie skorzystać z pliku kolegi szafarza jako wzoru danych. Nagrałem makro i trochę je podreperowałem aby było uniwersalne dla każdych danych (by uwzględnioało wszystkie dane i możliwości). Aby zobaczyć efekt w załączniku trzeba pozwolić na wykonywanie makr. Też nie wiem jak kolega szafarz doszedł do wyboru modeli dla kategorii A [usunął...
Witam, A co to jest ThisCust? Moja uwaga: o ile nie jest to zamierzone, na końcu makra nie rób .screenUppdating = false, bo wtedy wyłączasz odświeżanie całego ekranu. Ja zawsze daję screenupdating=false na początku makra, a screenupdating=true na końcu - wtedy makro wykonuje się szybciej "w tle", nie odświeżając ekranu.
Pobierasz dane poprzez kwerendę (dane zewnętrzne) czy poprzez odwołanie do konkretnych komórek innego skoroszytu? W drugim przypadku nie powinieneś mieć kłopotu z komórkami chronionymi. W pierwszym przypadku excel nie pozwoli bo metoda z odświeżaniem danych polega na wprowadzeniu nowych danych do komórek a właśnie to jest chronione i następuje sprzeczność....
Witam, Mam problem z pobieraniem danych - power query z pliku chronionego haslem. baza danych(excel) - "źródło" chronione hasłem "123" Arkusz "pobierz" - tutaj mają trafić dane z odświeżonych zapytań (kilka) Udało mi się znaleźć makro, który otwiera plik źródło i teoretycznie powinien odświeżyć połączenia ale niestety tak się nie dzieje. Wywala błędy...
Poradziłem sobie. Makro odświeża dane w podanym zakresie. Sub pr() Application.Calculation = xlManual DoEvents For Each mycell In Sheets("Feuil1").Range("AP2").Cells mycell.Formula = mycell.Formula Next DoEvents Application.Calculation = xlAutomatic End Sub
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Tu mam wrażenie że jest coś z synchronizacją pomiędzy zamykaniem pliku i kończeniem makra, tak jakby zamykanie pliku trwa a on już skończył makro i dlatego się widok nie odświeża a przycisk cały czas jest jakby wduszony - nie odciska się, i wtedy czegoś mu brakuje, szukam sposobu by je jakoś zatrzymać może jakiś pasek postępu
Wszystko ładnie, pięknie, tylko gdy w komórkach C i D, F i G itd. mam znowu 'Date' i 'Price' tylko dla innych akcji, i tak x20 (20 par 'Date' i 'Price' dla różnych akcji), i dla każdego C i D, F i G itd. napiszę osobne makro 'row_influx', to wszystko zaczyna cholernie wolno działać mimo braku odświeżania. Stąd pomysł tablicy...
Odświeżam tematy, ponieważ nie potrafię sobie poradzić z tym kodem do końca. W temacie poprosiłem o makro, które automatycznie włączy trub projektowania. Kolega (at)PRL dał link, w którym jets makro, które włącza ten tryb. Do tej pory było dla mnie to wystarczające, ale teraz próbuję to rozgryźć i nie potrafię, pewnie w linku jest na to odpowiedź, ale...
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...
Tak jak kolega powyżej pisał - wystarczy zrobić tabelę przestawną. Jeśli chodzi Ci dokładnie o taki układ jaki zamieściłaś, to tabela musi być odpowiednio sformatowana. Dodatkowo zastosowana jest opcja powtarzania elementów - ale pamiętaj, jest ona dostępna dopiero od wersji 2010. Przy okazji wprowadziłem dynamiczną definicję zakresu danych. Przy odświeżaniu...
Musiałbyś zmienić licznik pętli zmiennej wiersza: For k = 1 To ostatnia komórka Range(wiele_kolumn).End przeszukuje tylko skrajną, lewą kolumnę. Wyszukuj od pojedynczej i najlepiej od dołu (jeśli zdarzają się "okienka"). Np ostWrs=Range("B65536")>End(xlup).row Inne sposoby ostW=ActiveSheet.UsedRange.Rows.Count ostW=Columns(2).Find("*", SearchOrder:=xlByRows,...
W takim razie mamy zupełnie odmienne wyniki testów :!: Z testów, które robiłem gdy pisałem o optymalizacji (dane dla 2000 wierszy ): - kopiowanie komórek pojedynczo ( z jednej kolumny ) - czas 5.26 - 5.6 s, z czego czasy krótsze dla liczb, a dłuższe dla komórek z tekstem. - kopiowanie komórek pojedynczo ze wszystkich 7 kolumn - czas 36.8 - 37,18 s ....
dziękuję za podpowiedź ale nie pomogło niestety, gdzieś znalazłem sugestię że with może powodować problem ale to też zły trop sprawdziłem ręcznie nagrywając makro, po kliknięciu w zakładce dane odśwież nagrało się makro i to zadziałało Dodano po 26 oj pośpieszyłem się [syntax=vb]ActiveWorkbook.RefreshAll[/sy... nie do końca rozwiązuje problem wyskakuje...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
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...
potrzebuję makro Taką funkcjonalność, że po zmianie któregokolwiek elementu z zakresu danych Twojego wykresu następuje "przeformatowanie" wszystkich etykiet dla poszczególnych kategorii - jak na zrzucie 1017446 można uzyskać poprzez makro typu Worksheet_Change :D 1017550 Ps. dopiero teraz po opublikowaniu dostrzegłem mankamenty mojego kodu (nie odświeża...
Jest jakiś trik by po nowym wpisie posortowała się z automatu? Można wykorzystać makro zdarzeniowe typu [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range)[/syntax] dla arkusza z danymi, które będzie sortowało po każdej zmianie w określonym zakresie :D . Poprzez trick z importem danych z jednego arkusza do drugiego można ustawić kwerendę...
Tak, zawsze wpisując do tych samych pól w arkuszu zostaje mi baza przyjęć towaru od klienta. Całość ma wyglądać w ten sposób mam pierwszą stronę w arkuszu wypełniam wyżej wymienione pola zawsze te same 1a 1b i 1c i klikam drukuj drukuje mi się potwierdzenie pobrania sprzętu do naprawy a wszystkie dane zostają zapisane w drugim arkuszu kolejno 1,2,3...
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Przepraszam, że odświeżam tak stary temat ale mam podobny problem, a zasugerowane w wątku rozwiązanie nie jest skuteczne. Chodzi mi o to, że mam zakres danych, który chciałbym podawać do makra parametrem (makro umieszczone w komórce nad zakresem), a makro miałoby sortować zakres za każdym razem gdy ktoś wprowadzi do niego dane. Makro postaci: Function...
tak dobrze? Tak dobrze. :arrow: alexw200 Wytnij makro, wklej do nowego pliku, ew. dopisz wł/wył odświeżania - będzie ciut szybciej W innych wersjach językowych nie są wyświetlane nazwy kodowe arkuszy (cyrylica w oryginale, krzaczki m.in. w polskim). Stąd problemy.
No nie mam już głowy. Powyższe oczywiście działa skrypt odpala plik i czeka 15s zanim uruchomi makro. Niestety nie wiem dlaczego plik uruchomiony w ten sposób przez skrypt nie chce się aktualizować, nie łączy się z bazą a ten sam plik uruchomiony kilka chwil później ręcznie robi to bez problemu. Usuń te 'true' bo wtedy masz plik tylko do odczytu. [syntax=vbscript]Set...
Witam Wszystkich Serdecznie, Jest to mój pierwszy post na elektroda więc proszę o wyrozumiałość. Opis sytuacji: 1. Pracuje na excelu i tworzę DashBoarda związnego z urlopami. 2. W danym excelu jest wyświetlana lista osób oraz kto ile ma urlopów; 3. Wyświetlany excel zaciąga dane z innego pliku za pomocą Query; 4. Tabela Query wyświetla wszystkie daty...
ten InputBox nawet nie jest tu konieczny bo zawsze z każdego pliku źródłowego z tego samego arkusza i tej samej komórki będzie spływała jakaś wartość do tej samej komórki w arkuszu UZYWANE. Więc muszę i tak wpisać ręcznie Array. Problem pojawia się wówczas gdy chciałbym nie tylko kopiować ze wszystkich Arkuszy1 do Arkusza1 w UZYWANE. A jeżeli w plikach...
lanzul: Dzięki za tak obszerna odpoweidź, już staram sie odpowiedziec na Twoje pytania: 1. Tak masz rację nie zadeklarowałem zmiennych, po prostu zapomniałem tego dopisać jak makro działało i potem o tym nie myślałem. 2. zmienna K to pozostałośc po mojej początkowej fazie pisania tego kodu i nie usunąłem tego. 3. Ponieważ, gdy umieszczam ja tylko na...
cześć , Czy ktoś mógłby mi pomóc z optymalizacją jakąś mądrą takiego kodu, który wygląda tak: Application.OnTime TimeValue("06:00:00"), "Odsw_zap" Application.OnTime TimeValue("06:10:00"), "Odsw_zap" Application.OnTime TimeValue("06:20:00"), "Odsw_zap" Application.OnTime TimeValue("06:30:00"), "Odsw_zap".... generalnie chodzi o to, żeby co 10 min w...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
Mowiąc szczerze nie bardzo mi idze z tym makrem. Probowałem coś z waszymi częściami skryptu, ale ponieważ nie ma co ukrywać jestem zielony nie bardzo wychodzi mi tworzenie do tych skrawków "obudowy". Jeśli macie pomysł dlaczego moj kod działa tylko raz, a nie na cały zaznaczony obszar, będę wdzięczny za pomoc. Lub jakiś kod zastępczy. pozdr.
Wystarczy zmiana typu zmiennych na long. (at)wxyz1986 na początku makra wyłącz odświeżanie ekranu oraz automatyczne przeliczanie formuł (jeśli masz) a makro powinno przyspieszyć [syntax=vb]With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With[/syntax] Na końcu kodu oczywiście nie zapomnij ponownie włączyć tych właściwości...
Witam serdecznie! Mam napisane pewne Makro które ma za zadanie co godzinę odświeżać dane w prezentacji PP, która zaciąga dane z Excela. Problem pojawia się w momencie gdy któryś plik excel zostanie przypadkowo otwarty. Wtedy na prezentacji wywali błąd "plik tylko do odczytu". Czy jest możliwość przekształcenia mojego makra w taki sposób aby nie wywalało...
Doskonale, odwaliłeś całą robotę za mnie... :) Spróbuję teraz to zrozumieć i dostosować do dużej bazy danych. Mam tylko jedną wątpliwość: wydaje mi się, że makro powinno dodawać sumę wartości ze skoroszytu "Statystyka" do pustej komórki a nie do już istniejącej i zapełnionej danymi bo przy odświeżaniu będą nam się sumować powierzchnie nowe z tymi co...
Nie bardzo rozumiem na czym polega istota problemu. Czy tylko na automatycznym odświeżeniu tabeli przestawnej? To można zrobić np. makrem przy każdorazowej aktywacji arkusza z tabelą. Przykład w załączniku. Analogicznie można bez tabeli przestawnej założyć tylko filtr i ten filtr odświeżać makrem. Można też formułami, ale to bardziej skomplikowane.
Super, wielkie dzięki. Brakuje mi tylko wisienki na torcie tzn: skoro już pobiera adres obrazu z komórki to po co wyświetla mi okno do wyboru pliku. Idealnie by było gdybym tylko włączył makro a ono wstawiło obrazek bez pytania skoro ścieżkę pliku ma podaną w komórce. Teraz wygląda to tak: " Sub Nieobudowany() ' ' Nieobudowany Makro ' Option Explicit...
W której linii? P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...[syntax=vb]Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Set MergeObj = CreateObject("Scripting.FileSystemObject...
Zdaje się, że szybciej byłoby zapisywać od razu do komórek, bez pośrednictwa tablicy. Oczywiście wyłączając odświeżanie. Np Niestety przy tak dużej ilości danych Excel dalej się zawiesza,zastanawiam się czy jest jakiś inny sposób niż porównywanie każdej komórki z każdą? Dopiero od niedawna mam styczność z makrami, dlatego będę wdzięczna za wszystkie...
1. Ścieżki plików również jeszcze nie znam - to znaczy na pewno będzie ona zmieniana, dlatego chciałbym zastosować adresowanie bezwzględne - kojarzę z dawnych czasów, że w powerpoincie była taka możliwość, ale też nie jestem do końca pewien, bo być może po prostu plik był integrowany z prezentacją... Najlepiej by to wyszło w ten sposób, że jest folder...
Witam, po raz kolejny dziś stanąłem przed ścianą. Mam problem z danymi które ściąga mi makro z kwerendą. W liczbach jest kropka oddzielająca całości od dziesiętnych co uniemożliwia mi ich obróbkę. Wymyśliłem sobie coś takiego co załączyłem poniżej. A więc kwerenda wrzuca mi dane w zakres komórek A2:C20 ja to kopiuję niżej i po skopiowaniu zamieniam...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Koleżanka pisała o odświeżeniu wszystkich tabel w całym skoroszycie, więc makro będzie wyglądało tak: [syntax=vb]Sub Pivot_Refresh() Dim oSh As Excel.Worksheet Dim pvtTbl As PivotTable For Each oSh In ActiveWorkbook.Worksheets For Each pvtTbl In oSh.PivotTables pvtTbl.RefreshTable Next Next End Sub[/syntax]
:) Wiesz co, szybciej wyjdzie tworzenie tego pliku i makra niż tłumaczenie. Masz. Pooglądaj gdzie i w jakim bloku jest umieszczone wywołanie makra "Wykonaj". Nie podpinałem do przycisku bo jakakolwiek zmiana w tabeli A i B (tak jak chciałeś) odświeża tabelę. Jest to trochę "upierdliwe" ale jak "klient" chce ... :)
A nie lepiej zamiast trzech przycisków w każdym arkuszu byłoby zrobić jeden przycisk w arkuszu "lista" uruchamiający mechanizm pobierania danych ze wszystkich pozostałych arkuszy? Druga kwestia, że do takiej operacji to nawet nie trzeba makra, wystarczy MSQuery i następująca kwerenda: [syntax=sql]SELECT * FROM [1$] UNION ALL SELECT * FROM [2$] UNION...
Po odkomentowaniu tego fragmentu na moim komputerze odświeżanie dalej działa (Excel 2007, Win7). Czyli problem musi być albo w Twojej konfiguracji Excela, albo w jakiś ustawieniach systemowych. Sprawdź na początku, czy w opcjach programu excel->centrum zaufania->ustawienia centrum zaufania masz ustawione odpowiednio niskie poziomy zabezpieczeń. Dodatkowo,...
[quote="Andrzej59"]Zrobione w PQ[/quote Po dopisaniu do listy jednej lub dowolnej liczby pozycji trzeba arkusz zapisać i odświeżyć a tabele same się uaktualnią
Zobacz z wcięciami [syntax=vbscript]Sub wstawianie_IL_z_załącznikami() 'te dane mają być w makrze pobierającym arkusze Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze() Application.ScreenUpdating = False tblArkusze() = Array("I L", "II L", "III L", "IV L", "V L", "VI L", "VII L", "VIII L", "IX L") Set wkb1 = ThisWorkbook Set...
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete End If Next s[/syntax] 2. Do swojego projektu wstaw moduł (Insert->Module)...
Jeśli dobrze "odczytałem" Twoje rysunki i opisy :crazyeyes: to efekt taki jak na zrzucie :spoko: 979159 można uzyskać poprzez makro powiel w załączonym pliku 979160 Jeśli będziesz chciał mieć plik "wielokrotnego" użytku :please: to każdorazowo musisz go "odświeżyć" poprzez oczyszczenie makrem Usun :!: z poprzednich arkuszy (bo nie może być 2 arkuszy...
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
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Dzięki za zainteresowanie. Wiem że basic w OO jest inny. Wiem też że adresowanie i inne "indeksacje" zaczynają się od 0 Ale dziwi mnie to, że właśnie program działa - ale tylko po takich jak napisałem "czarach". Koledzy spróbujcie zrobić tak jak napisałem w pierwszym poście, czyli Po wyłączeniu projektowania, wciśnięciu pierwszego przycisku i po pojawieniu...
Dzięki, napewno mi sie przyda jak go przeanalizuję do końca. Robiłem kiedyś coś podobnego, ale już nie pamiętam jak. Muszę porównać wady i zalety obu sposobów. Jest tu jedna ważna i dobra rada: warto wyłącznyć odświeżanie ekranu na czas działania makra: Application.ScreenUpdating = False. Oczywiście potem koniecznie to odkręcamy.
Odświeżam trochę temat... Wszystko ładnie mi hulało do momentu chęci dopisania kolejnego/szóstego zestawu danych... echo "KOD" Sub A() Dim tolerancja As Integer Dim licznikZnalezionych As Integer tolerancja = 5 licznikZnalezionych = 0 For Each element In Range("c1:d25") element.Value = Null Next For i = 1 To 49...
Cześć, Mam ciekawy case do zrobienia, ale niestety nie ogarniam na tyle VBA, żeby to zautomatyzować, dlatego przychodzę po pomoc. Musze zautomatyzować proces SQL->EXCEL->WORD. Proces wygląda tak, że dane z tabeli źródłowej mam podłączone pod excela, po odświeżeniu zaczytują sie do 4 tabel w 4 arkuszach. Następnie odpalam WORDa, który pobiera dane klientów...
sorry, ale nie bardzo rozumiem. Mam wpisać w makro otwierające plik czy w makro w otwieranym pliku? i co to zmieni?
Przyszedł poniedziałek, znowu wróciłem do pracy i kontynuuje po kawałkach swoje dzieło i znowu pytania... Sub bl() Shapes(4).Fill.ForeColor.RGB = RGB(255, 255, 255) Shapes(5).Fill.ForeColor.RGB = RGB(255, 255, 255) Shapes(6).Fill.ForeColor.RGB = RGB(255, 255, 255) End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$N$5"...
Hej, a czy macie jakieś pomysły, jeśli nie mogę zmieniać kodu pliku B? Uruchamiam makrem z pliku A kolejno 24 pliki i w każdym uruchamiam jakieś makro. Makra tych plików wyrzucają komunikaty, które są nieistotne dla mnie np "odświeżono dane", a wstrzymują moje makro. Znacie sposób na pominiecie tych msgbox-ów?
Spróbuj Dane->Importuj dane zewnętrzne -> Nowa kwerenda sieci Web. Otworzy Ci się taka mini-przeglądarka, otwórz w niej stronę np. http://www.nbp.pl/Kursy/Kursya.html , kliknij małą żółtą strzałkę obok tabeli z kursami i Importuj. We właściwościach zaznacz ew. "odśwież dane przy otwarciu pliku". Powinno Ci zwrócić do excela tabelę z kursami. Niektórych...
witam chciałbym odświeżyć temat i zapytać czym się rożni jeśli nie umieszczę kodu w module tylko w Microsoft Excel Object - Ten_skoroszyt potrzebuje zaciągnąć zmienna Firsrow z Ten_skoroszyt do Forms DaneKon czy ktoś moze mi z tym pomóc? https://obrazki.elektroda.pl/2597902300_...
Dziękuję za Twoją odpowiedź, jednak mam wrażenie, że nie zrozumiałeś mojego postu. Jeśli - tak, jak pisałam - makro przeniesie pliki do innego folderu po ich zaciągnięciu, to w kolejnym odświeżeniu już nie będzie ich w folderze źródłowym, więc "znikną". Tak, jak pisałam - zależy mi, żeby nie czerpał danych z tego samego pliku źródłowego wielokrotnie....
Pozwolę sobie odświeżyć temat bo makro spełnia moje oczekiwania tylko nie mogę sobie poradzić z jego przerobieniem a mianowicie chciałbym, żeby dane z poszczególnych plików txt kopiowały się nie jedno obok drugiego (w kolejnych kolumnach) tylko jedno pod drugim. I jeszcze jedno, gdyby się dało też w ostatniej kolumnie przy każdym wierszu wpisać nazwę...
nawiasy kwadratowe w makro - teraz rozumiem, że był to eksperyment :) Dodano po 42 Nazwy arkuszy spółek całkowicie lub w skróconej? Dodano po 1 Odświeżyć kwerendy – która musi być separator dziesiętny? Ponieważ istnieją tam różne - przecinek i kropka.
Wydzielono z Witam Podepnę się pod temat i troszeczkę odświeżę. Mam podobny problem z kopiowaniem, muszę tworzyć raporty i kopiuję oczywiście ręcznie (całkowicie nie znam się na makrach). W załączniku zamieściłem plik z tym o co mi chodzi. Z arkusza1 robię raporty w osobnych arkuszach i miło by było gdyby one same się tak kopiowały z pomocą przycisku....
Witam Więc rozumiem, że Pan chce mieć 24 arkuszy w skoroszycie. Zależy jeszcze od tej godziny dzień aktualizacji danych. Niedobór powyżej określonego skryptu jest że to stale dodaje kwerendy, ale nie usunąć poprzedni jak i nazw, które są stale wzrosła w skoroszycie. Dodano po 5 Myślę, że lepiej makro tylko zmiana parametru "Connection" i zaktualizować...
Za mało danych aby ci podpowiedzieć konkretnie. Sub import() Arkusz1.Range("A1").Qu... BackgroundQuery:=False End Sub
Gdzieś chyba jest błąd w kodzie bo zamiast liczyć to wstawia tekst formuły brakuje na początku formuły znaku "=". Natomiast gdy ręcznie wstawię to zlicza natomiast i tak wyskakuje komunikat "Łącza do pliku*xls' nie zostały uaktualnione, ponieważ plik xls*' nie został ponownie obliczony przed ostatnim zapisem". Imuszę ręcznie wciskać OK aby wartości...
Witam Mam temat do rozwiązania i nie mogę sobie poradzić. W skoroszycie excel jest arkusz z danymi. (załącznik). Kolejne wiersze w arkuszu to produkty opisane wg kategorii. Kolumny (oprócz kategorii) pokazują stany konkretnego produktu w danym sklepie. Potrzebuję utworzyć tyle arkuszy ile jest sklepów oraz makro, które kopiowałoby dane (w tym przypadku...
Witam, Mam bazę danych w excelu, w jednym pliku mam dane z których kożysta makro w innym pliku. Chciałem zabezpieczyć plik z danymi przed wprowadzeniem zmian bezpośrednio przez użytkownika (nie uprawnionego). Jednocześnie makro w drugim pliku powinno mieć możliwość zapisywania zmian w pliku bazy. Z bazy może kożystać kilka osób, każda ma u siebie osobny...
Witam, Na samym początku zaznaczam, że mam pojęcie o programowaniu. Lecz w VBA jestem zielony. Nigdy w nim nie pisałem niczego skomplikowanego i nie jestem w stanie sobie poradzić. Napisałem proste Makro w excelu które wybiera rekordy i kopiuje je do odpowiednich zakładek. Następnie wszystko robię ręcznie. Kopiuję dane z zakładek i wklejam do odpowiednich...
odświeżę trochę temat bo potrzebuję pewną wariację takiego przypadku: potrzebuję zrobić makro które wstawi datę w kolumnie powiedzmy B kiedy w A będą dane, natomiast kiedy wstawię ""x"" w kolumnie C to wstawi dodatkową datę w kolumnie D. Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 2 Then Cells(.Row, 15).Value = Now .Offset(0,...
Witam, mam za zadanie jak najszybsze skopiowanie z kilkunastu arkuszy jednego pliku excela do jednego arkusza innego (nowo utworzonego) pliku excela. Używam metody Zrodla = Split("A1,A2,...,V2:W2", ",") Cele = Split("C9,C10,...,L103", ",") For i = LBound(Zrodla) To UBound(Zrodla) Workbooks(CurrentFile).Sheets(1).Range(Z... ThisWorkbook.Sheets("XXX").Range(Cele(i)...
1. Odświeżanie ekranu koniecznie włącz na końcu. 2. Skąd uruchamiasz makro? Prawidłowo: procedura w module, z formularza wywołanie (mowa o Excelu, czy arkuszu Excela w VB?) 3. Deklaracje: Dim i As Integer, j As Integer, tabl As Variant 4. Coś mi tu nie gra. Za dużo tych warunków (liczenia w związku z tym), albo czegoś nie dopowiedziałeś... 5. Dlaczego...
w określonym interwale czasu będzie na innym dysku zapisywał kopię zapasową Witam, odświeżę nieco temat. Mam podobny problem, mianowicie w chwili obecnej przy pomocy poniższego kodu zapisuję kopię zapasową podczas każdorazowego zamknięcia pliku. [syntax=vbscript]Private Sub Workbook_BeforeClose(Cancel As Boolean) FolderName = ActiveWorkbook.Path &...
Witam, muszę odświeżyć temat, gdyż szef poprosił o modyfikację pliku tzn. chciałby wiedzieć, które firmy w ogóle nie mają w kolumnie J "OK" i zliczało je także do Arkusz2 w zależności od kodów z kolumn A i F Przykład: Firma_1 z kodem 123 w kolumnie A i kodem 100 w kolumnie F nie ma przypisanego żadnego OK w kolumnie J , więc powinno zliczać ilość wierszy...
Witam! Mam problem z którym nie umiem sobie poradzić. Mam plik z planem produkcji - "plik główny", z którego korzysta wiele osób i w którym mam wiele formuł. Aby uniknąć sytuacji, że ktoś niepotrzebnie zmodyfikuje plan lub coś pokasuje chciałabym stworzyć kopię tego pliku - "plik podgląd" która byłaby tylko do odczytu. Plik znajdowałby się w innej lokalizacji...
Ślicznie dziękuję za zainteresowanie tematem. Adamas wynik końcowy jest dokładnie tym o co mi chodziło, ale rzeczywiście jeżeli jest prostsza metoda to poproszę. Dzisiaj sprawdziłem dokładnie ile mam rejonów kodowych - około 1400, ale jest to wartość zmienna (różne miasta). Jest z tym trochę zabawy. Zastanawia mnie tylko opcja z formułami - czy jest...
Och z tym moim "najprościej" He he... Przy okazji wyszło, że mój kod nie działa jak powinien... Coś z tym step 0.1 poraz kolejny mam problem. Jedna rzecz to musiałem zrobić "0 to 1.1" by uwzględniał jedynki, ale coś jeszcze zjada bo ilość wierszy się nie zgadza. Tymczasem taki kod: [syntax=vb]Sub cos() Application.ScreenUpdating = False Start = Timer...
Witam, Mam problem z makrem, które loguje się na stronkę "x", i za pomocą pętli wprowadza potrzebne dane z excela. W skrócie wygląda to tak: 1. wciśnij przycisk "Add" (przenosi do strony z formularzem), 2. wypełnij formularz danymi z excela 3. wciśnij przycisk "Submit" (przenosi spowrotem do stronki z przyciskiem Add) Problem mam taki, że po wciśnięciu...
Witam; Mam w arkuszu zaimportowane wartości z tabeli na stronie web. Odświeża mi te wartości co 1 min. W komórce A11 wyrzuca mi wartość tekstową. W kolumnie I od wiersza 12 mam alfabetycznie możliwe wartości jakie mogą się pojawić w komórce A11. Kolumnę obok, czyli J, mam hiperłoncza do plików .bat jakie odpowiadają poszczególnym wartościom. Mój problem...
makro excel automatyczny odświeżać makro odświeżać excel odświeżać tabela przestawny
schemat ideowy zasilania rysunek rozrządu volvo silnika
proel pc512 agregat prądotworczy
Słaba słyszalność rozmówcy przez Bluetooth w Mercedesie W245 Piekarnik Mastercook przypala potrawy - przyczyny i rozwiązania