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...
Bez makra tak się nie da. Najprościej to rozdzielić na 3 pliki. Jeden do obliczeń i dwa na dane. W tym pliku do obliczeń daj ścieżkę do innego pliku z danymi. Oba pliki z danymi muszą mieć tą samą nazwę umieszczone roboczo w dwóch różnych folderach. Po wprowadzeniu danych i zapisaniu kopiujesz plik z danymi tam gdzie podałeś ścieżkę w pliku do obliczeń....
Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
wychodzi na to że z tym jest jakiś problem Masz tylko zdeklarowaną zmienna wsB i nic poz tym, otwierasz plik i musisz jeszcze ustawić z jakiego arkusza ma pobrać 'lastrow' + 'find', no i kopiowanie masz tylko do b1 czyli cały czas ta pętla będzie nadpisywać.
JRV Zgadza się. Przeoczyłem, że autor uaktywnia aktywny arkusz, czyli nie ten, którego się spodziewał.
Masz rację, zmieniłam na kopiowanie od 2 wiersza. Docelowo w kolumnie I w pliku bazowym będą wagi, w jaki sposób mogę podsumować kolumnę I w każdym aktywnym arkuszu- od arkusza o nazwie"1" do ostatniego?
Dzień dobry, Aby uniknąć migotania ekranu przy zmianie aktywnego arkusza należy na początku makra dopisać linijkę: [syntax=text]Application.ScreenUpdating = False[/syntax] a na końcu linijkę: [syntax=text]Application.ScreenUpdating = True[/syntax] Czy jest możlwe jeszcze jakieś usprawnienie, to trudno powiedzieć bez wglądu w strukturę danych. Jeżeli...
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
no ok kopiuje...ale dlaczego tworzy się nowy arkusz i do niego kopiuje a nie do aktywnego arkusza??? Takich buttonów będę miał w całym skoroszycie chyba z 10 więc albo będzie kopiowało do aktywnego skoroszytu albo wskazanego a nie tworzenie się nowego;/ i to jest teraz dla mnie problem;/
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
Witam, W zalaczeniu przykladowy plik W arkuszu1 tabela z Lp. nazwa koloru i warunkiem1/0 Po spelnieniu warunku 1, kolory sa kopiowane aktywnie do tabeli w Arkuszu2 W arkuszu 2 jest wyszukiwarka koloru. Wszystkie komorki w arkusz2 sa zablokowane z wyjatkiem B2 w ktorej mozna wpisac szukany kolor. Niestety po uruchomieniu Recenzja ->"Chron arkusz" wyszukiwarka...
Człowieku Ty jesteś jakimś magikiem normalnie!!!! dzięki - działa perfekto, jeszcze tylko jednej drobnej jak sądzę poprawki potrzebuje. W ty, nowym pliku xls przydałoby się podmienić nazwę (obecnie kopiuje z pierwotnego xlsx) na np "Arkusz1". I tak sobie myślę, przy przenoszeniu do nowego pliku xlsx kopiuje całość - a mógłby kopiować tylko to co jest...
Witam ponownie. Jako że z poprzednim problemikiem sobie juz jakoś poradzilem, pojawił się niestety nowy. Posiadam wiele plików *.xls o różnych nazwach które posiadają identyczne nazwy arkuszy w tej samej kolejności. Chciałbym zamontować przycisk, który kopiowałby zawartość arkuszy o nazwie "Zrzut" z tych plików do nowego czystego arkusza. Dodam również,...
ale to nie działa chyba dlatego że kod jest umieszczony w Module To nie to. Makro aktywuje arkusz o nazwie przypisanej do zmiennej 'grafik', dlatego ActiveSheet będzie zawsze Sheets(grafik). Najprościej byłoby przerobić je na procedurę z przekazaniem argumentu w postaci nazwy aktywnego arkusza. Ale jest jeszcze wiele niejasności... Najlepiej, gdybyś...
Dzień Dobry Mam kłopot po skopiowaniu kodu do pliku Personal makro nie działa poprawnie i nie wiem jak to zmienić. Zaczynam od otwarcia pliku na którym pracuję i i robię kopie arkusza tam będą kopiowane wartości z tabelą nieciągłą obszar ("A1:Q18").Wszystko działa do momentu otwarcia i skopiowania tabeli z wskazanego pliku niestety dalej makro nie przechodzi...
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...
Dzięki troszkę sobie je jeszcze przerobiłem wygląda tak [syntax=vb] Sub Kopiowanie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Application.ScreenUpdating = False Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False...
Kopiowanie przypisane jest do A1 w dół w aktywnym arkuszu. Przejdź makro krok po kroku [wspomniane F8], obserwuj co się dzieje (jakie wartości przypisywane są do zmiennych). Czy nie lepiej byłoby zamapować lokalizację sieciową i odnosić się do skrótu?
1. Jest to drugi plik - z_którego_kopiuje.xls (26.5KB) - (niesteety nie załapały się polskie znaki) 2. Imiona będą się powtarzały dla każdej czynności. Nie przewiduję, żeby w zakresie wystepowała pusta komórka. Jeżeli tak się stanie to chciałbym, żeby kopiowało mi do ostatniego imienia. Tzn. Jeżeli komórka C4 będzie pusta to chciałbym, żeby mi tak czy...
To znaczy, że coś nie zgadza się z założeniami. Prawdopodobnie nazwy plików. Zapuść takie makro (aktywny arkusz z przyciskiem) [syntax=vb]Sub sprawdz() sciezka = Range("G11") plik = Dir(sciezka & "*.xls") While plik <> "" licz = Len(plik) - Len(Replace(plik, " ", "")) If licz > 1 Then MsgBox "plik " & plik & " ma w nazwie " &...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
Cześć, przejrzałam podobne tematy do mojego problemu ale niestety nie potrafię tego odzwierciedlić w moim zadaniu. Chodzi o to że mam dwa pliki A i B. Plik A jest aktywny i w nim chcę żeby działało makro, które ma na celu: -otworzyć plik B Arkusz2 i wyszukać liczb które znajdują się w plikuA w kolumnie A. Jeśli je znajdzie to przekopiować z tego samego...
Dziękuję za sugestie. Dodano po 16 Z kopiowaniem sobie poradziłam. Jednak mam problem z automatycznym stworzeniem arkuszy dla wszystkich osób z listy. Dla jednej osoby, pojedynczej aktywnej komórki wiem jak stworzyć. A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie...
Czy można zmodyfikować poniższe makro Pewnie można ... jak się komuś będzie "chciało chcieć" ... : ) ... ale wpierw parę uwag dla przyszłych twoich "modyfikacji": 1. xlOpenXMLWorkbook - podawałbym kody liczbowe (w tym przypadku jest to 51) zamiast nazwy stałych, będzie bezpieczniej jeśli plik będzie otwierany w różnych wersjach excela: Function CopyDataRangeP...
Witam, Mam problem z makrem które zaimportuje mi dane z wielu dokumentów .xls z zakresu powiedzmy ("A1:Z99"). Wszystkie te pliki Excela znajdują się w folderze D:\Dane. Zakres kopiowany z każdego arkusza ma być wklejany do aktywnego dokumentu .xls jeden pod drugim. Na sam koniec usunięte zostają puste wiersze i ustawiona zostaje czcionka Arial 12. Drugi...
Witam, W załączonym przykładzie w pliku Excel mam dwa arkusze: Dane oraz Tabela. W arkuszu Dane mam wstawioną tabelę z danymi, która jest na bieżąco uzupełniana przez różnych użytkowników. W arkuszu Tabela mam wstawioną tabelę przestawną która prezentuje dane z podziałem na osoby odpowiedzialne za dany temat i przyporządkowanymi jej tematami. Bardzo...
Witam, będę wdzięczny za pomoc w napisaniu formuł lub makra. W pliku wklejane będą dane do arkusza Total dla trzech zmian I zmiana 6:00-13:00 II zmiana 14:00-21:00 III zmiana 22:00-05:00 Teraz chodzi o to, aby dane z tego arkusza automatycznie kopiowało do poszczególnych arkuszy w zależności od przypisanych godzin zmianowych tzn. aby np. do arkusza...
(at)maciejgonet Miałem wcześniej jeszcze w jednym miejscu faktycznie. Usunąłem i dalej to samo. Dodam, że w 'Ten arkusz' mam teraz taki kod: Private Sub Workbook_Open() MsgBox "Witaj " & Environ("Username") & "!" _ & vbNewLine & vbNewLine & "tekst powiadomienia" _ & vbNewLine & vbNewLine & "Miłego dnia!" MsgBox "Jakiś tekst", vbExclamation, " UWAGA...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę zaznaczoną. Uruchamiam makro, które przykleja do odpowiednich...
Może to dlatego, że w takiej formie jak to podałeś teraz, funkcja aktualizuje dane tylko z otwartego arkusza o takiej nazwie. Żeby aktualizować dane z arkusza umieszczonego w jakiejś konkretnej lokalizacji, powinieneś podać pełną ścieżkę do niego. Spróbuj przerobić kod w podobny sposób jak przykład poniżej (zwróć uwagę na zmianę nazwy arkusza na pełną...
Witam Nie znam się zbytnio na Makrach, a postawiłem sobie cel - stworzenie makra.. który nie mogę osiągnąć. Problem polega na tym że mam 9 plików, w którym koledzy wpisują co tydzień informacje. Ja chciałbym co tydzień otwierać swój plik i klikając "AKTUALIZUJ" ściągać informacje jakie oni wpisali w jeden zbiorczy plik. Stworzyłem makro, które to robi...
Dzięki wielkie. Po wklejeniu poniższego kodu lista numeruje się prawidłowo: http://obrazki.elektroda.pl/8079367600_1... Mam jeszcze jedno pytanko związane z tym samym plikiem. Po wklejeniu listy pracowników do arkusza muszę dodać jeszcze w komórkach obok nazwisk pewne symbole (tak jak na screenie). Po wklejeniu listy automatycznie aktywuje...
Siema, Mam napisane makro vba, żeby kopiowało mi dane z komórki zawartej w aktywnym pliku excel do drugiego aktywnego. Pisałem to na dwa sposoby i za każdym razem wywala mi błąd. Poradźcie proszę. Będę wdzięczny za każdą pomoc! 1. Tutaj wywala błąd - Compile Error: Sub or Function not defined. Sub screen() ' ' screen Macro ' ' Workbook(cale.xls).Activate...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast kolorowania po prostu zaznacza wiersz i kolumnę...
https://obrazki.elektroda.pl/8440835000_... Jak to się stało? Posiadam dostęp do konta bankowego, w sumie sam je założyłem, jednak nie jest ono na moje dane, to jakiś inny mężczyzna. Jestem zabawny, pulpit posiada dwie ikony: kosz(wiadomo) i nad nim folder ,,zlew". W zlewie trzymam pliki .txt z rekordami login::pass do różnych kont:...
Witam, No to jeszcze jedno pytanko. W moim pliku "1" dołożyłem drugi przycisk "CommandButton1", który zapisuje mi dane i zamyka skoroszyt. Chciałbym zrobić tak, że gdy "aktywny" jest pierwszy przycisk to ten mój (do zapisywania) jest nieaktywny. I na odwrót. Jak to zrobić??
http://obrazki.elektroda.pl/2126980700_1... System monitorowania środowiska, oparty o interfejs LoRa IoT składa się z stacji bazowej zbudowanej z wykorzystaniem modułu Arduino Mega z bramką LoRa oraz zdalnych stacji opartych na Arduino Feather, które łączą się z stacją bazową poprzez radiowy interfejs LoRa. System pozwala na monitorowanie...
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1)Istnieją dwa zbiory/foldery plików (c:\zrodlo oraz c:\analiza), 2)W każdym z nich znajduje...
kopiowanie aktywnego arkusza kopiowanie arkusza makro kopiowanie arkusza
zwarcie klimatyzacji lanos podciśnienie telefon myphone bateria
telewizor technika przyciski kenwood ddx4015bt
Bezpiecznik świateł postojowych Opel Corsa D 2010 1.4 Czy zasilacz 19V nadaje się do taśmy LED?