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...
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...
Witam ponownie Mam w makrze taki wpis jak ponizej i niestety nie dziala. Sprawdzalem z pomoca w Excelu ale wszystko jest ok, mimo to nie dziala: ThisWorkbook.Worksheets("xxx").Range("d3... Destination:=Workbooks(fn).Worksheets("x... gdzie fn = file name O co chodzi? W pewnym momencie dzialania makra otwarte sa dwa pliki excel....
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
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...
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))...
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
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, 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, 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...
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, 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...
niestety niewiele mi to pomogło.
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
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...
Z przycisku. Rozpracowałem sobie pozostałe makra przez Rejestrator. Tylko to kopiowanie mnie przerosło
Chce mieć to makro w drugim pliku do którego będa dane kopiowane i pod przycisk makro przypisane
[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]
Cześć Wszystkim Proszę o zrozumienie ale dopiero raczkuję w vba i staram się sam rozwiązywać problemy ale teraz obecny problem mnie przerasta. Mam 12 tabelek, każda tabelka to jedno podejście do badań przez osobę kontrolującą . Uzupełnia wyniki i blokuje Swoją część. Ponieważ mój czysty formularz zawiera 12 takich tabelek chciałbym stworzyć takie makro...
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
Witam Serdecznie. Potrzebuję stworzyć dwa makra przypisane do przycisków. 1. Skopiowanie komórek B4,D4,E4, K4 z arkusza Brudnopis do arkusza Dane_NAGRODA w pozycje A2.B2,C2, H2 - czyli B4doA2, D4doB2 i tak dalej w kolejności. Chciałbym aby kopiowanie było ograniczone do momentu aż skończą się nazwiska w kol E w arkuszu brudnopis. Nazwiska przenoszone...
No tak, umknął mi ten wsB. Częściowo się udało ale mam kilka pytań. Dlaczego z With wbA(1) wyrzuca mi błąd? Dopiero gdy usunąłem With to makro zaczęło działać. No i drugie pytanie, jak skopiować kilka wartości do jednej komórki po przecinku? Teraz kod wygląda tak: [syntax=vbscript]Sub first() Dim wbA As Workbook Dim wsB As Worksheet Dim file As Variant...
Cześć, potrzebuję makro w arkuszu google, które zadziała tak, że będę miał przycisk po kliknięciu którego wyskoczy okienko z opcjami: 1 (do wyboru- załadunek/rozładunek) 2 (do wpisania - godzina, dzień) 3 (do wpisania - numer referencji) 4 (do wyboru numer rampy 4 lub 5) Po zatwierdzeniu powinien w odpowiednie okienko (data, godzina) wskoczyć nr awizacji...
Witam, mam nastepujacy problem: "zrodlo" - posiadam np. 10 zakladek z takim samym ukladem - sa to zakladki z ktorych chce kopiowac dane "cel" dane chce kopiowac do 40 innych zakladek (kazda zakladka posiada swoj numer np. 5455) - numer ten jest wpisany "x" razy w zakładkach "zrodlo" w kolumnie A. w jaki sposob napisac makro które bedzie do zakladek...
Niestety nie mogę wrzucić tutaj pliku. Jako N miałem na myśli liczby zawsze powiększone o +1 np. A2 potem A3 itd. Znalazłem rozwiązanie które powinno mi pomóc. Mianowicie jest to pętla, której niestety po wielu próbach nie potrafię wykonać. Więc na ten moment moje makro jest "ręcznym" odpowiednikiem pętli czyli wszystko napisane krok po kroku a chciałbym...
[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]
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
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...
Niestety w dalszym ciągu nie wszystko jest jasne i logiczne :cry: (np jeśli w arkuszu Import masz 1048576 wierszy to powinno Ci starczyć na jakieś 582 lat wypełniania :D - chcesz zmienić nazwę pliku na drugie milenium :?: ). Samo kopiowanie wartości z tego zakresu możesz zrealizować np takim kodem: [syntax=vbscript]Sub Copy_Value_Below_Last_Cell() Dim...
Ładny obrazek. To do testów w Paincie? Cześć, nie ma sensu pisać takich komentarzy, więc nie rób tego, jeżeli nie masz nic wartościowego do dodania. Dzięki. *Update* Dodaje załącznik oraz zdjęcie jak chciałbym aby to wyglądało po naciśnięciu "Copy" A jeżeli chodzi o przycisk "Clear" to ma on również swój kod, ale obawiam się, że skopiowany przycisk...
Udało mi się znaleźć i zmodyfikować kod :?: Coś mi się zdaje, że modyfikowałeś ten kod tylko klawiszem delete ? :D Wg Twoich przykładowych plików makro "uruchamiane" ma być ze zwykłego pliku i kopiować z pliku z makrem ??? :please: Proponuje Ci przygotować najpierw właściwy plik typu xlsm i cały transfer danych przećwiczyć pomiędzy 2 arkuszami - w...
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
Dzięki za pomoc. Rzeczywiście działa. W sumie nie napisałem tego ale było również istotne aby plik wynikowy był w formacie xls. Piszę bo może się komuś przydać do przygotowanego makro przez JRV należy wstawić po ActiveWorkbook.SaveAs "shablon" & n, fileformat:=56 Pozdrawiam :)
Faktycznie nie precyzyjnie. Oczywiście cały czas mam na myśli nowy skoroszyt. Mówiąc typ, mam na myśli listę którą rozwijam w filtrze. Piszę ogólnie, bo makro po przeróbkach przydałoby mi się do kilku czynności które wykonuję w pracy, i zdecydowanie by mi ją usprawniło. Generalnie chodzi o filtrowanie po kolei to co mam na liście w kolumnie E, kopiowanie...
... jak powinien wyglądać kod? 1. Deklaracje planowanych zmiennych/stałych pracujących w procedurze 2. Przypisania wstępne/wyjściowe do powyższych 3. Pobranie danych o nagłówkach - do tablicy lub bezpośrednio, w locie ... np.: PRL , do wyszukiwania w pierwszym, nagłówkowym wierszu arkusza z tabelą ... np.: [syntax=vbscript] With .Range(.Cells(1, 1),...
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.
Cześć, ,mam problem jak napisać makro które skopiuje tylko wybrane kolumny w zależnosci od danych wpisanych w wierszu 6, jest tam zawsze numer miesiaca i występuje kilka razy, (raz w 6 kolumnach raz w 12, zawsze jedna po drugiej) . Marko miałoby znaleźć własciwy miesiąc (czyli liczbę z zakresu 1-12) podany np w inputbox a potem skopiować wszytskie właściwe...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Witam serdecznie. Posiadam dane w excelu, które znajdują się w 2 arkuszach: 1. "DANE" i 2. "CT". W pierwszym arkuszu w kolumnie 2 (od wiersza 3 do 2500) znajdują się interesujące mnie wartości. W arkuszu "CT" w wierszu 7 (kolumny od B do EO [143]) znajdują się liczby, które w sumie dają wartość 2500. Chodzi o to, żeby pod każdą taką liczbą w arkuszu...
Dzień dobry, Mam taki problem, że staram się stworzyć makro, które pozwoli mi kopiować pełne wiersze z odpowiedniego zakresu (B7:AR7) z 8 plików składowych do pliku zbiorczego i ustawiać skopiowane dane w kolejności (w kolejnych wierszach pliku zbiorczego). Na obecną chwilę mam takie makro: Sub fileCollection() Dim bs As Range Dim bd As Range...
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
Z arkuszua1 kopiuję zakres np. A2:M20 (ilość kolumn jest zawsze stała, ilość wierszy się zmienia) i musze go wkleić do arkusza2 od kolejnej niepustej komurki w kolumnie A. Takie makro można zarejestrować, nawet nie trzeba używać do tego VBA. Zwróć uwagę na to, że wciskając END a potem strzałka - skaczemy do końca(początku/następnej zmiany) zapełnionego...
Hmm. Układ nagłówków w arkuszu docelowym jest stały więc nie zaburza odnośników dla formuł. Dane do arkusza copy nie przyrastają w tempie wykładniczym, ponieważ arkusz służy do obrabiania konkretnych rekordów. Dany plik excela odnosi się do określonego zakresu bazy danych i już. Wielkość bazy nie ma tu nic do rzeczy. Dzięki za pomoc i wsparcie przy...
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...
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich plikach). Chciałbym aby raz podany zakres danych...
W takim razie mamy zupełnie odmienne wyniki testów :!: Z testów, które robiłem gdy pisałem o optymalizacji (dane dla 2000 wierszy ): - kopiowanie komórek pojedynczo ( z jednej kolumny ) - czas 5.26 - 5.6 s, z czego czasy krótsze dla liczb, a dłuższe dla komórek z tekstem. - kopiowanie komórek pojedynczo ze wszystkich 7 kolumn - czas 36.8 - 37,18 s ....
Kiedyś ktoś z tego forum obdarował mnie poniższym kodem. Wszystko działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? Wiem że mogę przyrównać zakresy ale jak to zrobić gdy ilość skoroszytów w lokalizacji jest zmienna ? [syntax=vbnet] Sub ImportujPlikizWieluLokalizacji() '...
No to się teraz narozrabiało. To miało być kopiowanie z kilku arkuszy do jednego! No cóż. Muszę się nauczyć czytać ze zrozumieniem problemy wyłuszczane na forum. Ale znowu potwierdza się zasada, że jeden obraz znaczy więcej niż tysiąc słów. :D I tu skorzystałbym z podpowiedzi marcinj12 z niewielką modyfikacją warunku na nazwę arkusza (> "Arkusz"...
Witam, mam za zadanie jak najszybsze skopiowanie z kilkunastu arkuszy jednego pliku excela do jednego arkusza innego (nowo utworzonego) pliku excela. Używam metody Zrodla = Split("A1,A2,...,V2:W2", ",") Cele = Split("C9,C10,...,L103", ",") For i = LBound(Zrodla) To UBound(Zrodla) Workbooks(CurrentFile).Sheets(1).Range(Z... ThisWorkbook.Sheets("XXX").Range(Cele(i)...
Trzeba będzie wprowadzić copy-paste w miejsce przypisania. Raczej nie obędzie się bez select'ów, ponieważ pliki mamy w różnych instancjach... Spróbuj (nie testowane) [syntax=vb]Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim i As Integer Dim...
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...
makro kopiowanie zakresu danych excel makro kopiowanie zakresu makro excel kopiowanie zakresu
iveco daily ciśnienie oleju darmowy kanał astra filtra
Blaupunkt NY 800 - Instalacja Androida: Możliwości i Ograniczenia Passat pompowtryski: biały dym i zapach ropy