Dobry wieczór, Można jeszcze tak, z wykorzystaniem obsługi zdarzenia Change, jakkolwiek jest to rozwiązanie niezbyt eleganckie, bo wymagające dopasowania do konretnej struktury arkusza (adresy komórek, w których są dane). Procedura wymaga inicjalizacji, polegającej na wybraniu listy rozwijanej i zatwierdzeniu wyboru. Później ewentualne zmiany w komórce...
[syntax=vbscript]Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("N:\a.xlsm") 'Lokalizacja pliku EXcel xlApp.visible = true xlBook.refreshall WScript.Sleep 15000 xlApp.Run "Makro1" 'Nazwa makra do uruchomienia xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit...
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.
Pewnie wiele nie pomogę, ale jak "zaciągasz" dane to robisz to pasywnie, co określony interwał czasu, zatem w takim rybie "w czasie rzeczywistym" jest nieosiągalne. Czym jest podyktowany wybór Excela do tego zadania?
Zrozumiałem to trochę inaczej (wiele arkuszy w jednym skoroszycie). Przy porannej kawie wyszło mi coś takiego (przykład w załączniku). Uparłem się na zminimalizowanie VBA i dlatego zastosowałem jedynie odświeżanie filtra przy aktywowaniu arkusza.
Witam, Czy ktoś wie jak zatrzymać "odświeżanie iteracyjne" - potrzebny jest skrypt, który to zatrzyma. Pozdrawiam
Podobnie, [syntax=vb]For Each b In UserForm1.Controls If TypeName(b) = "TextBox" Then b.Value = "" Next [/syntax]
w Modulu sub odsw() Sheets("PLIK cut").querytables(1).Refresh BackgroundQuery:=False end sub
Numery TextBox-ów miałeś nie po kolei, a poza tym jakieś dziwne adresy. Ograniczyłem zakres filtra do obszaru wypełnionego wg kolumny A. Miałeś całe kolumny. Być może wiele to nie przyspieszy, ale trzeba wypróbować. Wyłączyłem też odświeżanie ekranu, żeby nie migał podczas filtrowania. Na ogół filtrowanie dotyczy jednej kolumny. W jednym przypadku były...
Jestem za pomysłem kolegi iksigrek, jednak bym to ograniczył do zmiany w danej komórce, wierszu lub kolumnie w danym arkuszu. Np. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 4 And Target.Column = 12 Then Application.ScreenUpdating = True End Sub Mniej obciąża procesor.
Jakieś pomysły? Najlepiej załącz plik (z przykładowymi danymi) - co umożliwi ocenę przyczyn takiego działania Excela :cry: Podaj też skąd pochodzą dane źródłowe :?: Na pierwszy "rzut oka" takie dolegliwości mogą wystąpić z powodu zbędnej spacji przed wartością PL np. " PL*"
Witam Jeżeli Source to skoroszyt to zrób tak [syntax=vbnet]Sub odswiezTebele() Dim i As Integer, k() As Variant k = Array("HM.KH", "HM.ZZ", "HM.TW", "HM.KH_DZ", "HM.ZO") Workbooks("Source.xls").Activate For i = 0 To UBound(k) With Workbooks("Source.xls").Sheets(k(i)) .Activate .Range("A2").Select Selection.ListObject.TableObject.Refresh BackgroundQuery:=False...
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ć...
... chociaż trochę dłużej myśli zanim wszystko sformatuje... Niestety pętle muszą mieć czas na obrót. Ewentualnie wyłącz na chwilę odświeżanie - może to trochę przyśpieszy: zamknij kod w Application.ScreenUpdating = False ... Application.ScreenUpdating = True ... A jak w Twoim kodzie wykluczyć dwa wiersze 45 i 46 ... Np. tak [syntax=vb]For x = 5 To...
Witam. Mam problem, posiadam makro, które wkleja mi dane z jednego pliku do drugiego pliku w odpowiednie kolumny. W kolumnie AP jest np skopiowane 25 komórek z rzędu i wszystkie są przechowywane jako tekst i pojawia się błąd. Uporałem się z tym już błędu nie pokazuje. Ale w kolumnie AT, w której są formuły od AT2 w dół : =JEŻELI.BŁĄD(WYSZUKAJ.PIONOWO(Feuil1!AP2...
Próbowałem w ten sposób ale opcja właściwości połączenia mam nieaktywne :/
JacekCz jest zatwardziałym wrogiem Excela i jak zwykle przesadza. Jasne, że lepiej jeździć mercedesem niż małym fiatem... 90 komórek to nie jest dużo dla Excela. Dużo to byłoby 10 tysięcy albo więcej. Jednak trzeba pamiętać jak działa Excel i co ma się w arkuszach poza tymi przenoszonymi komórkami. Standardowo po zapisaniu każdej kolejnej komórki Excel...
Witam, posiadam jeden plik główny z którego kopiuje dane za pomocą kodu VBA do innych plików. Problem polega na tym, że w tych plikach przy otwieraniu (Workbook_Open) ustawione jest automatyczne odświeżanie danych co trwa dość długo. Czy jest możliwość aby wyłączyć to odświeżanie podczas kopiowania plików?
Posiadam wykupiony One drive dla kilku kont A co jest zainstalowane na tych tabletach do obsługi Excela :?: Czyżbyś korzystał tam tylko z aplikacji Webowych (wejście poprzez zwykłą przeglądarkę) ? Nie jestem specjalistą od tzw. wielodostępu, ale wg. mojej wiedzy tylko poprzez zainstalowanie Office 365 na wszystkich urządzeniach możesz uzyskać pożądany...
Dodałam automatyczne odświeżanie odwołań i jest to Excel 2016.
Witam Chodzi ci o odświeżanie łącza?
Czy jest jakiś sposób na odświeżanie tylko nowymi plikami Jest. VBA.
Odświeżam temat;) mam ten sam problem: jak umożliwić odświeżanie danych zewnętrznych w arkuszu chronionym? jakieś pomysły?
How to Auto Refresh Excel File Without Opening? I want to Refresh power Query Automatically without opening Excel. Is there a way?
To Makro działa super. Jakby jeszcze udało się zrobić, żeby działało automatyczne odświeżanie to byłoby idealnie :) Pozdrawiam
Witam serdecznie, chciałbym nauczyć się w jakimś stopniu obsługi komend excela. Próbuję zrobić zależność, w której dane faktury są przenoszone pomiędzy arkuszami, jeśli spełniają jeden warunek - "NIE" są zapłacone. Jak można by było to rozwiązać w inny sposób niż tabela przestawna i odświeżanie przy każdym dodaniu kolejnej faktury? W załączniku plik.
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.
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,...
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.
Wyłącz odświeżanie ekranu (screenUpdating) na czas działania makra. Z drugiej strony... sheets(1).range("A1:X" & LastRow).copy sheets(2).Range("A1") i w pętli usunąć puste Może szybciej będzie. Jeszcze inna opcja: Odfiltrować puste i skopiować cały zakres ("zwykłe" Copy kopiuje tylko widoczne).
Jeżeli musisz powiązać jeden plik z wartościami z innego i znasz ich lokalizacje, to otwórz te dwa pliki jednocześnie, w pliku LUTY zrób odwołanie do pliku STYCZEŃ (po prostu - wpisz w komórce =, przejdź do arkusza STYCZEŃ i zaznacz w nim komórkę). Formuła przyjmie wartość mniej więcej taką: =[STYCZEŃ.xls]Arkusz1!$B$3. Jak teraz zamkniesz plik STYCZEŃ,...
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.
Cześć, proszę o pomoc. Zrobiłem arkusz w excelu, który pobiera dane z trzech innych źródeł tj. z innych skoroszytów (osobnych plików excela). Trzy źródła połączyłem za pomocą Power Query, włączyłem sortowanie wg daty, dzięki temu w jednym arkuszu mam połączone 3 źródła posortowane wg daty. Niestety muszę dodać nową kolumnę, która będzie edytowana ręcznie,...
Po pierwsze pozbyć się selectów [syntax=vbnet]Arkusz1.Cells(w, kol).Copy Arkusz21.Cells(poz, kol_doc).Paste[/syntax] Masz wyłączone odświeżanie ekranu i przeliczanie arkusza? To także przyspiesza operacje. [syntax=vbnet]Application.ScreenUpdating = False Application.Calculation = xlCalculationManual[/syntax] Na końcu kodu włączyć z powrotem. Najlepiej...
Witam! Moim zdaniem idziesz złą drogą dla uzyskania informacji o zmianie stanu bazy danych. Na podstawie tych importowanych połączeń z bazą danych wnoszę, że masz całkiem poprawnie zbudowane tabele w tej bazie (choć masz drobne problemy z chronologią - np rekord 2,4 i 5 :D ) , lecz nie wykorzystujesz w pełni możliwości budowania odpowiednich kwerend...
Blokuje odświeżanie ekranu. Kursor nie "lata" po ekranie i wszystkich arkuszach w czasie działania makra. Koniecznie na końcu należy ustawić na: true. Czego ja nie zrobiłem w powyższym przykładzie :) Już poprawiony...
Witam. Posiadam laptop TOSHIBA windows 8.1, procesor 2 GHz, 4 GB RAM, 64 bitowy system operacyjny, procesor x64. Od dłuższego czasu bardzo wolno działa. Chciałem zrobić w nim odświeżanie ( tak żeby nie utracić danych) , ale okazało się, że kilka programów/ aktualizacji usunie się. Ja do laptopa nie mam żadnej płytki ani nic. Wysyłam zdjęcia co się usunie....
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...
Bardzo przepraszam, że długo nie reagowałem na Wasze dociekania i podpowiedzi. Wszystkie powyższe sztuczki są mi znane i stosowane. Problem okazał się błahy, wręcz niegodny zajmowania Wam czasu. Ponieważ każda z procedura lub funkcja służy do rozwiązania jakiegoś problemu, a są one używane także do rozwiązywania problemów bardziej złożonych, o złożoności,...
Przyznam że nie do końca wiem o co ci chodzi. Trochę inaczej pobierałbym dane z pliku baza-a. Bo w ten sposób po otwarciu pliku wykresy (bez otwierania pliku baza-a) są błędy. Ja to zrobiłem za pomocą "importuj dane zewnętrzne" z menu Dane (przy pierwszym tworzeniu kwerendy - potem tylko odświeżanie danych) w arkuszu Dane i do niego odwołałem formuły...
Dziękuję! Dokadnie o to chodziło. Masz rację, odświeżanie na zmianie jest uciążliwe... Usunęłam to i zostawiłam na otwarciu + dodałem przycisk. W takiej formie będzie to dla mniej wystarczająco funkcjonalne :). Pomęczę Cię jeszcze jednym pytaniem. Widziałam, że oparłeś to na nazwie arkusza, a sortowanie na nazwie tabeli. Czy jest jakaś opcja, aby zrobić...
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;...
clubs: tak na pewno jest to dobra ścieżka wysypało się na: plik_1 = Workbooks("glowny_plik.xls").Sheets("dan... pisze, ż eplik = empty lanzul: masz rację, może przybliże trochę działanie maka, myślałem, ze nie będzi eto konieczne, ale jednak. Trochę pewnie teraz namieszam, bo pokaże całe główne makro, wiem, że nie jest idealnie napisane...
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]
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...
Miałem na myśli coś takiego [syntax=vb]Sub PobierzKurs() Dim wb As Workbook Dim wkCel As Worksheet Dim kolumna As Integer Dim xlApp As New Excel.Application Dim Dane As String Dim b1 As Long If bWylacz Then bWylacz = False: Exit Sub Call Pivot_Refresh Application.ScreenUpdating = False '<<< nie może być przed Exit Sub Set wkCel = ThisWorkbook.ActiveSheet...
Odświeżanie kwerend ręcznie, nie automatycznie po 5 min. Przy tom "." zmienia się na ","
Witam zobacz [syntax=vb]ActiveWorkbook.RefreshAll[/sy...
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ę...
odświeżanie listy excel makro excel odświeżanie makro excel automatyczne odświeżanie
nadawać president pralka słabo pierze głowica lasera
bateria macallister bateria milwaukee
Roland RD-700 – numery części Master Volume i Part Zone, zamienniki suwaków 10KB 30mm Opel 1.3 CDTI 75 KM – wycie po odpuszczeniu gazu, turbosprężarka, sprzęgiełko alternatora
