Chcę aby moje makro kopiowało wybrane dane z dokładnie 4 arkuszy do innego arkusza. Arkusz docelowy: W docelowej zakładce w wierszach znajdują się nazwy danych a w kolumnach daty generowania tych danych Arkusze źródłowe: 1. Są zapisane w tym samym folderze 2. Różnią się tylko końcową datą (rok-miesiąc) 3. W wierszach znajdują się nazwy danych a w kolumnie...
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...
Sheets("DATA ENTRY " & s)
Potrzebuję pomocy z plikiem. mam tabelę w arkusz1 te dane chciałbym kopiować. następnie dwa arkusze DANE i DANE2 te strony mają być puste. potrzebuję pomocy w automatyzacji kopiowania zawartości Arkusz1 do kolejnego arkusza począwszy od arkusz4. potrzebuję kopię arkusz1 z wyczyszczoną zawartością komórek .. Kod towaru, nazwa opis, wydana i numer partii...
Nie mam wielkoego pojęcia o probramowaniu, będę wdzięczna za pomoc Mam plik który zawiera 75 arkuszy. 5 akruszy jest "stałych" (zawierają m.in. dane do których się odwołują pozostałe arkusze), a pozostałe mają taką samą sktrukturę ale inne dane Muszę: 1. utworzyć 70 nowych plików, gdzie każdy zawiera 5 "stałych" akruszy i jeden zmienny 2. Zapisać nowy...
Witam Szanowni forumowicze w załączeniu plik z fikcyjnymi danymi. W arkuszu1 mam dane z których z kolumny C kopiuję do arkusza2 do kolumny A jeżeli spełnione są dwa warunki. Jeden warunek to taki aby zgadzały się indeksy z akrusza1 kolumna B z arkuszem2 kolumna D. Drugi używa pomocniczej kolumny I z arkusza2 i ona ma się zgadzać z danymi z arkusza1...
Witam Stosując poniższą formułę po kliknięciu na przycisk kopiuj działa wszystko OK , ale tylko w wypadku gdy kopiuję z arkusza na którym znajduje się przycisk ( czyli z X1) ! Jeżeli jednak chcę kopiować z innego arkusza (w ostatniej linii wpisuję np. X5) , a przycisk znajduje się na arkuszu X1 - to niestety nie kopiuje z arkusza X5. I w tym momencie...
Jak przerobic to makro, aby dane z komórek z jednego arkusza: B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 pobierało do mojego arkusza , ale w te same miejsca, czyli B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 ? [syntax=vb]Sub Otworz() Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet Application.ScreenUpdating...
Czesc, mam problem i prosze o pomoc (nie hate) mam kod ktory kopiuje arkusze w jeden arkusz, dziala super jednak nie chcialabym aby kopiowaly sie naglowki: Sub WszystkieArkuszeDoJednego() Sheets.Add.Name = "Podsumowanie" Application.ScreenUpdating = False nwp = Sheets("Podsumowanie").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To Sheets.Count Set...
Witam, Na początku przepraszam jeżeli powielam temat lub coś takiego ale przeglądałem tematy odnośnie kopiowania danych i jakoś nie mogę znaleźć rozwiązania mojego przypadku. Chodzi mi o kopiowanie danych z arkusza2 z komórki A5. W powyższej komórce będę miał zapisywaną wartość która zmienia się przy każdym otwarciu pliku (kurs waluty ze strony www)....
Mam następujący problem do rozwiązania: W jednym skoroszycie mam ponad sto arkuszy. Prócz pieszego wszystkie mają identyczny układ. W jaki sposób skopiować dane z pierwszego do pozostałych aby komórki od A2 do A120 z arkusza 1 skopiowały się odpowiednio: A2 z arkusza 1 w A1 arkusza 2, A3 z arkusza 1 w A1 arkusza 3, A4 z arkusza 1 w A1 arkusza 4 itd....
Czy można w jakikolwiek sposób tworzyć automatyczna kopię fragmentu arkusza do drugiego arkusza? Kopiowanie automatyczne samej zawartości jest proste, kopiowanie ręczne (kopiuj/wklej) z zachowaniem formatowania jest proste. Ale czy jest możliwość kopiowania automatycznego z formatowaniem?
Witam serdecznie wszystkich. Mam takie pytanie, czy da się napisać makro tak żeby z kilku arkuszy automatycznie kopiowało się do jednego arkusza. Wiem że temat był już poruszany nie raz ale już od kilku tygodni szukam właściwego makra i nic. I tu wielka prośba do Was o pomoc. Potrzebuje gotowe makro bo ja jestem BARDZO słaby w tym temacie a dokładnie...
Witam szanownych kolegów i koleżanki, potrzebuję pomocy w Excel z dość łatwym zadaniem, ale ciężki mi znaleźć konkretne rozwiązanie w śmietniku internetowym. Sprawa ma się następująco: Mam 1 plik excela z trzema Arkuszami z danymi (dojdą jeszcze 2 arkusze z danymi, więc prosiłbym o uwzględnienie tego) i Arkusze rozliczeniowe tj. maj, czerwiec, lipiec...
Witam, Mam makro, które kopiuje arkusz1 ze skoroszytu1 do skoroszytu2 jednocześnie zmieniając formuły na wartości. Problem w tym, że po przekopiowaniu, formuły na wartości zmieniane są w skoroszycie1 a nie w skoroszycie2. Kopiowanie arkusza1 uruchamiane jest przyciskiem przypisanym do tego makra znajdującego się na arkuszu1 w skoroszycie1. Jak również...
Witam, sprawdzałam forum ale nie trafiłam na podobne zagadnienie. Czy jest możliwość aby za jednym razem utworzyć wiele (kilkanaście) kopii jednego arkusza w danym skoroszycie? Jest na to jakiś sposób?
Dzień dobry, Robię kalkulator kosztów. Mam 4 arkusze: - start (z info o firmie) - elementy (wykaz elementów gdzie uzupełniamy ilość a następnie nam wylicza sumę za każdy element) - wykonawstwo (wykaz prac jakie są prowadzone również z ilością) - podsumowanie Chodzi mi o to aby gdy w arkuszu "elementy" ilość jest większa od 0 wtedy cały wiersz jest kopiowany...
Witam, chciałabym zapytać czy macie może gotowe makro, które kopiowałoby tabelę razem z formatowaniem z jednego arkusza do drugiego. Muszę powielić taką samą tabelę w dużej liczbie arkusze i wolałabym uniknąć jej każdorazowego formatowania. Z góry dziękuję za pomoc.
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
Witam Muszę skopiować część listy 100 wierszy z Arkusza1 do Arkusza2 w zależności od wartosci komórek np A5=1 i B5=46 wyznaczające ilość linii do skopiowania 46 lini zaczynając od linii 1 do linii 46. Wartość komórek A5 i B5 w takim razie muszą być zmiennymi w makrze. Z gory dziekuje i pozdrawiam.
Witam Poszperałem forum ale odpowiedzi nie znalazłem.. W nagłośnieniu chętnie pomogę ale na tym sie nie znam .. ) mam nadzieje ze Szanowni Koledzy pomogą Mam dwa arkusze X i Y po dwie kolumny każdym z nich Arkusz X Dynia |15 Marchew|6 Burak | 7 Arbuz |19 Arkusz Y Dynia |17 Jabłko | 6 Marchew |9 Majonez | 2 Jajka |29 Burak |5 Rzerzucha |2 Arbuz |3 Do...
Cześć, Mam problem z pewnym makrem. Znalazłem je w internecie i przerobiłem pod swoje potrzeby(dane kopiują się do przypisanych arkuszy, a nie jedno pod drugim jak było w wersji pierwotnej). Generalnie chciałbym żeby z pliku i arkusza nawigacja móc otworzyć wskazane w pliku nawigacja dokumenty, następnie wejść w odpowiednie, przypisane do nich arkusze,...
Witam, Ponieważ nie jestem programistą mam dosyć spory problem z rozwiązaniem swojego problemu. Sytuacja wygląda następująco: mam 101 arkuszy Pierwszy z nich to "protokół likwidacyjny" w którym znajduje się tabela mająca 100 pozycji. Kolejne 100 arkuszy są to kwity likwidacyjne (nazwy arkuszy są zgodne z pozycjami w tabeli z protokołu likwidacyjnego)...
Witam, Nagłówek nie jest kopiowany, jedynie dane. Najlepiej w kodzie po utworzeniu nowego arkusza przekopiuj go tak: wsSheet.Range("A1:C1"&... Destination:=wbBook.Sheets(CStr&... a żeby nie kopiować danych od pierwszego wiersza, zmień w kodzie wartość początkową zmiennej wiersz...
Błąd wskazuje na problem z adresowaniem. Jeżeli chcesz tego użyć to musisz sam podiagnozować. 1. W którym wierszu jest błąd? 2. Zawartość wszystkich zmiennych użytych w tym wierszu. 3. Czy elementy, do których są odwołania, istnieją?
Czyli algorytm mniej więcej taki: 1. Wyszukujesz ostatni arkusz i zapamiętujesz jego nazwę w zmiennej tekstowej, np Src. Metoda wyszukania dowolna, arkuszy jest zwykle nie tak dużo, można przejrzeć w pętli wszystkie. 2. Tworzysz w zmiennej np Dst nazwę nowego arkusza i tworzysz arkusz z taką nazwą: Sheets.Add.Name = Dst 3. Kopiujesz dane z jednego arkusza...
Nie musisz robić Select Użyj: [syntax=vbscript]Range("a2:n35000").Copy Destination:=ThisWorkbook.Sheets("Arkusz... Szczegóły znajdziesz na stronach M$ i nie tylko. Oczywiście oba adresy muszą być prawidłowe, wpisałem przypadkowe. Jeżeli zamierzasz kopiować więcej danych albo zmieniać pliki i arkusze to lepiej podczas otwierania...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
Nazwę pliku(ów, w zależności ile ich zaznaczysz) masz w zmiennej vrtSelectedItem . Nic nie stoi na przeszkodzie aby przypisać ją do zmiennej obiektowej, otworzyć plik, skopiować co trzeba i zamknąć. Podpowiem trochę If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems Set wkb = Workbooks.Open(vrtSelectedItem) 'gdzieś tu powinna być...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
Czy jest jakiś sposób na współprace C++ Builder z Excelem? Mam taki kłopocik mianowicie robię dużą ilość obliczeń dla jednej zmiennej następnie kopiuje wyniki do nowego Arkusza, zmieniam zmienną i znowu kopiuje:( Jest to strasznie żmudne:( Obiło mi się o ucho że można użyć GetActiveOleObject ale leciutko nie mam pojęcia jak do tego się zabraćL Można...
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
Jeżeli dobrze zrozumiałem to chcesz aby bezpośrednio do arkusza 1 wpisywały się {kopiowały} dane z pliku aaa lub bbb lub ccc. Teraz te dane kopiujesz z pliku aaa do arkusza 2 - a później jak nasz zrealizowane kopiowanie do arkusza 1?
Uruchamia się poprzez wpisanie do arkusza Parametry w A1 wartości 1.
masz pomysł jak to zrobić? Jak przenieść wyfiltrowane ID z zrzutu 2 do kryteriów filtra w arkuszu 2? Przenieść bez kopiowania :D - nie :cry: Teoretycznie można by utworzyć tymczasową tablicę dynamiczną z wyfiltrowanymi danymi i poddać ją ponownemu filtrowaniu (w pamięci), ale i wówczas musisz tą tablicę wynikową (lub same wyniki sumowania) gdzieś zrzucić...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
Witam. Jak pewnie większość z was, którzy działali w Step 7 wie jak potrafi być mozolne wklepywanie Name'ów w DB. Podobno istnieje program pozwalający na kopiowanie list zmiennych z arkusza Excel. Naprawdę ułatwiło by mi to prace, bo wpisywanie setek zmiennych do DB jest męczarnią. tym bardziej w projekcie który ma 5 tys IO i wszystkie inne zmienne....
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
Witam, może ktoś umie robić coś na kształt jeżeli(wyszukaj poziomo(. Ja próbowałem problem z moimi danymi rozwiązać jak poniżej i ale niestety lipa. Pozdrawiam i z góry dziękuję za pomoc. Marcin Dargiewicz [syntax=vb] Sub ProduktyNieaktywne() Dim plik1 As Workbook, plik2 As Workbook Dim i As Long, c As Variant Dim Omega As Long Dim znajdz As Variant...
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
Ostatni wiersz i ostatnią kolumnę trzeba określić osobno dla każdego arkusza źródłowego. Ale można wykorzystać te same zmienne, bo raz użyte dane nie będą już więcej potrzebne. Coś takiego: [syntax=vbscript]Dim Workbook1 As Workbook Dim lRow As Long Dim lCol As Long With Workbook1 With .Sheets("A") lRow = .Cells(Rows.Count, 1).End.(xlUp).Row lCol =...
Wszystko jest w komunikacie... Brakuje przypisania do zmiennej 'grafik', lub arkusz nie istnieje.
IMHO potrzebujesz jedynie przepisywania wartości z komórki do komórki, otoczonego jakimś sensownym "przyspieszaczem działania" odpornym na błędy, np. tak:[syntax=vbscript]Sub Zapis() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wsRaport = Sheets("Raport") Set wsSpr2 = Sheets("Sprawozdanie -2")...
Czyli w przypadku zmiennych również trzeba używać value. Dzięki :) Potrzebuję jeszcze usprawnić mój kod bo część rzeczy zrobiłem na sztywno. Zapisałem do zmiennej funkcję która liczy ilość wypełnionych komórek, później ten zakres chcę skopiować do innego arkusza ale wyskakuje mi błąd przy kopiowaniu zmiennej. Jak mogę wskazać zmienną do skopiowania?...
Ok, dziękuję za objaśnienei! :) A czemu wyrzuca mnie z Excela kiedy odwołuję się do makra Nowy_skoroszyt_1(), które samodzielnie działa poprawnie? Set my = Workbooks("Truck.xls").Sheets("Aero") wyrzuca mi błąd Run-time error "13": Type mismatch :( Błąd typu zmiennych - niezgodność typów. Duże pole do gdybania, bez "materiału porównawczego". Może to...
Tak, nagrałam to makro w tym pliku, w którym mi wywala błąd w kodzie I jak uruchomisz to makro w tym pliku na serwerze to wszystko ok? (to podstaw pod te makro zmienne i zobacz)
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
:) Antoni nie denerwuj się tylko popatrz na własny przykłąd. W której kolumnie arkusza "Roczny" umieścił byś dane wg twojego opisu? Gdyby nie było takiego przypadku można by było uprościć kod a tak trzeba sprawdzić czy się nie mylisz bo będzie wywalać błąd. [syntax=vb]Sub Przenies() Dim x As Integer, nrKol As Integer 'Sprawdzenie za pomocą licz.jeżeli()...
Stostując taki sposób deklaracji zmiennych zmienną wiersz masz zadeklarowaną jako Variant, a zmienną i jako Integer. Do operacji na nieciągłym zakresie możesz użyć [url=http://msdn.microsoft.com/en-us/lib... Union Twój kod można skrócić do poniższej postaci, nie trzeba zaznaczać komórek i przeskakiwać pomiędzy...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Deklarujesz zmienną jako skoroszyt, przypisujesz arkusz. Nie może działać...
Spróbuję. Aktualnie siedzę na telefonie i nie mam możliwości sprawdzenia. Jaki znak zastąpi mi liczbę "562" na jakąkolwiek inną? Trzon "4F" pozostaje. Zmienną jest liczba.
Super, dziękuję. Dodano po 8 Jeszcze jedno pytanko, czy jest możliwość żeby zamiast komunikatu "wybierz zakres", na stałe podać zakres do tworzenia arkuszy (dane w tym zakresie są zmienne, ale zakres z którego mają się tworzyć arkusze jest stały)?
W procedurze "kopiaTerytMapy" przy ustalaniu zmiennej ost1 zmień przypisanie z kolumny A na kolumnę C.
kopiowanie pojedynczych wierszy może być baaaardzo niewydajne. Zastanów się czy nie lepiej posortować tabelę i skopiować tylko wybrany kawałek. Schemat kopiowania pojedynczego kawałka (przykład praktycznie używany, przy pewnych założeniach): Workbooks(S).Activate Range("A2:A" & Range("A2").End(xlDown).Row).Copy ThisWorkbook.Activate Sheets("Arkusz1").Range("A2").PasteSpeci...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
Przykład pętli otwierającej kolejne pliki jest w Dim twb As Workbook, sPath As String, sName As String, dName As String Dim nr As Integer sPath = "c:/katalog/" sName = Dir(sPath & "*.xls") Set twb = ThisWorkbook nr = 1 Do While sName <> "" If sName <> twb.Name Then Workbooks.Open sPath &...
Do komórek kazdego arkusza (ArkuszX) możesz się odwołać poprzez Sheets("ArkuszX").Cells(yy,xx). Dopóki identyfikacja po nazwie lub numerze arkusza ci wystarcza nie musisz go zapamiętywać w zmiennej.
Mógłby ktoś rzucić światło w czym rzecz? Masz w tym kodzie zbyt dużo błędów (literowych, logicznych i konstrukcyjnych) :cry: Proponuję nauczyć się korzystania z Edytora VBA :idea: i przejść to makro w trybie krokowym - obserwując cały czas (w oknie Locals, oraz w otwartych plikach) jakie kod wywołuje zmiany zmiennych, oraz zmiany w arkuszach.
Jak w zakres destynacji wprowadzam np Range("A1", "H1") to kopiuje bez problemu tylko niestety cały czas w te same wiersze, dlatego chciałem aby destynacja zmieniała się za pomocą zmiennej ,,n'' która w konkretnym arkuszu zmienia się w zależności od ilości wierszy jednak niestety wywala błąd Patrząc na plik to błąd nie jest związany z zmienna "n" tylko...
Cześć, serdeczna prośba o wskazówki do makra, które będzie kopiować dane z innego pliku excel. Dane do skopiowania będą znajdować się zawsze w tym samym miejscu w arkuszu (zakres będzie zdefiniowany), ale pliki będą miały zmienne nazwy. Z góry dziękuję za pomoc.
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...
Poprawiony kod, zmienne masz opisane, więc pozostaje przypisać do nich odpowiednie wartości (makro nie sprawdza czy arkusze o zadanych nazwach istnieją w skoroszycie): [syntax=vb]Sub kody_RegEXP() Dim sShSrc$ 'nazwa arkusza źródłowego Dim lRowSrc& 'od którego wiersza sprawdzać dane wejściowe Dim sCol$ 'kolumna z danymi wejściowymi Dim sShDest$ 'nazwa...
Jeśli źle myślę, poprawcie. Pierwsza wartość zmiennej nRow to dolna granica kopiowanego zakresu z arkusza "002" do "CenyEx". Kopiujesz od A2 wklejasz od A1, czyli ta wartość będzie pierwszym wolnym wierszem. Spróbuj With Worksheets("603") nRow1 = .Range("A65536").End&#... .Range("A2:A"...
W Excelu nie ma sensu deklarować obiektu typu "Excel.Application". Wystarczy "Open". Próba nałożenia filtru na jeden wiersz zakończy się błędem, dlatego należałoby określić ostatni w tabeli. Pamiętaj o usuwaniu zmiennych obiektowych z pamięci. Spróbuj[syntax=vb]Private Sub CommandButton1_Click() Dim xl As Workbook Set xl = Workbooks.Open("C:\Documents...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
Hej. Posiadam excela w wersji 2010, mam plik roboczy do którego kopiuje dane każdego dnia z innego pliku excela (codziennie jest on zmieniany i zapisywany z nową data). Dane które kopiuje są zawsze pobierane z tego samego arkusza i tych samych komórek. Czy jest jakaś możliwość by w wersji roboczej excela zapisać ścieżkę dostępową do pliku z którego...
kopiowanie arkuszy kopiowanie arkuszy nazwą kopiowanie kilku arkuszy
zmywarka bezpiecznik wymiana sterowanie mikroprocesorem uncorrectable error
flash grundig mikroskop stereoskopowy
Grzałka 24 Ω wyzwala różnicówkę – upływ prądu, test izolacji, wymiana elementu Zoltrix ZR19 Modem Firmware Upgrade Guide: Models, Steps, and Risks
