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ć.
otwierał nowego Excela nowe wystąpienie programu Excel, lub nowy skoroszyt?
Witam Workbooks.Add nowy=ActiveWorkbook.Name '....... 'tu kopiowanie a t.d. '........ Workbooks(nowy).Close False Ten kod w petli
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
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...
Czyli makro ma nie tworzyć nowego 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
nagraj makro, to jest chyba najprostrze rozwiazanie,
z komórek o pierto niżej t.z. z wiersza 2 ?(b2 c2 d2) pisać makro cały czas to lipa zapisz w Osobisty skoroszyt
To mi coś nie idzie. Kopiując kod do innego skoroszytu ( podstawiając oczywiście prawidłowe dane w nazwach) kopiuje jakies inne dane, niż te które Tobie prawidłowo zliczyły
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
potrzebuje makro ktore kopiuje wartosci z wybranych komórek do nowego skoroszytu
Potrzebuję makro które: 1. Zamienia przecinki na kolumny 2. Kopiuje kolumny ze wszystkich skoroszytów (w tym przypadku kolumna F) do jednego arkusza Po co dwa makra jak można to zrobić jednym "w locie"?
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...
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
This user is not allowed to use direct links. Please email support(at)box.net for support Zamieść to po prostu tutaj. A rada jeszcze taka - stwórz od nowa skoroszyt i wklej makro.
No dobrze z tym sobie poradziłem. Dodano po 17 Mam nowy problem. Jak mając komórkę z formułą zliczającą dane w jednym skoroszycie przenieść tylko wynik do drugiego skoroszytu, aby był zmienną do obliczeń w aktywnym skoroszycie. Pomooocyyy
Na obrazku skoroszyt jest otwarty na Twoim kompie Na obrazku widać, że Excel jest otwarty na komputerze zdalnym (AnyDesk). Na filmie uruchamiam makro, które importuje z Arkusz1 (z zasobu sieciowego \\serwer\bekap\a.xlsx) do tabeli Excel, co działa. Chyba o pobranie danych Ci chodzi, a nie o kopiowanie pliku, prawda? [syntax=vbscript]Kill Ustawienia.Ścieżka...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Dzięki za zainteresowanie. Jednak w rzeczywistości Arkusz B jest nieedytowalny i nie można w nim odkryć skoroszytu z danymi tak jak w załączonym. Zrobiłem taki arkusz dla przykładu. Jeżeli była by taka możliwość zastosowałbym funkcję WYSZUKAJ.PIONOWO. Tak więc muszę napisać takie makro aby mi pobierało numer z Arkusza A wklejało do Bazy Arkusz B i pobierało...
czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli? Raczej tak. Chodzi o skopiowanie arkusza do pliku o nazwie wpisywanej do komórki na samej górze (Np "P3.xls")? Nagraj rejestratorem. Ale jeśli już makro, to "przy okazji" zamiast formuł w komórkach (łącz w nowym pliku), lepiej przypisać...
Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
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 Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
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...
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...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Witam, chciałabym usprawnić swoją pracę w excel, ale dopiero zaczynam swoją przygodę vba. Potrzebuję napisać makro dzielące dane w moim skoroszycie po kolumnie E w której mam zawarty typ i tam występuje 7 rodzajów typów. Do tej pory ręcznie filtruję po typie, kopiuję dane wraz z nagłówkiem do nowego skoroszytu i zapisuję jako filtrowany typ. Czy mogę...
1. Jeżeli nie używasz "select" przy kopiowaniu (czyli tak jak masz teraz) to możesz ukryć arkusze i skopiuje bez problemu ale można na czas kopiowania odkryć i ukryć przez np. Sheets("xx").Visible = xlSheetVisible Sheets("xx").Visible = xlSheetHidden 2. chodzi ci o że przy zapisaniu skoroszytu pobiera nazwę z komórki?
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
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,...
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Witam , tabela jest nazwana kierownikiem pracownika. To moje formatowania ( chyba jedyne co mi wyszło ) :) . Generalnie popełniłam błąd i makro powinno działać dla daty ukończonej , powinien powstawać nowy skoroszyt a nie arkusz. Czy jesteśmy w stanie to rozwiązać? Niestety plik wygląda w tym momemcie troche inaczej
Rzeczywiście ta linijka [syntax=vbscript] nw = b.Cells(3, 10).(xlUp).Row + 1 [/syntax] nie ma sensu. Skopiowałam z innego kodu robiącego cos podobnego i sama się w tym pogubiłam Zmieniłam deklarację zmiennej b na arkusz otwartego skoroszytu, ale nadal makro nie robi tego co trzeba. Mam wrażenie, że pętla For wgl się nie rozpoczyna. Nie wiem jak ją "zapętlić"...
Pytanie oczywiście o makro. Czy istnieje możliwość powiązania komendy 'kopiuj' z przejściem do arkusza o konkretnej nazwie? Chodzi mi o to aby działo się tak: - mam otwarty skoroszyt A.xls oraz B.xls - kopiuję pewną liczbę (komórkę) do schowka ze skoroszytu A.xls - w tym samym momencie w skoroszycie B.xls Excel przechodzi natychmiast do arkusza o nazwie...
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...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Dzień dobry, korzystam z kodu, który kopiuje mi wybrane komórki ze skoroszytu (o zmiennej nazwie) i konkretnego arkusza w tym skoroszycie (nazwa arkusza jest zawsze stała) do skoroszytu "zbiorczego" o stałej nazwie (w tym wypadku ZEST_ZAM.xlsx). W kodzie mam wpisaną "na sztywno" nazwę skoroszytu, z którego komórki są kopiowane i nie umiem tego zastąpić...
Cześć, zwracam się do Was z uprzejmą prośbą o pomoc w rozwiązaniu następującego problemu. Potrzebuję skopiować wartości z zakresu B10:C23 w plikach JEDNOSTKAA i JEDNOSTKAB do pliku OCENA_ZBIORCZA w kolumny odpowiadające nazwom tych plików. Dotychczas potrzebowałem tylko kopiować wartości z pliku JEDNOSTKAA i realizowałem to za pomocą prostego makro:...
Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...
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)...
Dzięki za odpowiedź, oczywiście troche szukam po elektrodowych postach związanych z podobnymi tematami, jednak każdy problem jest trochę inny. Opis funkcjonalności: Mamy przycisk, zaznaczamy interesujący nas folder, w którym są pliki excel. Makro przeszukuje te pliki, szukając np w kolumnie D liczby '1234', jeżeli w kolumnie D ta liczba jest wpisana...
Super dzieki. probowalem teraz pousuwac zbedne wiersze tj. puste wiersze (takie w ktorych w kolumnie 2 nie ma wartosci). czy cos jest nie tak w ponizszym makrze? Sub usun_wiersze() col_base = 2 row_limit = 1300 f = 0 For x = 45 To row_limit r = x - f If Cells(r, col_base) = "" Then f = f + 1 ActiveSheet.Rows(r).Select Selection.Delete End If Next x...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
Filedialog to strzał w 10 ;), nie wiem tylko jak powinna wyglądać funkcja która wykorzystywałaby ścieżkę do pliku Excela (kod do pliku - vrtSelectedItem) do przekopiowania np. wszystkich arkuszy z wybranego skoroszytu do skoroszytu w którym mam napisane makro. Sub Makro1() ' Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialog...
Dzień dobry, to znowu ja. Tym razem merdżuję pliki excel w jeden. Mam do dyspozycji zgrabny skrypt, niestety, wymaga on kilku zmian. Nie wiem, dlaczego, ale makro kopiuje dane z obu skoroszytów, które znajdują się w plikach. Choć powinno brać dane tylko z pierwszego skoroszytu. Moje drugie zastrzeżenie jest ogromnej skali :( Chciałabym, by makro kopiowało...
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
Witam, jestem całkiem zielony w arkuszach kalkulacyjny jeśli chodzi o makra i potrzebuję pomocy. Utworzyłem skoroszyt w którym są trzy arkusze. Pierwszy to tabela przestawna, drugi to arkusz zbiorczy a trzeci to raport o nazwie '01'. Potrzebuję napisać następujące makro po włączeniu którego wartości z komórek od AS5 do BU5 z raportu będą kopiowane do...
nagrałem takie makro które otwiera nowy skoroszyt, kopiuje zawartość całego pliku do nowego skoroszytu, usuwa niepotrzebne dane, zapisuje nowy skoroszyt pod nazwą którą sam wpisałem, zamyka nowy plik, wraca do pliku pierwotnego i tworzy w nim hiperłącze do pliku który właśnie zapisałem. I teraz potrzebowałbym aby nazwa pliku zapisywanego była brana...
Cześć :) .jestem poczatkujacym a raczej raczkujacym uzytkownikiem VBA.mam ogromną prosbę o pomoc. 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. Stworzone tabele w 3 zakladkach sa ukazane na...
Z zamieszczonego fragmentu można wywnioskować, że chcesz kopiować z arkuszy o identycznym fragmencie nazwy (- 4 ostatnie znaki). Wnioski: 1. Gałąź 'Else' jest zbędna (dlaczego chciałeś w niej zerować licznik?) 2. Brakuje najważniejszego: co chcesz kopiować (jaki zakres mogą zajmować dane)? 3. Najprościej wydzielić arkusz i po wszystkim skopiować/przenieść...
Proszę o pomoc. Potrzebuję napisać makro do kopiowania danych z plików excela, które umieszczone są w danym folderze. W taki sposób, aby następnie dało się w pliku zbiorczym zrobić listę "nazw". W każdym pliku mam "nazwy", które mają przyporządkowane poszczególne numery. Cześć z tych numerów się powtarza. A ja potrzebuję zrobić listę wszystkich numerów...
Może takie makro zdarzeniowe w module skoroszytu (jeśli ma działać we wszystkich arkuszach) lub w module arkusza (jeśli tylko w jednym arkuszu): [syntax=vbscript]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tval Application.EnableEvents = False If Application.CutCopyMode = xlCopy Then tval = Target Application.Undo...
:) makrem przywrócić poprzednie funkcje? można ale nie lepiej (prościej) aby makro tworzyło nowy skoroszyt lub po zastosowaniu makra zamiast naciskać zapisz wciśnij zapisz jako i nadaj nową nazwę cennika np z datą. Przyznam jednak że miałbym wątpliwości aby otworzyć nieznany plik excela w którym jest makro (monit przy uruchomieniu). Wg mnie najlepiej...
Mam problem. Mam rekord od A2:D2, następny jest od A3:D3 itd. w sumie 266 pozycji. I teraz w komórce J2 mam wartość np. 50 J3 wartość 34(wartości są już wpisane). Jak zrobić aby rekord A2:D2 mnożył razy ilość z J2 i te wyliczone 50 rekordów wstawił do nowego skoroszytu. I dalej dopisał do tego skoroszytu 32 rekordy A3:D3 w ilości 34 itd. aż 266 pozycji...
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Witam! Nowy, czysty skoroszyt. Komórki mają formatowanie domyślne. Do komórki D3 wpisuję z ręki formułę ="0987", excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane. Do komórki D4 wpisuję formułę =D3, i tym razem excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane....
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Przecież ten skrypt/makro jest skopiowany i dokładnie opisany na: https://www.extendoffice.com/documents/e... Czy asia.asia oczekuje na pomoc czy chce aby ją ktoś wyręczył z trudu przeczytania i zrozumienia gotowca? Odkrywanie rzeczy nowych może być pasjonujące. Proponuje przeczytać wcześniejszą moją...
Kopiowania i wklejania, tudzież opcji odwrotnej nie polecam. I tak w efekcie końcowym po wklejeniu wierszy (w trybie projektowania ma się rozumieć) trzeba ręcznie zmienić właściwość LinkedCell na właściwą. W tym momencie makro działa prawidłowo. Po usunięciu wierszy też makro działa właściwie. Dalej drukuje zaznaczone. Można oczywiście w VBA napisać...
Faktycznie działa - bardzo dziękuję za odpowiedź i pomoc :-) Makro prawidłowo dodaje z każdego nowego pliku ostatni arkusz. Potrzebuję jeszcze aby z każdego pliku źródłowego poza skopiowaniem całego ostatniego arkusza "wyniki" dodatkowo z pierwszego arkusza "Dane" kopiowało A18:B18 i wklejało w "Lista plików" w arkuszu "podsumowanie" w kolumnie F w...
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...
Chcę aby w arkuszu produkcja kolumna N , wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. No a jak "kolumna N" nie zna dobrze VBA :?: :D To jeśli W Excelu porusza(m) się biegle szuka(m) innych możliwych rozwiązań dla uzyskania pożądanego rezultatu. Przykładowo w Excelu 2007: 1. Porządkuje skoroszyt Produkcja.xls :sprawdzam...
Witam, mam następujący skoroszyt: http://obrazki.elektroda.net/32_12676045... potrzebuję napisać makro bądź jakąś formułę która podczas wstawiania literki X w kolumnie nazwiska np. Martyka będzie przenosić cały wiersz z wszystkimi danymi do arkusza "Martyka". Kolejne zaznaczenie w kolumnie Martyka ma dodawać kolejny wiersz w arkuszu Martyka....
Bardzo ładny kod. Wiem że trochę długa linia :), ale bez "nakierowania" na dany arkusz funkcji Cells() funkcja Copy(Destination) zgłaszała błąd. A z samym Range() zamiast Cells'ów nie mogłem sobie jakoś tu poradzić. :) Plus jest taki, że w tym wypadku makro nie otwiera danego arkusza (nie "skacze" do niego) i nie zaznacza kopiowanego obszaru, co wg...
Ja już "ogarnąłem" (ogarnąłem to o co ci mniej więcej "chodzi") Po pierwsze za mało danych: To ma być funkcja czy procedura? To ma dotyczyć zaznaczenia, całego arkusza, całego skoroszytu? Co z resztą danych jeżeli znalezione wyniki przekroczą 1024 znaki? Po drugie: Ja z kolei chcę kolejne piwo (a nie chcę mi się iść już do sklepu). Pokaż co już stworzyłeś...
Witam Mam takie makro Sub zamien_znaki_fr() ' ' zamien_znaki_fr Makro ' Zamiana krzaczkow na znaki francuskie ' ' Klawisz skrótu: Ctrl+z ' For x = 1 To 11 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
Witam koleżeństwo. Proszę o pomoc w rozwiązaniu problemu. Mam dwa arkusze kalkulacyjne. W nich różne dane. Chcę część danych które są w nich ułożone wierszami ale nie są posortowane i nie ma możliwości ich sortowania (scalone komórki). Miałoby wyglądać to tak iż w pierwszym arkuszu szukam dane w jakiejś komórce i wierszu np oznaczenie (tekst) następnie...
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...
Mam jeszcze problem bo chciałem przenieść tą procedurę kopiowania do innego skoroszytu i w linijce .Shape wywala mi błąd czemu? Dodano po 4 W tym innym skoroszycie przypiosalem do zdjec nr tak jak jest to tu zrobione i wywala mi błąd w tej linijce " .Shapes(.Cells(w, 1).Text).Copy" ------> Method "Copy" of object "Shape" failed Dodano po 3 w tym skoroszycie...
Cześć Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz. Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc. Application.ScreenUpdating = False Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx" Sheets("Spakowane").Select...
Witam, Prośba dotyczy Excela i VBA, proszę o pomoc w rozwiązaniu następującego problemu, który jak sądzę jest banalny i dla tego nie udało mi się znaleźć odpowiedzi w googlach. Nie jetem zbyt biegły w VBA, ale korzystając z tego, co można wyczytać w sieci udało mi się zrobić kilka całkiem użytecznych i rozbudowanych makr. Teraz próbuję zrobić bazę zleceń...
Tak mam 7 kryteriów. Kryteria są dynamiczne i dlatego muszę usuwać filtr. Pętlę zostawiłem żeby móc dodać kolejne kryteria rozłączne. Kopiowane jest do kryterium filtra a następnie z niego usuwane. Mam duży plik, przygotuję kolejny mniejszy i wtedy go prześlę - jeszcze zamierzam to uogólnić żeby było makro na cały skoroszyt i odwoływało się do ActiveWorksheet....
Witam. Chciałbym stworzyć wyszukiwarkę produktów. Na razie korzystam z mało ciekawego rozwiązania. Wyszukuje produktu po ID za pomocą funkcji podaj.pozycje w innym pliku. Następnie za pomocą makra wyszukuje dany wiersz i kopiuje cały do arkusza. Niestety za każdym razem muszę modyfikować funkcję podaj.pozycję zmieniając nazwę pliku i skoroszytu. Plik,...
Witam Może ktoś pomoże. W 2 excelach mam arkusz o tej samej nazwie PAGE W jednym z nich (nazwijmy-Analityczny), mam prócz PAGE dodatkowy arkusz z wygenerowaną tabelę przestawną, która wykonuje potrzebną, analityczną filtrację danych z PAGE. Chcę zrobić macro, które spowoduje następującą reakcję. Otwarty jest Excel Analityczny oraz druga kopia z Nowym...
Mam taki problem z makrem. W pewnym folderze mam tylko jeden plik i jest on w formacie .xlsm. Niech się nazywa 1.xlsm Moje aktualne makro tworzy mi nowy skoroszyt excela (do innego folderu niż ten w którym jest wspomniany wcześniej 1.xlsm). Następnie chcę dokonać przeklejenia pewnych danych z starego excela (tego o którym wspomniałem 1.xlsm) do nowego....
Witam nie mogę sobie poradzić ze stworzeniem makra które ma zadanie skopiować dane z innych plików do jednego skoroszytu (razem.xls). W pliku "razem.xls" jest arkusz w którym w kolumnie "A", w kolejnych wierszach jest umieszczony numer np. X01, X02, itd do 100. W katalogu C:\Dane są założone podkatalogi które się nazywają tak jak ten powyższy numer...
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
kolega zapomniał o Dodano po 3 witam Jak w temacie problem z kopiowaniem. Mam plik excela w którym gromadzę dane. Potrzebuję w jakiś sposób pobrać dane z innych plików excela, których nie chcę za każdym razem otwierać(gdyż będzie ich dużo). Np. w kolumnie A mamy nazwy plików i potrzebne jest aby w kolumnie B były wartości z określonych plików z kolumny...
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
Sposób1. Przed zapisaniem usunąć procedurę dodawania i zapisywania licznika. Sposób2. w procedurze ustawić warunek np: If ActiveWorkbook.Name = "BOOK1.xls" Then (...) End If Przy sposobie 2 makro zawsze będzie kopiowane i przy uruchamianiu pojawiać się będzie monit o makrach. Chociaż nie będzie działać z nieodpowiednią nazwą pliku. Ale jeżeli to nie...
Witam Potrzebuje pomocy z excelem, mecze się już parę dni i nie mogę sobie poradzić, przeczytałem juz wszystkie posty i nic. Mam dwa skoroszyty - jeden z nich nazywa się Baza/Arkusz1 i znajdują się w nim dane do skopiowanie do innego skoroszytu (bieżacy arkusz Menu). Jednak kopiuje tylko wybrane komórki (które spełniają odpowiednie warunki). Ponizej...
Witam Mam pewien problem, a mianowicie na FTP sieciowych mam arkusze excelowe wzbogacone o makra które kopiują i wklejają dane z tabeli do tabeli w innym arkuszu tgz. głównym. Bo zapisie makro zapisuje i zamyka obydwa arkuszę, jednak zdarza się sytuacja że inny użytkownik może przeglądać arkusz główny i mieć go odpalonego w tym czasie przy próbie zapisu...
https://obrazki.elektroda.pl/3994263600_... [syntax=vbscript]ActiveCell.Copy[/syntax... Nie możesz kopiować aktywnej komórki, bo ta znaleziona nie zostaje aktywowana. [syntax=vbscript]Sub Przycisk3_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=...
Ten dodatkowy kod niestety wyrzuca błędy albo źle go dodałem (wstawiłem przed linijką "set bs"). Wczoraj i dzisiaj sporo czytałem na ten temat i nie natrafiłem niestety na nic co wyglądałoby jak metoda otwierania plików o masce jakies_slowo_XXX_jakies_slowo.xlsx. W ostateczności zrobię kilka makr do obsługi grup plików o powtarzalnych rodzajach nazw....
Witajcie, mam ogromną prośbę o pomoc w stworzeniu makra dla pliku. Męczę się z tym już kilkanaście godzin i niestety brakuje mi zwyczajnie wiedzy programowania VBA. Czy ktoś z Was mógłby mi pomóc stworzyć marko? Wkrokach opiszę co chciałbym, aby makro robiło. 1.Po naciśnięciu przycisku ( wiem jak przypisac marko do przycisku) odblokuj aktualny skoroszyt....
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( Najprostsze rozwiązanie PPK myszy na wybrany arkusz :arrow: "Przenieś lub kopiuj" do nowego skoroszytu :idea: Jeśli znasz VBA i masz setki tych arkuszy to nagraj sobie makro takiego kopiowania uruchamiane skrótem klawiaturowym. :D Jeśli zaś masz do skopiowania...
Jeśli nie musi być koniecznie VBA, to wystarczy zwykły wzór, np.: 1. W "C:\Temp" mamy plik o nazwie "123.xls" 2. W pliku tym, w arkuszu "Arkusz1" mamy coś takiego: 898389 3. To w arkuszu i komórce innego pliku, np. w "A2", (bez otwierania pliku "123.xls") możemy uzyskać taki wynik ze wzoru tam wpisanego: 898390 Wzór wystarczy przeciągnąć w dół uchwytem...
Cześć. Jako typowy human mam niestety problem z elementarnymi rzeczami informatycznymi. Ostatnio sen z powiek spędza mi import danych z wybranych kolumn. Wstyd przyznać, ale na razie robię to na zasadzie kopiowania pojedynczych kolumn i wklejania do nowego arkusza. I tak dwa razy w tygodniu. Sposób jest bardzo skuteczny ;-) ale zapewne można go znacząco...
Moderowany przez Marek_Skalski: Kolego, Twoje pytanie nie jest bezpośrednio związane z pytanie Autora tematu. Z tego powodu sugeruję wydzielenie tematu do nowego wątku. 3.1.19. Nie wysyłaj wiadomości w tematach archiwalnych, jeśli jest to kolejne pytanie, w szczególności inne niż osoby pytającej. Z racji szacunku do pytającego załóż własny temat. Możesz...
Cześć, mam problem z poprawnym umiejscowieniem pętli w kodzie. Moje makro ma za zadanie umieścić w osobnym arkuszu każdy zakres ograniczony z góry i z dołu wierszem z ciągiem gwiazdek o długości 92 znaków z pierwszego arkusza. [syntax=vb] Sub Dostawy() Dim OstWiersz As Long Dim j, l As Integer Dim LArkuszy, LArkuszy2, LWierszy As Integer Dim zakres,...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie. Wstawiam załącznik. Byłem w pracy i nie mogłem zajrzeć wcześniej na forum. Dane w komórkach są fikcyjne (musiałem oczyścić prawdziwe dane, gdyż nie mogę ich udostępniać), ale bardziej chodzi o zasadę działania na danych. Wierszy w tabeli jest ok. 500 wierszy i przy każdej zmianie trzeba...
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...
Witam serdecznie. Posiadam dane w excelu, które znajdują się w 2 arkuszach: 1. "DANE" i 2. "CT". W pierwszym arkuszu w kolumnie 2 (od wiersza 3 do 2500) znajdują się interesujące mnie wartości. W arkuszu "CT" w wierszu 7 (kolumny od B do EO [143]) znajdują się liczby, które w sumie dają wartość 2500. Chodzi o to, żeby pod każdą taką liczbą w arkuszu...
No trochę źle wyjaśniłam o co mi chodzi Wiec Arkusz1 to wzór, tak bym chciała, aby wyglądały wszystkie tabele, ale to rozwiązanie sprawia, ze kopiuje się znacznie więcej wierszy niż jest to potrzebne w danejtabeli (po 1700 tyle ile jest w tabeli źródłowej (tabela źródłowo, może być bez obramowani a i nagłówków, bo i tak dane będę importowane...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
makro excel kopiowanie excel makro kopiowanie kopiowanie makro excel
ustawienia karty bezprzewodowej parkside ogniwa skanowanie pliku ricoh
robot koszący parkside schematy elektryczne domowe
Drukarka Brother DCP-L2532DW nie skanuje do laptopa Podłączenie Commodore 64 do telewizora Biazet