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...
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.
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/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...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
Zobacz w załączniku, czy ta propozycja spełnia Twoje oczekiwania. To jest makro zdarzeniowe, które reaguje na wpis dokonany ręcznie (nie przez makro), ale można kopiować z innej komórki. Wypełniać komórki można tylko pojedynczo. Jeśli chce się zmienić proporcje składnika, trzeba usunąć wpis istniejący (delete), a następnie wpisać nowy. Makro nie przelicza...
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
witam, próbuję zrobić makro, które, kopiowałoby komórki z wartością >0 i wklejało wartość do tej samej komórki, ale w całkiem innym skoroszycie. Ścieżka do skoroszytu, w którym miałyby się znaleźć wklejane wartości byłaby zawsze ta sama. z góry dziękuję za pomoc
Witam serdecznie. Jest to mój pierwszy post więc proszę o wyrozumiałość. Mam pewien problem a że VBA nie znam zbyt dobrze ( raczej jakieś podstawy) trochę mnie to przerasta. Szukałem coś nt. temat ale ciężko znaleźć jakiś podobny przykład. Do sedna: Dane: W pliku znajduje sie kilka arkuszy : arkusz1, arkusz2,arkusz3, arkusz4 itd. W 4 pierwszych arkuszach...
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Witam serdecznie, potrzebuje pomocy w stworzeniu makra służącemu skopiowaniu określonego zakresu komórek (zawsze inny) w jednym arkuszu i specjalnego wklejenia (jako zdjęcie)do drugiego arkusza. Zdjęcia będą trzy ( z trzech różnych arkuszy) zawsze zakres zaznaczonych i kopiowanych komórek zawierał będzie się od komórki A1 do komórki o wartości słowo...
Witam próbuje napisać makro kopiujące zawartość komórki aktywnego arkusza z komórki M2 do arkusza A komórki b1 ale jeśli b1 jest zajęte żeby wprowadziło dane do komórki b2 i tak coraz niżej .
Witam, niestety jestem zielony w temacie VBA. Mam plik, który po rozdziale z użyciem Text to Columns -> Delimited -> Comma wygląda jak w pliku Material Balance 904715 . Chciałbym aby makro odnajdywało komórkę zaczynającą się tekstem "material stream" kopiowało zakres komórek znajdujących się poniżej tej komórki, aż do momentu odnalezienia kolejnej komórki...
Jak przerobic to makro, aby dane z komórek z jednego arkusza: B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 pobierało do mojego arkusza , ale w te same miejsca, czyli B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 ? [syntax=vb]Sub Otworz() Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet Application.ScreenUpdating...
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
sprawdź załącznik
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Napisałam proste makro kopiujące zakres komórek z aktywnego arkusza do archiwum. Chciałabym, aby tabela z aktywnego arkusza po zapisaniu do archiwum automatycznie "się wyczyściła". Dodatkowym problemem jest również makro działające w arkuszu "BAZA" - zaznaczam tu dowolne pozycje w kolumnie K poprzez dwukrotne kliknięcie myszy, po czym wybieram przyciskiem...
A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało No nie :cunning: - to zupełnie nie ma sensu łączenie rozwiązania "formułowego" z rozwiązaniem VBA :cry: Żeby uzyskać efekt jak na zrzucie: 864550 konieczne jest precyzyjne rzeźbienie (musisz przewidzieć, które fragmenty tekstu mają być pogrubione :crazyeyes: ) wszystkiego...
Rozumiem, że masz świadomość, że na samej liście rozwijanej kolorów nie będzie widać, bo taka już jej uroda. Natomiast można ustawić kolor za pomocą makra zdarzeniowego Worksheet_Change na podstawie wyboru z listy. Zakres komórek wzorcowych ma nazwę "Wzornik". Sprawdzanie poprawności trzeba ustawić ręcznie, pamiętając o wyłączeniu alertów. Komórki ze...
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
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....
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...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
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...
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
Makro działa rewelacyjnie! Dziękuję bardzo. Nie przypuszczałem, ze tak krótkie makro rozwiąże mój problem. Jeszcze raz wielkie dzięki! A tak przy okazji, czy w ten sam sposób można w kolejnej kolumnie dodać np jakiś opis a nie tylko wartość ujemną np. korekta w kolumnie 4? Jeśli tak to co należałoby zmienić w tym makro
kopiujemy wiersz A2 A2 to jest komorka Jaky rzeczywisty zakres Chcesz kopiowac z kazdego pliku?
Scalone komorki w zakresie kopiowania?
Witam wszystkich Potrzebuję pomocy w stworzeniu makra działającego wg poniższego 1. w arkuszu "dane2" mamy cennik produktów 2. w kolumnie E są przyciski pod które muszę podpiąć makro; przycisk z E2 kopiuje wartość komórki C2 do arkusza "dane1"w pierwszą wolną komórkę z zakresu A3:A20; przycisk z E3 kopiuje wartość komórki C3 do arkusza "dane1"w pierwszą...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Chyba nie rozumiem, o co Ci chodzi? Biorąc pod uwagę, że nikt jeszcze nie odpowiedział, chyba nie jestem jedyna. Twoje makro jest mało sensowne, ale może działać. Wprawdzie nie wiem po co każdą komórkę osobno kopiujesz, skoro można zaznaczyć i skopiować cały zakres D1:D30 i wkleić do A1, ale co kto lubi. Inna sprawa, że w Twoim załączniku w kolumnie...
Może być tak, że w przyszłości stworze więcej przycisków i wtedy będę musiał edytować makro Ale chyba nie planujesz robić tego w nieograniczony sposób ? Ilość przycisków zawsze będzie ograniczona, i jeśli utrzymasz w ryzach ich nazewnictwo typu: "Przycisk 1", "Przycisk 2" ... "Przycisk n", to będziesz nad tym panować. wtedy zazwyczaj następują opcje...
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...
Witam W kolumnach A oraz E znajdują sie formuły. w kolumnach B C D -> dane, które zmieniają się w zależności od raportu, który się wygeneruje. Chodzi o to by po wygenerowaniu raportu makro brało formułę z komórki A2 i do kopiowało do końca. i analogicznie z formułą w kolumnie E komórka E2. Teraz pomyślałem, że "formuła" mogła by być zaszyta w makro...
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Spróbuj jeszcze makra działającego na nieco innej zasadzie. Operacje na arkuszu są wykonywane w całych zakresach kolumnowych, a nie na pojedynczych komórkach. Napisz jaki będzie czas wykonania w tym przypadku. [syntax=vbscript]Sub Kopiowanie2() ' zakres źródłowy Worksheets("Arkusz2").Activate Dim ostw As Long Dim src1, src2, src3 ostw = Cells(Rows.Count,...
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
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()...
1. Najprościej wyłączyć obsługę błędów For Each element in kolekcja . Np [syntax=vb]zakres = Array([a2], [c3], [d5]) For Each kom In zakres If kom = "" Then kom.Value = "-" Next[/syntax]
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Chyba DisplayAlerts też to wyłącza ale wcześniej pominąłem kawałek kodu i dlatego nie zadziałało. Mam jeszcze jeden problem. Stworzyłem makro które dodaje nowy arkusz z nazwą z konkretnej komórki. Dodatkowo ta komórka filtruje dane z innego arkusza i kopiuje je do kolejnego arkusza. Tutaj pojawia się problem. Potrafię skopiować te dane do nowego lub...
Można na kilka sposobów. Poniżej masz jeden z nich: [syntax=vb] Sub Auto_close() ' ' Makro1 Makro ' Application.DisplayAlerts = False Range("C5:Q5").Select Selection.Copy Do ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then Exit Do Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Cholera mnie już bierze. Nagrałem prosciutkie makro kopiujące komórki z jednego zakresu do schowka: Sub kopiuj() ' ' kopiuj Makro ' Makro zarejestrowane 2011-05-18, autor MG9754 ' ' Sheets("Obliczenia").Select Range("A3:A506").Select Selection.Copy Sheets("Wynik").Select End Sub I jak wrzucam makro pod przycisk (Private Sub CommandButton1_Click() )...
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
Witam, Chciałbym stworzyć makro które kopiuje określony zakres komórek z jednego pliku excel do drugiego. Problem jest w tym, że nazwy tych plików będą różne. Jest możliwość aby makro kopiowało komórki z pliku o określonej nazwie, a ja nazwę tego pliku wpiszę np. w komórkę "a1" Czyli w komórce "a1" mam nazwę jednego pliku, a w komórce "b1" mam nazwę...
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
Nie wiem jak Calc w Open Office "czyta" makra napisane dla Excel,a. Nagraj jakieś makro w Excelu (kopiowanie, zaznaczanie komórek, zakresów, formatowanie itp), przenieś je do Calc,a i sprawdź czy dzieje sie to, co powinno (nie mam OpenOffice, żeby sprawdzić). Ewentualnie poczekaj na kogoś bardziej zaawansowanego. -------------- Dodano po 8 chwilach....
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
Witam. Bardzo proszę o pomoc w makrze, które przenosiłoby wartości z tych samych komórek w jednym pliku do takich samych komórek w innym pliku. Np z pliku 1.xls Arkusz1 do pliku 2.xls Arkusz2 komórek z zakresu B8:Z47; B53: Z92; B98:Z137. Nie chodzi mi o kopiuj/wklej lecz przeniesienie wartości.
Wrzuciłem makro podpiąłem pod guzik i mam coś takiego: https://obrazki.elektroda.pl/4360553400_... może robię jakiś głupi błąd jak pisałem w tym zakresie nawet nie raczkuje a zaczynam, więc proszę o wyrozumiałość.
makro kopiować komórka makro kopiować zakres excel kopiować komórka makro
elm327 kasować błąd przeróbka xbox360 ustawic kanaly
tester wtryskiwaczy nivona spieniacz
Pozioma kreska na ekranie kineskopu CRT - przyczyny i rozwiązania Blokada uruchomienia silnika przy zwarciu w samochodzie
