Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
Sheets("DATA ENTRY " & s)
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Ja bym tak to zrobil Dim Tekst As String For i = 2 To Worksheets.Count Tekst = Tekst & Worksheets(i).Cells(1, 1).Text Next i Worksheets(1).Cells(1, 1).Value = Tekst
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
W załączniku.
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
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...
chcę to zmienić na przycisk To proponuję wykorzystanie kodu typu :spoko: : [syntax=vbscript]Public Sub Powiel() i = 2 Do Until IsEmpty(Cells(i, 7)) If Cells(i, 7).Value > 1 Then a = i + 1 b = a + Cells(i, 7).Value - 2 Range("A" & i & ":K" & i).Select Selection.Copy Range("A" & a & ":A" & b).Select Selection.Insert Shift:=xlDown Range("G" & i & ":G"...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
Witam, Czy jest sposób na kopiowanie tylko samych wartości komórek w excel-u (przez przeciąganie), tz. aby do komórki docelowej kopiowane była wartość z komórki kopiowanej ale formatowanie (kolor, obramowanie,itd.) pozostawało bez zmian w docelowej komórce ? pozdrawiam.
Powstał dla mnie jeszcze jedna kwestia, powstała ona w momencie gdy jedna z kolumn w pliku źródłowym nie występuje ( np wartości opisane jako B - plik źródłowy nie generuje danych z takimi wartościami, pomija taką kolumnę ) W związku z tym czy można zmodyfikować kod wgrywania danych tak, aby dane jeszcze były porównywane po wartościach z pliku docelowego...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Cześć, mam problem z przyciskami, w których umieściłem makro, które kopiuje wartości z komórek C6:C45 w zeszycie Sheet1 do zeszytu PASS (A3:AN3). Jak wciskam przycisk "Pass" wartości są kopiowane do zeszytu pass, ale jakoś dziwnie bo nie w jednym wierszu tak jak bym chciał tylko łapie kilka wierszy?? Drugi problem jest taki, że nie wiem jak to zrobić,...
W zakresie wierszy od 3 - 10 we wszystkich komórkach mam różne wyniki, które aktualizują się z zewnętrznej bazy automatycznie i są zmienne. Potrzebuje z tych odczytów zrobić historię w postaci listy i chciałbym aby co 5 min. wykonywany był zrzut tego zakresu wierszy w formie listy w 2 arkuszu w tym samym pliku Proszę o wsparcie
Witam Poszperałem forum ale odpowiedzi nie znalazłem.. W nagłośnieniu chętnie pomogę ale na tym sie nie znam .. ) mam nadzieje ze Szanowni Koledzy pomogą Mam dwa arkusze X i Y po dwie kolumny każdym z nich Arkusz X Dynia |15 Marchew|6 Burak | 7 Arbuz |19 Arkusz Y Dynia |17 Jabłko | 6 Marchew |9 Majonez | 2 Jajka |29 Burak |5 Rzerzucha |2 Arbuz |3 Do...
Mam 3 arkusze w jednym skoroszycie. w każdym arkuszu około 15 kolumn i 150 wierszy. Porzebuję makro, które w przypadku wystąpienia w kolumnie C danego arkusza wartości "TAK" (może występować w różnych wierszach), zwróci mi i skopiuje do osobnego arkusza dane z wierszy kolumn od C do F. Jak to ugryźć?
Hej, Mam 2 arkusze, w 1-generuje się raport pozycji na podstawie innego makra, w 2-uzyskany raport 1 ma zostać przeniesiony do ostatniego wiersza, niezapisanego i stworzyć 1 wspólną listę, poszperałam tu na forum i znalazłam makro, dopisałam jeszcze, by przed kopiowaniem wyfiltrował wartości puste i kopiował bez nich. Makro to działa, ale w związku...
W zasadzie jeżeli(licz=licz;ok; nie ok), a dokładniej: [syntax=tex]=JEŻELI(LICZ.JEŻELI(baza!H:H... service")[/syntax]Wklej w F3 i przeciągnij w dół.
Proszę o pomoc, jestem początkujący (bardzo) i mam następujący problem Mam dane w akruszu1 kolejno w kolumnach od A do D 31.05.202113:581020 31.05.202113:587564 ... Potrzebuję skopiować wszystkie wiersze z arkusza1 dla liczby >=31 z kolumny 3 (C) do drugiego arkusza2. Najlepiej jakby skopiowane...
Witam mam dwa arkusze - baza - są zawarte dane rozszerzone oraz PA- zbudowany na podstawie ark pierwszego z danymi uproszczonymi. i tak np. w arkuszu PA są w kolumnie B - nr boxów i należy skopiować z bazowego arkusza "service level" czyli albo INTP albo INTE. I to już nie problem bo kolega z forum pomógł mi z formułą jeżeli. Problem się pojawia przy...
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
Witam, Stworzyłem plik generujący raporty z tabel przestawnych. Chciałbym teraz pierwsze kilka arkuszy (pierwsze arkusze to raporty, reszta to dane i tabele przestawne) skopiować do nowego pliku. Chciałbym także zachować formatowanie arkuszy ale przenieść jedynie wartości (zamiast formuł). Pomoże ktoś w stworzeniu takiego makra? :) Z góry dzięki!
Witam. Potrzebuje zrobić coś takiego: Wstawiam dane w komórce np. A1 to automatycznie kopiuje do np B1.Teraz w A1 zmieniam wartość danych to automatycznie kopiuje nową wartość do B2 i tak w kółko jak jest nowa wartość w A1 to przenosi ją w nową komórkę. Ma to się odbywać w automacie bez przyciskania przycisków. Chcę ze strony internetowej importować...
Witam. Niestety moja przygoda z VBAdopiero się zaczyna dlatego potrzebuję pomocy, dokładnie potrzebuje stworzyć makro które będzie kopiować dane z np. komórki( od A1do D1 ) do drugiego arkusza jednoczesnie wymazując w pierwszym arkuszu skopiowane dane (za pomocą przycisku) i by po następnym wpisaniu danych do tych samych komórek i kolejnym skopiowaniu...
Witam. Potrzebuję pomocy w jednej kwestii, a mianowicie - w dwóch kolumnach mam wartości : 111 a 111 a 112 b 113 b 113 b 113 b 114 c potrzebuję ten zakres skopiować do innej tabeli i by wyglądał w ten sposób: 111 a 112 b 113 b 114 c Nie wiem w ogóle jak się za to zabrać. Funkcja usuń duplikaty nie rozwiązuje problemu, bo docelowo musze przypisać kolumnie...
Witam. Szukam pomocy i mam nadzieję że tu ją znajdę. Sprawa zapewne błacha, ale nieposiadam dużej wiedzy o VBA. Postaram się jak najkrócej opisac potrzebę na przykładzie. Na przykład w komórce A1 mam wartość "5" która jest wynikiem funkcji np. =2+3. Potrzebuję teraz skopiować ten wynik "5" z komórki A1 do komórki A2 za pomocą VBA by uzyskać "czysta"...
WItam Mam duży problem z makrem. Potrzebuje pomysłu jak je wykonać. Posiadam w arkuszu 4 kolumny 1- poziom ( liczba od 1 do 8 ) 2- Oznaczenie ( M lub P ) 3- numer 9 cyfrowy 4- ilość również jakaś liczba Makro miało by znaleźć oznaczenie M i skopiować wszystkie większe poziomy do arkusza2 (wszystkie 4 kolumny), jednak w tym poziomie może wystąpić również...
Witam! Kolejny raz potrzebuję wsparcia - bardzo proszę bardziej zaawansowanych użytkowników o pomoc. W Skoroszycie mam tylko 1 arkusz, w którym w polach od A1 do E25 posiadam wypisane dane (ciąg liczb pomieszanych z literami o długości od 10 do 16 znaków) które chciałabym aby po dwukrotnym kliknięciu przenosiły się do pierwszej pustej komórki w wierszu...
Podałeś zdecydowanie za mało informacji. Jeśli Twoje dane robocze liczą ok. 10 tys. wierszy, to przykład powinien obejmować ok. 50 wierszy w reprezentatywnym układzie. Należy to pokazać w załączonym pliku wraz z oczekiwanym wynikiem. Z przykładu, który pokazałeś nie wynika m.in. 1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być...
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Cóż, taka już natura Excela... Pewnie wklejają się wszystkie odfiltrowywane wiersze, tylko jeden pod drugim, począwszy od pierwszego widocznego. Jak po tej operacji zdejmiesz filtr, to wszystkie odfiltrowywane wartości z kolumny A powinny być w kolumnie C, tylko jedna pod drugą. Nic na to nie poradzisz, trzeba po prostu być ostrożnym przy używaniu filtra...
[syntax=vbnet]Sub Makro1() Set toskopiowac = Selection.EntireRow Range(toskopiowac.Offset(1, 0), toskopiowac.Offset(Selection.Value - 1, 0)).EntireRow.Select Selection.Insert Selection.EntireRow = toskopiowac.Value End Sub[/syntax]
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
Dzień dobry, W takiej sytuacji zawsze lepiej dać załącznik z przykładowymi danymi, bo po co tracić czas na kopiowanie z tekstu. Próbka danych jest mała, ale sądzę, że wystarczy zwykłe WYSZUKAJ.PIONOWO zabezpieczone funkcją JEŻELI.BŁĄD przed komunikatem o braku danych. Zakładam, że Excel w wersji >=2007. Załączony plik .xls proszę wczytać do Excela i...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
ma nadzieję że zrozumiale jest napisane Niezupełnie. po zliczeniu wszystkich wartości z kol. H ( arkusz1) Chyba chodziło o Arkusz2, a Arkusz1 jest skoroszytem, w którym ma być podsumowanie (?) Założyłem, że nazwy i stawki VAT będą wprowadzone w arkuszu1. Przetestuj takie makro. [syntax=vbscript]Sub Podsumuj() Dim A1 As Worksheet: Set A1 = Workbooks("Arkusz1").Sheets("dok...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Jeśli masz jakieś przeciwskazania co do zastosowania makr :cry: to w Twoim układzie danych najprościej moim zdaniem wykorzystać "wewnętrzny import" danych z Bazy przy użyciu Microsoft Query :D W kwerendach zmieniasz tylko kryterium filtrowania i po każdej zmianie Bazy możesz odświeżyć i zaktualizować wszystkie arkusze asortymentowe :spoko: 899914
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Można formułami. W arkuszu źródłowym zastosowałem kolumnę pomocniczą (K). W wynikowym formuła w A1 kopiowana w prawo. Przy kopiowaniu "rozjeżdżają" się formatowania, ale korekta to 1-2 kliknięcia...
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
Witam, proszę o pomoc w rozwiązaniu następującego problemu. Mam cztery kolumny, a i b w arkuszu 1 oraz c i d w arkuszu 2 które chce porównać ze sobą w następujący sposób. Dla komórki w kolumnie a arkusza 1 chcę znaleźć taką samą komórkę w kolumnie c arkusza 2. Jeżeli nie ma takich samych komórek to wynik = BRAK. Jeżeli znajdzie się odpowiednik to dla...
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...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Tylko już .xlsm
Gdyby np w arkuszach dla konkretnych pojazdów dodawać tankowanie i przenosiło się to odrazu do zakładki "dystrybutor" (data tankowania i wartości z WOD KAN POMOC) ?wtedy skoroszyt nie musiałby być tak rozbudowany ? pomocy
U mnie to wykonuje się około 20-25s - przy większej ilości danych Excel będzie zablokowany jeszcze dłużej, więc muszę pomyśleć, jak to wyciągnąć i odpowiednio ustawić w porządanych kolumnach z użyciem funkcji. Zaproponowane rozwiązanie działa, więc w przypadku mniejszej ilości wierszy będzie pomocne - dziękuję 😉
Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...
Ustawiłem w arkuszu Excela formułę formatowania warunkowego, która zmienia na czerwony kolor czcionki (w komórce G2), jeśli jej wartość jest mniejsza niż wartość komórki F2. Działa. Chciałbym skopiować następnie formatowanie warunkowe, do kolejnych wierszy zgodnie z zasadą jeżeli Gx > Fx to formatuj. Kopiowanie zarówno malarzem formatów, jak i opcją...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Dziękuje za pomoc. Mam jeszcze pytanie - czy istnieje możliwość pomijania kopiowania, gdy w danej komórce dodatkowej nie ma żadnej wartości / danych?
Temat zamykam. Wykorzystałam kod luzika z postu Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych Działa :) Dodano po 1 Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych
Dzień dobry, proszę o pomoc w napisaniu makra (pod przycisk Kopiuj), które kopiowałoby wartości z z kolumn B , AD oraz AE od wiersza 4 poprzedniego (poprzedzającego) arkusza do takich samych kolumn aktywnego. Excelem zajmuję się od niedawna i wszelka pomoc mile widziana.
Jeśli koniecznie chcesz przenosić wartość jednej komórki do drugiej przy użyciu makra - to po zarejestrowaniu edytuj to makro i skoryguj wklejanie ze schowka (zapisana jedna wartość :D ) na wklejanie wartości komórki pierwotnej. Znacznie prostszy sposób przenoszenia wartości z jednej komórki do drugiej to łączenia typu d10 = a1 :!:
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
excel kopiowanie wartości komórki warunkowe kopiowanie wartości excel excel kopiowanie samej wartości
wymiana grzałki liczyc algorytm przetwornik analogowo cyfrowy audio
bateria milwaukee problemy diagbox
Jak zaprogramować fonię z lektorem w urządzeniach? Ibiza PORT15UHF - Czerwona dioda, brak ładowania
