trochę zmieniłem podejście Musisz założyć z góry co chcesz osiągnąć a nie co chwile wklejać jakieś makra. "Widzę", że chcesz pobrać tylko 5 wartości z kolumn(F,J,L,N,W) można to zrobisz tak j.w czy przez zwykłe kopiowanie. Chciałbym, żeby napisany kod mógł sprawdzić czy plik jest już otwarty i jeżeli tak, żeby pominął krok otwierania pliku - nie udało...
Jeśli nie tabela przestawna to myślę, że najlepszym rozwiązaniem jest zastosowanie makra. Takie makro może pobierać datę na którą ma być obliczona godzina wejścia wyjścia i dla wszystkich pracowników wklejać w odpowiednie pola odpowiednie czasy. Jeśli będziesz zainteresowany mogę przedstawić więcej szczegółów.
nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.) :?: :?: :?: Czy to ma znaczyć, że nowe rekordy mają być dopisywane do poszczególnych tabelek z tym samym ID ??? Jeśli istnieją jakiekolwiek racjonalne przesłanki, że poszczególne segmenty tabeli nie mogą być dziesięcio-wierszowe :cry: to w kodzie te dane mają kopiować się...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
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...
Najprawdopodobniej wchodzą dwa slash'e. Najlepiej dopisywać warunkowo. Przy okazji: przypisujesz tę samą wartość do dwóch zmiennych (nieszkodliwa nadmiarowość)[syntax=vb] ImgFldr = InputBox(AnsDirPrompt, "Powitanie", "C:\") 'ImgFldr = AnsDir CurrentFile = Dir(ImgFldr & IIf(Right(ImgFldr, 1) = "\", "", "\"))[/syntax]
Próbowałem też bezpośrednio w kodzie makra wklejać lub wpisywać te znaki, ale nie chce przyjmować Ale przyjmie arkusz. Zrób tabelkę, do tego odpowiednie makro...
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
tytuł tematu trochę zagmatwany, ale już wyjaśniam. Mam takie testowe makro: [syntax=vb]Sub agregacja() ' ' agregacja Makro ' ' Sheets("agregacja").Select Range("A3").Select Sheets("kohezja").Select Range("G1").Select Selection.Copy Sheets("agregacja").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Dzień dobry. Poszukuję rozwiązania za pomocą Vba . Dane są zawarte w 6 kolumnach ok 2000 linii posiadają duplikaty i nie tylko-są też pojedyncze linie w liście. Makro powinno wycinać i wklejać do Arkusza2 w oparciu o duplikaty lub pojedyncze elementy Arkusza1 z kol"A" w zakresie linii do kolumny "E" . ( w całej liście w większości to duplikat choć występują...
Witam Mam w makrze taką linijkę kodu: [syntax=vbscript].Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellT... Sheets("Dane").Range("BZ3")[/syntax] Co zrobić, żeby makro zamiast wklejać mi do komórki "BZ3", wklejało do pierwszej pustej komórki w kolumnie BZ licząc od trzeciego wiersza (czyli od komórki "BZ3"
Dodałem jeszcze obsługę zdarzenia Worksheet_Change dla tej jednej komórki A2. Może to Ci wystarczy. Ale gdyby ktoś chciał wklejać kilka komórek na raz, to nie wiem jak to zadziała. Natomiast w module arkusza Arkusz1 masz wklejoną dość długą procedurę Workbook_SheetChange. Rozumiem, że masz świadomość, że ona tu nie zadziała i traktujesz ją jako "magazyn...
Co ma wspólnego makro do zaznaczania aktywnego wiersza z funkcją, której nagłówek pokazujesz? Jak i do czego używasz tej funkcji? Zaznaczanie aktywnego wiersza masz zrobione formatowaniem warunkowym z formułą: [syntax=text]=KOMÓRKA("ROW")=WIERSZ()[/s... z tym są dwa. Pierwszy - należy właściwie zaznaczyć zakres komórek, w którym to formatowanie...
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ę...
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...
Witaj. Dobrze by było, gdybyś wstawił przykładowy arkusz przed i po operacji, którą chciałbyś osiągnąć przy pomocy makro. Aktualnie interpretując opis wynika z niego, że chcesz po kolei wszystkie komórki z kolumny C po kolei wklejać w puste miejsca kolumny A (omijając już wypełnione komórki).
Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Przypominam, że na prośbę autora postu kod został dostosowany do ściągania danych tylko z pierwszego arkusza wszystkich plików ze wskazanego folderu :D Tak było Port, nie przedstawiłem zagadnienia odpowiednio szeroko i teraz się meczę straszliwie :(...
Witam, mam makro kopiujące tabelkę dowolną ilość razy (w zależności ile użytkownik ustawi). Niestety mam problem z obramowaniem - niektórych linii nie chce skopiować (próbowałem już wklejać specjalnie - nic nie pomogło). Wie ktoś może czy istnieje jakieś rozwiązanie? Chciałbym uniknąć zapisu tworzącego dodatkowe linie gdyż wydłuża to ponad 2 razy moje...
Spróbuj nagrać makro które zamiast wklejać wszystko ze schowka (Paste), będzie wklejało specjalnie jako wartości (lub inna opcja która nie wklei "kropeczek" - PasteSpecial + parametry).
Moim zadaniem jest napisanie makra, które działa na pliku zawierającym dwie tabele. Jedna z nich to stan początkowy, druga to stan końcowy. Makro powinno kopiować dane z tabeli stanu końcowego, tworzyć nowy plik (taki sam jak poprzedni) i wklejać dane do tabeli ze stanem początkowym. Dodatkowo fajnie byłoby gdyby nazwą nowo stworzonego pliku była data....
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ć
W tym, że nie ma kopiować całego arkusza. Jak znajdzie w kolumnie O i wierszu 10 wartość większą niż 70, to ma kopiować i wklejać do innego pliku tylko wskazane wartości z kolumn i wiersza 10.
Panowie i Panie potrzebuję pomocy w takim prostym makro jak wklejać tylko wartość a nie funkcję i formaty? [syntax=vbscript]Sub kop_działa() Dim wiersz As Integer, nr_wiersz As Integer nr_wiersz = 10 With Worksheets("LISTA") For wiersz = 3 To 200 Step 1 .Range(.Cells(wiersz, 24), .Cells(wiersz, 24)).Copy _ Worksheets("DRUK").Cells(nr_wiersz + 3, 3)...
Ktoś mógłby pomóc? Ok, to tylko wyjaśnij: - skąd będziesz kopiował ? czy na pewno z tego arkusza Raport gdzie są przyciski ? - gdzie chcesz wklejać te dane ? gdzie jest słownik wiążący używane kody i zupełnie inne nazwy arkuszy ? skąd makro :D ma wiedzieć gdzie Ty masz ochotę wkleić aktualne dane ? - jakie jeszcze niespodzianki przygotowałeś dla osób...
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
Próbujesz wklejać zbyt duży zakres danych w stosunku do posiadanego miejsca w arkuszu, tak mniej więcej działa twoje makro: http://filmy.elektroda.net/24_1502974789... ( odtwarza się na pewno w mpc-hc ) Wklejany zakres jest o min. 1 wiersz większy niż dostępne miejsce w arkuszu. Pytanie: Jaki właściwie zakres danych chcesz kopiować z jednej zakładki...
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
potrzebuję datę np 15.10.2021 rozdzielić na dzień 15 i miesiąc 10. Następnie połączyć dane z innej kolumny z dniem i miesiącem. Proponuję zamiast kombinować z makrem wprowadzić do kolumny H (tej ze złączeniami) prostą formułę :idea: :D : =E2&" "&TEKST(DZIEŃ(F2);"00")&"."&TEKST(MIESIĄ... i przeciągnąć ją w dół :D , albo nagrać sobie makro...
Witam, mam makro sprawdzające wiersze w arkuszu Excel. Działa dobrze, jednak chciałbym aby jednym przyciskiem, który mam na Arkuszu1 program sprawdził wiersze w arkuszach w zakresie "Arkusz4:Arkusz36". Teraz muszę wklejać przycisk w każdym arkuszu, żeby zadziałało. Oto moje Makro: Sub przelicz() Const max As Integer = 36 Dim i As Integer i = 26 Rows("26:36").Select...
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...
Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...
Dobry wieczór, Nie znam się na SolidWorks, ale w kodzie VBA widzę przynajmniej dwa błędy: pierwszy w połączeniu Range("Q5...BJ5").Selection.Copy Powinno być rozbite na dwie instrukcje Range("Q5...BJ5").Select Selection.Copy Można też pominąć selekcję i pozostawić tylko: Range("Q5...BJ5").Copy Drugi błąd: Active.Worksheet.Paste Po pierwsze ta instrukcja...
Witam, potrzebuję makro do Excela w VBA. Łamie sobie głowę, żeby to napisać i może ktoś umiałby to poskładać w sposób logiczny w makro. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to troche ciężki temat :| Program ma kopiować komórki J2:J, K2:K, L2:L...
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Pomógłbyś mi przerobić to makro przy założeniach: 1. Ma pobierać wszystkie pliki *.xls i *.xlsx z folderu - na szczęście to makro już to potrafi; 2. Z arkusza "Ogólne" pobiera imię pracownika z komórki A1, która jest scalona z trzech komórek. Przy próbie zmodyfikowania makra, zaczęło mi pobierać wszystkie 3 i wklejać od kolumny A do C. 3. Z arkusza...
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...
Raczej koledze chodzi o te np. 2 najprościej zaznacz kol b i tekst jako kolumny i zakończ clubs, rozwiązania faktycznie działa, a czy istnieje możliwość aby dane wklejane do kolumn A i B w momencie wklejania automatycznie wykonywały "tekst jako kolumny" i zamieniały wartości tekstowe na liczbowe aby działo się to automatycznie bez konieczności zaznaczania...
Bardzo dziękuję za pomoc, działa teraz bez zarzutów :) Naprawdę jestem bardzo wdzięczny, "życie mi ratujesz" Muszę tylko jeszcze wymyśleć coś z tym stałymi danymi, które muszą się wklejać do każdego wiersza zaimportowanego. Ale i tak już jestem zdecydowanie bliżej rozwiązania niż dalej :) Jeszcze raz dziękuję i pozdrawiam
W ogóle nie masz żadnej wolnej komórki by tam wklejać dane? A może dołóż dodatkowy arkusz (choć jeżeli to jedna liczba to trochę bez sensu) Pozostaje makro - ale czy to będzie szybciej?
Makro postepuje tak: Gdy wpisze coś w kolumnę I. I następnie użyje skrótu cltr + n to przesunie te wartości w prawo. Dodatkowo tworzy się kolumna jako bufor. Bo nie chce aby przesuwało się to co jest za datami. Najlepiej byłoby, gdyby po wpisaniu w kolumne I automatycznie wszystkie daty danego wiersza przesuneły się po prostu w prawo bez zmiany dalszych...
Udało mi się dopasować pliki i przetestować. Za każdym razem pojawia mi się komunikat - w schowku jest duża ilość informacji, czy chcesz później wklejać je do innego programu. Może źle dopasowałem? nie mam wprawy w excel. Czy można wprost przenosić dane bez np formuł. Tzn w każdym pliku jest lista rozwijana z RM (wybór z kilkunastu opcji), czy też...
Witam, mam następujący problem. Nie jestem programistą i generalnie gubię się przy wprowadzaniu jakiś kodów, a muszę co jakiś czas modyfikować taki kod: name="TUTAJ WSTAWIAM DANE" x="TUTAJ WSTAWIAM DANE" y="TUTAJ WSTAWIAM DANE" address="TUTAJ WSTAWIAM DANE" <desc><![CDATA[<a href="TUTAJ WSTAWIAM DANE" target="_blank"><img src="TUTAJ...
Czy takie makro w kodzie arkusza spełni zadanie? [syntax=vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False Application.CellDragAndDrop = False End Sub[/syntax]Pozostaje możliwość kopiowania przez schowek systemu Office i makrem.
Teraz pokazuje mi błąd w tej linijce[syntax=vbscript]With Sheets(tblArkusze(i)) .Visible = True[/syntax] Odrzuciłem na razie sprawę formuł i sprawdzania poprawności. Teraz to makro wygląda j.n. [syntax=vbscript]Sub wstawianie_IL() 'poprawione Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze() Application.ScreenUpdating = False...
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...
Witam, Poszukuje rozwiązania problemu. Potrzebuję macro, ktore wyszuka wartości z kolumny B Arkusz1 i wstawi odpowiednią wartość z Arkusza2 z kolumny B odpowiednio co do liczby w Arkuszu1(kolumna B). Następnie macro powinno wklejać wartości(Arkusz1 kolumna B) dla danego numeru (Arkusz1 kolumna A), po przecinku w jednej komórce w Arkuszu3 w zależności...
Mam podobny problem, troszkę bardziej złożony- a przynajmniej tak mi się wydaje. Potrzebuję makra które ze sporej bazy danych wycinać będzie sekcje komórek i wklejać je jedne pod/obok drugich w kolejnym arkuszu. Część o którą mi chodzi zawsze jest tej samej długości i zawsze poprzedza je komórka o konkretnej zawartości, po czym następuje sekwencja komórek...
Bardzo dziękuję Tomaszu za pomoc i poświęcony czas. Potrenuję dzisiaj z tym kodem i dam znać, jak się zachowuje. Dzisiaj już nie będę odpisyał, ale się odezwę. Witam dondu i dziękuję za powitanie i chęć pomocy. Programik, który testowałem, jest zaczerpnięty z Atnel forum i na podstawie BB. Na razie robiłem to z jednym przyciskiem i jedną diodą, ale...
wklejać wartość makro excel makro wklejać makro wklejać wartość
podłączyć zielony kabelek mercedes xenony philips termistor
stacja transformatorowa thomson am1460
Błąd UD 01 w systemach SCADA - przyczyny i rozwiązania LG 47LE8500 zatrzymuje się na logo - diagnoza i naprawa
