Po zakończeniu kopiowania nie jest zwracania na pierwszy arkusz
Witam, A czy konieczne jest do tego makro i kopiowanie za jego pomocą? Nie lepiej utworzyć tyle arkuszy ile jest krajów np. utworzyć jeden wzorcowy i powielić. Dane pobierać poprzez odwoływanie się do arkusza zbiorczego: - funkcje WYSZUKAJ, PODAJ.POZYCJĘ, PRZESUNIĘCIE Albo jeżeli jest to zawsze ten sam układ danych to zrobić odwołania ręcznie, na stałe.
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
Witam. W której części wiersza? makro które kopiuje wybrane wiersze z innego arkusza Jak go zobaczyć?
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Ma ktoś pomysł jak się za to zabrać? Można wykorzystać szablon typu :arrow: [url=https://www.elektroda.pl/rtvforum/v... , a makro wykorzystać jedynie do kopiowania kolejnych arkuszy "miesięcznych" :idea:
Cześć, Chciałbym utworzyć makro które skopiowaloby wybrane arkusze np 4 arkusze o konkretnej nazwie (kopiowanie wartości i formatu z całego arkusza) do nowo utworzonego pliku o określonej ścieżce (this.workbook.path & ”/” ) i o nazwie w komórce C11 z akrusza o nazwie “informacje”. Z góry dzięki za pomoc ! Rafał
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...
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
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...
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
wybaczcie mi literówkę, oczywiści chodziło mi o VBS (Visual Basic). Moje pytanie dotyczy jednego z elementów składowych programu, który w znaczący sposób usprawniłby obsługę całego programu. Nie mam pojęcia jak mogę to zrealizować, wiec będę wdzięczny za jakiekolwiek naprowadzenie mnie. czy w ogóle jest opcja skopiowania arkusza z pliku Excela bez jego...
Witam, A próbowałeś nagrać makro, a potem podpatrzeć kod który się wygenrował (ALT+F11) ? :) Przeniesienie arkuszy do innego pliku masz jak klikniesz na zakładkach (akrusz1 i arkusz2) prawym przyciskiem i wybierzesz przenieś.
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...
Dziękuję za makro działa bardzo dobrze wymaga jednak małej poprawki. Skoroszyt w którym je zamiesciłem oprócz danych odnośnie towaru w poszczególnych sklepach posiada również inne arkusze dotyczące finansów itd. Po kliknięciu w którykolwiek arkusz makro zaczyna szukać odpowiednich danych. Jeśli klikniemy w sklep, nie ma problemu pobierają się dane....
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Widzę dwa rozwiązania: 1. W Excelu przez makro 2. Wrzucić dane do Accessa i zrobić kwerendę w postaci gotowego wyglądu dokumentu.
Moja propozycja wygląda tak - klikasz dowolną komórkę w rzędzie opisującym dane zlecenie, klikasz przycisk. Makro kopiuje wszystkie cztery pozycje z aktualnie wybranego rzędu do arkusza o nazwie formularz w odpowiednie miejsca.
1. Wejść w menu makr 2. Rozpocząć rejestrację 3. Kliknąć prawym klawiszem na zakładce arkusza 4. Wybrać "Przenieś lub kopiuj" 5. Zaznaczyć opcję kopiowania 6. Zakończyć rejestrację makra 7. Zapisać makro.
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...
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.
Run-time error: '1004': Method 'Range' of object 'Global' failed Dodano po 27 Język to VBA nie jestem pewna jaki syntax mam wybrać
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
Bardzo proszę o pomoc. Muszę skopiować około 400 par arkuszy (złożonych z określonych czterech arkuszy) i utworzyć z nich 400 skoroszytów. Do tej pory nagrałem sobie takie Makro i zmodyfikowałem na potrzeby tych 400 par, ale kod makra jest ogromie długi. Chciałem zrobić pętlę, która korzystałaby z nazw arkuszy umieszczonych w słowniku, ale nie potrafię...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
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ć
Witam, Bardzo proszę o pomoc, potrzebuję zrobić makro, które skopiuje z arkusza "wydruk" komórki z kolumny C (numer księgowy) i przeniesie je do arkusza "Zobowiązania" do kolumny F (numer księgowy), ale posegreguje wpisy zgodnie z kolumnami "numer faktury". W obu arkuszach są te same dane w wierszach ale w innej kolejności, w arkuszu wydruk nadawane...
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....
Nie analizowałem całości makra, ale nawiązując do tematu związanego z sortowaniem przy FileDialog.AllowMultiSelect=True, wyglądałoby to tak:[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count Set wkb2...
Dzień dobry, mam taki problem. Zrobiłam w Excelu przycisk, do którego przypisane jest makro kopiujące i wklejające 3 ostatnie wiersze. W jednej kolumnie są scalone 3 wiersze do jednej komórki i jest w niej lista rozwijana. Gdy włączę ochronę arkusza (na wybrane komórki, nie na tę z listą rozwijaną) to ta lista nie kopiuje się do kolejnego wiersza. Kopiuje...
Dziękuję za podpowiedź ale nadal mam problem. Chroniony nie jest cały arkusz tylko sama tabela do której należy skopiować dane i tu pojawia się problem. Próbowałem na kilka sposobów i za każdym razem wyskakuje mi błąd, że podane hasło nie jest prawidłowe. Jakie polecenie należy wpisać aby makro potrafiło odblokować komórki tabelki excela? Dodano po...
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
Nie wiem co dokładnie chcesz osiągnąć ale może wystarczą zwykłe formuły excela. Poniższa np sumuje wszystkie komórki B2 znajdujące się w arkuszach od 1 do 6 (Suma arkuszami wizualnie widzianymi na dole ekranu, czyli jeżeli między arkuszem 1 a 6 będzie jeszcze arkusz o nazwie "jakiś" on też zostanie uwzględniony w sumie.) =SUMA(Arkusz1:Arkusz6!B2)
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
stworzyć X nowych arkuszy - ponad 400? Czy Pan jakoś będzie wybrać? To makro Gielda – pracował? Zmienił dane w arkuszu? Jest to istotne? Po raz pierwszy widzę nawiasy kwadratowe w tym kontekście. Co to jest?
Otwórz plik 'zeszyt1'. Włącz nagrywanie makra. Otwórz plik H:\DANE\Dane.xlsm, wybierz arkusz 'BBB, zaznacz zakres 'A2:F2000'. Naciśnij 'kopiuj'. Otwórz okno pliku 'Zeszyt1'. Kliknij na arkusz 'AAA'. Kliknij w komórkę A2'. Kliknij 'wklej' i zapisz makro, które potem będziesz wykorzystywał.
Witam, Rzeczywiście w Arkusz2 jest szablon(formularz), który ma być wypełniany z wybranego wiersza Arkusza1 i następnie drukowany. Kol. E celowo została pominięta. Dane z tej kolumny (i kilku innych) są kopiowane do innego arkusza, ale do wierszy. Tzn. dane z wybranych kolumn konkretnego wiersza są kopiowane do innego wiersza, tu nie ma problemu bo...
Wszystko gra jeżeli jest stała ilość arkuszy i one co miesiąc są takie same. czy u ciebie jest podobnie? Niestety u mnie miesiąc w miesiąc te arkusze się zmieniają, albo trzeba któreś usunąc albo nowe dodac więc to odpada.. Czyli zostaje makro, a ja z tego jestem kompletnie zielony:) ale dziękuję za pomoc. Będę sobie wklejał ręcznie ;]
prośba o wskazówki Wskazówek do problemu, którego nie opisałeś się nie da dać.;) Wiemy, że masz pobierać dane ze wszystkich plików z wybranego folderu. Nie wiemy, jakie zakresy danych pobierać i gdzie je kopiować. Opisz to proszę. P.S. W załączniku gotowiec do dostosowania dla potrzeb.
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?
Ale po co te .Activate i .Select? Należy tego unikać, bo przy większych zadaniach tylko zabiera czas i powoduje miganie (jak nie wyłączysz ekranu). Zanim uruchomisz swoje wielkie makro, które będzie robiło rzeczy trudne do cofnięcia (kopiowanie), zrób sobie taki jeden drobiazg: utwórz arkusz (albo wybierz jakiś już istniejący) i zrób w nim miejsce na...
Nie wiem, czy mogłoby to ułatwić temat, bo właśnie skończyłem manualne obrabianie tego pliku. I wiem, że dane z poszczególnych wierszy można kopiować np w ten sposób: Dane z pod wierszami A1-G1 do wierszy G2-N2 i da sie kilka takich potrzebnych wierszy wpisać jako stała. Lecz potrzebne byłoby sprawdzenie, czy nazwy danych nie uległy zmianie tzn wiersze...
"Podświetlam" tzn zmieniam kolor czcionki? Nie ma tu nic typu "Selection", natomiast warunkiem jest kolor wypełnienia =Range("L4"). Rozumiem, że makro ma sprawdzać co już jest skopiowane, kopiować tylko wybrane (jak? kolor tła, zaznaczenie) rekordy i zmieniać kolor czcionki na jakiś inny niż poprzednio. Można warunkować kolor na podstawie ostatniego...
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.
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...
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...
Cześć, Jestem tutaj pierwszy raz i będę wdzięczny za pomoc. Mój problem polega na tym, że szukam marka, które zrobi tak: 1. W arkuszu 2 mam komórkę w której będę wpisywał wartość odpowiadającą liczbą w arkuszu 1, kolumna A. Obok komórki będzie przycisk do makra. 2. Po wpisaniu liczby, makro musi pobrać dane odpowiadajace poszczególnym komórką z wiersza...
chciałbym pobierać listę indeksów i nazw z zewnętrznego pliku excela Nie kombinował bym tu zbyt dużo. Kopiuj-Wklej (makrem lub ręcznie) do arkusza pomocniczego i mamy dane w zasięgu. Z zapisywaniem podobnie - nagraj makro kopiowania arkusza do nowego pliku i dostosuj (czyt. posprzątaj po rejestratorze). jak zrobić aby po kliknięciu ok w formularzu...
WItam, mam następujący problem: Otwieram pilk TXT w arkuszu EXCEL potem wyszukuje odpowiedni fragment tekstu w całym arkuszu i kopiuje wybrane dane do innego arkusza. Wszystko fajnie do momentu kiedy szukany atrybut jest możliwy do znalezienia, ale kiedy juz nie istanieje w tekscie, makro sie zatrzymuje i woła błąd 91. Chciałem to zrobic prostym IFem...
Do importu danych które do tej pory obrabialiśmy już dużo wcześniej nagrałem makro i wszystko działa. Dorobiłem do tego przycisk i jest OK. Teraz muszę nagrać kolejne makro, które zaimportuje plik wlasciciel.csv (plik zawsze będzie miał tą sama nazwę). Potem trzeba będzie do tego mara dopisać warunek żeby wykonało się pod warunkiem, że plik istnieje...
mogl by mi ktos pomoc Musisz spróbować zrozumieć jak działa makro - utwórz sobie plik xlsm (z którego będziesz uruchamiał makro) i albo nagraj wszystkie czynności, które chcesz żeby automatycznie były wykonane, albo wnikliwie przeanalizuj krok po kroku (wyobraź sobie, że przed klawiaturą siedzi jakiś lammer i Ty musisz mu dokładnie wytłumaczyć co ma...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
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...
Dopisuję się do pytania :) Dlaczego nie wykorzystać wbudowanych narzędzi Windowsa lub Excela? Np: zaznacz pierwszy arkusz, naciśnij i przytrzymaj klawisz [Schift], zaznacz ostatni, prawym pm w dowolną zakładkę (nazwę) arkusza, z menu wybierz [Kopiuj], w okienku wybierasz nowy lub docelowy plik, zaznaczasz opcję [utwórz kopię], klikasz [OK] i gotowe....
Przeglądałem, ale jakiś czas temu, po rejestracji (kilka miesięcy temu, z tego co pamiętam) :) Korzystam z forum po raz pierwszy. I mocno przeceniłem swoje umiejętności pisania makr w Excelu, a także okazuje się że również definiowania problemów :/ Dodano po 18 zamotałem się trochę :/ mam makro, które po wciśnięciu Przycisku CommandButton dodaje arkusz...
Witam serdecznie Kolegów. Mój problem polega na stworzeniu makra do excela, który kopiuje konkretne komórki do nowego arkusza. Nie są to całe wiersze czy kolumny, ale wybrane według pewnego algorytmu. W pierwszym arkuszu (cennik) znajdują się kolumny: A-nazwa usługi B-cena netto C-ilość szt. z VAT 8% D-ilość szt. z VAT 23% Załóżmy, że w wierszach znajdują...
Potrzebuję pomocy przy stworzeniu makra do kopiowania zakresu komórek z Arkusza1 do Arkusza 2. Wybieram np. komórkę Arkusz1:D7. Makro kopiuje komórki C7, D7,E7,F7,G7 i H7 i wkleja je do Arkusza2(C15, H15). Wybieram drugą komórkę np. Arkusz1:D25 i makro wkleja zaznaczony obszar do Arkusza2 w kolejny wiersz(C16, H16). Makro powinno działać tylko przy...
Witam Proszę o pomoc. Potrzebuję proste makro, które skopiuje określone komórki z wybranego przeze mnie wiersza do innego arkusza. Chciałbym żeby to wyglądało tak: okno dialogowe pyta: "Podaj numer wiersza do skopiowania", podaje np wiersz nr 5 i wtedy komórka np A5 B5 D5 G5 z arkusza1 są kopiowane do komórek odpowiednio A1 A2 A3 A4 arkusza2. Nie znalazłem...
A ja tak do tego posta się dołączę i zapytam o makro co nie zakres komórek ma przenosić tylko wybrane komórki do nowego arkusza i ustawiać je w jednym wierszu. Mam już coś napisane ale nie działa. Proszę o pomoc. Kod makra: Sub zapisdobazy() ' ' zapisdobazy Makro ' Przyjmujący_zamówienie = Range("E6") ID_zamówienia = Range("E7") Sheets("Baza").Select...
Brak odzewu może być spowodowany kiepskim uzasadnieniem sensu wykonywania takiej operacji. Zwykle kontrolki AciveX zaznacza się (w trybie projektowania) trzymając Ctrl, kopiuje (ctrl+c) i wkleja (ctrl+v) w wybrany arkusz, lub kopiuje cały arkusz (ppm). Dlaczego chcesz to zautomatyzować? Ile takich operacji wykonujesz? Czy oprócz przycisków w arkuszu...
Witam! temat wałkowany po tysiąckroć ale cóż począć skoro im więcej czytam tym mniej rozumiem. Proszę więc o idiotoodporną podpowiedź jak skonstruować makro przenoszące wiersz zawierający 17 wartości (17 kolumn) do nowego arkusza w tym samym układzie wg kryterium z kolumny A, wybieranego z listy rozwijanej ( pusta i dwie pozycje tekstowe). Warunkiem...
1. Następnym razem rozpocznij nowy wątek. 2. jak już makro zadziała, to dane się kopiują Jakim cudem? Kolejność działań: 1. Open (po otwarciu skoroszyt jest aktywny) 2. Wybranie arkusza - Sheets().Select 3. Kopiowanie - Range().Copy 4. Wybranie skoroszytu docelowego - Workbooks().Activate 5. Wybór arkusza docelowego - Sheets().Select 6. Wybór lewej,...
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...
W tym temacie mogę Ci podpowiedzieć że można tu użyć filtru zaawansowanego. I w tym kierunku szukaj odpowiedzi. Podpowiem że o ile ręcznie filtru zaawansowanego można użyć tylko w jednym arkuszu to jeżeli go oprogramujesz w VBA to można kopiować wybrane dane do innych arkuszy a nawet pomiędzy plikami. Temat jest szeroki ale jak byś przygotował przykładowy...
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...
Przenosić wartości komórek z wybranego pliku w zdefiniowane wcześniej komórki w pliku z aktywowanym makrem :) Przykład: Z pliku o nazwie 1234.xlsx (plik chce dowolnie wybrać Application.GetOpenFileName) przenieść wartość komórek "b2, b82, c41, e75" itd. do pliku 4321.xlsxm w którym aktywowałem makro do komórek o tym samym położeniu "b2, b82, c41, e75"....
Cześć, Jestem początkującą osobą w kwestii VBA, więc mam nadzieję, że dobrze trafiłem i mogę liczyć na waszą pomoc, ponieważ chciałbym rozwinąć swoje umiejętności w manualnym tworzeniu makr niż nagrywaniu. Sytuacja jest następująca: Mam dwa arkusze, z czego do jednego codziennie przeklejam dane, które otrzymuje e-mailem - arkusz1 (zawsze w takiej samej...
Cześć, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
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...
Wcześniej zapomniałem dopisać, ale fajnie by było, gdyby w arkuszu Arkusz3 np. w komórce P2 była by zapisywana każda analiza w postaci listy rozwijanej oznaczonej datą i godziną analizy, np. jeśli dziś o 09:00 robię pierwszą analizę, to wynik tej analizy z Arkusz3 jest zapisywana w postaci 2017-01-02 09:00 kolejna analiza zrobiona następnego dnia o...
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...
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"...
Cześć mam taki problem, mianowicie chodzi oto żeby poprawić makro tak żeby przed wklejeniem danych zapytało " do którego arkusza z kopiować dane?" i wybór np. pięciu arkuszy " arkusz1 arkusz2 arkusz3 arkusz4 arkusz5", i po wybraniu któregoś arkusza tak skopiuje te dane, taki msgebox z wyborem arkuszy. ZAMIAST SHEETS1 ŻEBY TU TE OKIENKO WYSKOCZYŁO Z...
Witam! Mam mały problem z makrem,mianowicie: Makro,które zapisane jest w programie działa tak: -Z arkusza1 wypisuje słowa kluczowe, następnie przechodzi do arkusza2,wyszukuje słowa kluczowe i na koniec wkleja je do arkusza1. Problem: -Makro kopiuje pierwsze napotkane słowo kluczowe i wkleja je do arkusza1,a chciałbym,żeby kopiowało mi wszystkie odnalezione...
Witaj. Bez względu na to, co potem już liczbą będzie tekstem(1,5s)? Makro należy znać nazwy arkuszy i werszy-kolumny źródłowe i docelowy. w przeciwnym razie sam cos takiego: [syntax=vb] For r=pierwszWersz To OstatWersz If Cells(r,2) >1500 then ' Tu kopiowanie, dzieląc wartość przez 1000, a przypisanie s. End If Next [/syntax]
Błąd wynika z faktu, iż nie ma zaczytanych danych bo miały zły format (myślałem, że to nieistotne skoro ma być kopiowane to co tam jest) ale moja wiedza z Excela nie jest wybitna. Mam już sformatowane dane i warunki wykluczające chyba wszelkie możliwości wystąpienia braków w danych. Arkusz może się powiększać w zakresie ilości linii - jest zaczytywany...
Dzień dobry, Mam plik Excela w którym każdy z arkuszy zawiera podobną tabelę. Szukając na forum znalazłem makro kopiujące wybrany arkusz wzorcowy i zmieniające jego nazwę na kolejną o 1 wyższą. W tym przypadku wygląda to tak: [syntax=vbscript]Sub AddRecipe() Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Sheets("P000").Copy...
Dzień dobry, Do czego tu jest potrzebne makro? Jak miałby wyglądać zakres po skopiowaniu? Czy chodzi o to, aby pominąć komórki zawierające 0, ewentualnie liczby ujemne, chociaż w przykładzie ich nie ma? Czy taka tabelka jak w przykładzie byłaby jedna, czy byłoby ich kilka? Czy zawsze w tym samym miejscu, czy w różnych miejscach? Czy oprócz takiej tabelki...
Witam! Potrzebuję pomocy przy kopiowaniu danych wyfiltrowanych. A dokładnie jest tak: jest tabela z danymi, z autofiltrem. Po zastosowaniu filtra (wybraniu kilku kryteriów w kilku kolumnach) mam widoczne np. 10 wierszy. Jak w automatyczny sposób skopiować te wyfiltrowane 10 wierszy do innego arkusza? Chodzi mi oczywiście o to, żeby nie robić tego tak,...
Witam Prośba o pomoc jaki będzie kod makra żeby po naciśnieciu przycisku zapisz zapisywało zaznaczony obszar na szaro kopiowało jakby do nowego arkusza i zapisywało (wyskakuje okienko zapisz jako) do wybranego folderu(może być w pamieci folder) oraz nazwę brało z komórki A1 Plik w załaczniku Z góry dziękuję za odpwiedzi
Nie mogę jeszcze porównać szybkości, ale wcześniejsze makro które działało na podobnej zasadzie z tym, że wplecione w nim było bardzo dużo działań na arkuszach, w sensie kopiowania wartości komórek z jednego arkusza, wklejanie do innego, sprawdzanie czy pasuje i tak w koło, co podobno brało bardzo dużo mocy obliczeniowej, było w stanie przerobić około...
Potrzebuję makro , które zaoszczędziło by mi wiele czasu na wypełnianiu wielu dokumentów :?: :?: :?: Dla takiego wypełniania druczków (zapewne w celu ich wydruku ?) wystarczy inteligentne przygotowanie pliku DZS :D , a właściwie jednego arkusza - szablonu do wydruku :please: , który będzie się automatycznie wypełniał na wybrany zakres 4 dni :idea:...
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ć...
Witam, czy możecie podpowiedzieć mi czy jest jakaś formuła w excelu lub makro (vba) aby wykonać poniższą czynność? Sorki, za ewentualny złe zaadresowanie mojego pytania, ale nigdzie w sieci nie wyszukałem pomocy i zalogowałem się tutaj z pomocą o wsparcie. Jestem samoukiem i zabrakło wskazówek w sieci :) Opis mojego przypadku 1. Zrzucam dane ( różnych...
Hej, Bardzo dziękuję za szybką reakcję! Jednak nowe makro za każdym razem zwraca info 'brak ulicy XXX' nawet jeśli wpisuję całą nazwę dokładnie tak, jak jest w Arkuszu "Baza". Nie mam pojęcia o VBA i nie umiem również zmienić kodu tak, żeby wyszukiwał również po fragmencie nazwy, np. 'bieża' dla 'Bieżanowska 78C', a w przypadku 2 lub więcej rekordów...
dziękuje za wszystkie wskazówki. Wszystkie dodałam do makro. jednak nadal ni działa tak jak powinno . Podczas tworzenia arkuszy z wybranymi po nazwie z kolumny a w arkuszu 1 nazwie pojawia się komunikat ze : RUN - TIME ERROR '1004' Nie można nadać arkuszowi nazwy, którą posiada już inny arkusz (chodź takich arkuszy nie ma, bo co prawda nazwy w Kolumnie...
Całość wygląda tak: W Wordzie mam duży tekst (ponad 1000 stron), z wieloma rozdziałami (ponad 300). Z każdego rozdziału muszę wybrać teksty "zielone", pozbyć się niepotrzebnych znaków, sprawdzić i poprawić ewentualne błędy (dla bezpieczeństwa dotychczas kopiowałem rozdział do osobnego pliku), i w kolejności występowania przenieść do konkretnej komórki...
Witam, Mam bazę danych, w osobnym arkuszu utworzyłam sobie listę w której mogę wybrać nr klienta (nr klienta jest czasami z jakimś tekstem lub z jakimiś dodatkowymi liczbami ale mam go traktować jako jeden klient). Udalo mi się napisać proste makro (jestem poczatkujaca) które z wyfiltrowanej listy kopiuje te nr do osobnego arkusza, sortuje tam te dane,...
Macie jakiś pomysł, aby po kliknieciu w przycisk otwierało nowe okno do kontretnego katalogu i mógłbym wybrać odpowiedni plik, z którego skopiowałoby odpowiednie komórki do mojego arkusza ? Przykład W arkuszu Arkusz1 przycisk POBIERZ powinien pobierać dane z pliku z lokalizacji np. H:\CCC\ccc\ (jest w nim kilkanaście plików excel wiernej kopii arkusza...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Dzięki za odpowiedź ,ale podaj mi więcej wskazówek co mam z tym zrobić bo nie bardzo rozumiem jaki mam wybrać tok postepowania . Zwróciłem uwagę na to , że gdy najadę kursorem na jakąkolwiek komórkę i wybieram 'wiersz" to zawsze kursor ląduje na komórce wiersz N1 . Plik waży trochę więcej niż ten który załączyłem czy zaszyte jest w nim jakieś makro...
Witam, Nie mam pojęcia jak się do tego tematu zabrać. Mam pole kombi (1,2,3). Po wybraniu 1 powinien otwierać się inny plik do którego kopiowane byłyby dane z niektórych komórek arkusza z polem kombi. Po wybraniu 2 chciałbym automatycznie wysłać email na ściśle określony adres z wartością komórki z bieżącego arkusza w temacie i treścią wiadomości z...
Czyli dzielimy arkusz na 3 cześci 1. Zlecenie - wybrane komórki kopiują się do karty pracownika (Nr. Zlecenia,Data przyjęcia,Zlecenie,Dział,Osoba zlecającaUWAGI + 2 ukryte - chyba że będzie możliwość dodania kolumn, jeśli nie kopiują się do pracowników i je ukryjemy) 3. Grupa interwencyjna - zawiera możliwośc wyboru max 5 pracowników do jednej czynności...
kopiowanie wybranych arkuszy kopiowanie wybranych wierszy arkuszy makro kopiowanie arkuszy
laguna zaprogramować dorabianie pasków filtr piaskowania
teoria obwodów hulajnoga elektryczna scooter
Lokalizacja zaworu TCC w Audi A6 C5 1.9 TDI 1997 Klosz lampy tylnej Seat Leon 2: Wymiana i rodzaje