Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
W makro otwieranie powtarzasz za każdym kopiowaniem. Zostaw tylko jedno na początku, a "Close" na samym końcu... i jak tak zmieniam: Sub OpenCloseWorkbook() Dim Dane As Variant Dim FileName As String Dim Rng As Range Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Wafel") Workbooks.Open...
Witam, Proszę Was serdecznie po pomoc w napisaniu jednego makra, z którym mam problem... Mianowicie chodzi o: - w Kolumnie A mam komórki z których niektóre są wypełnione danymi a pomiędzy nimi znajdują się puste komórki (jest tak zrobione specjalnie w wyniku innego makra i zależy mi żeby wypełnione komórki były w tym miejscu gdzie są bez zmiany położenia)...
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Tego załącznika nie da się odczytać. Jest uszkodzony. Zresztą już jego wielkość 256 bajtów wskazuje, że jest praktycznie pusty.
Sprecyzuj co chcesz uzyskać. Przekaz jest co najmniej 2 znaczny. Przecinki maja znaczenie. chcę żeby "data" pierwsza od góry buła kopiowana niżej w pustą komórkę, (to jasne) po napotkaniu następnej "daty" skopiować ją i niżej wpisać w pustą komórkę. (gdzie ma wystąpić następna data? w kolejnej komórce niżej, w pierwszej napotkanej komórce z datą. Czasem...
(at)speedy9 , w temacie napisano wyraźnie - makro. EDIT: W dalszej dyskusji podałem rozwiązania za pomocą formatowania warunkowego zaproponowanego przez (at)speedy9 ale z nieznanego mi powodu zostało to wycięte. Więc podaje tu: =ORAZ(CZY.PUSTA(1:1))... Ot tylko tyle dla wiersza 1, dalej można sobie formatowanie kopiować.
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Pan pisal = formuły liczące znajdują się od komórki AO11 do GG5000 = może to malo być "do DD5000", bo dalej jest całkowicie pusty Jest to cała masa formuł, początkowo próbował do iterować tylko formuły - zabiera zbyt dużo czasu. Ale jeśli przyjmujemy pewne ograniczenia, to sprawa może być. ale to jutro na nową głowę. jeden więcej rzeczy zaufanie, że...
Sprawdź wartość zmiennej plik przed pętlą. Jeśli pusta, to nieprawidłowy lub pusty folder...
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,...
Więc potem Wstaw pusty wiersz, a następnie dodaj checkboxy(patrz post #6)
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
Hej, Dziś bez żadnego kodu, bo pytanie otwarte. Mam makro które tworzy mi tabelkę w przyszłości więcej niż jedną i chciałbym żeby makro kopiowało daną tabele do Otuloka. Jak można to zrobić ? Aktualnie już samo makro mi robi gotowego (at) do wysyłki jednak jest on pusty i tabelkę trzeba sobie przykleić.
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...
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...
Do samego kopiowania lepiej użyć funkcji for each, która odczyta dane z każdego arkusza i przekopiuje cały zakres. Przyjrzyj się temu rozwiązaniu: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set wswykaz = ThisWorkbook.Worksheets("Wykaz&... wswykaz.Range("A2:F65536&qu...
Witam, Jako, że to dopiero moje początki w VBA proszę o pomoc. Potrzebuję stworzyć jak najprostsze makro żeby po kliknięciu przycisku kopiowało wybrane komórki (zawsze będą one w jednym wierszu) z Arkusza1 do Arkusza2 w kolejny pusty wiersz zaczynając od wybranej przeze mnie komórki i dodając przed całym tym ciągiem kopiowanym kolejnej liczby porządkowej....
Witam, wiem że był podobny temat, jednak tamten mi nie pomógł a ciężko znaleźć jakiekolwiek informacje w internecie. Od kilku dni męczę się z tym kodem, chciałbym aby po kliknięciu przycisku dodawał się nowy arkusz z nazwą pierwszego + kolejny numer po prawej stronie według kolejności, mam makro tworzące kolejny arkusz, lecz pusty oraz mam makro kopiujące...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Udało mi się wykombinować coś takiego: [syntax=vbscript]Private Sub Workbook_NewSheet(ByVal Sh As Object) ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") On Error GoTo Wrongname i = 0 Start: ActiveSheet.Name = Date + i Exit Sub Wrongname: i = i + 1 Resume Start End Sub[/syntax] Tylko ,że przy tworzeniu makra w NewSheet...
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
Interesujace... Otwórz jeszcze okienko "Makra" i zobacz czy jest tam pusto. Druga sprawa, po próbie skopiowania tej całej tabelki wciśnij klawisze Win+V i zobacz czy zawartość tego schowka jest taka sama jak schowka Office. Jeśli nie masz włączonej historii w schowku Windows to zrób to najpierw: Ustawienia (systemu) -> Schowek -> Historia schowka https://obrazki.elektroda.pl/4632169700_...
Witam, Potrzebuję pomocy osoby doświadczonej w posługiwaniu się Excelem. Stworzyłam raport, ale nie do końca spełnia on moje oczekiwania. Proszę o pomoc. Dodam, że wszystko w Excelu robię metodą prób i błędów, ale tym razem nie mam pomysłu, jak poprawić formuły… W arkuszu „Karta” w kolumnie AE (i adekwatnie AI, AL., AS, AV, AZ, BD)...
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...
w miejsca w których powinny być, czyli w miejscach w których pojawiają się w drugim arkuszu Jak makro ma to ocenić? Co z wierszami bez indeksu w A? Myślałam żeby znaleźć te wartości z prawda i ich indeks minus 1 wtedy indeks plus 1 wstawić pusty wiersz i wstawiać wiersze
Wydaje mi się, że na moje potrzeby jest ona zbyt automatyczna i może być tak, że będzie więcej formuł kopiować niż ja potrzebuję. Poza tym tak jak wspomniałam, nie chcę żeby formuły były widoczne, chcę je zamieniać na wartości, aby odciążyć plik. Poza tym nie chodzi tylko o taką prostą funkcję dodawania. Wolałabym, aby ktoś pokazał mi jak makro odnieść...
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
witam, potrzebuje pomocy na utworzenie makra - postaram sie dobrze wytlumaczyc tabela 1 : kolejnosci rozladunkow- ktore zmieniaja sie w trakcie pracy mamy max 10 rozladunkow na auto. 1 kolumna- klient, 2 kolumna- tempteratura, 3 kolumna- kod trasy tabela 2 : lista wszystkich klientow przewidzianych w ciagu dnia do rozladunku 1 kolumna- liczba palet:...
Witam, Potrzebuje zbudować makro które, będzie kopiowało wiersz(lub wiersze) z tabeli jeżeli spełnia warunek. A mianowicie: W Arkuszu1 mam tabele o określonej szerokości (16 kolumn) bez okreslonej ilości wierszy. W Arkuszu3 w komórce B2 wpisywanybyłby warunek (tekst) W Arkuszu2 jest pusty odpowiednik Arkusza1 (tylko nazwy kolumn). Marko działałoby w...
Witam. Mam problem z makrem, które muszę poprawiać za każdym razem aby poprawnie działało. Chodzi o to, żeby stworzyć pętlę (zapewne pętla For tu będzie się na dawać), która będzie kopiować dane z kolumny A co kolumny C pod dwoma warunkami: 1. Kopiuje w przypadku, gdy wiersz jest pusty 2. Kopiuje w przypadku, gdy w wierszu nie ma słowa "Terminal" Bardzo...
Skoro jest pusto od kolumny F (wszystkie wiersze) Skoro tak, to sprawdzenie wiersza 1 musi działać. https://obrazki.elektroda.pl/4101858100_... Mam nadzieję, że obrazek wszystko wyjaśnia... P.S. Makro powinno nazywać się OstatniaKolumna.
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
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.
Jeśli to sam sporządziłeś ten kod makra i masz wolę go usprawnić - to proponuję nauczyć się przede wszystkim tzw debugowania skryptów - zakładka deweloper :arrow: makra :arrow: wkrocz :arrow: i dalej przez F8 krok po kroku analizujesz co robi (lub nie robi :D ) Twój skrypt (makro). po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się...
Tak nagrało mi makro które zarejestrowałem. Znalazłem problem z komunikatem Out of Memory: Problemem był pusty plik. Dodałem sprawdzenie czy plik jest pusty i wszystko działa jak powinno. Odnośnie : Myślę, że większe korzyści można odnieść optymalizując: Me.Repaint Call pas1.Pasek_Up1(i + 1) Me.Repaint ustawiłem już, żeby pasek był zależny od wartości...
Witam, borykam się z następującym problemem. Nagrałam makro do przycisku, które kopiuje arkusz (zawsze ten sam, nie ten aktywny - niestety). Po skopiowaniu arkusza następuje usunięcie wszystkich wprowadzonych danych, żeby znowu mieć pustą formatkę na nowy tydzień. Jak wprowadzić w tym kodzie warunek, żeby w danym zakresie czyściło zawartość ale z wyjątkiem...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Dziękuję wszystkim za pomoc. Problem rozwiązany. Jak to zrobiłem. Może komuś się przyda: 1. Trzeba zmienić wyświetlanie znaków niewidocznych - Opcje - Wyświetlanie - Pokaż wszystkie znaczniki formatowania 2. Z ori pliku trzeba usunąć znaki nowego akapitu przez Ctr-H - Więcej - Specjalne - Znak akapitu (Uwaga: może być dwa razy i generuje różne znaki...
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...
Tamto działa. Ale miałem błąd jeśli arkusz2 był pusty (a tak też może się zdarzyć) więc dodałem warunek, że jeśli pusta to cała kolumna, to kopiuje całą kolumnę, ale też coś nie działa... Sub Makro1() If (Range("A:A") = "") Then Sheets("Arkusz2").Rang... = Sheets("Arkusz2").Rang...
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Witam, Potrzebuję pomocy w stworzeniu skryptu arkusza kalkulacyjnego Google który będzie kopiował zakres komórek wskazanego wiersza np. A1 do E1 w pierwszy pusty wiersz w arkuszu. Aktualnie używam makra z Excel 2007 wyglądającego tak: 721591 Wydzielono z http://www.elektroda.pl/rtvforum/topic23... [adamas_nt]
A nie lepiej po prostu wstawić kod makro na miejsce? W końcu ile razy tego makra używasz w kodzie ? .dseg adr_global: .byte 1 wcr_w: .byte 1 dr_w: .byte 1 gtdr: .byte 1 .cseg ;!!! Dane z pamięci RAM ładujemy za pomocą ld lub lds !!! ; !!! dane między rejestrami kopiujemy za pomocą mov !!! wcr_write: ldi r16,0b01010000 ;identyfikator...
Witam Bardzo proszę o pomoc. Niestety moje umiejętności z vba nie są na najwyższym poziomie, a poniższe makro bardzo przyspieszyło by mi pracę. Często muszę tworzyć raport z wszystkich lat, dla szukanej przeze mnie nazwy ulicy. W załączeniu przesyłam plik z czterema arkuszami. Potrzebuję makro, które wyszukuje wiersze po nazwie ulicy. Nazwa ulicy znajduje...
kopiować makro makro kopiować makro zaznaczać pusty
easun schemat kontrolka awarii akumulatora ariston lodówka moduł
samsung qe55q85 samsung qe55q85
Wysokie obroty silnika po uruchomieniu - przyczyny i diagnostyka Wzmacniacz WS432: Bezpieczny spadek na rezystorach emiterowych