w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka[syntax=vb] Sub kopia() If ActiveSheet.Range("A1") = "Tak" Then ActiveSheet.Copy End Sub[/syntax]
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]
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ć...
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...
[syntax=vbscript]Sub Kolumny() y = 9 For x = 1 To Sheets.Count ow = Sheets(x).Cells(Rows.Count, "I").End(xlUp).Row If Sheets(x).Name <> "Oferta" Then Sheets(x).Range("I1:I" & ow).Copy Sheets("Oferta").Cells(1, y) Sheets(x).Range("J1:J" & ow).Copy Sheets("Oferta").Cells(1, y + 1) Sheets(x).Range("K1:K" & ow).Copy Sheets("Oferta").Cells(1,...
[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]
Może za mało RAMu? Restart kompa i sprobuj ponownie. :!: A jak nie to OpenOffice - w nim się nie powinno zawiesić.
zmień na [syntax=vb]Sheets("Filtr").Range("C" & x).PasteSpecial Paste:=xlPasteValues[/syntax]
[syntax=vbscript]Sub KopiujGLM() g = Cells(Rows.Count, "G").End(xlUp).Row Range("G1:G" & g).Copy Sheets("Arkusz2").Range("G1") Sheets("Arkusz2").Range("G" & g + 1).Formula = "=SUM(G1:G" & g & ")" l = Cells(Rows.Count, "L").End(xlUp).Row Range("L1:L" & l).Copy Sheets("Arkusz2").Range("L1") Sheets("Arkusz2").Range("L" & l + 1).Formula = "=SUM(L1:L" &...
[syntax=vb]Sub kopie() zakrIn = Array("A:A", "E:E", "F:F", "H:H", "K:K", "P:P", "DK:DL", "EB:EB", "ED:ED") zakrOut = Array("A:A", "B:B", "C:C", "D:D", "E:E", "F:F", "G:H", "I:I", "J:J") Workbooks(plik).Activate For i = LBound(zakrIn) To UBound(zakrIn) Range(zakrIn(i)).Copy Workbooks(kpi).Sheets("dane").Range(zakr... Next End Sub [/syntax]
[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]
Poprawiłem nieco makra, nie zrobiłem więcej bo działanie aplikacji jest dla nie niezrozumiałe. Proszę jeszcze raz dokładnie opisać co ma się wyświetlać w UserForm i co później ma się skopiować.
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ł...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
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...
Masz ten problem w każdym arkuszu czy tylko w jednym, konkretnym? W Office 365 v. 2202 nie zauważyłem takiego problemu. niestety w kazdym, nie zauwazylem jakiejs reguly. Arkusz moze byc strzowony od zera przeze mnie, albo przeslany przez kogos (niekoniecznie z tej samej wersji office). Nie ma tu tez specjalnych funkcji, dodatków czy czegokolwiek. Ten...
W pierwszy poście było napisane, że formuła miała zwracać pierwszy dzień pracujący. Zauważyłem, że źle napisałem, bo zwracała bieżący dzień. Żeby oprócz bieżącego dnia pracy, zwracała kolejny pracujący (przy założeniu, że nie ma więcej niż dwa dni wolne w kolejności), to formuła powinna być na przykład następująca. =JEŻELI(TEKST(PRZESUNIĘCIE(D...
Na szybko to to zrobisz w Excelu: kopiuj-wklej jako tekst z pliku tekstowego do kolumny A w Excelu, a w kolumnie B taka funkcja: =FRAGMENT.TEKSTU(A1;ZNAJDŹ("... & ":" & FRAGMENT.TEKSTU(A1;1;ZNAJDŹ(&quo... Przeciągasz...
Dzień dobry. Stawiam na zużyty utrwalacz, konkretnie folia teflonowa, osłona grzałki. Jaki jest stan licznika ? Wydrukuj konfigurację, wrzuć skan, czy foto. Powodzenia, natenczas, e2e4.
Dzień dobry, Opis dość nieprecyzyjny, nie wiadomo czy listy są tej samej długości, gdzie miałyby być kopiowane po wpisaniu nazwy, i gdzie ta nazwa ma być. Spróbuję coś napisać ogólnie. To rozwiązanie dotyczy Excela w którym pracuję na co dzień, myślę że w OpenOffice można stosować podobne rozwiązania. Jeśli kolumny mają nagłówki dogodnie byłoby nadać...
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ę...
chciałbym napisać proste makro, które po przypisaniu do kontrolki formularza lub kontrolki activeX wykona takie zadanie Po co bawić się w "przyciski" jak można przez 'doubleclick' Kliknij dwa razy na dana cyfrę.
Podobny temat [url=https://www.elektroda.pl/rtvforum/v...
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.....
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?
Jeśli tak to czy mogę prosić o wzór makra? Coś ala [syntax=vbscript]Sub elka() i = 1 With Sheets("Arkusz1") For a = 2 To Sheets.Count Sheets(a).Cells(1, 1) = .Cells(i, 1) i = i + 1 Next End With End Sub[/syntax]
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?
Pokaż nam plik arkusza (wklej jako załącznik bez prowizji) i opisz: - co chcesz wpisać i gdzie - co i gdzie ma zostać skopiowane
Moja propozycja: 1. Najprościej byłoby zastosować formuły w arkuszach źródłowych, następnie przez: kopiuj > wklej specjalnie > wartości -umieścić wyniki w arkuszu docelowym i usunąć pierwszą kolumnę (Arkusz3 załącznika). Lub inaczej: kopiowanie kolumny źródłowej, wstawienie formuł, kopiuj-wklej specjalnie. 2. Zastosowałem wbudowane formuły łańcuchowe...
[syntax=vbscript]ActiveSheet.AutoFilterM... = False[/syntax]
Zerknij do załącznika. Kod zoptymalizowałem przy okazji... Zrobiłem przykładowe kopiowanie z trzech kolumn, aby było łatwo połapać się przy modyfikacji.
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Wracając do problemu - jak zgra, skoro ma problem z drganiami? 1) Przy kopiowaniu kolumny mogą pracować na 1% mocy albo wcale. 2) Nie musi kopiować w tym pomieszczeniu.
Wpisz np w F1 =wyszukaj.pionowo(A1;$I$1:$J$22;2;0) i skopiuj w dół
W załączniku.
Zapętliłem poprostu ten kod, może i primitywne ale robi to co ma robić. rngY = Range("C4").Value Application.ScreenUpdating = False Sheets("Dane").Select Columns("A:CA").Select Selection.find(What:=rngY, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate...
Witam Nie znam się zbytnio na Makrach, a postawiłem sobie cel - stworzenie makra.. który nie mogę osiągnąć. Problem polega na tym że mam 9 plików, w którym koledzy wpisują co tydzień informacje. Ja chciałbym co tydzień otwierać swój plik i klikając "AKTUALIZUJ" ściągać informacje jakie oni wpisali w jeden zbiorczy plik. Stworzyłem makro, które to robi...
Witam A po co podwajac cewke?? Pozdrawiam
Witam Modyfikując twój kod podepnij pod klawisz [syntax=vbscript]Private Sub CommandButton1_Click() For x = 8 To Cells(Rows.Count, "AV").End(xlUp).Row If Cells(x, 48) <> "" Then Cells(x, 48).Offset(, Range("AJ6") - 44) = Cells(x, 48) End If Next End Sub[/syntax] ps jak być coś zmieniał to musisz brać pod uwagę te ukryte kolumny
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.
Witaj [syntax=vbnet]Sub zbior() 'Przycisk w zakladke zbiorczej !!! krng = "B:C" 'kolumny do kopiowania p = 1 'docelowa kolumna w zbiorczej zakladce Dim zb As Range, k As Long Set zb = ActiveSheet.Cells nzb = ActiveSheet.Name For Each sh In ThisWorkbook.Sheets If sh.Name <> nzb Then sh.Range(krng).Copy zb(1, k + p) k = k + 2 End If Next End Sub...
Możesz wrzucić plik (jako załącznik) z przykładem? p.s. Plik od v. 2007 wzwyż spakowany ZIP-em lub RAR-em.
Witam Tabela przestawna nie pasuje?
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]
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....
To jest porównanie zmiennych, gdzie zmienna "kom" ma domyślną wartość "Value" i jest porównywana ze zmienną "MergeArea", która jest na tyle nieszczęśliwie dobrana nazewniczo, że ma tę samą nazwę co zastrzeżona w vba właściwość "MergeArea" ... :-) ... Skorzystaj nie tylko z właściwości "MergeArea", ale również z "MergeCells", która zwraca info o tym,...
Jeżeli ma pobierać dane zawsze z tego samego wiersza to przed indeksem wiersza wstaw $ (np Arkusz1!Q$124), podobnie jest przy kopiowaniu w kolumnach "blokuje" się dolarem indeks kolumny (np. Arkusz1!$Q123) można też zablokować bezwzględnie kolumnę i wiersz ($Q$124). Techniki te nazywają się adresowaniem bezwzględnym.
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]
Witam mam napisany kod vba: [syntax=vb] Sub ZnajdźKopiuj() Dim zn As Long On Error Resume Next With Sheet1.Range("A1:BD1") Set zn = .Find(What:="Szukana fraza", _ After:=.Cells(1, 1), LookIn:=xlValues, _ Lookat:=xlWhole, MatchCase:= False ) If zn Is Nothing Then Exit Sub zn(1, 3).Copy Range("Wklej Tu") End With End Sub [/syntax] Po delikatnych modyfikacjach...
jest to przykład jaki by mnie interesował ze zmianą Pewnie nikomu nie będzie się chciało 'wchodzić' w jakieś inne tematy i pobierać załączniki. Najpierw spróbuj sam coś 'sklecić' jeżeli nie dasz rady to przygotuj załącznik.
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.
Zamiast kopiować całą kolumnę kopiuj obszar.
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...
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
Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
Wstaw nową kolumnę, wklej funkcję (przykład dla kolumny źródłowej A od 1 wiersza) =FRAGMENT.TEKSTU(A1;1;DŁ(A1)... i przeciągnij w dół. Następnie zaznacz kolumnę, Kopiuj, Wklej specjalnie>wartości i usuń kolumnę źródłową. Tę samą funkcję można użyć w pętli VBA (mid, len, right). Warto, jeśli czynność...
Jeżeli wpisy dla danego indeksu w kolumnach B i C nie powtarzają się, to powinno zadziałać. W tym przypadku konsolidacja działa na zasadzie sumowania, więc gdyby powtarzały się wpisy otrzymalibyśmy sumę jedynek. Aby uruchomić konsolidację należy umieścić kursor (komórkę aktywną) tam gdzie ma się rozpocząć zestawienie wynikowe, wybrać polecenie konsolidacji...
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...
Obojętnie który wiersz, byle był zaznaczony od początku (czyli od kolumny A).
Chodzi o tę drugą pętlę? Wtedy Kod: vbscript Rozwiń Zaznacz wszystko Kopiuj do schowka If Cells(wiersz, 4) > 99 Then .Cells(wwrs, 4) = Cells(wiersz, 4) itd Raczej musi być przy tym warunku wiersz wpisany na stałe If Cells(128, 4) > 99, bo pętla rusza od 129 I tak zapytam autora po co te dwie pętle? i co jest w N? (nr wiersza czy nazwa arkusza chodzi...
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...
Załączam plik z nagłówkami z wygenerowanego pliku (nie mogę pliku, bo są dane wielu osób). W zakładce "Dane" jest zrzut z power query. W arkuszu "Selekcja" chciałbym, aby automatycznie kopiowały się całe kolumny (zaznaczone na niebiesko) z "Dane". "Tab_Selekcja" stworzę tabelę przestawną. Czy to coś pomogło?
Tak, office 2010 Powiedz proszę jak można skrócić pracę kopiowania z kolumny do wskazanych wierszy?
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.
Czy kopiowanie kolumn to "jedyny wymóg" ... : ) ... czy dojdzie potem "coś jeszcze więcej" ? Dodano po 11 No dobrze ... brak odpowiedzi też jest jakąś odpowiedzią ... : ) .. sprawdź więc sobie to: 952102 1. Pomiędzy tabelą a resztą danych musi być zachowany jednowierszowy i jednokolumnowy odstęp 2. Komórka "A7" jest punktem odniesienia dla operacji...
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"...
Załącz przykładowy plik, bo 1 plik jest lepszy od 1000 słów. To trzeba sprawdzić w działaniu. Prawdopodobnie potrzebna będzie jakaś procedura zdarzeniowa, ale trzeba zobaczyć jak ona będzie działać przy ukrytych kolumnach.
Sądzisz kolego, że Twoje wywody nt założonego działania makra są jasne :?: Otóż nie :cry: Zrób przykładowy plik (nawet ręcznie) z symulacją rzeczywistych danych i widokiem przed i po przekształceniach :!: i zamieść go jako załącznik :idea:
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
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
Zaznaczanie i kopiowanie dynamicznego zakresu kolumn A w treści piszesz o wierszach ... Jednak proszę o pomoc w modyfikacji tego kodu aby spełniał warunki opisane powyżej Załączyłeś ... dopiero później ... Udało mi się znaleźć i zmodyfikować kod, który zaznacza zakres tabeli Kod, który załączyłeś tyczy się zupełnie czegoś innego ... (at)Prot zamiast...
1). Sortujesz dane wg. pierwszej kolumny. 2). W kolumnie CZWARTEJ (jeżeli masz 3 zajęte) korzystasz z instrukcji JEŻELI, przykładowo: =JEŻELI(A1=A2;;A1) czyli: jeżeli komórki a1 i a2 są RÓZNE, to wpisz do kolumny wartość komórki A1 3). W kolumnie piątej postępujesz PRAWIE tak samo, tzn =JEŻELI(A1=A2;;B1) 4). W kolumnie szóstej postępujesz analogicznie...
no to kopiuj kolumny wosza... ;]
Ponieważ nie ma odpowiedzi, zakładam że nowe dane będą uzupełniane u dołu. W pliku propozycja rozwiązania za pomocą "poprawności danych". W kolumnie A sprawdzanie w jednej kolumnie. Formułę można kopiować także do innych kolumn. Dane zaczynają się w wierszu 1. Sprawdzanie trójkami w kolumnach D do F. Te formuły muszą być dopasowane do kolumn, więc trzeba...
Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
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...
Gorszy problem jak ten kod rozwinąć na pozostałe kolumny To napisz proszę, ale w jednym zdaniu, jak mają być kopiowane kolumny.
Ciężko zrozumieć o co chodzi. Najprościej możesz kopiować formatowanie warunkowe poprzez kopiuj i wklej formatowanie. Działa bezproblemowo jeśli formatowanie warunkowe nie używa adresów komórek np. większe od to zrób czerwone. Jeśli korzystasz z adresów komórek to musisz pamiętać, aby tam gdzie wklejasz dane docelowe znajdowały się w tych samych kolumnach...
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...
Jak już pisałem, plik zrobiony był jakiś czas temu. Dzisiaj pewnie bym to uprościł. Zapuść krokowo Np makro "Filtr1" i obserwuj co się dzieje. Kluczowe jest kopiowanie listy z kolumny AA do ukrytego arkusza "Arkusz3" gdzie odbywa się "układanie" list i przypisywanie do nazwy. Fakt, trochę by tam trzeba pozmieniać.
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ć.
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...
Oj, to był tylko przykład :) Jeśli już musisz na "selectach", to dopisz gałąź [syntax=vb]For Each ws In Worksheets If ws.Name <> "rowdata" And ws.Name <> "wynik" Then ws.Activate Range("M2:Q2").Select Range(Selection, Selection.End(xlDown)).Select If Selection.Rows.Count < 1001 Then Selection.Copy Sheets("rowdata").Select Range("a10000").End(xlUp).Offset(1,...
Ja bym to zrobił mało elegancko, ale skutecznie. W kolumnę C poleceniem "wypełnij" kolejne liczby 1.....999 (żeby mieć możliwość powrotu do oryginału po sortowaniu) W D1 wpisujemy 1, w D2....D999 wpisujemy funkcję "JEŻELI" o parametrach: jeżeli w komórce ( D,powyżej) jest wartość = 40 to wartość bieżącej komórki = 1, a jeżeli jest mniej to wartość...
Więc dopisz sobie kopiowanie kolumn ze znalezionego wiersza. [syntax=vbscript]b.Close savechanges:=False[/syntax] Po co przerabiasz kod dopisując zbędne 'savechanges'???
Ale co, konkretnie, jest niejasne? To jest jakiś kod ramowy, który trzeba uzupełnić o obliczenia. Na razie określane są kolumny z danymi od kolumny D do ostatniej wypełnionej w prawo (ciąg bez przerw). Zakres wierszy 3..6 jest wpisany na sztywno. Dane z kolejnych kolumn od D w prawo są kopiowane do kolumny C i wyświetlany jest MsgBox po wykonaniu tego...
Kopiujesz kolumnę z danymi, potem [wklej specjalnie] z opcją [transpozycja].
Dzień dobry, Kolumnie z nazwami produktów należy nazwać np. "Nazwa". Zastosowałem dynamiczną definicję, żeby listę produktów można było uzupełniać: [syntax=text]=PRZESUNIĘCIE(Baza!$A$2;;;I... Wartości z sąsiednich kolumn odczytamy stosując funkcję PRZESUNIĘCIE. W tym przypadku są to formuły zwykłe, które można kopiować....
Takie automatyczne kopiowanie możliwe jest tylko poprzez VBA :D Proponuję wykorzystać dla arkusza 1 i 2 prywatne procedury wywoływane zdarzeniami zmian odpowiednio w kolumnie X i L. Przykładowe rozwiązanie w załączonym pliku xlsm :spoko: 864181
Nie wiem czy dobrze cie rozumiem Zaznaczasz kolumny wciskasz kopiuj przechodzisz do nowego zeszytu (nie wiem jak jest w oo ) wciskasz prawy klawisz myszy wybierasz wklej specjalnie... zaznaczasz "wartości" ok i masz wklejone same cyfry.
Potrzebuję makro które: 1. Zamienia przecinki na kolumny 2. Kopiuje kolumny ze wszystkich skoroszytów (w tym przypadku kolumna F) do jednego arkusza Po co dwa makra jak można to zrobić jednym "w locie"?
W załączniku.
Witaj Zamiast tego Rows(1).Copy Destination:=Rows(ost_wiersz) wpisz Rows(ost_wiersz) = Rows(1).Value Dodano po 2 z wiersza „A” "A" to jest kolumna
Jak napisałem w pierwszym poście- jak nie mamy pojęcia o budowie kolumn to kopiujemy kolumny kogoś kto to pojęcie ma. Amen. Temat zamykam.
Taak ale ma kopiować wszystkie komórki znajdujące się pod (całą kolumnę). Jestem w stanie zrobić loopa który przeżuci jedną komórkę ale nie umiem zrobić tak żeby na podstawie jednej kopiowało całą kolumnę.
Jeśli CSV nie używa w danych znaków, które są separatorami pól, to pod Linux-em "cut" może wybierać wskazane kolumny; nie może zmienić ich kolejności, i jak np. napisze się 1,5,3, to wyjdzie 1,3,5 - parametr może określić tylko, które kolumny są kopiowane, a nie, jaka ma być kolejność. Jeśli na używanym komputerze są Windows, to jest np. [url=https://learn.microsoft.com/pl-pl/w...
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...
Prześlij ten plik lub podobny, w którym obserwujesz ten sam problem. Może układ danych "kłóci się" w jakiś sposób z tym kodem? Może spróbuj pobrać przez InputBox adres kolumny, a nie odwołanie.
Dziękuję za odpowiedź:) Dla mnie nie jest problemem kopiowanie kolumn oddzielnie ale dla "zleceniodawcy" już jest problem. Chyba trochę zunifikuję formularze z tego względu, że prawdopodnie pliki będą obsługiwane w sposób mocno dowolny.... Dziękuję za pomoc:)
Hej, próbuje zrobić narzędzie które będzie mi eksportować dane z jednego pliku to kilku. W kolumnie A: nazwa pliku do którego kopiuje W kolumnie B: ścieżka tego pliku W kolumnie C: arkusz docelowy W kolumnie E: nazwa pliku z którego kopiuje W kolumnie F: ścieżka W kolumnie G: arkusz wyjściowy W kolumnie H: szukana wartość W kolumnie I: kolumna w której...
excel kopiować kolumna kopiować kolumna excel makro kopiować kolumna
wiertarka bosch wirnik radia kenwood opinie chrysler voyager alarm zamykaniu
piekarnik gorenje czyszczenie elektrozaworu
Wzmacniacz do kolumn Pylon Pearl 20: moc i specyfikacja Nie można otworzyć aplikacji tsetuo-x - przyczyny i rozwiązania