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...
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
Witam Dlaczego petla? :) [syntax=vb] m = Month(Date) Range(Cells(2, m), Cells(Cells(Rows.Count, m).End(xlUp).Row, m)).Copy Destination:=Range("N2") [/syntax]
Witam, Opcja "Zachowaj szerokości kolumn źródłowych" pozwala na ustalenie szerokości kolumny, do której dane zostały przekopiowane, takiej samej, jak ta, z której dane zostały zaznaczone do kopiowania. Przykładowo: masz w kolumnie A wpisane kilka osób z imieniem, nazwiskiem, PESELEM - czyli długi tekst dla każdej komórki. Kopiujesz, wklejasz w kolumnę...
Witam Tabela przestawna nie pasuje?
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Może, tylko pisał o kopiowaniu wartości, wymienił kolumnę B, a nie A i nie napisał, czy dane we wszystkich kolumnach sięgają jednakowo daleko.
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
Jest w Excelu dodatek darmowy Power Query do wersji 2010 i 2013 a od wersji 2016 jest wbydowany który potrafi to zrobić bez VBA Tu masz link jak to zrobić Pozdrawiam. https://www.youtube.com/watch?v=oAOXgHq0...
Możesz wrzucić plik (jako załącznik) z przykładem? p.s. Plik od v. 2007 wzwyż spakowany ZIP-em lub RAR-em.
No ale to co przedstawiłeś ma błąd. Wg mnie nie do końca zrozumiałeś przykład przedstawiony przez kolegę adamas_nt . Zauważ że "druga linia"/drugi przypadek liczony jest błędnie (dla ilości 266 sztuk, danej paszy, pomijając jej typ, starczy do 2011-04-09 a nie do 06) gdyż w zamierzeniu kolegi adamas_nt nie było zwielokrotnienie wyników (Przykład był...
Zadanie polega na tym żeby skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Zadanie polega na tym czego nie dopowiedziałeś. Czy kopiowane mają być wszystkie, czy tylko wyfiltrowane wiersze, jak np. te według "Kolekcja/Seria", wyfiltrowane po "Casual" ? Wyfiltrowanych jest 4 062, a nie...
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...
Kolumna "A" nie pusta? nie rozumie dlaczego Criteria1:="" Logicznie jest Criteria1:="<>"
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ę napisać makro, które będzie kopiować dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie. Problem polega na tym, że 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...
W makro otwieranie powtarzasz za każdym kopiowaniem. Zostaw tylko jedno na początku, a "Close" na samym końcu... i jak tak zmieniam: Sub OpenCloseWorkbook() Dim Dane As Variant Dim FileName As String Dim Rng As Range Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Wafel") Workbooks.Open...
Witam, Proszę o pomoc w napisaniu Makra. Informacje: Docelowy plik posiada 10 arkuszy z nazwami miast (załącznik4) Założenia: Makro powinno kopiować nazwiska z arkuszy z nazwami miast (kolumna H) wybierać unikaty, oraz kopiować je do co drugiej kolumny arkusza "Podsumowanie" począwszy od wiersza 9 (czyli pierwsza kolumna od A9, duga od C9 itd.) Przykładowy...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
[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]
witam, w jednym arkuszu mam podstawową bazę danych typu: kolumna A-Nazwa firmy; B-adres; C-miejscowość itp. jest tych danych ok 8 kolumn. Jak zrobić by można był kopiować poszczególne dane danej firmy d inego pliku, w tórym wklejone te dane będą w odopowiednie rubryki. Dlateg ochce w odpowiednie rybryki, gdyż będą one wypełniać 4 następne arkusze które...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Witam Ma spory problem-potrzebuję skopiwać z kilkunastu zakładek w pliku dwie kolumny i wkleić je do zakładki zbiorczej jedne obok drugich i nie mogę znaleźć kodu. Z góry dziękuję za pomoc
Może rzeczywiście za dużo jak na początek :) Chciałem zrobić automat by jedną komórkę można było przeciągać zarówno w wierszach jak i kolumnach, ale było juz późno i mając na uwadze to że przecież możesz mieć inaczej ustawione dane porzuciłem zamysł. Na chwilę obecną można to kopiować w dół i w bok łapiąc (zaznaczając) na raz i kopiując trzy komórki....
Wiesz, ja nadal nie jestem pewna, czy dobrze Cię rozumiem, ale wyszło mi coś takiego jak w załączniku. Po uruchomieniu makra pod przyciskiem - wstawia daty, uzupełniając puste komórki. Choć nie odmienia nazw miesięcy przez przypadki - czyli np. 2 wrzesień, a nie 2 września itd.
Witam, interesuje mnie kopiowanie duplikatów wartości z kolumny A (usunięcie tych wartości w kolumnie A) oraz przekopiowanie tylko wartości zdublowanych do kolumny E. Szczegóły w załączniku. Z góry dziękuję za pomoc.[/quote]
Witam muszę połączyć w jednej komórce dane z kolumny rozdzielając je ";"
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Moje rozwiązanie - nieco inne, aby wygenerować zawartość drugiego arkusza ("Zamowienie") trzeba uruchomić Makro. [syntax=vb]Sub Makro1() ' ' Const R1 = "A1" ' pierwsza komórka nagłówka tabeli Const W = 6 ' szerokość tabeli Const Q = 5 ' kolumna z ilością produktów Const FixLP = True ' ustawić False jeśli ma kopiować LP z produktu Dim OF As Integer OF...
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, używam Open Office. W arkusz1 mam kolumnę 'substancja' oraz 'cena'. W każdej komórce kolumny 'substancja' można wybrać substancję z rozwijanej listy. Lista substancji znajduje się w arkuszu2 (również w kolumnie). I teraz chciałbym, aby wybierając jakąś substancję, kopiowała się również jej cena do kolumny obok (ceny podane są również w arkuszu2...
Witam, chciałbym zapytać czy istnieje możliwość kopiowania kolumn z takimi samymi wartościami lecz inną godziną. Wersja Excela to 2003. Poniżej przedstawiam screen shota mam nadzieję że ktoś mądrzejszy odemnie mi pomoże byłbym wdzięczny. http://obrazki.elektroda.pl/7533972600_1...
Witam Niestety znów nie umiem sobie poradzić i znaleźć sposobu. Mam taki problem. W pierwszym arkuszu mam dane w kolumnach C,D,E. W drugim arkuszu kolumna D jest ukryta czyli widoczne jest na pasku C później E. Kopiując dane z arkusza pierwszego z kolumn C D E chce tak je wkleić do arkusza drugiego, żeby dane z C pierwszego arkusza były wklejane do...
Witam, czy możecie podpowiedzieć mi czy jest jakaś formuła w excelu lub makro (vba) aby wykonać poniższą czynność? Sorki, za ewentualny złe zaadresowanie mojego pytania, ale nigdzie w sieci nie wyszukałem pomocy i zalogowałem się tutaj z pomocą o wsparcie. Jestem samoukiem i zabrakło wskazówek w sieci :) Opis mojego przypadku 1. Zrzucam dane ( różnych...
Witam, mam mały problem, może ktoś pomorze, mam funkcje w Excelu i porównanie dwóch kolumn i kopiowanie trzeciej, Jeżeli w kolumnie I znajdzie to samo co w kolumnie A to ma skopiować wartość z kolumny J, (załączam obrazek). http://obrazki.elektroda.pl/4282280100_1... pozdrawiam
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
Witam. Sprawa zapewne dość banalna dla osób obeznanych z programem.Mam dwa arkusze.W pierwszym wpisuje wartosci w jednym wierszu w co drugiej kolumnie obok siebie(czyli A1;c1,e1itd). Próbuje aby wpisane wartości przenoszone były do drugiego arkusza pionowo po kolei(czyli żeby wartość z C1 przeniesiona została do A2 w drugim,e1 do A3 w drugim itd). Potrzebna...
Witam serdecznie Chciałbym przerobić poniższe makro tak by kopiowało ono cały arkusz do nowego tam gdzie w pierwszym wierszu dla kolumny jest słowo "Tak" Korzystam z makra który kopiuje wybrane wiersze, tzn jeśli w kolumnie A jest wartość "Tak" Gorąca prośbą o pomoc w przerobieniu makra Sub kopiuj_do_nowego_pliku() Dim x&, y&, last_row&, wks As Worksheet,...
W załączniku.
w zaznaczonym przeze mnie zakresie Nie doczytałem, post zmieniłem Sub KopiuZaznaczone() Dim kom As Range, i As Integer, ostWrs As Long ostWrs = Sheets(1).Range("G65536... + 1 For Each kom In Selection If Left(kom.Address, 2) = "$G" Then If kom.Value = 1 Then ActiveSheet.Rows(kom.Row).Copy.....
Poprawiłem makra. Kod przycisku uprościłem dla jasności. Przeanalizuj zapis dot. co dokąd jest kopiowane, zawsze będziesz mógł sobie zmienić...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Tak. Tyle, że w zależności od poziomu zabezpieczeń może być monit lub przy wysokim poziomie może nie działać makro/makra.
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]
Trzeba dołączyć nie obrazek, tylko plik Excel, a następnie można pokazać na Twoim przykładzie. W skrajnym przypadku powinny być widoczny nazwy wierszy i kolumn.
Cells(r, 5) - dateSerial(Year(Cells(r,5)), 1, 0) zamiast Day(Cells(r, 5))
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
Ty no, czytam raz i drugi i nie rozumiem :D co chcesz osiągnąć? Tzn. co jest celem tej operacji? Chcesz zamienić coś na co? Czemu nie działa ZAPISZ JAKO? :idea:
A zmienić tu[syntax=vb]wiersz = wswyn.Range("a1048576").End(xlUp).Row + 1 'ostatnia wolna komórka w tym pliku[/syntax]oraz tu[syntax=vb]wswyn.Range("A" & wiersz & ":S" & wiersz).Value = wsSrc.Range("A" & nnn & ":S" & nnn).Value[/syntax]nie wystarczy?
nie mogę znaleźć rozwiązania a potrzebuje go dość szybko Ale w czym problem? Wystarczy nagrać makro, ściągnąć z internetu gotową funkcję 'LastRow' lub nagrać kombinację Ctrl+strzałka w dół, podstawić zmienne i "posprzątać" po rejestratorze (tu z pewnością ktoś pomoże). Próbowała koleżanka?
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
Ponieważ "kopiowanie" samego kodu towaru było zbyt proste :please: dołożyłem jeszcze wprowadzenie ilości (np. sprzedanych towarów :?: ) jak na zrzucie i w załączonym pliku :spoko: 1052538 1052540
Skorzystaj z Union(). Przykład: [syntax=vb]Sub zaznacz() Set reg1 = Range("a1:a10") Set reg2 = Range("d1:d10") Set reg3 = Range("f1:h10") Set multi = Union(reg1, reg2, reg3) multi.Select End Sub[/syntax]
Proponuję w kolumnie B arkusza 'Guest' trzymać imię i nazwisko.
A kopiowanie formatowania nie wystarczy? Pytanie jest bardzo nieprecyzyjne. Kiedy to kopiowanie miałoby nastąpić - na życzenie, po zaznaczeniu komórek do skopiowania, czy automatycznie - gdy zmienia się coś w komórce (to jest trudniejsze)? Poza tym, czy komórka zawiera coś oprócz tego koloru, co ma być pominięte przy kopiowaniu? Czy chodzi tylko o kolor...
W kolumnach L,N,O,P masz "normalne" formuły, które odwołują się tylko do danych z bieżącego wiersza. Takie formuły można kopiować bez ingerencji w inne formuły. Excel nie ma problemu z ich kopiowaniem. Jeśli chodzi o formuły z kolumn A i C, to one zawierają odwołania do innych wierszy i przy wstawianiu wierszy (a także usuwaniu) Excel nie wie, do czego...
Jeśli dobrze zrozumiałem że trzeba, następnie zdecydowanie tak tylko za co został w A następnie formuła, może tylko numeracji?
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
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ć.
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"...
Podwójne kliknięcie w kolumnie 'Klient'.
nie ułożonych po kolei Wtedy uzyj =INDEKS(kolumna_bazy; C1)
kopiować kolumna excel excel makro kopiować kolumna excel kopiować
ryobi akumulator pompą paliwa naprawa geforce gt240
bateria parkside naprawa udaru makita
Jak wstawić nową linię w komórce Excel? Podłączenie SH-AC500D do SU-C800U: Jak to zrobić?
