Sheets("DATA ENTRY " & s)
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ą?
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...
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...
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...
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ć.
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...
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....
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?
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...
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")...
Wszystko jest w komunikacie... Brakuje przypisania do zmiennej 'grafik', lub arkusz nie istnieje.
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)
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?...
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...
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...
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ść...
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ć...
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...
Deklarujesz zmienną jako skoroszyt, przypisujesz arkusz. Nie może działać...
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...
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)?
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.
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....
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")...
W procedurze "kopiaTerytMapy" przy ustalaniu zmiennej ost1 zmień przypisanie z kolumny A na kolumnę C.
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...
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.
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ć...
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.
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.
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"...
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...
Podaj więcej szczegółów: Czy działasz na otwartym już pliku, czy makro ma je najpierw otworzyć? Ile plików znajduje się w lokalizacji? Co kryje się za: "plik formatka będzie zmieniał zawartość"? Czy będzie zmieniał się również układ danych w arkuszu, nazwa arkusza, ilość i kolejność arkuszy w pliku źródłowym?
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.
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...
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...
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...
Pytałem o kopiowanie wierszy -jednak do mojego programu potrzebne jest "przestawienie" wiersza na inną linię. Pokrótce omówię dołączony kawałek programu. Chciałbym aby faktury mogły być wpisywane do książki w dowolnej kolejności , a program ustawiał je w/g dat. Program już kontroluje i nie przyjmie faktury z innego kwartału, jedynie w danym kwartale...
Pomóc w czym, bo jeszcze nic nie napisałeś? Zacznij od Np przypisania nazwy arkusza źródłowego do zmiennej systemowej i otwarcia go. Przykładów pętli wyszukujących z porównaniem, kopiowaniem, etc jest na forum sporo. Użyj wyszukiwarki.
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 =...
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
Przepraszam że się wtrącę, ale po co ci zmienna "nw" i co ona właściwie powinna obliczać/wykazywać? nw = b.Cells(3, 10).End(xlUp).Row + 1 Ma znaleźć ostatni z trzech pierwszych wierszy 10 kolumny i dodać 1? A błąd polega (wg mnie) na tym że do zmiennej b przyporządkowałaś skoroszyt. a powinien być arkusz otwartego skoroszytu
1. Czy tabelka w arkuszu źródłowym może zostać "tymczasowo" posortowana według kolumny "B", czy jest to niewskazane ? Po zakończeniu kopiowania tabelka byłaby "przywracana do stanu pierwotnego". 2. Co w sytuacji, kiedy w tabeli źródłowej pojawią się nowe wpisy i czy w ogóle mogą się pojawić ? Wtedy trzeba by zrobić jeszcze jakąś weryfikację, czy to...
wow marek003 wielkie dzięki, może i proste makro - ale dla mnie wielkie :) Mam jeszcze inny problem - czy ktoś potrafi to przerobić aby działało również na openoffice. Wyskakuje błąd: Błąd Uruchomieniowy Języka Basic. Nie ustawiono zmiennej obiektu. i zatrzymuje się na Cells.Select. Dzieki
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...
Ogarnęłam wystarczyło zdefiniować zmienną i dodać ją do wybieranych arkuszy Dodano po 8 Dzięki wielkie za pomoc Kutool posegregowalam sobie arkusze zgodnie alfabetycznie, w power query zrobiłam spis arkuszy, a potem tak jak wspomniałeś nr karty jako zmienną Na przyszłość muszę pomyśleć jak to w całości zautomatyzować
Jaka jest kolejność działań? Zakładam że: 1. dostajesz raport w innym pliku. 2. kopiujesz arkusz do pliku roboczego i nadajesz mu stałą nazwę . Np "TEMP". 3. Uruchamiasz makro. Tu pod zmienną w linii 3 makra FILTRUJ1 NAD_OK = "Jakaś nazwa nadawcy" należy podstawić wartość wybraną z pola listy lub kombo. Tak?
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...
Dane z niepustych komórek kolumny D w arkuszu 'WROWADZANIE...' mają być kopiowane do odpowiednich wierszy w arkuszu '2020'. Dokładny sposób opisałam właśnie zmiennymi, bo inaczej trudno mi to wyjaśnić. Np. D7 (arkusz 2)- kolumna J (arkusz 1) D8 (arkusz 2)- kolumna L (arkusz 1) D9 (arkusz 2)- kolumna N (arkusz 1) ... To w którym wierszu ma być wpisane...
:) 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()...
Ćwiczyłem na tym Twoim skoroszycie i makro działało na wszystkich arkuszach. Uruchamiałem je z arkusza RAPORT i znajdował ulice w innych arkuszach, ale należałoby zamiast lWiersz dołożyć dodatkową zmienną sterującą pozycją wiersza w arkuszu RAPORT, bo wynik będzie rozstrzelony po wielu wierszach. Ale chyba sobie z tym poradzisz. Dzięki za punkty!
Przydałoby się zoptymalizować/ujednolicić dane. Ale skoro jest jak jest, to zrobiłem jak w załączniku. Przeanalizuj, dostosuj, uzupełnij. Jeśli pliki są w różnych lokalizacjach, zdefiniuj prawidłową (przypisanie zmiennej 'wPath') W zasadzie powinno działać z pozostałymi, trzeba będzie tylko zmienić argument w procedurze każdego arkusza...
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 &...
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 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?
Niestety nie mogę wrzucić tutaj pliku. Jako N miałem na myśli liczby zawsze powiększone o +1 np. A2 potem A3 itd. Znalazłem rozwiązanie które powinno mi pomóc. Mianowicie jest to pętla, której niestety po wielu próbach nie potrafię wykonać. Więc na ten moment moje makro jest "ręcznym" odpowiednikiem pętli czyli wszystko napisane krok po kroku a chciałbym...
W dalszym ciągu nie jest do końca czytelne, bo nie widzę jeszcze powodu, by nie można było zastosować zwykłego kopiowania. Ale zakładając, że droga od danej do wyniku jest wieloetapowa i nie da się jej zapisać w jednej linijce arkusza, to istnieje jeszcze procedura, zwana Tabela danych , która działa właśnie w ten sposób, że podstawia kolejne wartości...
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...
Fakt, słabo to widać. :) Jak się zatrzyma to: 1. Popatrz na jakiej instrukcji stoi i pomyśl co może tam być źle, 2. Możesz sprawdzić wartości wszystkich zmiennych, które tam występują, w tym przypadku zwróć uwagę na rozszerzenie pliku, bo to do niego się przyczepił, 3. Jeżeli wszystko wygląda ok, to sprawdź jeszcze (w dokumentacji) czy wybrany format...
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...
To po kolei małymi kroczkami. Gdzie jest ten drugi plik? Potrafisz go otworzyć? Jak już otworzysz to zrób pętlę po wierszach i wyszukuj w niej po kolei liczby w drugim pliku. Przyda się zmienna (lub dwie) typu Range. Jeżeli znajdziesz to zapisz kopiowanie odpowiedniego kawałka. Uruchamiaj powoli, sprawdzając wszystko czy działa jak chcesz. Wykorzystuj...
Ten kod jest niejasny. Mylisz pojęcia skoroszyt (Workbook) i arkusz (Worksheet). Skoroszyt może zawierać kilka arkuszy. Taki fragment jest błędny. [syntax=vbscript]Dim Formualarz As String Dim Rejestr As String ThisWorkbook.ActiveSheet = Formularz Workbooks.Open Rejestr Workbooks(Formularz).Activate Workbooks(Rejestr).Activate [/syntax]Co dokładnie...
W każdym wierszu, mogą się powtarzać. Docelowo będzie w folderze 30-31 plików i z każdego ma pobrać mi dane do jednego arkusza i to na chwilę obecną robi, ale ma dodać do arkusza w którym bedą wszystkie dane dwie kolumny do których będzie pobierać z nazw plików daty i numer. Czy w Twojej propozycji w zmiennej S mogę wrzucić scieżkę do folderu aby otwierał...
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...
Założenie było takie, żeby kopiował wszystkie wiersze w których w kolumnie F była wartość "tak" ale w takiej formie kopiuje wszystko niezależnie od "<>". Założenie było w miarę dobre. Z realizacją trochę gorzej. Makro działa tak jak je napisałeś tj. porównuje wartość komórki F1 z wartością zmiennej nazwanej przez Ciebie nie . Jeżeli chcesz aby...
Witam. Panowie mam takie makro jak niżej, które chciałbym aby od aktywnej komórki zaznaczyło 3 komórki w dół i skopiowało wartość aktywnej komórki również do tych 3 komórek poniżej - to tak najprościej opisane. To tak w skrócie, bo ilość komórek zaznaczanych w dół mam zmienną, bo zależy od "NrRow" który jest ilością pełnych komórek w innym arkuszu....
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...
Dobry wieczór, Formuły otoczone nawiasami klamrowymi są to formuły tablicowe. Formuły te działają w inny sposób niż formuły zwykłe. Zatwierdza się je nie samym Enter, lecz kombinacją Ctrl+Shift+Enter. Komórki z tymi formułami można kopiować w całości w zwykły sposób, natomiast gdy poddaje się je edycji trzeba na końcu użyć Ctrl+Shift+Enter. Formuła...
Witam, jak w większość w dziale stawiam swoje pierwsze kroki z tworzeniem makr (a w sumie to z ich nagrywaniem). Mam plik z dwoma arkuszami, w pierwszym arkuszu wybieram z listy rozwijanej jeden z trzech rodzajów zapalników (komórka E3) a następnie wpisuje ich liczbę do komórki H3. Chciałbym aby makro kopiowało wartość z komórki H3 do odpowiedniej kolumny...
Jak zrobić kopiowanie danych z pliku X do pliku Y Excela za pośrednictwem przycisku w pliku pomocniczym Z Excela Czyli np. X(B5) do Y(C6) ; X(D7) do Y(H5) itd w sumie kilka komórek do skopiowania. Dane kopiowanych komórek zawsze będą takie same. Pliki X i Y mogą być otwarte ale idealnie byłoby jakby z poziomu arkusza w pliku Y można było wybrać (wskazać)...
Masz mylące nazewnictwo - workbook to cały obiekt Excela. To, co przypisujesz, to zakresy (Range) - i jako takie mógłbyś je ewentualnie zadeklarować (zmiennych typu Object nie ma specjalnego sensu deklarować - to jest typ ogólny, wszystko może być Object, to żadna dodatkowa informacja). Skoro masz określone przedziały, to najprościej będzie skopiować...
1. W zmiennej MyPath brakuje kocowego slash'a. 2. Jeśli wszystkie arkusze, to pętla For Each arkusz w otwieranym pliku. 3. Dla zakresów docelowych musisz utworzyć licznik wierszy (inkrementacja wewnątrz pętli) Zamiast kopiować całe zakresy przez Select-Copy_Paste i wyrzucać puste w kolejnej pętli, czy nie lepiej kopiować tylko niepuste wiersze/kolumny...
Co do tego kopiowania to mimo wszystko nie kumam o co chodzi. Wrzuć jakiś przykładowy arkusz i opisz na konkretnych komórkach co chcesz osiągnąć. Będzie łatwiej pojąć. Sprawa druga to nic prostszego jak zdefiniowanie dla poszczególnych komórek nazwy i używania jej jako zmiennej.
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 ;-)
Potrzebuję pomocy odnośnie kopiowania kolumn za pomocą makra. Wg mojego doświadczenia tworzenie rozbudowanych projektów kalkulacyjnych ze wsparciem makrami VBA - jest bardzo ryzykowne zwłaszcza do zastosowań komercyjnych :cry: Nikt oprócz Ciebie nie zna specyfiki przetwarzania Twoich danych i nikt nie jest w stanie stworzyć kodu uniwersalnego. Musisz...
Najpierw napisałeś po wpisaniu numeru tygodnia , później Numer tygodnia będzie kopiowany z innego arkusza , więc zrozumiałem, że będzie następować zmiana w komórce A3, dlatego zaproponowałem użycie zdarzenia Change do wywołania makra. Teraz okazuje się, że w A3 jest formuła, więc zdarzenie Change w tej komórce nie występuje. Trzeba podawać precyzyjne...
Zgadza się chciałbym kopiować z arkuszy o identycznym nazewnictwie (-4) i skonsolidować zakresy znajdujące się w tych arkuszach do jednego podumowującego arkusza w nowym skoroszycie. Zakres danych zaczyna się w tym samym miejscu, jednak w zależności od arkusza ma zmienną ilość wierszy Przykładowy plik o identycznej strukturze zamieszczam poniżej. Na...
Witam serdecznie Buduje makro (pisze to za duże słowo) które ma pomoc przy generowaniu co-tygodniowego raportu. Dane wpisywane są kolejno w wierszach wraz z data i godzina (format: dd/mm/rrrr gg/mm/ss) w kolumnie C Szukam rozwiązania które przefiltruje zawratość kolumny C pozostawiajać tylko wiersze zapisane w określonym czasie Daty graniczne są wprowadzane...
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 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...
Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
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...
Witam, Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
Jak taka pętla miała by wyglądać? Ano masz Array. Podstaw do zmiennej i... jazda. Wypróbuj takie coś [syntax=vb]Dim arkusze As Variant, zakresy As Variant arkusze = Array("Machine", "PR", "Price", "Dane", "KWS DANE", "DODATKI") zakresy = Array("AI1:BA1", "S1:AL1000", "F1:AD1000") Sheets(arkusze).Copy 'kopiowanie arkuszy do czystego pliku For i = 0...
Dopisać zmienną, odszukać ostatni wiersz w arkuszu wsWyn, przypisać do zmiennej (podobnie jak robiłeś z 'FinalRow') i w pętli zamiast "i" używać tej zmiennej wsWyn.Cells( i , kol1) = wsSrc.Cells(i, kol) zwiększając jej wartość przy każdym przebiegu (zmienna=zmienna+1)
Gdybym wiedział jak to z chęcią bym to zrobił heh. Do tej pory znalazłem tylko makro, które przy zmiennej ilości plików tekstowych wrzuca wszystkie do osobnego arkusza. Nie potrafię niestety ich w tamtym edytować, więc próbuję to robić krok po kroku - dane do osobnego arkusza, edycja ich do przystępnego poziomu, no i teraz próba wrzucenia ich do odpowiedniego...
Do pliku "Base" w arkuszu "arkusz1" chce pobrać dane z innego pliku xlsb o nazwie "Date" do tego celu użyłem zmiennej; [syntax=vbnet]Dim src As Workbook Dim plik As String plik = Application.GetOpenFilename("Skoroszyt(*... Set src = Workbooks.Open(plik)[/syntax] 'następnie I tutaj ponieważ ilość pobieranych danych nie jest stała chce zaznaczać...
Po Bożemu powinniśmy zastosować pętlę, ale w przykładzie trzymam się pierwotnych założeń. Jeśli nagłówki są stałe, to można zastosować wyszukiwanie i przypisać zmiennym Nr kolumny odszukanego stringu. Cała sprawa bierze w łeb, jeśli nagłówki nie będą unikatowe. Zwróć uwagę na różnicę w sposobie wpisywania formuły do komórki. Składnia: "FormulaR1C1"...
Przy tablicach nie używa się select. A co chcesz potem robić z tą tablicą? Zawsze możesz odwoływać się do komórek arkusza jak do tablicy: For i = 1 To 5 for j = 1 to 5 MsgBox i & ", " & j & " = " & Worksheets("Arkusz1").... j) next j Next i Ewentualnie możesz zapisać dane do zmiennej typu RANGE, do...
Próbuje napisać makro, ale z uwagi na brak wiedzy odnośnie najprostszych poleceń nie umiem sobie poradzić. Wydaje się, że makro jest dosyć proste. Mianowicie: 1.Istnieje ciąg wyrazów w arkuszu A (CEL) 2.Po tych wyrazach przeszukuje arkusz B (BAZA) 3.Gdy znajduje to kopiuje wartość stojącą przy wyrazie w arkuszu B. 4.Wstawia ten skopiowany wyraz w kolumnie...
To wpisz najpierw do zmiennej. Jak nie zadziała to zamień na: "Sheet2!A" + Str(NumerWiersza1) Ale nie sądzę abyś miał tak starą wersje, ba na pewno nie bo w tamtej nie było jeszcze hyperlinków. Może lepiej pokaż co nabroiłeś.
W każdym arkuszu mam tylko tyle linii, ile rzeczywiście zostało zakupionych, czyli rzeczy które są zakupione np w styczniu nie są kupione np. w grudniu i ilość wierszy (czyli zakupionych towarów) jest wielkością zmienną.
Witam, Mam pytanie odnośnie przechowywania adresu komórki w zmiennej, tak aby do niej powórcić i ją uaktywanić. Ogólnie będę musiał kopiować zawartość z jednego arkusza i jednej konkretnej komórki której adres będę musiał zapisać wraz z Sheetem a potem wklejać w inną wcześniej zapamiętaną komórkę w innym Sheet'cie. Adresy przypisuję w ten sposób: zmienna1...
dobra udało mi sie to rozwiązać poprzez dodanie ActiveWorkbook.Sheets("Arkusz1").Activat... Ale mam inny problem. Jak juz mi znajdzie wartości spełniające warunek większe od 3000 i skopiuje mi te wiersze do Arkusza2 to chciałbym aby te wiersze które sa w tym arkuszu (a zakres tych wierszy jest zmienny i zawiera sie w kolumnach A:B) skopiował do innego...
Witam, Nie mogę sobie poradzić z problematycznie nazwanym arkuszem. Otóż wyciągam dane z pliku A i kopiuje je do pliku B. Problem polega na tym, że jeden z arkuszy ma nazwę z literą "è" a muszę wykorzystać przypisanie: set ab = b.sheets(xxx) - i tu w miejscu xxx powinna być nazwa tego arkusza. w VBA nie mogę wpisać tego znaku, bo wyskakuje "?"....
Witam, Mam następujący problem. Mam arkusz o zmiennej ilości wierszy. Wypełnione kolumny zawsze od A do J. W kolumnie A występują kody, kody mogą się powtarzać- dla ułatwienia jeśli się powtarzają są jedne pod drugim ale nie ma stałej określonej liczby powtórzeń. Chodzi mi o to by makro sprawdzało kod w kolumnie A - unikat kopiujemy do Arkusza 2 z wartościami...
Nazwa pliku tekstowego przypisywana jest do zmiennej 'sName'. W następnej linii zastosuj wstawianie arkusza i nadanie nazwy. Np[syntax=vb]Worksheets.Add(After:=Sheet... = Left(sName, Len(sName) - 4) 'ucinam 4 znaki z prawej[/syntax]Powtórz przy następnym, wewnątrz pętli.
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
kopiowanie arkuszy kopiowanie arkuszy nazwą kopiowanie kilku arkuszy
zamek reset oscyloskop karty dźwiękowej centralka alarm mercedes
siemens kostkarka siemens kostkarka
Fiat Grande Punto 2009 - Radio nie wczytuje AUX Wejście AUX w Fiat Grande Punto 2009 - lokalizacja i alternatywy