Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Dobry wieczór, Nie znam się na SolidWorks, ale w kodzie VBA widzę przynajmniej dwa błędy: pierwszy w połączeniu Range("Q5...BJ5").Selection.Copy Powinno być rozbite na dwie instrukcje Range("Q5...BJ5").Select Selection.Copy Można też pominąć selekcję i pozostawić tylko: Range("Q5...BJ5").Copy Drugi błąd: Active.Worksheet.Paste Po pierwsze ta instrukcja...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
Jeśli makro, następnie tak
Witam. Właśnie poszukiwane z mojej strony.Visual Basic- Excel. - Jeżeli Ktoś z kolegów zna dobrą pozycję książkową Visual Basic z wiązaną z Excelem to bardzo proszę o tytuły. Będę wdzięczny.
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
sprawdź załącznik
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
Chce mieć to makro w drugim pliku do którego będa dane kopiowane i pod przycisk makro przypisane
Jeśli dobrze rozumiem wystarczy przesunąć zakresy. Przykład w załączniku.
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Rozumiem, że chcesz przepisać tabelkę do nowego zakresu. Wpisz w Google "sortowanie bąbelkowe". Może nie najszybsze w działaniu, za to dość prosty algorytm. Warunek: reszta z dzielenia przez 2 równa zero załatwi sprawę parzystych, różna od zera nieparzystych. Jeśli coś mniej ambitnego, to nagraj makro kopiowania zakresu i sortowania (tego skopiowanego)....
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Dobry wieczór, Nie bardzo rozumiem, co to znaczy "inne rozwiązanie"? Co miałoby być inne? Jeśli chodzi o formułę, to może być inna. Generalnie tego typu zadania można rozwiązywać formułami z funkcją INDEKS lub funkcją PRZESUNIĘCIE. Przykład innej formuły dodałem w nowym załączniku. Można to też rozwiązać w VBA pisząc makro obsługujące zdarzenie Change...
Witam potrzebuję pomocy z vba otóż chciałbym żeby stworzyć makro które kopiuje i wkleja wartości(bez formatów jest taka opcja w excelu wklej wartości) ale żeby to makro przeszukało mi pewien zakres np g2 do h30 i jeżeli w np w g15 = "" lub w innej komórce albo w h 23 = "" itd. Wtedy kopiowało mi cały ten wiersz np a5 do h5 i wklejało np od l1 do s1...
Witam, dzieki bystrosci uzytkownika PRL mam makro ktore kopiuje dane z zakladek. Chcialbym jednak ograniczyc zakres kopiowanie i nie kopiowac wierszy pustych. Czy tos mi pomoze? Dziekuje[/table]
Witam W kolumnach A oraz E znajdują sie formuły. w kolumnach B C D -> dane, które zmieniają się w zależności od raportu, który się wygeneruje. Chodzi o to by po wygenerowaniu raportu makro brało formułę z komórki A2 i do kopiowało do końca. i analogicznie z formułą w kolumnie E komórka E2. Teraz pomyślałem, że "formuła" mogła by być zaszyta w makro...
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
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,...
przeinstalowanie Office`a względnie samego Excel`a.
żeby makro kopiowało też nagłówki Wystarczy w Menedżerze nazw zmienić zakres Baza na "=Arkusz1!$A$1:$N$17", aby uzyskać pożądany efekt :spoko: 1149355
Hej, Jestem zielona jeśli chodzi o makra. Moja dotychczasowa kariera to jedynie ich nagrywanie ;) Od dwóch dni czytam tematy na forum z wypiekami na twarzy! Próbuję pilnie stworzyć makro choć niestety bez skutecznie, czuję się jak dziecko, które próbuje ogarnąć całki a nie umie dodawać ;( Chciałabym za pomocą makra ściągać informacje [do arkusza "AA"...
Albo zamień na 6 kopiowań, czyli każdy zakres osobno. Albo zarejestruj sobie makro: zapisz jako ... następnie wyczyść zbędne.
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Cholera mnie już bierze. Nagrałem prosciutkie makro kopiujące komórki z jednego zakresu do schowka: Sub kopiuj() ' ' kopiuj Makro ' Makro zarejestrowane 2011-05-18, autor MG9754 ' ' Sheets("Obliczenia").Select Range("A3:A506").Select Selection.Copy Sheets("Wynik").Select End Sub I jak wrzucam makro pod przycisk (Private Sub CommandButton1_Click() )...
Scalone komorki w zakresie kopiowania?
Wklejać danę będe do innego skoroszytu . To dlatego brakowało tego arkusza "Dane" w Twoim pliku :?: :D Jeśli tak nieprecyzjnie wszystko opisujesz to wprowadzasz w błąd wszystkich, którzy Ci pomagają :cry: Makro kolegi PRL będzie Ci kopiowało określony zakres danych tylko do arkusza Dane w tym samym skoroszycie :!:
Witam, Chciałbym stworzyć makro które kopiuje określony zakres komórek z jednego pliku excel do drugiego. Problem jest w tym, że nazwy tych plików będą różne. Jest możliwość aby makro kopiowało komórki z pliku o określonej nazwie, a ja nazwę tego pliku wpiszę np. w komórkę "a1" Czyli w komórce "a1" mam nazwę jednego pliku, a w komórce "b1" mam nazwę...
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...
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Napisałam proste makro kopiujące zakres komórek z aktywnego arkusza do archiwum. Chciałabym, aby tabela z aktywnego arkusza po zapisaniu do archiwum automatycznie "się wyczyściła". Dodatkowym problemem jest również makro działające w arkuszu "BAZA" - zaznaczam tu dowolne pozycje w kolumnie K poprzez dwukrotne kliknięcie myszy, po czym wybieram przyciskiem...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
1. Napisać makro. 2. Kopiowanie wartości: Ctrl+c Ctrl+Alt+v opcja>wartości 3. Odwołanie: = > klik w scalony zakres > Enter
Dane zawarte w kolumnie C nie mają związku z danymi w kolumnie A. Wartości ujemne w kolumnie A występują w różnych wierszach. W moim makro zastanawia mnie jak ograniczyć zakres kopiowanych komórek do tych, które spełniają warunek, że są w nich liczby ujemne. Niestety nie mogę przesłać całego pliku, bo zawiera dane poufne ,ale przesyłam jego fragment...
Nie wiem jak Calc w Open Office "czyta" makra napisane dla Excel,a. Nagraj jakieś makro w Excelu (kopiowanie, zaznaczanie komórek, zakresów, formatowanie itp), przenieś je do Calc,a i sprawdź czy dzieje sie to, co powinno (nie mam OpenOffice, żeby sprawdzić). Ewentualnie poczekaj na kogoś bardziej zaawansowanego. -------------- Dodano po 8 chwilach....
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
Dokładnie tak ma się to zachować. (czy da się to robić bez skrótu ctrl + n, czyli po wpisaniu automatycznie kopjuje) Po następnym wpisaniu daty w I4 powinno kopiować zakres dat z I4 do R4 itd.
Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza Jeśli w plikach z danymi występuje kilka arkuszy :?: to musisz skorygować kod makra wymieniając odpowiedni fragment na: [syntax=vbscript]Do Until Len(Plik) = 0 Licznik = Licznik + 1 Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Worksheets(1)[/syntax]
Ja myślę że kolega k4stor zrozumiał, że ma 1000x kopiować numer ewidencyjny do funkcji WYSZUKAJ.PIONOWO, gdy chodzi o to, żeby było to odwołanie do komórki (obok). Ze swojej strony dodam, że oprócz przeciągania istnieje "mały czarny kwadracik" w prawym dolnym rogu zaznaczonej komórki, którego kliknięcie wypełnia formułą wszystkie komórki poniżej. Ba,...
No działa, ale tak nie prościej? Też ciekawe rozwiązanie - tylko w Twoim rozwiązaniu makro trzeba uruchomić na każdym arkuszu który chcę skopiować - fajne rozwiązanie :) A powiedz mi, czy jest w Twoim rozwiązaniu możliwość pominięcia jednej kolumny? Tak żeby kopiował zakres od A2:D i F2:L? Bo aktualnie mogę skopiować cały zakres od A2:L.
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...
Działa świetnie, dziękuję! Mam jeszcze pytanie. Jako że ten plik był testowy podałem tylko dwie dane do kopiuj/wklej. Czy jest możliwość uniknięcia efektu "migania" w chwili gdy wykonuję makro na dużym zakresie danych.
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
Witam, Mam pytanko do wszystkich fachowców z Excela, jak powinno wyglądać makro które stworzy mi kolejny plik, i skopiuje do niego dane które mam obecnie zaznaczone, dobrze by było aby w pliku głównym stworzyło mi również hiperłącze do nowego pliku, tak aby w razie ewentualnej edycji danych zmieniły się one również w pliku który powstał podczas owego...
Makro w tym przypadku mogłoby być takie: [syntax=vbscript]Sub Kopiowanie() ' zakres źródłowy Worksheets("Arkusz2").Activate Dim ostw As Long, src As Range ostw = Cells(Rows.Count, "L").End(xlUp).Row Set src = Range("L2:L" & ostw) ' zakres docelowy Dim dest As Range Set dest = Range("AB2") ' kopiowanie Dim i As Long, n As Long Dim rw As Range For Each...
Witam raz jeszcze, wszystko sie udalo i dziala SUPER, jeszcze raz wielkie dzieki!!! mam jednak inny Problem z innym makrem (jestem lamus jesli chodzi o makra) POMOCY! makro pyta o zakres komorek do kopiowania (a nie ma pytac...) kopiuje je i wkleja do pliku txt. Makro wyglada tak: [syntax=vb]Sub export_txt() Dim wb As Workbook Dim saveFile As String...
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
jeśli to są zakresy komórek, to możesz spokojnie nagrać makro - nie trzeba się bawić w ręczne tworzenie jego.
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ć.
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
Co Ty kombinujesz? Wyślę Ci plik z makrem, które kopiuje zakres 'B2:B7' do pietwszego wolnego wiersza w kolumnie 'A'. Nie opisałeś, gdzie 'B2:B7' ma być wklejane, więc zmień sobie indeksy komórki.
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
Może być tak, że w przyszłości stworze więcej przycisków i wtedy będę musiał edytować makro Ale chyba nie planujesz robić tego w nieograniczony sposób ? Ilość przycisków zawsze będzie ograniczona, i jeśli utrzymasz w ryzach ich nazewnictwo typu: "Przycisk 1", "Przycisk 2" ... "Przycisk n", to będziesz nad tym panować. wtedy zazwyczaj następują opcje...
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...
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.
Blok, to taka robocza nazwa, jaką nadałem grupie wierszy. I tak pierwszy blok to wiersze 2-8 drugi blok powstaje po użyciu przycisku "dodaj" - to wiersze 10-16 itd.... Co do sprawdzania kolorów, fakt, jest ta funkcjonalność przypisana przyciskowi "czyść dane" Jestem początkującym w zakresie VBA, więc pewnych rzeczy nie rozumiem.... Byłbym wdzięczny,...
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 załączeniu plik podsumowanie w którym na 3 arkuszu powinno wykonać, się makro oraz jeden z plików z którego będzie kopiować wartości. Myślałem żeby tam zamiast zakresów do 1000 używać jakoś xldown do zaznaczania i kopiować tyle wartości ile potrzeba, ale nie wiem jak to zrobić. Będę wdzięczny za jakąś pomoc... i z tym sortowaniem to tez nie wiem o...
Robiłem to z użyciem funkcji Vlookup excella ale strasznie długo mieli dane. W formułach użyć nie całą kolumnę(D:F), a zakres(np. $D$1:$F$1000)
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
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....
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
Witam wszystkich Potrzebuję pomocy w stworzeniu makra działającego wg poniższego 1. w arkuszu "dane2" mamy cennik produktów 2. w kolumnie E są przyciski pod które muszę podpiąć makro; przycisk z E2 kopiuje wartość komórki C2 do arkusza "dane1"w pierwszą wolną komórkę z zakresu A3:A20; przycisk z E3 kopiuje wartość komórki C3 do arkusza "dane1"w pierwszą...
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
Witam. Mam coś takiego: Sub kopiowanie() Dim LastRow As Long Range("A6:B7").Sel... Selection.Copy Sheets("Arkusz2").Sele... If WorksheetFunction.CountA(Cells) > 0 Then LastRow = Cells.Find(What:="*", _ After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
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...
Zwykle wystarczy operator And. Osobiście staram się unikać wszelkiego select-copy-paste, dlatego ciut zmodyfikowałem makro. [syntax=vb]Set zakres = Worksheets("AAA").Range("A3:A500") With Sheets("Załącznik_1") wrs = .Range("A1000").End(xlUp).Row + 1 For Each kom In zakres If Len(kom) = 6 And kom.Offset(0, 9).Text = "19.00" Then kom.Copy .Cells(wrs,...
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...
Witam. Nie miałem nigdy doczynienia z VBA. Teraz muszę skorzystać z pomocy. Mam taki problem. Mamy 3 zeszyty o nazwach:"Robert","Asia","Mirek" oraz Zeszyt "ZBIOR". Dane w tych zeszytach zawarte są w "arkuszu1". Chciałbym aby Makro mi zeszytów"Robert","Asia","Mirek" kopiowało do zeszytu "ZBIOR" do komórek o zakresie(b4:b4016;M4:4016) bez otwierania zeszytów...
Jeśli liczysz na konkretną pomoc :?: - to winieneś załączyć swój przykładowy plik z odpowiednio opisanym arkuszem źródłowym i arkuszem docelowym :idea: Wcześniej możesz przeanalizować zasoby naszego forum w zakresie importu lub eksportu danych z jednego arkusza do drugiego :idea:
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ł.
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
Dzięki wielki wszystko ok Jeszcze was trochę po mecze. A jak przerobić to makro tak żeby działało na zakresach to znaczy z jednego pliku kopiuje np. plik A sheets(1).range("C6:E16";"B19:B20") i żeby te zakresy wklejało mi w tym aktywnym pliku w różne miejsca np. zakres1Plik B Sheets(1).range("H6:J16";"G19:G20"), zakres2 plik B sheets(1).range("M6:O16";"L19:L20")...
Andie, póki co makra to magia dla mnie, ale czy Twój kod działa tylko kiedy w kol. 1 są wartości takie jak sa w przykładzie, czyli 1, 2 ... itp ? Bo kiedy sprawdzam je na innej tabeli która ma już konkretne nazwy w kolumnie 1 i jest tych zakresów o wiele więcej to mi coś nie bardzo idzie...
Witam, potrzebuję makro, które sprawdzałoby komórkę, w której jest wpisana data i kopiowała inną w tym samym wierszu, w której znajduje się jakaś wartość. Chodzi o to, żeby użytkownik zaznaczył/wpisał datę, albo zakres od jakiegoś dnia do innego - wtedy makro sprawdzałoby czy w kolumnie B znajdują się takie daty, jeśli tak, to wartość z kolumny G w...
Poprawiłem mały błąd z kopiowaniem listy i czyszczeniem zakresów. Jak to działa? Przeanalizuj sobie makro "Filrt1" (krokowo, klawisz [F8]) Najpierw wejdź w nazwy (w E2007 Formuły>Menedżer Nazw) i przyjrzyj się zdefiniowanym wpisom. Są cztery. Trzy z nich dotyczą list poprawności danych dla komórek E2-E4. Makro "Filtr1" uruchamia filtr z opcją "bez powtórzeń"...
Nie do końca mi to wychodzi. Mam arkusz produkcja i arkusz zrobione. W arkuszu produkcja jest kolumna C w której jest unikatowy numer zlecenia a w kolumnie N jest pusto lub 'got.'. Chcę aby w arkuszu produkcja kolumna N, wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. Zakres danych w arkuszu produkcja to A2:L3000.
Witam, mam nastepujacy problem: "zrodlo" - posiadam np. 10 zakladek z takim samym ukladem - sa to zakladki z ktorych chce kopiowac dane "cel" dane chce kopiowac do 40 innych zakladek (kazda zakladka posiada swoj numer np. 5455) - numer ten jest wpisany "x" razy w zakładkach "zrodlo" w kolumnie A. w jaki sposob napisac makro które bedzie do zakladek...
Chyba DisplayAlerts też to wyłącza ale wcześniej pominąłem kawałek kodu i dlatego nie zadziałało. Mam jeszcze jeden problem. Stworzyłem makro które dodaje nowy arkusz z nazwą z konkretnej komórki. Dodatkowo ta komórka filtruje dane z innego arkusza i kopiuje je do kolejnego arkusza. Tutaj pojawia się problem. Potrafię skopiować te dane do nowego lub...
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...
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
makro kopiować zakres komórka excel makro kopiować zakres makro excel kopiować zakres
amervox alarm zastąpić starter electrolux piekarnik wyświetlacz
komputer silnika rover siłownik liniowy
Resetowanie adaptacji ECU – jak przywrócić mapy pracy silnika Bosch, Siemens, VAG, EDC17 Problem z odpowietrzeniem ekspresu Melitta OT 600