[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]
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.
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]
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...
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"
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
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...
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'?
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
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...
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.
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...
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?
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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ć....
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]
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.
Nagraj makro jak wklejasz wartość i na tej podstawie zmodyfikuj swój kod
Sprawdź załączony plik.
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
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
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ę...
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...
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...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
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ć...
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.
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 ?
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
[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]
Makroinstrukcja jest 'wklejana' a podprocedura wykonywana poprzez skok. Makro jest szybsze (mnie instrukcji, nie trzeba nic zapisywać na stosie) ale kod wynikowy jest dłuższy (bo za każdym razem jest umieszczany).
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...
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...
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ś?
Przypisz tym kombinacje 2 puste makro t.z. Makro z tym komunikatem
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
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?
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]
Porada okazała się skuteczna. Makro jest już pełnosprawne. Dzięki
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
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 ;)
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.
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]
Makro uruchamia pokazanie czasu i wkleja jej wartość do określonej komórki.
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).
Formuły nie dam rady napisać, ale wklejam Ci makro. Tak mniej więcej mogłoby to wyglądać :wink:
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.
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...
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").
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.
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ę...
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ć...
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...
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.
Nagraj makro polegające na skopiowaniu i wklejaniu... jako formuły / jako wartości... Może coś rozjaśni...
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...
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, 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...
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 ;)
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...
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...
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.
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...
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.
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ę...
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.
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]...
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.
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
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...
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...
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 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...
Temat do zamknięcia. Poradziłem sobie sam. Chodziło mi dokładnie o takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+d ' ile = Int(InputBox("Ile ma się skopiować tabelek? ", "Wpisz liczbę", 3)) If ile < 1 Then Exit Sub l = 1 Range("C4:D17").Copy ActiveCell.Range("A1").Select ActiveSheet.Paste For i = 1 To ile ActiveCell.Offset(0,...
Przyznam się że makro jest dla mnie dośc egzotycznym pojęciem, możesz mi powiedzieć w jaki sposób je zrobić?
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.
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....
Witam Po dodaniu tej linijki jak i zmiennej w kodzie Dim Poczta Makro przejdzie całe bezbłędnie jednak we wiadomości nie podanego nadawcy w DW.
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...
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...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
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)
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.
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
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...
Makro umieść w kodzie arkusza, prawy pm i wybierz "Wyświetl kod" lub wklej przez edytor. Równie dobrze można wrzucić do modułu, wtedy makro (jeśli nie sprecyzujesz) będzie działać w aktywnym arkuszu.
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.
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...
Witam serdecznie, Mam drobny problem (dla was drobny), chcę aby w moim zleceniu po zapełnieniu przez użytkownika wszystkich przygotowanych pozycji mógł on dodać kolejną odpowiednio skonfigurowaną. I tak nagrałem makro które kopiuje mi przygotowane pola, odnajduje w arkuszu pierwszy wolny wiersz i wkleja mi to co przygotowałem. Jest jeden problem chciałbym...
Polecam ten:[url=http://www.elektroda.pl/rtvforu... Jak czegoś nie rozumiesz to z przyjemnością odpowiem. Lub jeśli nie chcesz tak to szukaj programów z makrodefinicjami, płatnych jest duży wybór.
excel makro wkleja excel wkleja makro skrypt wkleja
warto uruchamia makro wekta centrala wodomierz magnes
kluczyk kodowanie kluczyk kodowanie
DIY płytka PCB do lampowego zasilacza anodowego - gdzie szukać? Wzmacniacz WS432: Mostek prostowniczy B80C5000/33000 vs KBL06