[syntax=vbscript]Sub usun() For Each c In ActiveWorkbook.Names c.Delete Next End Sub[/syntax]
To dlatego, ze Pan przemianol skorozsyt z gelda na gelda-1. Trzeba skopiować makro do wlasnej książki i przypisać je do przyciskow.
Skopiowany zakres do nowego arkusza nie jest obszarem nazwanym Tabela_test, stąd błąd.
zamiast: If Cells(wrs, 1) <> "" Then powinno być: If .Cells(wrs, 1) <> "" Then (trzeba dostawić kropkę) Niemniej jednak proponuję najpierw odfiltrować całą oryginalną kolumnę (niepuste) i skopiować wszystko za jednym zamachem do nowego arkusza - trwa jedno mrugnięcie okiem.
Witaj. Aby być bardziej wyraźne, jeśli tylko się wnieść na arkusze zakresy, skąd i gdzie skopiować. Ten arkusz załącz tutaj.
Sprawdzałeś powyższy kod? Zasada jest taka, że pierwszy arkusz, to ten do którego będą kopiowane dane z pozostałych arkuszy.
range("C6:E16";"B19:B20") Możesz nawet Próbowałes ręcznie skopiować ten zakres?
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:...
Makro zadziała przy otwarciu pliku. Zrobiłem kopię arkusza dla porównania. Możesz przed zamknięciem skopiować do "Arkusz1", zamknąć i otworzyć ponownie. Zmienna "kol" to Nr kolumny z datami. Przeanalizuj, dostosuj do własnych potrzeb
Makro, a w makrze:[syntax=vb] Sheets("Arkusz1").Select Sheets("Arkusz1").Copy After:=Sheets(3)[/syntax] ... ostatnia linijka powtórzona tyle razy, ile razy chcesz skopiować arkusz (może być np. w pętli). Dokładne parametry - odsyłam do help'a Excel'a.
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...
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Nagraj makro i dokonaj potrzebnych zmian.
Z tego co widzę próbujesz sumować warunkowo dla wybranych klientów? Dlaczego nie używasz filtra? Można odfiltrować niepotrzebne, skopiować do nowego arkusza. W swoim przykładzie odwołujesz się do całych kolumn (Np A:A), co zdecydowanie spowalnia działania na tablicach. Dlatego zamieniłbym zakres na tabelę Excela. (zaznacz, Menu>Wstw>Tabela). Zamiast...
Jeśli ma się to odbywać automatycznie, myślę że makro musiałoby być uruchamiane przy otwarciu arkusza. Powinno zawierać funkcję timer, a reszta kodu (badanie godziny, kopiowanie itd) w pętli, uruchamianej co czas określony przez PauseTime, lub coś podobnego. O to chodzi?
Załącz przykład z "bzdurnymi" danymi i powiedzmy dwoma arkuszami - dla przykładu - bo jeżeli to ma być makro to musi być szczegółowe adresowanie. jeżeli to E2007 i wyżej spakuj zipem.
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Jeśli makro, to prosta pętla porównująca każdą parkę z każdą. Można też bez makra. Oba (E2k0) rozwiązania w załączniku.
Chodzi o to, by podczas np. edytowania bazy danych, dane wynikowe były uzupełniane na bieżąco . Właśnie z tego powodu proponuje ci funkcje excelowskie a nie makro. To co ci przedstawiłem to pomysł. Wzbij się ponad chmury i spójrz pod innym kątem :). Nie daj się ograniczeniom i spójrz świeżym okiem :) . Bazy (ani dobrze przygotowanych kolumn pomocy)...
Witam! Mam w excelu arkusz "Day" i chciałbym utworzyć makro, które dodawałoby nowy arkusz ze skopiowaną zawartością arkusza "Day" i z nazwą "Next Day1", a następnie po zmianie danych w "Next Day 1" , chciałbym skopiować "Next Day1" jako "NextDay2" itd. Proszę o pomoc.
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...
Nie wiem od czego zacząć... http://obrazki.elektroda.pl/4911461900_1... Otwórz oba pliki i w edytorze VB przeciągnij formularz do swojego projektu. W kodzie arkusza wklej (lub skopiuj kod z przykładu) [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) uForm1.Show Cancel = True End Sub[/syntax]
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Witaj Alt+F11 Menu - Insert - Module Kliknij dwukrotnie na Modul1 Skopiować makro(post#1). Po prawej stronie wklej. W Excel Alt+F8 Uruchamiając makra Splitbook
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...
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...
Rozbudowałem Ci to makro tak, żeby uwzględniało operacje na kilku komórkach jednocześnie, ale nie zmieniałem zasady jego działania. Więc jeśli zależy Ci na historii wszystkich komórek, musisz przestrzegać pewnych reguł. Makro działa w ten sposób, że po zaznaczeniu komórki/komórek zapamiętuje ich zawartość i adres (procedura SelectionChange). Następnie...
Witam, proszę o pomoc w następującej sprawie: mam dwa arkusze w każdym jest tabela z dwoma kolumnami. W arkuszu 1 kolumna A=wartość, kolumna B=opis. W arkuszu 2 kolumna A=wartość(takie same jak w arkuszu 1 ale w przypadkowej kolejności), kolumna B=puste komórki. Chodzi o to aby do kolumny B arkusza 2 (w puste komórki) została skopiowana wartość (opis)...
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...
Z zamieszczonego fragmentu można wywnioskować, że chcesz kopiować z arkuszy o identycznym fragmencie nazwy (- 4 ostatnie znaki). Wnioski: 1. Gałąź 'Else' jest zbędna (dlaczego chciałeś w niej zerować licznik?) 2. Brakuje najważniejszego: co chcesz kopiować (jaki zakres mogą zajmować dane)? 3. Najprościej wydzielić arkusz i po wszystkim skopiować/przenieść...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Zapewne chodzi o to, żeby otwarcie bez obsługi makr zablokowało arkusze. Można ukryć arkusze z atrybutem veryhidden, zostawiając jeden z informacją w stylu: "sorry, otwarto bez makr, czy cóś". Ukrywanie realizować przy każdym zamknięciu arkusza, a przy otwarciu odkrywać. Edycję VB ochronić hasłem, żeby nikt nie zmienił atrybutów. Edit: O, zdążyłeś wstawić...
Rzeczywiście na bieżącą chwilę w kodzie "czysc" jest parę błędów i niepotrzebnych rozwiązań. (może coś się zmieniło w stosunku do pierwszych rozwiązań np. 13 arkuszów lub nie zablokowany arkusz DANE) Wejdź w edytor VBA w Module1 kod makra czyść powinien być taki: nie zamknąłem w okienku kodu by zaznaczyć co należy zmienić lub dodać. ---------------------------...
Generalnie na przyszłość, unikaj scaleń, bo z nimi dużo kłopotów. Ewentualnie stosuj scalenia na samym końcu, jak wszystkie dane i formuły są już w arkuszu. Tymczasem napisałem Ci makro, które usuwa scalenia z obszaru formuł, wstawia formuły do wszystkich komórek, a na końcu przywraca scalenia kopiując je z kolumny 'lp' z tabelki po lewej stronie. W...
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.
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
Witaj Ponieważ wiemy tylko zakres wejściowy jest nieznany, gdzie wynik, Załóżmy, że R3. znaleźć komórki z największą wartość - colrez=Application.WorksheetFunction.Mat... i skopiuj format do klatki wyniku R3 - Range("S3:AD3").Cells(colrez).copy Range("R3").PasteSpecial xlFormats Application.CutCopyMode = False Oczywiście...
dzięki za pomoc Dodano po 28 a jakbym potrzebował skopiować arkusze z excela do worda to potrzebne w tym przypadku będzie makro ? czy użycie funkcji "Korespondencja seryjna" co poradzisz?
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
o ile samo makro po wprowadzeniu w zmiany udaje mi się uruchomić to nie potrafię wykombinować jak wyszukać nazwę(kolumna A) z arkusza nr 1 w arkuszu nr 3 i wrzucić w odpowiednie miejsce skopiowaną wartość komórki "Data"
1. Admin ma zawsze rację 2. Kiedy nie ma - patrz pkt 1 :D No, w każdym razie dzięki za awans :) Rzecz w tym, że zawsze szukam najprostszych rozwiązań. W takim razie jeszcze jedna próba: A gdyby tak zamiast do zmiennej, zapisywać wiersz pod wierszem w tymczasowym arkuszu, skopiować do schowka i wkleić do Notepad'a cały zakres?
Dla podsumowania A formuła będzie wyglądać tak: =ADR.POŚR("'"&TEKST($A... & "!B13") (wstaw do komórki B2 arkusza podsumowanie roku) Z B i C, analogicznie - chyba sobie poradzisz?
Tak. Przykład jest wycinkiem tego co potrzebuję. Pozostałe rzeczy ogarnę sobie (znajdź ostatni zapisany wiersz w arkuszu do którego chcę wkleić, skopiuj i wklej). Problem polega na tym, że potrzebuję właściwie wskazać zakres do skopiowania i tutaj moje pytanie.
Najlepsze przycisk. Nie należy wypełniać LP. Podczas skopiowania danych makro będzie wypełnić sam. Oznacza to jednocześnie może być kilka rekordów po kliknięciu na przycisk.
Mam drobny klopot a w zasadzie dwa :-) Jak skopiowac formule z jednego do innego arkusza ? jest jakas funkcja na kopiowanie samej tylko formuly nie koncowej wartosci ? Potrzebuje zrobic pewne wyliczenia i makro moze byc do tego dobrym rozwiazaniem bo If to max 7 powtorzen. Potrzebuje zdefiniowac kilkanascie roznych zmiennych (A1:=wyrazenie, A2 := wyrazenie...
Niewiele zmieniając i wykorzystując SUMA.JEŻELI: http://obrazki.elektroda.pl/1545005300_1... Zakres A1:I3 skopiowałem do A4:I6 (Ctrl+c Ctrl+v) itd, najpierw nieco przerabiając (przełom roku) formuły w wierszach 1 i 2. Edit: Można też stworzyć arkusz wynikowy, a ten z Rys.1 potraktować jako roboczy. http://obrazki.elektroda.pl/3712837000_1...
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
Nie da się tego połączyć "automatem" chyba ze ktoś napisze makro. Można to zrobić zwykłym = i wskazywać w otwartym pliku (jednym z 80) bliźniaczą komórkę dać enter wykasować dolary i skopiować komórkę w dół i w bok. I tak z każdym plikiem i jego arkuszem. Można też poprzez łącza ("dane zewnętrzne" i MSQuery) w każdym arkuszu wstawic arkusz z innego...
Twój opis tego co trzeba zrobić jest zakręcony jak słoik na zimę. Ja się pogubiłem. Moja rada jest taka. Rozpisz punkt po punkcie co trzeba zrobić (co w którym arkuszu do którego trzeba skopiować). Następnie zarejestruj makro na którym wykonujesz te czynność i je przeanalizuj. Zapewniam, że sam sobie poradzisz ze stworzeniem tego co ci potrzeba. Z Twojego...
Rozbij zadanie na kawałki: 1. Czy wiesz co masz skopiować? Potrafisz zaznaczyć ten Region myszką/kodem VBA? 2. Czy umiesz to skopiować? Ręcznie albo kodem VBA? Jeżeli wiesz jak coś zrobić ręcznie to zarejestruj makro i otrzymasz prawie gotowy kod. Do przeróbek, ale wykonasz je z niewielką pomocą internetu.
Witam. Mam dwa arkusze http://obrazki.elektroda.pl/6404666900_1...
Też o tym myślałem ale było późno. Poniżej tak jak chcesz z wykresem podziału profili(niestety jest mankament wykresu bo pokazuje również liczby 0. Nie udało mi się tego wyeliminować. Ale uważam że ostatecznie można to zaakceptować. Co do typów: Zawsze moskitiera ma 2 profile? to może typy można na stałe "przypiąć do rodzajów. choć nie mam na razie...
adamas_nt dzięki jeszcze raz za pomoc, miałem teraz trochę przerwy w zabawie z VB, ale projekt już skończyłem i wszystko mi działa:) tylko mam pewien problem z uruchamianiem tych makr, gdyż będzie ich używać osoba średnio znająca się na excelu, że nie wspomnę o kodach VB itp. i chciałbym ułatwić to na maksa, bo teraz kiedy chce go użyć to muszę: - za...
Pytanie oczywiście o makro. Czy istnieje możliwość powiązania komendy 'kopiuj' z przejściem do arkusza o konkretnej nazwie? Chodzi mi o to aby działo się tak: - mam otwarty skoroszyt A.xls oraz B.xls - kopiuję pewną liczbę (komórkę) do schowka ze skoroszytu A.xls - w tym samym momencie w skoroszycie B.xls Excel przechodzi natychmiast do arkusza o nazwie...
A to musi być makro? Nie może być funkcja wyszukaj.pionowo. W arkuszu 2 w komórce B8 wpisujesz: WYSZUKAJ.PIONOWO(A8;Arkusz1!$C$1:... i przeciągasz w dół a w C8 wpisujesz: WYSZUKAJ.PIONOWO(A8;Arkusz1!$C$1:... i przeciągasz w dół A aby to ładniej wyglądało lepiej wpisz tak w komórki: B8 =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOW...
Tu jest przykład jak bym chciał to wydrukować na drukarce mojej koleżanki z pracy: If key = 6 Then Arkusz3.PrintOut Copies:=1, ActivePrinter:="\\MAŁGOSIA\HP LaserJet 3200 Series PCL 6 na Ne06:", Collate:=True Jeżeli znasz adres XEROA5 to wpisz jak nie to wykorzystaj nagrywanie makra. Włącz "zarejestruj makro". Wybierz menu...
Ze względu na "zaszumione" dane zrobienie formuły jest dosyć dużym wyzwaniem, ale można kombinować z makro: [syntax=vbnet]Function Wyjmij(r As Range, n As Integer) As String Const minLen = 5 Wyjmij = "" Dim x, tmp, tmp2 As String Dim v, cn, cg As Integer tmp = "" For Each x In r tmp = tmp & x tmp = tmp & "%" Next x tmp2 = "" cn = 0 cg = 0 For...
Witam Pisałem w innym temacie ale poproszono abym stworzył nowy temat i dokładnie opisał co potrzebuję. załączam plik z danymi wymyślonymi na potrzeby pytania ale nie ma w nim makra. Samo makro załączam w pliku tekstowym dla bezpieczeństwa. W pliku excel są arkusze : Arkusz1 , Arkusz2 , Arkusz3 W Arkusz1 są dane . Kolumn w rzeczywistości mam 16 a wierszy...
Szanowni koledzy mam makro które kopiuje mi całe wiersze wtedy gdy jest spełniony warunek ( makro nie jest napisane przeze mnie a jedynie dostosowane ) działa super ale warunek dotyczy tylko jednej komórki. dopisałem sobie kilka takich samych instrukcji w których tylko zmieniałem komórkę z warunkiem . Dopóki warunków miałem ze 20 to nie szukałem innego...
Spróbuj Sub data() cel = ActiveCell.Address If IsDate(ActiveCell) Then For i = 2 To Sheets.Count Sheets(i).Range(cel) = DateSerial(Year(ActiveCell), Month(ActiveCell), Sheets(i).Name) Next Else 'dla pewności zapytam If MsgBox("Wartość w komórce nie jest datą, skopiować?",...
spróbuj zarejestrować (nagrać) makro i skopiuj jego kod do przycisku . Akurat na tym komputerze nie mam exela więc tego nie sprawdzę, ale powino się udać
Witam, Zwracam się do Was z zapytaniem o pomoc. Przejrzałem już dziesiątki podobnych wątków, ale odpowiedzi nie znalazłem. Dodam tylko, że jak większość jestem początkujący w tym temacie. Mam dwie zakładki, zlecenia i WZ chciałbym po zaznaczeniu dwóch check'boksow (odnoszących się do tego samego numeru zamówienia) i kliknięciu kopiuj, aby przerzuciło...
Kopiuj wklej nie wystarczy. Muszę to robić kilka razy w miesiącu i za każdym razem jeden arkusz muszę przerabiać kilka razy a mam kilka arkuszy. Więc na zwykłe kopiuj wklej to cały dzień roboty. Znalazłem różne informacje na forum, ale nie udało mi się tego uruchomić, żeby działało. Jak wspomniałem jestem zielony jeśli chodzi o makra. Wczoraj cały dzień...
To skopiuj sobie całą procedurę np. do jakiejś komórki albo do pliku tekstowego w formie: [syntax=vb]Private Sub Worksheet_Activate() MsgBox "To jest test" Cells(1, 1).Value = "OK" Cells(1, 1).Interior.Color = vbGreen End Sub[/syntax]a z kodu zrób: [syntax=vb]'Dodać referancję: Tools->References->Microsoft Visual Basic for Applications Extensibility...
A no tak, sorka. Chodzi mi o makro w exelu. Nie mogę skopiować makr w arkuszu które pobierają dane bo te są chronione hasłem. Makro jest jednak przypisane do przycisku. Mam roboczy raport do którego ręcznie przeklejam dane. Istnieje sposób aby napisać takie makro Excel aby w tym moim pliku roboczym otwierało plik który pobiera dane i aby to makro aktywowało...
Przepraszam ,że zawracam głowę ale nie mogę sobie poradzić z prawidłowym wyznaczeniem ściezki pliku ,który ma zostać skopiowany. Powinna ona być następująca - I:\Wycena Efos\NabyciaUmorzenia + dane z Wyciagu powinny wklejać się do arkusza o nazwie PODST - Wkleić
Witam Dim wksz As Worksheet, wksdo As Worksheet - definicje były? Baza/Arkusz1 i znajdują się w nim dane do skopiowanie Formuły są tam? ale jak w arkuszu Baza jest dużo wierszy około ile?
Witam, makro ma skopiować komórki z arkusza1 do pól tekstowych w arkuszu2. To które mam kopiuje wartość ze schowka w trakcie rejestrowania makra a nie tą która wpisuje już po zarejestrowaniu makra. Z góry dzięki za pomoc.
Sory że tyle pytań ale łatwiej od razu wiedzieć o co chodzi niż napisać kod a potem go przerabiać "paręnaście" razy bo autorowi nie o to chodziło. Jeszcze "jedno" pytanie: Czy pod przyciskiem aktualizuj plik ma tworzyć/sprawdzać od początku wszystkie umowy w arkuszu ogólnym i ewentualnie korygować je w poszczególnych arkuszach? Czy tylko ma złapać ostatni...
W załączniku przykład. A teraz do rzeczy: Moja wiedza jest licha, a widzę, że bez makra się zwyczajnie zajeżdżę ;) Chciałbym, aby makro skopiowało mi zawartość kilku komórek jednego bieżącego arkusza (B2;B3;B4;F4;N24) i wstawiło ich wartość do nazwijmy go 'Arkusz1' ale tym razem w jeden wiersz, a następnie wstawiło pusty wiersz i przeszło do arkusza...
Hej, zwracam honor i już dodaje spakowany plik. Odnośnie "bazy danych" - dlaczego to nienajlepszy pomysł? Plik docelowo w mojej głowie robi raport z np. 2 miesięcy, a każdy kolejny dzień jest tabelką niżej - codziennie wartości wpisywane w te kolumny się różnią, a potrzebne są do rozplanowania zmiany. Wcześniej miałem ten plik z macro, które kopiowało...
to trzeba wdrażać od początku projektu Cały ten projekt to jeden skoroszyt Excela, więc jak dla mnie, jest to wciąż faza początkowa:) Na miejscu autora wykorzystałbym Twoje makro do zsumowania danych w arkuszu RAZEM, a następnie skopiowałbym ten arkusz do czystego skoroszytu i na jego podstawie przebudowałbym cały skoroszyt z danymi, np. do formy,...
Cześć wszystkim, Z góry uprzedzam, ze moja wiedza w zakresie VBA jest znikoma - ogranicza się jedynie do pętli, odwołań do komórek, tworzenia mało skomplikowanych funkcji czy makr. Niektórym z was mój problem może wydać się prosty. Przeszukałem parę stron w poszukiwaniu odpowiednich makr lub przerobieniu istniejących, jednak było to bezowocne. Chciałbym...
Opis zagadnienia: mam arkusz do którego w różnych zakładkach wpisują różni użytkownicy swoje dane. Na koniec miesiąca tworzone jest zestawienie - przycisk generuj zestawienie (makro przezemnie napisane), który tworzy nowy skoroszyt, do którego przepisywane są odpowiednie dane. Wszystko OK tylko, że w arkuszu bazowym mamy makro, które chciałbym również...
Rozumiem, że w tym pliku już zaimplementowałeś oba usprawnienia? :) Bo ściągnąłem go i juz szukałem kasiory po formułach a tam nic :P Dodano po 2 Rozumiem też, że skopiowanie arkusza, aby służył na następny miesiąc, nie spowoduje problemów? Czy trzeba będzie robić od nowa makro i w ogóle?
Proponuję poświęcić odrobinę czasu na "zaliczenie" jakiegoś kursu. Np If A1="praca" Then D5=A1". Nie masz wrażenia, że skądś to znasz? To samo już po "Excel'owskiemu": '=JEŻELI(A1="praca";A1;"")' Jeśli chciałbyś skopiować komórkę również z formatowaniem, możemy rozejrzeć się za "sugerowanym" przez tłumacza 'copy'. Nagrać makro z Ctrl+C i Ctrl+V, następnie...
Proponuję makro zdarzeniowe BeforeDoubleClick: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Columns("B:C")) Is Nothing Then Exit Sub Cancel = True If Len(Target) = 19 Then Exit Sub Target.Value = Format(Now, "yyyy-mm-dd hh-mm-ss") Target.Columns.AutoFit End Sub[/syntax]Makro...
Witam, jestem początkującym w pisaniu makr. Walczyłem cały dzień aby napisać makro i nie wyszło dlatego proszę o wzór. Z arkusza „dane”, aby przenosiło komórki wszystkie z wiersza oprócz komórek z nagłówkiem „Ilość etykiet” do arkusza „widok” i skopiowało tyle razy, jaka jest wartość w komórce z nagłówka „ilość...
Witam nie mogę sobie poradzić ze stworzeniem makra które ma zadanie skopiować dane z innych plików do jednego skoroszytu (razem.xls). W pliku "razem.xls" jest arkusz w którym w kolumnie "A", w kolejnych wierszach jest umieszczony numer np. X01, X02, itd do 100. W katalogu C:\Dane są założone podkatalogi które się nazywają tak jak ten powyższy numer...
Czy masz pełen dostęp do tej sieci jako administrator, (czyli tworzenie, modyfikowanie,usuwanie itp) Nie, uprawnienia administratora mają tylko informatycy. Sprawdź sobie jeszcze tak nie używając makra, tylko manualnie czy możesz skopiować arkusz i wkleić za następnym. (włącz sobie jeszcze nagrywanie makr i zobacz czy zarejestruję tą operację) Mogę...
Przedstawione makro kopiuje drugi wiersz arkusza "Schell" z każdego pliku umieszczonego w podrzędnym katalogu o nazwie "xls" do pierwszego pustego wiersza arkusza o indeksie 1. Nie można skopiować pliku do pliku. Natomiast można skopiować całe arkusze lub wyznaczone zakresy poszczególnych arkuszy. Opisz stosując właściwe nazwy obiektów. Lista plików...
Dzięki, przejżę z pewnością wskazaną witrynę w poszukiwaniu rozwiązania tego i przyszłych problemów :) Jednakże, może ktoś pomogłby mi w poniższym problemie. Jest kod, który otworzy mi wskazany plik Excela, ale nie wiem co zrobić aby z tego otwartego pliku skopiować arkusze np.: Arkusz1, Arkusz2 i wkleić je na końcu w pliku z którego uruchamiałem makro....
Tak jak masz funkcję Prawdę mówiąc, nie ma funkcji. Jest makro. Różnica jest w tym, że makro (Private Sub) się wykonuje, funkcja (Function) zwraca wartość. W załączonym pliku, zdaje się, brakuje modułu z tą właśnie funkcją. Następna sprawa to argument: GetFirstEmptyRow(ThisWorkbook.Worksheets... - 1 o co tu chodzi? Mam wrażenie jak by czegoś...
Witam, mam następujący problem. Mam arkusz Zakupy Vat. Do niego dodałem kolumnę z wartościami (in jak inwestycje itd). Zastanawiam się czy za pomocą funkcji wyszukaj pionowo uda mi się rozpoznać komórkę z wartością in i skopiować cały wiersz do kolejnego arkuszu o nazwie Inwestycje. Czy to już trzeba będzie pisać makro? Najłatwiej będzie mi opisać mój...
Dobre macro tylko co zmienić by nie kasowało tabeli bo mam odpowiednio komórki scalone i przeniosło dokładnie zawartość wraz z taka samą tabelka ? Z góry dziękuje za odpowiedź. Wiele jest tematów na temat kopiowania danych z arkusza do arkusza lecz nie mogę wykombinować jak 1.Skopiować tabelkę z zawartością zachowując format czcionkę etc. 2.W tabeli...
Chce zautomatyzować raportowanie bo raport źródłowy ma masę pozycji i mnóstwo zakładek, a zestawienie końcowe jest ubogie w stosunku do źródłowego. Samo przenoszenie do innego pliku ogarnąłem. Największy problem mam z wyszukaniem konkretnej wartości w źródle i wyeksportowaniu wartości z pozycji niżej/wyzej. Dodano po 27 Poniżej prosty Excel który zrobiłem...
Witam. Ponownie potrzebuję pomocy. Tym razem potrzebne mi makro, które z danego folderu skopiuje i przeklei wszystkie arkusze do jednego pliku Excela. Kod na skopiowanie pojedyńczego, wybranego arkusza poniżej, ale jak zrobić to z całą grupą? Pętlą Do Until/For Each? [syntax=vb]ThisWorkbook.ActiveSheet.Copy _ Before:-Workbooks.Add.Worksheets(1)[/syn...
Komórki z nazwami nie muszą być warunkowe. Wystarczy =Menu!C10, =Menu!C12, itd. lub wpisz "z palca". Nazwę zakresu też już masz. Skopiuj makro "Druknij" i zmień: .PrintOut Copies:=1 na .PrintPreview Dla przykładu najpierw podmień sobie w "Druknij" i zobacz efekt.
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
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...
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...
1. W załączonym pliku są łącza do innego. Scal całość w jeden skoroszyt (skopiuj arkusze), popraw odwołania, lub usuń jeśli są bez znaczenia i załącz ponownie. 2. Z czym nie możesz sobie poradzić? Próbowałeś zastosować jakieś formuły, makra?
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...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Hej Wszystkim, przyznaję, bez bicia, że poniższe makro jest nagrane [syntax=vb]Sub Makro1() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;https://www.pewnastronawwwzdanymi:=... Destination _ :=Range("$A$1")) .Name = "?gfe_rd=cr&ei=uyCGU5GvBKuI8QeJ_4GwCA" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting...
Masz "dziwną" liczbę bo trzeba sformatować komórkę w której masz funkcję na czas w stylu "gg:mm:ss" Z tym że ta formuła przy standardowych opcjach arkusza ci się na nic nie przyda. Bo wystarczy że zrobisz w kolejnej komórce OK lub otworzysz plik (przeliczysz) lub cokolwiek obliczysz w innej komórce to wszystkie "godziny" przyjmą tą samą wartość. Na...
Oczywiście, ale :) Excel lubi płatać figle. Zapisz jeden wiersz z CheckBoxem, skopiuj go 100 razy, po czym usuń przez zaznaczenie 80 wierszy. Ile jest CheckBoxów w arkuszu? I co będzie gdy uruchomisz powyższe makro? Raczej użyłbym czegoś w stylu For wiersz = 1 To Range("A65536").End... 'tu drukowanie zaznaczonych w gałęzi...
OKi, to ten temat mamy załatwiony :) W załączeniu wrzucam plik z makrem i plik z danymi źródłowymi. Jak pozmieniać makro, aby z kolumny B w Arkuszu 2 (tam gdzie wrzucam dane źródłowe do przemielenia...) po zapuszczeniu makra w rezultacie otrzymać godzinę wcześniejszą o jedną pełną godzinę? (wiem, masło maślane, ale chyba zrozumiale ;) )
Jeśli sprawa jest jednorazowa można skopiować arkusze do pliku roboczego, zadziałać formułami i wynik przez kopiuj-wklej specjalnie umieścić w arkuszu docelowym. W innym przypadku sugeruję proste makro na pętlach For lub Do. W jakim stopniu masz opanowane VBA? Wrzuć jakiś przykład jako załącznik bez prowizji. Arkusze mogą być w jednym pliku, koniecznie...
makro excel arkusz arkusz makro excel excel makro nazwa arkusz
whirlpool zasilacz pralka zdjęcie blatu kopiowanie schowka
suszarka whirlpool pralki whirlpool
Nissan Micra K12 2005 - Instalacja Halogenów w Zderzaku Wideodomofon dzwoni bez powodu - co może być przyczyną?