[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
Dla mnie trochę przerost formy no ale każdy ma swój styl programowania. Zauważ że warunek w głównej procedurze wyjkonuje się jedynie gdy nie ma arkusza o danej nazwie. W przeciwnym wypadku nie robi nic. Proponuje dodać "w przeciwnym wypadku - gdy warunek jest niespełniony" czyli Else i ustawić temp na istniejący arkusz o danej nazwie. Z tym że wyjąć...
"Zabawa" ciągami się kłania.
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
ActiveSheet.Range("A2:E300").Copy Destination:=.Cells(LastRow + 1, 1) Podmień na [syntax=vbscript] ActiveSheet.Range("A2:E300").Copy .Cells(LastRow + 1, 1).PasteSpecial xlValues Application.CutCopyMode = False[/syntax]
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka[syntax=vb] Sub kopia() If ActiveSheet.Range("A1") = "Tak" Then ActiveSheet.Copy End Sub[/syntax]
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 Tu masz odpowiedź http://www.elektroda.pl/rtvforum/topic31... wystarczy zmienić "linijkę"
Na przykład tak:[syntax=vb]Range("A2:A" & Rows.Count).ClearContents i = 2 For Each ws In Worksheets If ws.Name <> ActiveSheet.Name Then Cells(i, "A").Value = ws.Range("B2").Value i = i + 1 End If Next ws[/syntax]
Witam To makro realizuje kopiowanie wszystkich plików znajdujacych sie w katalogu do jedengo. Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set MergeObj = CreateObject("Scripting.FileSystemObject... Set dirObj = MergeObj.Getfolder("C:\2014") Set...
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Czy te 4-ry "kolejne" arkusze należące do jednej grupy "cyfrowej", np.: 0202 (SUMA, WDT, WNT, WŚU) znajdują się jeden za drugim, czy też mogą być porozrzucane pomiędzy innymi arkuszami z innych grup numeracyjnych, np.: 0202SUMA, 0205WDT, 0202WDT, 0203WŚu, itd. ?
No to pewnie arkusz "XXX" & Cells(Y, "B") nie istnieje. Stojąc mniej więcej tam napisz w oknie poleceń (Immediate, jak nie mam to sobie włącz: View, Immediate Window) coś takiego: ? "XXX" & Cells(Y, "B") Napisałem, że muszą być przygotowane wszystkie potrzebne arkusze z nagłówkami, makro ich nie tworzy.
Jasne, nie mniej jednak taka sama sytuacja może wydarzyć się w przypadku rozwiązania z przyciskiem. Ja bym to połączył ze sprawdzeniem czy taki wpis nie istnieje już w zestawieniu(np zrobienie unikatowego rekordu z Pozycja&grupa&Data.). Jeśli istnieje można wyświetlić monit o potencjalnym dublowaniu. Edytowałem. Nie cytuj w całości postu poprzedzającego....
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
i teraz chodzi mi o to , ze jak przekopiuje mi dane z arkusza Dane2 do Sheet, to będe mogł rownież skopiować dane z innego arkusza, gdzie dane mi się nie zaaktualizuja tylko dopiszą do danych w arkuszu Sheet Rozjaśnij to trochę. Skąd, ile i jakie dane, miejsce docelowe? A najlepiej wrzuć przykładowy plik, na którym zobrazujesz swoje marzenia.
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
Zakładając, że nagłówek znajduje się w pierwszym wierszu: [syntax=vbscript]Sub WszystkieArkuszeDoJednego() Sheets.Add.Name = "Podsumowanie" Application.ScreenUpdating = False nwp = Sheets("Podsumowanie").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To Sheets.Count Set sh = Sheets(x) If sh.Name <> "Podsumowanie" Then ow = sh.Cells(Rows.Count,...
[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
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...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie. Dodano po 3 (at)ElektrodaBot Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ?
[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]
[syntax=vb] For i = LBound(Zrodla) To UBound(Zrodla) Worksheets("txt").Range(Cele(i)) = Worksheets("oferta").Range(Zrodla(i)).Va... Next i [/syntax]
Zobacz takie rozwiązanie.
:D Mam nadzieję, że to nie jest odpowiedź dla mnie. :D Przygotowałem przykład z wysyłaniem mailem wraz z załącznikiem (jak ktoś ma skonfigurowanego outlooka). Można popatrzeć - tylko najlepiej stworzyć jakiś katalog i tam zapisać wcześniej plik. Wtedy też będą się tworzyć w tym katalogu wysyłane załączniki. Oczywiście wcześniej trzeba pozwolić na włączenie...
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Wybor spolki - lista lub kursor na skrocona nazwe
Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]
przydział w grupie A jest zawsze tekst, natomiast w grupie B są zawsze liczbowe? Porównaj D3 - G3, D6 - G6, etc. Bardzo pożądane jednego typu(tekst 109a)
Nie bardzo rozumiem kopiowanie 'pp1' i oddzielne tworzenie nowego arkusza. Może chodzi Ci o to? [syntax=vbscript]Sub DodajPP() Dim n As Integer n = Val(Mid(Sheets(Sheets.Count).Name, 3)) n = n + 1 Sheets("pp1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "pp" & n End Sub [/syntax]
[syntax=vb]Sub lista() Dim r& r = 2 For Each sh In ThisWorkbook.Sheets If sh.Name <> "Lista" Then Sheets("Lista").Cells(r, 1) = sh.Name r = r + 1 End If Next End Sub [/syntax]
No i potrzebuję teraz aby te dane mi się przekopiowały w odpowiednie miejsca W pliku trochę kodu, klasy, a Ty się pytasz o kopiowanie z arkusza do arkusza???
Dziękuję :) Chodzi o kopiowanie z kilkunastu arkuszy excella to jednego zbiorczego tak aby dane z poszczególnych arkuszy kopiowały się jedne po drugich - jak w załączonym pliku
Czy jest jakieś magiczne polecenie, które by kopiowało cały arkusz z jednego pliku zachowując formatowanie? Możesz przykładowo wykorzystać po zaznaczeniu w pliku źródłowym źródłowego arkusza (np. Arkusz1) i kopiować do pliku docelowego (tu Zeszyt1) polecenie typu :spoko: : [syntax=vbscript]Sheets("Arkusz1").Copy Before:=Workbooks("Zeszyt1").Sheets(1)[/...
Spróbuj [syntax=vb]Sub Makro_kopiowanie() ' This macro will import a file into this workbook PathName = Range("D3").Value Filename = Range("D4").Value ControlFile = ActiveWorkbook.Name wrs = 5 'nazwy arkuszy od "D5" Workbooks.Open Filename:=PathName & Filename Windows(ControlFile).Activate With Sheets("Podsumowanie") Do While .Cells(wrs, 4) <>...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
Przeanalizuj, dopasuj: [syntax=vb] Sub nnn() Dim a As Variant Dim i As Integer i = 1 For Each a In Worksheets If a.Name <> "Sheet1" Then Worksheets("Sheet1").Range("A" & i).Value = a.Range("A1").Value i = i + 1 End If Next End Sub [/syntax]
Witam, Mam pewien problem ze skopiowaniem a w zasadzie z wklejeniem danych z jednego arkusza do drugiego. Potrzebuję przekopiować każdy z wierszy z arkuszy Teryt Gminy, Teryt Mapy. itd i wkleic go do odpowiedniej kolumny w arkuszu "Polaczone dane z gmin" 21 razy. Pierwsza procedura w makro działa poprawnie, niestety w drugiej gdzie kopiuje dane z Tery...
Excel - automatyczne przepisywanie danych z jednego arkusza do drugiego. Witam, potrzebuję pomocy w programie Excel. Posiadam dane w Arkuszu 1 i potrzebuję, aby po kliknięciu danego klienta, z automatu skopiowały się do drugiego arkusza wybrane dane, jak nr zlecenia, umowy, adres, transport. AI: Jaka wersja programu Excel jest używana? Excel Office...
Ja myślałem że należy skopiować wszystkie arkusze, tak od jednego użytkownika jest arkusz 1, ale jeśli następnie to są tej samej nazwy + 2...3 i itp. zapytał o to, ale nie otrzymał odpowiedzi Dodano po 2 ale teraz rozumiem, o co idze Dodano po 14 Ponieważ Total jest plik z powszechnego dostępu, następnie użytkowników może jednocześnie pisać w nim. Każdy...
Takie uwagi: Jeżeli wyłączasz odświerzanie warto na końcu je włączyć. Nie ma po co kończyć With jeżeli nie zaczynałeś Nie ma po co też kasować z pamięci zmiennej ws gdyż jej nie ustawiałeś (set) a tylko zadeklarowałeś (dim) a wraz z zakończeniem programu zmienna ws zostanie zwolniona z pamięci bez konieczności jej czyszczenia. A tu niewielkie poprawki...
Można to zrobić również formułami. Kluczową sprawą jest odczytanie numeru wagonu z nazwy arkusza, bo - o ile mogłem się zorientować - nigdzie w arkuszu nie jest ona wpisana. Jest to wyliczone w komórce D2. Oczywiście postać formuły jest dostosowana do nazw używanych w skoroszycie. Potem, gdy mamy już numer wagonu, dalej wystarczy WYSZUKAJ.PIONOWO (komórka...
Hej! Czy spotkał się ktoś może z problemem przenoszenia/kopiowania arkuszy. Mam kilka arkuszy, które tworzone są na podstawie jednego wzoru. Jeden z nich kopiują się szybko a inne bardzo długo - do godziny. Zdiagnozowałam problem w kilku komórkach ( również bardzo długo się kopiują). W niektórych są listy wyboru lub formuły, a w jednej tylko tekst....
Ale że jak? Jak masz n (ciągła numeracja?) arkuszy to dla każdego 1..n-1 to wykonać? Jedną komórkę czy wiele? Z R2 do R1, czyli wiersz do góry? Samo kopiowanie komórki jest proste z wykorzystaniem zapisu proponowanego przez JVR: Sheets("DATA ENTRY " & s+1).Cells(y,x).value=Sheets("DATA ENTRY " & s).Cells(y,x).value Dołóż do tego odpowiednie pętle i...
Witajcie, czy istnieje możliwość stworzenia czegoś takiego, by z jednego pliku w którym są dane wszystkich awarii wszystkich wózków widłowych, automatycznie kopiowało wybrane dane do oddzielnego pliku będącego plikiem indywidualnym danego wózka? Pozdrawiam;)
...jak powinno wyglądać makro kopiujące cały arkusz ? ...nie potrafie tego zamienić na cały plik Arkusz - część składowa skoroszytu. W skoroszycie może być wiele arkuszy. Plik zapewne w tym przypadku rozumiany jako skoroszyt. np Zeszyt1.xls Przepraszam że się wtrącam ale zdecyduj się co chcesz kopiować. Myślę że chodzi o arkusz ale... Zapis kopiujący...
:) Naprawdę nie stosowałem tu żadnego zabiegu. :) Może "Forum" tak współpracuje z twoja przeglądarką/monitorem. Ja mam IE8 i IE9 (w zależności od kompa) i monitor 21 calowy w rozdzielczości 1920x1080 jak wchodzę na ten topik widzę cały kod, te kody o wiele dłuższe też (nie mam pasków przewijania) a odnośnik "zwiń" / "rozwiń" przy "Kod Visual Basic"...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
[syntax=vb]Sub kopie_zakres() With Sheets("Arkusz3") pw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Arkusz2").Range("A2:Y2").Copy .Cells(pw, 1) End With End Sub [/syntax]
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
niestety Akcesa nie posiadamy w firmie I właśnie dla takich, jak Wy istnieje darmowy Access Runtime. P.S. Wybacz Kolego, ale ciężki z Ciebie przypadek... Co Ci się nie podoba w powyższym rozwiązaniu?
Witam, Może tak:
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
Witam, Szukam sposobu na rozwiązanie takie problemu: Mam plik, który zawiera kilka lub kilkanaście arkuszy. Liczba arkuszy jest zmieniana na bieżąco (zazwyczaj są dodawane) Chciałbym aby do jednego arkusza powiedzmy pierwszego były kopiowane wierszami wartości konkretnej komórki z każdego arkusza (oprócz tego, w którym jest raport). W każdym arkuszu...
zrób np. tak (wstawi ci na koncu) [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh...
(at)maciejgonet, dzięki wielkie, kod działa. Poprzednio zastosowałem taką samą metodę, ale nie byłem pewny jej poprawności, bo wyskakiwały błędy. Teraz wiem, że było to spowodowane błędem w nazwie jednego z arkuszy. (at)kinggustav, wszystko jest odpowiednio rozplanowane ;)
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...
jezeli bedzie to robic na na jednym i tym samym kompturze to pocelam scriptit, mam kilka "programow" w tym napisanych np: nowy word, wstaw ze schowka, wstaw date, ustaw drukarke oraz strone, wydrukuj ...
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
Użyłem tego makra we wszystkich od 01.YY do 13.YY i tylko pierwszy skopiował dane. W załączniku przesyłam cały plik, może będzie łatwiej rozwiązać zagadkę Już z tego miejsca pragnę bardzo podziękować za pomoc, ale chciałbym sprawę doprowadzić do końca. tak czy siak nie we wszystkich skoroszytach ci to zadziała musisz trzymać się jednej nazwy arkuszy...
Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
Zupełnie nie mogę zrozumieć na czym polega błąd. Co znaczy przeładowywało się i plik się wyłączał? Sam? Niemożliwe. Proponuję dołączyć to co masz. Najlepiej plik cały, choć ja i tak go nie zobaczę. Zastanów się co potrafisz wykonać, czy: 1. Potrafisz oznaczyć obszar do skopiowania? 2. Potrafisz skopiować dane? 3. Potrafisz wskazać gdzie kopiować kolejne...
Sposobów na rozwiązanie tego problemu jest kilka - tylko te bardziej wydajne mogą być trudniejsze do zrozumienia / zapamiętania dla kogoś początkującego. Dlatego poniżej najprostszy przykład, z pętlą (w zasadzie dwoma): najprostszy, ale i najmniej wydajny... Dla małej ilości danych powinien działać OK. Pytaj, gdyby coś było niejasne. [syntax=vb]Private...
Chodzi o to, że chce stworzyć skoroszyt z arkuszem głównym, do którego mają być kopiowane zawartości spełnianie przez dane kryteria (przy użyciu filtrowania zaawansowanego) z innych arkuszy. Przy kopiowaniu z jednego arkusza nie ma problemu, lecz gdy próbuję wybrać zakres z kolejnego arkusza, zakres pierwszy jest zastępowany drugim. Piszę z telefonu...
:) 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()...
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
cześć! Od jakiegoś czasu, mam dziwny problem z kopiowaniem danych w excelu (wszystko na prostych, wpisanych liczbach/literach w obrębie jednego arkusza). https://obrazki.elektroda.pl/9685738400_... W przypadku kopiowania (ctrl c) wokół zaznaczonego obszaru mamy dynamiczną przerywaną linię - oczywiste. W przypadku kopiowania kolumny...
[syntax=vb] Cells.Select Selection.Copy Sheets("Sheet2").Select Range("A1").Activate ActiveSheet.Paste Sheets("Sheet1").Select [/syntax] generalnie zamiast dodaj jakiąś pętlę FOR zeby zamiast "Sheet2" pojawiała się kolejna akrusz
było by super Co było by? Testowalem Twój kod na XL2007 i XL2003 (inne nie mam) - wszystko dziala poprawnie
[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
Tu masz kod tego makra. Procedurę SzukajUlicy() podepnij pod jakis przycisk. Myślę, że z resztą sobie poradzisz. [syntax=vb] Option Explicit Sub SzukajUlicy() Dim ws As Worksheet Dim lWiersz As Long Const lKolumnaUlicy As Integer = 5 'E lWiersz = 4 'początkowy wiersz zawierający dane Dim sNazwaUlicy As String Dim Znalazlem As Boolean sNazwaUlicy = InputBox("Podaj...
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...
Moje własne próby też nie przyniosły pożądanych rezultatów. Proszę przedstawić. Można porównać do pętli wykorzystanych w http://obrazki.elektroda.pl/8966955000_1... dostosować do sytuacji, dopisać instrukcję warunkową i... gotowe. Proszę zapoznać się z • Pytania dotyczące zagadnień związanych z pakietem Office, Open Office i tym...
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
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.
aby dane zaznaczone plików (kazdy plik ma tylko jeden arkusz) były kopiowane do jednego arkusza jeden pod drugim Kiepsko szukasz :cunning: na elektrodzie było kilka podobnych tematów odnośnie importu danych - między innymi :spoko: https://www.elektroda.pl/rtvforum/viewto...
Możesz wykorzystać FileDialog do wybrania plików, lub Dir i pętlę Do, jeśli dane pobierasz ze wszystkich plików w określonej lokalizacji. Druga rzecz to wyszukiwanie właściwych danych. Jeśli to te same komórki we wszystkich arkuszach, to nie ma problemu. W innym przypadku potrzebny będzie jakiś klucz: Nr kolumny, unikalna nazwa w nagłówku, lub tp.
No tak. Mój błąd, bo powinno być w innej kolejności. Sorry, ale dzisiaj sobota ;) Coś tam (w załączniku) kopiuje. Przeanalizuj, dostosuj do własnych potrzeb.
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
Przy założeniach że w arkusz1 dane w kolumnie A rozpocząć 3 wiersz, tabela na arkusz2 rozpoczyna się w 2 wiersze =INDEKS(Arkusz1!A:A;(WIERSZ()-2)*45+3)
To wszystko co piszesz plus ten załączony plik nie mają wielkiego sensu. Chcesz kopiować coś do arkusza, którego nie ma. Poza tym jak kopiujesz - to po skopiowaniu masz to samo, a Ty piszesz coś o kopiowaniu sumy - nie ma czegoś takiego. Sumę trzeba wpierw obliczyć - albo w arkuszu źródłowym i wtedy można to skopiować, albo w arkuszu docelowym, odwołując...
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...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
Poprawiłem nieco makra, nie zrobiłem więcej bo działanie aplikacji jest dla nie niezrozumiałe. Proszę jeszcze raz dokładnie opisać co ma się wyświetlać w UserForm i co później ma się skopiować.
Nie da się tak jak chcesz. Jeżeli chcesz skrócić klikanie wyciągnij przycisk autofiltru na pasek menu. (poprzez dostosuj - wyrobekj tylko że grupa Dane i Autofiltr]) Wtedy po skopiowaniu i wklejeniu danych masz je od razu zaznaczone więc wystarczy kliknąć tylko w przycisk i już masz autoflitr.
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
Nie precyzujesz dokładnie. Procedura dla każdej komórki w zakresie, czy przy zmianie w jednej kopiowanie określonego zakresu? Arkusz źródłowy i docelowy inny, czy w obrębie jednego?
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Takie proste makro powinno załatwić sprawę: [syntax=vb]Application.ScreenUpdating = False Set wssuma = Worksheets("Suma") ost_wiersz_sumy = wssuma.Cells(wssuma.Rows.Count, 1).End(xlUp).Row For i = 2 To ost_wiersz_sumy With Worksheets(wssuma.Cells(i, 1).Value) ost_wiersz_arkusza = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("B" & ost_wiersz_arkusza +...
Witam ponownie Mam w makrze taki wpis jak ponizej i niestety nie dziala. Sprawdzalem z pomoca w Excelu ale wszystko jest ok, mimo to nie dziala: ThisWorkbook.Worksheets("xxx").Range("d3... Destination:=Workbooks(fn).Worksheets("x... gdzie fn = file name O co chodzi? W pewnym momencie dzialania makra otwarte sa dwa pliki excel....
O coś takiego chodzi? [syntax=vb]ost_wiersz = Worksheets("Arkusz2").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Arkusz2").Range("A" & ost_wiersz + 1 & ":H" & ost_wiersz + 1).Value = Worksheets("Arkusz1").Range("A1:H1").Val... Worksheets("Arkusz1").Range("A1:H1").Cle...
kopiowanie wierszy jednego arkusza kopiowanie arkusza makro kopiowanie arkusza
panasonic bateria instrukcja obsługi halogen indukcyjność łuku
ciągnik przedni napęd ciągnik przedni napęd
Szarpak dmuchawy spalinowej 2T – ciężka praca, Husqvarna, Stihl, zalanie, zatarcie, kompresja Nissan Micra K12 – sterowanie sprężarką klimatyzacji, IPDM E/R, typowe usterki, diagnostyka