[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]
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)
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) <>...
Po tym opisie wydaje mi się, że nie potrzebne jest w ogóle makro. Prawdopodobnie dało by radę zrobić to formułami. Załącz plik z przykładowymi danymi i zobaczymy co da się zrobić.
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
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 ?
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...
W Excelu naciśnij ALT+F11, potem 2x klik na Arkusz1 i w okienku po prawej wklej mój kod. https://obrazki.elektroda.pl/2501823200_... https://filmy.elektroda.pl/50_1738757132...
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.
Proponuję w kolumnie B arkusza 'Guest' trzymać imię i nazwisko.
No tak to jest, gdy poprawka dotyczy fragmentu wyrwanego "ze środka" ;) W załączniku uproszczony przykład kopiowania w ukrytym arkuszu ("Arkusz1"). -odkryj -popatrz -ukryj -naciśnij przycisk -odkryj i zobacz co się narobiło
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?
Po pierwsze - ustaw breakpoint'y i zobacz, w którym miejscu Cie "wyrzuca". Po drugie - po osiągnięciu sumy >20 przechodzisz do nowego arkusza, coś tam wklejasz po czym nie wracasz do pierwotnego arkusza - a Twój kod pracuje na arkuszu w tym momencie aktywnym.
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)
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
pokazyje błąd. Nie powinno tak być, albo nie rozumiem. WYSZUKAJ.PIONOWO(A1;Y!A:B;2;0) tylko wtedy, jeśli LICZ.JEŻELI(Y!A:A;A1)>0 Innymi słowy jeśli w Y jest, w przeciwnym razie zapisz ""(empty string) Czy możliwe by nie zmieniał komórki Arkusza X. jesli nie wyszuka w Arkuszu Y odpowienika ? Nie, bo jesteśmy wszystkie formuły przepisze w klatki kolumny...
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:...
wiem że trzeba stworzyć pętlę przelatującą po wszystkich arkuszach...ale nie wiem za bardzo jak.. ad. 1. [syntax=vb]For Each ws In Worksheets If ws.Name <> ActiveSheet.Name Then 'tu się możesz odwołać do ws jako do kolejnego arkusza, np. ws.Range("A1") End If Next ws[/syntax]
Dziękuję bardzo za pomoc. Niestety mam 6 plików, po 400 arkuszy każdy i w tym tylko z niektórymi jest problem - ale nie wiadomo z którymi. Czy jest jakiś sposób na rozpoznanie, że to ten arkusz ma zaszyte jakieś dodatki? :-?
rozumiem że to tylko część makra? Oczywiście, to tylko fragment kodu, który wykonuje jedynie to co napisałem wyskoczy okienko, w którym będzie można wybrać pliki excela z dysku komputera Po wyborze konkretnego pliku :D możesz kopiować całe arkusze lub wybrane dane do swego pliku zbiorczego. Ta część makra uzależniona jest od specyfiki plików źródłowych...
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ę "clubs". Ten kod się sprawdza. Kopiowany arkusz wstawia się zawsze na końcu, niezależnie od ilości obecnych arkuszy.
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...
może być, tylko żeby kopiowało całe wiersze do nowego arkusza
.. Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza... [syntax=vb] Sheets("Arkusz1").Select Range("G20").Select Selection.Copy Sheets("Arkusz2").Select Range("G20").Select ActiveSheet.Paste[/syntax]
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
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...
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ż...
Przykład (z kolumną pomocniczą) w załączniku. Dalej: w arkuszu wynikowym formuła oparta o funkcje: INDEKS, PODAJ.POZYCJĘ, WIERSZ. Podobny temat [url=http://www.elektroda.pl/rtvforum/to... Zwróć uwagę na kolumnę pomocniczą "L" oraz wynikową "I".
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
Tak jak napisałam, chodzi mi o przyspieszenie kopiowania arkuszy i wklejania do innego skoroszytu. Chcę całkowicie z klawiatury wywołać polecenie "Przenieś lub kopiuj" arkusz. Przechodzenie pomiędzy arkuszami to elementarz ;-)
Dziękuję za pomoc. Najlepszym rozwiązaniem okazało się zrobienie makra, które kopiuje automatycznie zawartość pierwszych trzech kolumn do nowego arkusza.
Oto plik z arkuszem
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
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...
Moze być tak :) [syntax=vb]Sub kopiuje() Application.ScreenUpdating = False Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("Arkusz1") Set ws2 = Sheets("Arkusz2") With ws .Cells(1, 1).Copy End With With ws2 ws2.Activate Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial End With ws.Activate Application.ScreenUpdating = True End Sub[/syntax]...
Dzień dobry, Kolumnie z nazwami produktów należy nazwać np. "Nazwa". Zastosowałem dynamiczną definicję, żeby listę produktów można było uzupełniać: [syntax=text]=PRZESUNIĘCIE(Baza!$A$2;;;I... Wartości z sąsiednich kolumn odczytamy stosując funkcję PRZESUNIĘCIE. W tym przypadku są to formuły zwykłe, które można kopiować....
Witam Mam taki problem posiadam arkusz1 i chciałbym za pomocą przycisku skopiować wiersz 1 do arkusza2 pod ostatni wypełniony wiersz. Problem w załączniku. Dzięki za pomoc
witam o coś takiego ci chodziło
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...
Polecam używać pomocniczy wiersz( wiersz 1 arkusz zbiorczy) Można ukryć lub przenieść gdzie indziej, W takim przypadku wymienić bs.Rows(1) na Range("buffor")
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...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
A może wykonać kopię całego skoroszytu? Wtedy autofiltr zostanie. Najeżdża się na dół skoroszytu gdzie są nazwy arkuszy, najeżdża się myszką na arkusz który należy przekopiować, wciska się prawy guzik myszy, wybiera się opcję "przenieś albo kopiuj" i zaznacza się okienko opcji "kopiuj". Wtedy autofiltr pozostanie.
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
1. Tak 2. Tak, tyle że ksiegowosc i inne tez moga byc w innej zakladce np mniej_wazne. Da radę tak wykombinować? Fajnie było by zaby nie gryzło się to makro z pierwszym, czyli jak tam utworzone zostały dodatkowe 4 arkusze, to tutaj były by dodane jeszcze 2 arkusze do już istniejących (arkusz wazne i arkusz mniej_wazne)
Może. Makra mogą być w kodzie arkuszów, kodzie modułów, formularzów i klas Może być wiele, ważną rzeczą jest mieć różne nazwy.
Super też działa, a jak wrzucić to w pętle żeby wywołać to określoną liczbę razy, np. pobiera to z komórki wartość i tyle razy to uruchamia, znaczy powstaje ta ilośc arkuszy :)
sprawa wygląda tak,że dane są wprowadzane do arkusz czasem kopiowane z innego arkusz excel po czy arkusz jest zamykany z zapisem i podczas próby ponownego otwarcia występuje ten bład. ale nie za każdym razem arkusz jest uszkodzony i nie mogę odnaleźć zawartości która spowodowała błąd bo może gdybym znalazła co powoduje błąd spróbowałabym go naprawić
Narzędzia -> ochrona -> chroń arkusz/nie chroń arkusza Jeśli autor ustawił hasło na ochronę arkusza zastosowanie mają dywagacje w powyższych postach.
Witam, mam taki problem. Mam kilka arkuszy, których ilość może się zmieniać natomiast struktura będzie zachowana. Każdy arkusz zawiera dane osoby, projekt i ilość godzin przepracowanych na danym projekcie. Liczba projektów jest zmienna w miesiącu maksymalna wartość 30. Chciałbym żeby do arkusza wynikowego skopiować nazwisko, nazwę projektu, ilość godzin...
Te błędy są spowodowane sposobem przeliczania arkuszy przez Excel. Mamy ograniczone możliwości sterowania tym. W tym przypadku można wprowadzić 2 uzupełnienia: 1) w formule 'oblicz' dopisać na końcu: [syntax=text]+0*LOS()[/syntax]Ta zmiana nie zmieni wartości wyniku, wymusi tylko przeliczenie formuły przy każdym przeliczeniu arkusza. 2) Ale to jeszcze...
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...
Daj exela arkusze jeszcze.
komórki podświetlają się na czerwono nie tylko te po zmianach :cunning: Przecież wyraźnie pisałem: Jeśli interesuje Cię sporządzanie tylko ukrytej kopii wszystkich edycji w arkuszu Rob - to usuń formatowanie warunkowe , usuń kod Workbook_BeforeClose i wymień kod w arkuszu Rob Przy ukrytej archiwizacji wszystkich edycji - traci sens porównywanie tabeli...
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
[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]
Może być w ten sposób? (kolumny pomocnicze można ukryć) Co prawda załączyłaś dane gdzie zawsze był nr transakcji ale działa też jak go wykasujesz -uwzględnia to. edit: podmieniłem trochę formuły by było łatwiej kopiować w bok. Może trochę utrudniłem zrozumienie formuły ale... Główna formuła np. dla "a" w danym miesiącu to: =SUMA.ILOCZYNÓW((C1:C10000="a")*1;(A1:A1...
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,...
Podsumujmy: 1a. Czy powyższy kod ma kopiować do arkusza "Zbiorczo" ostatni wiersz z innych kopiowanych arkuszy, 1b. Czy też powyższy kod ma kopiować do arkusza "Zbiorczo" wszystko (jakaś tabela, zakres komórek, itd.) z innych kopiowanych arkuszy, ale robi to pomijając ostatni wiersz Pytanie: Z jakich arkuszy i skąd one są kopiowane - z jakiegoś innego...
Ctr+PgUp (karta na lewo) i Ctrl_PgDn (karta na prawo) Tak na marginesie, po co chcesz kopiować arkusze excela do worda ?
ja bym zrobił tak, ze zrobiłbym rzeczywiście pomocnicza kolumnę C, gdzie łączyły by się zawartości obu kolumn np =A2&B2. Wtedy wkepujemy funkcję wyszukaj pionowo w kolumnie D gdzie będziemy wyszukować wartości z kolumny C ( z arkusza docelowego) i porównywać je z tabelą z arkusza roboczego odnoszącej się do kolumny nr 3 (jeżeli zaznaczasz jako tabelę...
Zeby tworzyla sie historia/baza danych rzeczy zeskanowanych danego dnia To nienajlepszy pomysł.
Nowy kod był niedokładnie przepisany, zostały 2 linie ze starego kodu, które należało usunąć. Poza tym została zmieniona struktura logiczna kodu. [syntax=vbscript]Else If[/syntax]to nie jest to samo co [syntax=vbscript]ElseIf[/syntax] Poprawiłem pierwszy blok, tak jak pisałeś, dalej już nie sprawdzałem. Myślę, że to powtarzanie kodu w tej formie jest...
"Zabawa" ciągami się kłania.
Dziękuję za pomoc. Problem rozwiązałem w ten sposób, że Twój plik z makrem zastosowałem jako taki szablon, do którego będę kopiować zbiorczo arkusze z innego skoroszytu i dopiero wtedy zostaną prawidłowo rozdzielone do odrębnych plików z nazwą arkusza. Jeszcze raz serdecznie dziękuję.
Range("A5").Copy Sheets("arkusz2").Range("c" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
OK dam znać jutro. O tyle to dziwne, że to samo makro w którym zamiast kopiowania jest przypisanie działa poprawnie. To każe nam wnioskować, że zarówno plik jak i arkusz istnieją.
Musisz napisać makro, które będzie wyszukiwało największą datę w powiedzmy arkuszu A ;) i zapisywało dane w pierwszym wolnym wierszu w innym arkuszu... Ewentualnie Ctrl+c, Ctrl+Alt+v -wartości
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
Zerknij na to:
Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
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...
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce w...
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
Użyj WYSZUKAJ.PIONOWO()
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?
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...
Po co ochrona, jesli np. przed tym(zamykaniem) "użytkownik przez przypadek kasuje jakąś formule"? W kazdym razie mozna uzyc zdarzenia[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each s In Me.Sheets s.Protect 'ew. haslo Next Me.Save End Sub [/syntax] Ale lepiej mieć zapasowe arkusze i przed zamknięciem kopiowanie formuł, lub, jeśli...
Przy porannej kawie pomyślałem jak bym sobie to usprawnił. W arkuszu "S1" (śniadanie), zrobiłem "bazę" i tabelkę do składania jadłospisu. Wypełniałoby się tylko to, co zaznaczone ramką - czyli datę początkową oraz jakieś znaczniki w C3:H14 Arkusz wynikowy układa się "sam" (jest na formułach) - z wyjątkiem A1 oraz wiersza z alergenami (to też można zautomatyzować)...
Wielkie dzięki, teraz tylko dostosuje sobie to rozwiązanie do mojego dużego arkusza.
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
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
Jeśli makro, następnie tak
:) 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()...
Witam mam następujący problem. Stworzyłem makro które kopiuje zawartośc komórek np d21 do h30 i wszystko działało dobrze do póki nie stworzyłem dodatkowego arkusza w którym wprowadzam wszystkie dane wypełniające pozostałe arkusze. Jak np ukryć ten arkusz żeby wszystko działało dobrze ?
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...
[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]
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ą...
Nie chce zeby ktoś za mnie to zrobił Należy stworzyć arkusz raportu i do niego makrem kopiować wartości z arkusza danych, a następnie zapisać arkusz raportu w formacie pdf.
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 ...
Spróbuj w ten sposób. W C2 wklej =SUMA.JEŻELI(ADR.POŚR("' "&C$1&"'!B$3:B$181"... "&C$1&"'!AH$3:AH$181"... i możesz kopiować we wszystkie strony. Jest jeden kłopot. Nazwy arkuszy rozpoczynają się od spacji, w nagłówkach jest różnie. W formule przyjąłem, że spacja jest...
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.
Sheets("DATA ENTRY " & s)
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]
A mi się otwierają w 2016. Może masz coś nie tak z office2016? edit ------------------------------------ Na Twój problem: [syntax=vbnet]Sub Przenies() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("Arkusz1").Cells(Sheets("Arkusz1"... 1).End(xlUp).Row For x = 1 To ostatni_wiersz Sheets("Arkusz2").Cells(3 + x * 12 - 12, 2)...
excel kopiować arkusz kopiować arkusz excel makro kopiować arkusz
właściwości karty sieciowej wspomaga pompa skoda triak saeco
pralka indesit cieknie pralka indesit cieknie
Błąd 1408 w VW T5: Webasto i EGR Koparka Volvo EC180D zgasła i nie odpala - diagnostyka