[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Application.ScreenUpdating = False w = Target.Row Set a = Sheets("Arkusz2") nw = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(Cells(w, "A"), Cells(w, "D")).Copy a.Cells(nw, "A") Range("E" & w).Copy a.Cells(nw, "E").PasteSpecial...
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
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"
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...
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...
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 +...
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.
Witam. Bardzo dziękuje za odpowiedź. Jednakże jestem kompletnie zielona w tych kodach i nie mam w którym miejscu w kodzie mam wpisać petle usuwającą. Poniżej nowy kod po zmienach... Kompletnie nie działa :( [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim sciezka As String Dim wzorzec As String Dim plik As String Dim Shp As Picture...
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]
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
Proponuję nagrać makro.
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...
Pytanie czy to co jest wklejane nie zawiera znaków pustych z błędnymi kodami ASCII i to powoduje problem? Czy nie ma weryfikacji tego co jest wklejanie?
Nagraj makro jak wklejasz wartość i na tej podstawie zmodyfikuj swój kod
Nie da się tego przedstawić w formule, ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik. Tak samo, żeby makro zliczało wszystkie powtarzające się wartości i do nich odpowiednio przypasowywało dane.
Dziękuje za pomoc. niestetli Makro wysypuje się na linijce ActiveSheet.Paste nic sie nie dzieje. Zauwazyłem, ze jak jednak pootwieram wszystkie arkusze kolegów wtedy makro wkleja 2-3 pliki i znowu się wysypuje
Dzięki za propozycję, mam już jednak całe gotowe makro robiące wszystko czego potrzebuje, łącznie z zapisywaniem plikow w odpowiednie miejsca itp, brakuje mi tylko tego wklejania bez formatowania.
Cześć, mam taki problem. Chciałabym zarejestrować makro, które będzie kopiowało komórkę i przenosiło do innego arkusza. Jednak wartości tej komórki będą się zmieniać, a jak rejestruje zwyczajnie kopiując i wklejając, to potem makro wkleja mi tę wartość, którą skopiowałam przy rejestracji, zamiast nowej, która pojawiła się w tej komórce kopiowanej. Proszę...
Uruchom rejestrację makr Zrób co chcesz aby zrobiło makro Formułę musisz wpisać do komórki (a nie wklejać) Zatrzymać rejestrację i wejść w edycję makra Tam zobaczysz kod i formułę w takiej postaci jak chce VBA Dostosować makr do swoich potrzeb I tyle Mam nadzieję iż teraz jest to jasne.
Wygląda na to że bez zmian dla przykładu jeden wiersz a arkuszu Arka w którym sformatowałem ceny kolorem czerwonym: Sam chciałeś W nagranym przeze mnie makrze takie wklejanie daje taką linijkę kodu: Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats Niestety nie wiem czy można ja dopisać do Twojego makra. Niestety nie potrafię z kodu wychwycić...
Spróbuj [syntax=vb]Sub Makro() wrs = 2 'pierwszy wiersz zakresu ile = 36 razy = 30 Do While Cells(wrs, 1) <> "" wrs = wrs + ile For i = 1 To razy Rows(wrs & ":" & wrs + ile - 1).Insert shift:=xlDown Rows(wrs - ile & ":" & wrs - 1).Copy Rows(wrs & ":" & wrs + ile - 1) Next wrs = wrs + ile * razy Loop End Sub[/syntax]
Istotne jest dla mnie też aby administrator w prosty sposób mógł przerwać działanie makr. . W tej chwili od momentu otworzenia pliku w arkuszu nr 2 makra nie pozwalają na wykorzystanie kopiowania i wklejania. Zadanie jest taki aby admministrator na czas swojej pracy mógł w prosty sposób wyłączyć makra, a po skończeniu pracy - z powrotem je włączyć....
Uprzejma prośba o pomoc napisałem makro które wkleja zawartość z excela do maila. Mam problem z tym że wkleja tekst bez formatowania. Jak zrobić żeby wklejał tabele z pogrubionym tekstem kolorami itp tak jak mam w tabeli ?
ale ja mam kilka makr i nie chodzi mi o jedno konkretne. Pytanie moja milo na celu informacje czy da sie to zrobic jakos automatycznie zeby nie zmieniac wszyskich wartosci komorek z palca w formulach jakie to makro wkleja, bo jak wczesniej wklejalo do kolumny np K2 to terazpo wstawieniu dodatkowej jest to kolumna L2. A on pamieta ze ma wkleic do K2.
w jaki sposób makro będzie wiedziało z którego fragmentu kodu html pobrać dane? Takie rzeczy zrobisz za pomocą kwerendy. (excel>narzędzia >pobierz dane zewnętrzne) do jakiejś bazy z kursami
Przecież masz opisane Wklejasz makro do modułu (paski narzędzi - visual basic - edytor visual basic. menu insert - moduł ... i tu wklejasz kod funkcji) Edytor możesz zamknąć. Przechodzisz do arkusza i w wolnej komórce wpisujesz np =liczkolory(A1:B100;5) wg podpowiedzi: =liczkolory(zakres;indeks koloru) I masz policzony dany kolor
Potrzebuję pomocy przy stworzeniu makra do kopiowania zakresu komórek z Arkusza1 do Arkusza 2. Wybieram np. komórkę Arkusz1:D7. Makro kopiuje komórki C7, D7,E7,F7,G7 i H7 i wkleja je do Arkusza2(C15, H15). Wybieram drugą komórkę np. Arkusz1:D25 i makro wkleja zaznaczony obszar do Arkusza2 w kolejny wiersz(C16, H16). Makro powinno działać tylko przy...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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...
Nie jest tam żadnego komunikatu o błędzie? Jak dodac przed 'End Sub' np. MsgBox "Koniec", można zobaczyć okienko? Można ręcznie skopiować z 468 arkusza? Być może istnieje coś, co nie jest kopiowane Dodano po 3 poprzez makro lądują dane ( tylko do pierwszego wiersza (A1:X1) Dlaczego natychmiast makro nie wkleja jeden pod drugim?
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
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...
Przesyłam raz jeszcze załącznik, jest to samo makro, bez arkusza. Na wszelki wypadek wklejam makro poniżej [syntax=vbnet]Sub Kopiuj_obszar() Set a = Sheets(1) Set b = Sheets(2) KOL = 3 FOR ILE_KOPII = 1 TO 3 For NW = 2 To 7 FOR NK = 2 to 50 b.Cells(nw, NK + KOL) = a.Cells(NW, NK) NEXT Next KOL = KOL + 9 NEXT End Sub[/syntax]
Makro uruchamia pokazanie czasu i wkleja jej wartość do określonej komórki.
Wkleiłem ten kod w visual BASIC i po uruchomieniu nic się nie dzieje. Nie bardzo wiem co mogę odpowiedzieć, ja wklejam i działa. Może prześlij plik do którego to wkleiłeś?
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).
Dlaczego myslisz, ze wklejenie makra w jego opisie odniesie jakis skutek? Opis zostaw pusty, dodaj makro, nastepnie wybierz wyswietl makra -> edycja i dopiero tam wklejasz kod.
Formuły nie dam rady napisać, ale wklejam Ci makro. Tak mniej więcej mogłoby to wyglądać :wink:
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...
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Przypisz tym kombinacje 2 puste makro t.z. Makro z tym komunikatem
Dziękuję. Niestety nie działa jeszcze tak jak potrzebuję ;/ Pozmieniałem trochę zakresy danych, ale jest kilka rzeczy do zrobienia. 1. Podczas kopiowania z "Spis końcówek lotów" do "Złomowanie" makro wkleja dane tak jak leci, a powinno wpisywać w pierwszy wolny wiersz od B3 do nieskończoności tak na prawdę tylko ZŁOM. W tej chwili usuwa mi również dane,...
Gdybyś zarejestrował sobie makro, to pewnie udałoby Ci się je zmodyfikować pod ten problem. Makro nic więcej nie robi, jak kopiuje i wkleja. W załączniku masz rozwiązanie.
Nie pozwoliło mi wkleić pliku z makro. Mam nadzieję, że to nie przeszkadza. Wklejam kod makro do teego pliku tutaj: Sub Kopiowanie() ' ' Kopiowanie Makro ' ' Sheets("Arkusz1").Select Range("A2,B2,D2,F2").Select Range("F2").Activate Selection.Copy Sheets("Arkusz2").Select ActiveSheet.Paste Sheets("Arkusz2").Select Range("F15").Select End Sub Dziękuję...
Porada okazała się skuteczna. Makro jest już pełnosprawne. Dzięki
[syntax=vbscript]Sub DodajBudynek() ' ' DodajBudynek Makro ' ' Columns("D:E").Select Range("D5").Activate Selection.Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Select ActiveSheet.Paste End Sub [/syntax]
Wrzucam plik. Chodzi o to, żeby z zakładki kwerenda dane z kolumn A:H, w których w kolumnie "J" widnieje opis ,,brak w rejestrze", po uruchomieniu makra wklejały się w zakładkę Rejestr protokołów w kolumnach "A:H". Próbowałem kodów, które podesłaliście, ale niestety coś się wykrzacza.
Witam. Nie jestem specjalistą odnośnie VBA i mam problem z napisaniem odpowiedniego makra. Mianowicie: potrzebuję, aby wpisana dana do TextBox1 za pomocą przycisku CommandButton1 była zapisywana do Arkusza2 zaczynając od komórki A2. Następnie przy wprowadzaniu kolejnych danych makro musi sprawdzić, która komórka w kolumnie A jest wolna i tam przypisać...
Witam potrzebuję pomocy z vba otóż chciałbym żeby stworzyć makro które kopiuje i wkleja wartości(bez formatów jest taka opcja w excelu wklej wartości) ale żeby to makro przeszukało mi pewien zakres np g2 do h30 i jeżeli w np w g15 = "" lub w innej komórce albo w h 23 = "" itd. Wtedy kopiowało mi cały ten wiersz np a5 do h5 i wklejało np od l1 do s1...
Kod wklejamy pomiędzy znaczniki (Syntax) - opcja "Listing kodu". Twój post (z racji pełnienia funkcji) poprawiłem, przy okazji łącząc oba w jedno ;)
Nagraj makro polegające na skopiowaniu i wklejaniu... jako formuły / jako wartości... Może coś rozjaśni...
Tak samo F11. W oknie po lewej stronie dodajesz nowy moduł, a w treści po prawej wklejasz potrzebne makro. ----------- Miało być ALT+F11 ;)
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.
Rozumiem, że chcesz tylko skopiować i zamienić na wartości? Bo kopiujesz i wklejasz w ten sam obszar. Jeżeli tak to można [syntax=vbscript]With Sheets("MATERIAŁ ROBOCZY").Range("Tabela6[[Kolumna1]:[kol... .Value = .Value End With[/syntax]
Witam i proszę o pomoc stworzyłem co prawda za pomocą rejestrowania makr makro które po aktywacji wkleja tło do arkusz i działa ok. Problem pojawia się wtedy kiedy przesyła arkusz do innego użytkownika i makro wtedy nie działa. Pomyślałem że rozwiąże to w sposób taki że i plik excela obraz jpg umieszczę w jednym katalogu i karze pobierać plik zgodnie...
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
Witam. Nagrałem sobie makro które wkleja mi listę z poprawnością danych. Makro wygląda jak poniżej. Próbuję to zastosować aby doda taką listę z poprawnością danych przez VBA pod konkretną ścieżkę. Niestety za nic nie wiem jak zrobić, co bym nie zrobił to wywala mi błąd. To jest ścieżka docelowa: [syntax=vb]ark.Cells(ostWrs + 1, 129) =[/syntax] ...a...
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro do...
Istnieje na to jakaś funkcja, Mozna funkcja przy zalozeniu ze numery pozycji z CP-P, CP, TPP itd. i rok nie powtaraja sie tzn. ze np. 201207527 w kosztach jest tylko dla 2012 TWP w 'arkusz...2012 w B7 =INDEKS('[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!B:B;PODAJ.POZYCJĘ($A7;'[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!$A:$A;0)) przeciagnij wprawo...
Dziekuje w tej czesci kodu pomoglo ;) Makro poszlo dalej ale kolejny blad wyskoczyl tym razem "6" - Overflow Range("m1") = tot_yield / tot_launch ' Worksheets("POV Breakdown - full data").Select ActiveSheet.Next.Select ActiveSheet.Next.Select ActiveSheet.Next.Select Worksheets.Add ActiveSheet.Name = "Yield summary"[/syntax] Podkresla Range("m1").
używała opcję kopiuj wklej i tak puszczała do druku Makro też kopiuje i wkleja, tylko tyle, że bez udziału człowieka i nie 5 dni.;) Przygotuj plik z arkuszem Wydruk ze wzorcem wydruku jednej strony (tak, żeby wpasowało się w kartkę z etykietami) i podeślij.
Warto wiedziec na jakiej zasadzie dziala makro a dziala tak ze wkleja wszystko "tak jak leci" wiec dokladnie tak jak kolega wyzej napisal tworzy sie cos co semantycznie jest dla kompilatora bez sensu.
Makro z postu 16 nie wkleja kopiowanego obszaru do nowego arkusza, poza tym wszystko działa :P W moim poście wyżej jest już prawie takie makro jak ma być tylko żeby w arkuszu docelowym po wklejeniu kolejne kopiowania były o jeden wiersz niżej niż poprzednie.
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...
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]...
Dzięki za fotki były bardzo pomocne :P Mam jeszcze jedno pytanko odnośnie adresowania: Jak wklejam makro karty siemensa (ściągnięte od producenta) na przykład 32 DI to w dolnym lewym rogu wklejanego elementu jest :"INPUT BYTE X" "INPUT BYTE X+1" "INPUT BYTE X+2" "INPUT BYTE X+3" jeśli adresuje tak jak na zdjęciach powyżej to adresy przy złączach się...
Proszę mi napisać gdzie to makro mam wkleić. Wklejam =PRAWY(A2;DŁ(A2)-ZNAJDŹ("*";PODSTAW(A2;" ";"*";DŁ(A2)-DŁ(PODSTAW(A2;" ";"")));1)) do fx (wcześniej zaznaczam zakres komórek np od A1 do A10), wklejam tekst i nic. Mam Excel 2010. Czy mam zaznaczyć komórki w kolumnie B? Tak też próbowałem nawet.
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.
Metoda PasetSpecjal z klasy Range nie powiodła się. No pewnie, że się nie powiedzie. Podałem tylko przykład, a nie rozwiązanie. Zanim wykonasz Selection.PasteSpecial, musisz wybrać arkusz i komórkę, do której wklejanie nastąpi...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D kopiowanie z kolumny w Arkusz1, następnie transpozycja i wklejenie w wierszu w aktywnym arkuszu (każde użycie makra wkleja do kolejnego wolnego wiersza wiersza)
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. (at)ElektrodaBot
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...
Udało mi się napisać makro służące do kopiowanie i wklejania w innym arkuszu. Tylko teraz mam problem aby wklejanie odbywało się w kolejnych wierszach, tzn. pierwszy wiersz wklejony A2, następny A3 itd. Ktoś mógłby pomóc? [syntax=vbscript]Sub Makro8() ' Makro8 Makro ' ' Range("C4:C11").Select Selection.Copy Sheets("Dane").Select Range("A3").Select Selection.PasteSpecial...
Dzięki za kod ale nie wiem co robię nie tak bo mi nie działa. Robię to w ten sposób że nagrywam puste makro (tzn klikam ikonkę narywania a potem od razu stop). Potem wchodzę w edycję tego pustego makra i wklejam podany kod. Robię tak ponieważ nie umiem robić tego poprzez wstawianie modułów. Pytanko tylko czy przy nagrywaniu mam to makro nagrać w "Ten...
Witam. Mam za zadanie napisać makro kopiujące wartości z jednego arkusza do drugiego. Jak dotąd nie było z tym problemu ale teraz są to dość obszerne arkusze więc nagranie makra trochę mija się z celem bo dużo wartości musi zostać skopiowane. Najbardziej zastanawia mnie dlaczego wartości z komórek AF54 i AG54 usuwają się za każdym razem jak odpalę to...
Witam, Mam taki problem. Nie jestem zbyt zaawansowany w pisaniu makr. Ostatnio próbowałem napisać w excelu takie, które po naciśnięciu przycisku, który wstawiłem do dokumentu przez formanty formularza, otworzy okno wyboru, gdzie będe mógł wybrać zdjęcie w formacie jpg lub mapy bitowej a następnie wklei do dokumentu to wybrane przeze mnie zdjęcie, w...
Witam wszystkich mam poważny problem z dodawaniem nowego wiersza za pomocą przycisku. Stworzyłem tabelkę, która zawiera wiele list rozwijanych i funkcji jeżeli to coś tam. Przycisk z odwołaniem do Makra dodaje mi kolejny wiersz zachowuje listy rozwijane ale nie przenosi funkcji i pojawiają się puste komórki. Czy może ktoś wie jak powinno wyglądać prawidłowe...
Witam serdecznie, Potrzebuje pomocy w napisaniu makra, które jak się domyślam powinno bazować na odpowiedni rozpisanej pętli, niestety jeżeli chodzi o ten przypadek przerasta on mój poziom zaawansowania.. Opisze mój problem na podstawie załączonego pliku: - W tabeli "lista wszystkich zawodników" będę wklejał lub wpisywał odpowiednio zawodnika,rodzaj...
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
Poprawiłem makro o usuwanie wszystkich obiektów rysunkowych i o wklejanie komórek z ich formatem. Kod programu wpisany jest w ThisWorkbook w VBAProject.
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).
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Sprawdź załączony plik.
coś mi wyrzuca błąd (np. jak kilkukrotnie odpalam makro) - tworzy dodatkowe arkusze i wkleja tam błędne dane. Czy kryteria filtrowania można zawrzeć w VBA, a nie np. w Arkuszu 1? Było by to bardziej komfortowe(zależy mi na takim rozwiązaniu) Dzięki za pomoc.
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)...
Tak zrobiłam i ogarnełam to. Natomiast nie wiem czemu ale powyższe makro dzielące arkusze dane1...dane 5 wg klucza działa poprawnie, ale dla arkusze DANE 1 nie wkleja mi wszystkich wyfiltrowanych wartości. Dla pozostałych arkuszy wkleja kompletne dane dla wyfiltrowanego klucza, ale dla arkusza dane 1. Tylko kilka pierwszych wartości. ktoś podpowie co...
Zamykam temat. Poniżej wklejam poprawne makro. Może komus się przydać. Sub drukuj() Dim shLast As Shape ' czy automatyczny wydruk automatycznyWydruk = True On Error Resume Next ' automatyczny wydruk If automatycznyWydruk Then ActiveDocument.PrintOut Copies:=1 ActiveDocument.Saved = False End If ' zamykanie Application.DisplayAlerts = False ActiveDocument.Saved...
Jest makro do resetowania ustawień WORDa, ale bodajże tylko do wersji 2003. Sam z niej wielokrotnie korzystałem. Jest to oficjalna poprawka MicrosoftFixIt50599.msi
_jta_ Grepem nie stworzysz xls i nie o csv mówimy. Autorka, jak sama dobrze zauważyła, potrzebuje makro do Excela.:) wklejanie do nowego skoroszytu i zapisanie w lokalizacji gdzie znajduje się plik na którym pracuje kik192 z kolumn A:do różnie Ponawiam prośbę o plik i dokładny opis.
Dzień dobry. Dziękuję za odpowiedź. Chodzi o to żeby komórki, które zaznaczyłam na pomarańczowo kopiowały się do następnej kolumny (po naciśnięciu guzika "+" z przypisanym makrem). Czyli żeby H60:H80 wklejało się do I60:I80, potem do J60:J80 itd. (po każdym naciśnięciu guzika). A mnie się wkleja ten zakres komórek w kolumnie A w odległych wierszach....
Wklejam dodatkowe zdjęcia makro układu i nalepkę z numerem który podał Kolega Telo. https://obrazki.elektroda.pl/3080149500_... https://obrazki.elektroda.pl/2566214900_... https://obrazki.elektroda.pl/1457331900_... Oprócz układu uszkodzony jest jeszcze opornik SMD R209 Na 70% to będzie ICE3A1065 Po...
Witam Czy jest możliwe, aby makro kopiowało tylko niepowtarzające się dane z kolumny A z Arkusza1 i wklejało je w jednym ciągu do kolumny B w Arkuszu2? Dzięki z góry za wszelkie uwagi i pomoc.
Witam, mam problem z napisanie makra otóż potrzebuje skomasowac całe zapytanie SQL w Excell-u. Mam zmienna ilość danych której ilość może wynosić 2 komórki albo 30, i te dane muszą być wklejane do zapytania przez makro, po czym wykonać zapytanie SQL przez połączenie ADODB zdefinowane w makrze.
Hmm wszystko fajnie, tylko teraz mam problem taki, że nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.). Jest jeszcze jedna rzecz, te dane mają kopiować się do tych tabelek bez nagłówków. Jeśli uda nam się to przeskoczyć to już by było wszystko cacy. :) Dodano po 2 Jak narazie udało mi sie zedytować makro które dodałeś na...
Witajcie, Szukam odpowiedzi od kilku godzin w necie i nie mogę rozwiązać pewnego problemu. Z VBA u mnie kiepsko. Czy jest możliwość stworzenia makra które automatycznie będzie tworzyło kwerendę z sieci WEB? Chcę by makro korzystało z linku zapisanego np. w komórce J1 tworzyło kwerendę sieci WEB. (link jest stworzony z danych kilku innych komórek i ulega...
Dziękuję za odpowiedź. Tutaj szczególnie chodzi mi o makro. W oryginalnym pliku mam ok 300 rekordów, po posortowaniu kolejne makro (to już mam) kopiuje dane od nazw (które właśnie chciałbym aby posortowały się zgodnie z listą) i wkleja je gdzieś indziej. Właśnie dlatego potrzebuję aby było to makro.
Stosuj adresowanie bezwzględne, czyli zamiast BB2 napisz $BB$2. Niestety nie pomaga- próbowałem wcześniej- przelicza formuły. Przed importem jest =SUMA(Dane!$BB$2) po zaimportowaniu =SUMA(Dane!$BB$18) Nie wiem co zrobić by przy imporcie danych nie wklejało wierszy (tu upatruję problem)
makro wklejanie wartości excel makro wklejanie wklejanie specjalne makro
czujnik wałek rozrząd mercedes pralka bosch instrukcja obsługi rotor silnika
uszkodzony silnik krokowy wzmacniacz mosfet
Demontaż górnych schowków przednich w Fiat Ulysse Instrukcja obsługi pralko suszarki Mastercook SPFD-1064