Dokładnie tu nie ma nic co by mogło nie zadziałać, chyba że jest to jakiś wycinek z większego kodu (jak w pierwszym poście). Możesz sprawdzać po kolei czyli zaczynając, potem od ptaszkuj rng1 sprawdź itd. [syntax=vbscript]Sub second() Dim rng1 As Variant Dim rng2 As Variant Dim box1 As Range Set box1 = Application.InputBox("Select column", , , , , ,...
Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
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...
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
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...
[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]
Jeśli makro, następnie tak
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...
[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]
Punktem który ma definiować kolejne wiersze jest pusta komórka To trochę zmienia postać rzeczy, myślę że PROT rozwiązał problem globalnie :) Moją uproszczoną pętlę wystarczy zamienić na: [syntax=vbscript]For irow = 3 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value...
Może Pan użyć instrukcji With: [syntax=vb]With XlApp.Worksheets(1) .Range("Q5,R5,V5,Z5,AD5,AH5,AL5,AP5,AT5,... .Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With XlApp.Workbooks("Book1").Close savechanges:=True [/syntax]
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
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]
[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]
Na przyszłość powinieneś dawać swój załącznik, najlepiej pokazujący to co już sam zrobiłeś, a czego jeszcze Ci brak. Ważny jest też układ danych. Tu go opisałeś dość dokładnie, ale zawsze łatwiej pomóc, gdy jest już jakiś punkt zaczepienia. Możesz zastosować na przykład taki kod: [syntax=vbscript]Sub Kopia() ' wyczyszczenie miejsca na wynik With Worksheets(2)...
No tak czytając to któryś raz z kolei można rzeczywiście przypuszczać że rozumiem to tylko na swój sposób:) Mianowicie chodzi mi o to aby efekt w kolumnie nr 2 przy danych z kolumny nr 1 wyglądał jak poniżej Formuła ma startować od ostatniej komórki w kolumnie do góry 2001-02-03 KWAST45 2001-02-04 KWAST45 2001-02-05 KWAST45 2001-02-06 KWAST45 KWAST45...
Dzięki Tez tak chciałem zrobić, tylko miałem błędy (literówki w kodzie), wiec szukałem na około jak to zrobić. Jeszcze raz dziękuje za podpowiedz.
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...
Dzięki wielki pięknie działa. Temat do zamknięcia.
Najprościej: 1. Zadeklaruj zmienną publiczną w 'Module1' Np "Public KolToSh As Integer" 2. W procedurze 'DaneDoKPSkladka' wstaw linię: "KolToSh = ActiveCell.Column - 16" Najlepiej zaraz za "If Val(ActiveCell.Value) > 0 Then" 3. W procedurze 'zapiszKPdoRK_1' zamiast: "Sheets("RK1S").Select" wstaw: "Sheets("RK" & KolToSh & "S").Select" Zastrzegam sobie...
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...
Cześć, To mój pierwszy post, mam nadzieję, że niczego nie popsuję :) Do konkretów. Ćwiczę się z VBA i wymyśliłem sobie takie zadanie: W pierwszym arkuszu mam grafik z rozpiską posiłków na cały tydzień, gdzie wyboru dokonuje się za pomocą ComboBoxa (Form Controls), coś takiego: http://obrazki.elektroda.pl/3381097400_1... Z kolei w kolejnych...
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...
Witam Mam taki problem. Z arkusza1 mam skopiować określony zakres komórek do arkusza2. Miejsce kopiowania tej zawartości do arkusza2 ma spełniać dwa warunki: 1.Ma skopiować pod wybranym miesiącem 2.W kolejny pusty wiersz W załączniku mój arkusz, ale coś mi nie tak kopiuje tzn nie w te miejsce gdzie trzeba. Jak by się dało jeszcze zrobić to wolałbym...
Spróbuj z Select Case .
przeinstalowanie Office`a względnie samego Excel`a.
będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...
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...
Było też tu http://www.elektroda.pl/rtvforum/topic32...
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...
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Czy da się partycje wybrane kopiować? Tak. Można wybrać zakres sektorów tworzących partycje do kopiowania.
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
sprawdź załącznik
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...
Wystarczy ustalić, który wiersz jest ostatnim w obu arkuszach. Popularny sposób w VBA na tą operację to: [syntax=vb]ost_src = Worksheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Row ost_dest = Worksheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Row[/syntax] a mając te dane - kopiujesz zakresy, w zależności czy chcesz je kopiować ze wszystkim czy tylko...
Suuuuper:) Wielkie dzięki, działa z tymi danymi:) Mam jeszcze pytanie. Ponieważ dane, które załączyłem nie są danymi rzeczywistymi trzeba by było przerobić podany przez Ciebie kod. W moim pliku rzeczywistym, którego niestety nie mogę załączyć, mam dane wypełnione w kolumnach od A do N. Kolumna A, C, D, E, F, I, J, K, L, M, N - dane nieistotne, ale konieczne...
Nie wiem co miałeś na myśli Po następnym wpisaniu daty w I4 powinno kopiować zakres dat z I4 do R4 itd. Ale pozostałe funkcje działają. [syntax=vb] Public Blokada As Boolean Sub Przesun(Wiersz As Integer) Dim a As Integer For a = 7 To 0 Step -1 ActiveSheet.Cells(Wiersz, a + 9 + 1).Value = ActiveSheet.Cells(Wiersz, a + 9).Value Next a ActiveSheet.Cells(Wiersz,...
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...
Witam. Właśnie poszukiwane z mojej strony.Visual Basic- Excel. - Jeżeli Ktoś z kolegów zna dobrą pozycję książkową Visual Basic z wiązaną z Excelem to bardzo proszę o tytuły. Będę wdzięczny.
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
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...
Chodzi o coś takiego? Sub Kopiuj_Dolnośląskie() ostWrs = Range("B8").End(xl... + 1 If ostWrs > 65535 Then ostWrs = 8 tmp = ostWrs For i = 2 To 5 ostWrs = tmp For j = 8 To 44 Cells(ostWrs, i) = Worksheets("Arkusz1").... - 1, i - 1) ostWrs = ostWrs + 1 Next j Next i End Sub...
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
Trochę niezrozumiale opisane. Z tego co rozumiem to nakładają Ci się zakresy, bo nie masz zadolarowanego pierwszego zakresu przed kopiowaniem (zaznacz zakres funkcji u na zaznaczonym zakresie naciśnij F4). Najlepiej zamieść jakieś dokładniejsze informacje, screena z opisem krok po kroku co chcesz zrobić, a co wychodzi nie tak.
Czy ktoś wie w jaki sposób można skopiować tekst w Excela do Worda, w taki sposób, żeby na przykład z kopiowanego zakresu Excela A1:A10, treść z wiersza A1 została wstawiona do Worda jako nagłowek_1, a wiersza A5 jako nagłówek_2? Z góry dziękuję za pomoc.
Co ma się kopiować? Zakresy, komórki? Załącz przygotowany arkusz i wyjaśnij co ma się dokładnie kopiować, wtedy może coś uda się zrobić
[syntax=vb]Sub copy_ujemne() For wiersz = 4 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(wiersz, 1) < 0 Then Cells(wiersz, 3) = Cells(wiersz, 1) Next End Sub [/syntax]
Daty musza pozostac w poziomie. Chcialbym aby makro zamienialo formuly na wartosci w kolumnach do wczorajszej daty przy otwarciu pliku tak aby po modyfikacji kolumny pierwszej zmienialy sie tylko wartosci w kolumnach od dnia dzisiejszego. Z gory dziekuje.
Witam. Otóż chcę przenosząc formułę o jeden wiersz w dół, aby komórki w formule zwiększały się o 100 a nie o 1. Tzn. w komórce B1 mam formułę sumującą A1:A100, kopiując tą formułę do komórki B2, formuła zwiększa mi się względnie o 1 czyli A2:A101, a chciałbym aby zwiększała się o 100 czyli A101:A200. :D ale kolega forumowicz "ma wymagania" :D Wzór...
Było, było, ale nie dla A:C.;)
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
To większego pena lub dysk USB pożycz lub podłącz ten dysk do komputera stacjonarnego na czas kopiowania jeżeli masz taką możliwość. Nie używaj tego dysku. Laptop jak rozumiem po gwarancji i DVD recovery po zakupie nie zrobiłeś ? Jeżeli się czujesz na siłach to można kopiować po kawałku określony zakres sektorów lub pliki obrazu osobno po kolei.
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Miałeś w regule formatowania adres z $, czyli bezwzględny. Powinien być względny D2, ewentualnie $D2, ale przed 2 nie może być $. Można kopiować formatowanie, można od razu ustawić cały zakres, ale regułę piszemy dla pierwszej komórki.
Nie bardzo wiem, jak dobrać R zaznaczony kółkiem. Są podane w nocie aplikacyjnej optotriaka, stamtąd się wygodnie kopiuje, ale zakres jak kolega wyżej pisał. A jakie powinno być prawidłowe podłączenie ZD_IN ? Nie ma jednej dobrej wartości, wystarczy by Ci co okres przełączyło. Resztę dobierasz programowo.
I od załącznika trzeba było zacząć. Widzę to tak - 3 etapy: 1. Zaznaczamy zakres dat i zmieniamy format na docelowy tzn. "rrrrddmm" 2. Kopiujemy zakres do schowka Office (mała strzałka obok słowa Schowek otwiera go, kopiuje się normalnie) i wklejamy w to samo miejsce 3. Zmieniamy format na Tekstowe.
Wybierasz opcję "kopiuj sektory", podajesz zakres, wskazujesz "do pliku" i podajesz, gdzie chcesz ten plik utworzyć. Znaleźć końcowy sektor też się da - w momencie, kiedy plik się kończy, reszta sektora jest wypełniona zerami. Niektóre pliki mają też sygnaturę końca. Jeśli znajdziesz początki tych plików, podamy Ci na tacy propozycję sektorów, które...
Witam, potrzebuje stworzenia makra dla ponizszego problemu. Chce skopiowac kilka wierszy z danego arkusza, jezeli dana wartosc wystepuje w pierwszej kolumnie tychze wierszy. Skopiowane komorki a najlepiej tylko wartosci bez formatowania, chcialbym dodac do bazy danych juz istaniejacej w tym samym arkuszu na samym dole. Dla uproszczenia: szukamy w kolumnie...
Co Ty kombinujesz? Wyślę Ci plik z makrem, które kopiuje zakres 'B2:B7' do pietwszego wolnego wiersza w kolumnie 'A'. Nie opisałeś, gdzie 'B2:B7' ma być wklejane, więc zmień sobie indeksy komórki.
Makro w tym przypadku mogłoby być takie: [syntax=vbscript]Sub Kopiowanie() ' zakres źródłowy Worksheets("Arkusz2").Activate Dim ostw As Long, src As Range ostw = Cells(Rows.Count, "L").End(xlUp).Row Set src = Range("L2:L" & ostw) ' zakres docelowy Dim dest As Range Set dest = Range("AB2") ' kopiowanie Dim i As Long, n As Long Dim rw As Range For Each...
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...
Witam, potrzebuje uzyskać kod vba, kopiujący dane z arkusza roboczego, do innego pliku excel (Baza). Przykładowo" Kopiowanie zakresu od A4:K4" z arkusza roboczego , do pliku excel (BAZA) , ścieżka C:\Users\_______\Dropbox\Logistyka]"BAZA... Kopiowanie według wolnych wierszy w pliku BAZA. Dziekuje.
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))...
Poszerz zakres i zastosuj clear zamiast clearcontents.
Scalone komorki w zakresie kopiowania? Jeżeli chodzi o zakres kopiowania i wklejania żadne z komórek nie są scalone, staram się unikać scalania komórek, co może być innego przyczyną tego błędu ?
Witam, Stworzyłem makro, które tworzy mi w odpowiednich komórkach butony w zależności od wartości innej komórki(jeżeli są jakieś dane, przycisk zostaje utworzony). Teraz chciałbym po kliknięciu danego buttona skopiować kilka komórek z zakresu, w którym znajduje się przycisk do innego pliku. Problem polega na tym, że butony są dynamiczne a ja chcę by...
Niestety nie działa. Kopiuje dany zakres i wkleja w kolumnę do tyłu. Po kolejnym kliknięciu wkleja w to samo miejsce. Potrzebuję aby wklejało w następną kolumnę pamiętając że jest to zakres dwóch kolumn. Czyli kopiuj D:E i wklej w F czyli tak naprawdę w F:G, po kolejnym kliknięciu kopiuj D:E i wklej w H czyli tak naprawdę zajmie zakres H:I itd.
Wklej do modułu w przykładzie Sub kopiuj() koniec = Range("D1").End(xl... Range("D1:D" & koniec).AdvancedFilter Action:=xlFilterCopy, _ copytorange:=Columns("AA... Unique:=True Range("AA2:AA" & Range("AA1").End(x...
Jeśli chcesz sprawdzać cały kopiowany zakres, to to Range(Cells(3, 1), Cells(ow, ok)).Copy Destination:=Sheets(1).Range("B" & pw) musisz zapętlić (For 1 to ow, z inkrementacją pw). Trzeba tylko określić, w której kolumnie pusta komórka czyni wiersz "pustym" (dla instrukcji If).
Szukaj rozwiązania z poleceniem Dir , otwieraniem i zamykaniem plików w pętli Do Until . Było kilka podobnych tematów na forum. Przeszukiwanie arkuszy i kopiowanie zakresów również do znalezienia. Pisz, jeśli na czymś utkniesz...
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...
Mam tylko problem u mnie nazwa arkusza jest zawsze inna ( różne piliki są otwierane) Zamiast I jest jeszcze problem z zakresami, w pliku docelowym ma on być kopiowany w pierwszy wolny zakres. Więc tam, gdzie teraz jest przykładowo[syntax=vb]wswyn.Range("A2:D2... = wsSrc.Range("A2:D2").Value[/syntax] wstaw [syntax=vb]ost_w = wswyn.Cells(Rows.Count,...
U mnie bez kolumn pomocniczych, za to z nazwami (żeby łatwiej można ogarnąć formułę). Dane - to zakres danych źródłowych, numkol, numwie, numer - formuły pomocnicze, formuła kolnr zawiera adres początku zakresu wynikowego w formie adresu mieszanego, w tym przypadku [syntax=text]F$2:F2[/syntax]Formuła finalna w arkuszu jest formułą zwykłą, którą można...
oto co wielki Mikroszit o tym mówi: Konwertowanie liczb przechowywanych jako tekst na liczby Cały zakres jednocześnie W pustej komórce wprowadź liczbę 1. Zaznacz komórkę i w menu Edycja kliknij polecenie Kopiuj. Zaznacz zakres liczb przechowywanych jako tekst, które mają być konwertowane. W menu Edycja kliknij polecenie Wklej specjalnie. W obszarze...
Witam, Staram się napisać makro, które zlicza ilość rekordów w przedziale od (B2:B2000) Zaznacza formułę w wierszach A2 i kopiuje ją do zakresu A3:A(wynik z liczenia +1) Nieudolnie napisałem coś takiego, ale nie wiem jak ustawić zakres odwołując się do wyniku z operacji liczenia... PS. Docelowo formuły będą się kopiować z kilku "zakresów" np. Range("D2:E2")...
Z trzema kolumnami pomocniczymi wychodzi jak w załączniku. Uwaga: konieczne wstępne posortowanie danych wg. kol. "A" oraz kopiowanie formuł o jeden wiersz niżej od zakresu danych.
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Jeśli dobrze rozumiem wystarczy przesunąć zakresy. Przykład w załączniku.
Tak z grubsza przeanalizowałem ten kod i przestaję rozumieć... Kopiujesz całe zakresy wierszy?
Pierwsza sprawa to macro które kopiuje pewien zakres komórek do schowka I jaki masz z tym problem?
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Jeśli źle myślę, poprawcie. Pierwsza wartość zmiennej nRow to dolna granica kopiowanego zakresu z arkusza "002" do "CenyEx". Kopiujesz od A2 wklejasz od A1, czyli ta wartość będzie pierwszym wolnym wierszem. Spróbuj With Worksheets("603") nRow1 = .Range("A65536").End... .Range("A2:A"...
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]
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.
DMDE w pierwszym oknie po wybraniu partycji do kopiowania pokazuje, że kopiuje od pierwszego do ostatniego sektora,ale kolejny komunikat pokazuje już co i gdzie kopiujesz(zakres lba). Czy na dysku 4 tb posiadałeś tylko jedną partycję? Trochę to dziwne. Dobrze sprawdzaj i czytaj - dmde przed wszystkim ostrzega. Najważniejsze jest w przypadku posiadania...
Czy nie byłoby prościej: Kopiuj > wklej specjalnie 1. Wpisujesz w dowolną komórkę dzielnik 2. Kopiujesz komórkę do schowka 3. Zaznaczasz zakres do przeliczenia 4. Ctrl+Alt+v 5. http://obrazki.elektroda.pl/6045363600_1...
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...
Ten pierwszy kod jednorazowo może odczytać 1 komórkę. Tu była próba odczytania całego zakresu od razu. Trzeba to zrobić w pętli.
Formuły działające na tablicach "nie cierpią" scalonych zakresów. Tu jest ich tylko trzy, więc kopiuj-wklej i ręczna poprawka nie jest czasochłonna. Na przyszłość staraj się unikać scaleń w takiej sytuacji.
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ę...
Np. w kolumnie pomocniczej za pomocą jeżeli() określasz czy kolejne 5 komórek jest puste. Tu trzeba by było jeszcze dodać jakieś zabezpieczenie jakby było więcej niż 5 by już tego nie podliczał. Budujesz funkcje kopiujesz w dół i już. Dla 15 poprawiasz zakres sprawdzanych komórek i ilość na 15 kopiujesz w dół i tez masz wyniki. Taki przykładzik: edit...
Do pliku "Base" w arkuszu "arkusz1" chce pobrać dane z innego pliku xlsb o nazwie "Date" do tego celu użyłem zmiennej; [syntax=vbnet]Dim src As Workbook Dim plik As String plik = Application.GetOpenFilename("Skoroszyt(*... Set src = Workbooks.Open(plik)[/syntax] 'następnie I tutaj ponieważ ilość pobieranych danych nie jest stała chce zaznaczać...
Wklejać danę będe do innego skoroszytu . To dlatego brakowało tego arkusza "Dane" w Twoim pliku :?: :D Jeśli tak nieprecyzjnie wszystko opisujesz to wprowadzasz w błąd wszystkich, którzy Ci pomagają :cry: Makro kolegi PRL będzie Ci kopiowało określony zakres danych tylko do arkusza Dane w tym samym skoroszycie :!:
Do wyboru - te ustawienia to też na wyczucie. Można ustawiać skok w ilości sektorów pomijanych po błędzie odczytu na przykład. Co do kopiowania uszkodzonych sektorów: 1. Zgraj co się da z pominięciem uszkodzonych sektorów, stosując kopię dysku na dysk (nie do pliku). Tam gdzie na dysku źródłowym był błąd odczytu na docelowym pewnie nie będzie nic albo...
Co miesiąc muszę pobierać dane liczbowe Ciekawi mnie skąd importujesz te dane ? Na podstawie wartości i ich agregacji wnoszę, że nie jest to import z jakiegoś profesjonalnego programu księgowego :cry: Na podstawie przykładowego pliku mogę zaproponować do realizacji Twego zadania odpowiednio dobrany zestaw funkcji arkuszowych, który po wprowadzeniu...
No działa, ale tak nie prościej? Też ciekawe rozwiązanie - tylko w Twoim rozwiązaniu makro trzeba uruchomić na każdym arkuszu który chcę skopiować - fajne rozwiązanie :) A powiedz mi, czy jest w Twoim rozwiązaniu możliwość pominięcia jednej kolumny? Tak żeby kopiował zakres od A2:D i F2:L? Bo aktualnie mogę skopiować cały zakres od A2:L.
excel kopiować zakres makro kopiować zakres filtr makro excel kopiować zakres
wentylator klimatyzatora karta zabezpieczona zapisem volvo silnika
Ustawienia zworek na dysku WD 80GB JB Jak włączyć funkcję nagrywania w telewizorze Samsung?