Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Z całym szacunkiem, forum jest po to aby pytać, jeżeli nie znalazło się rozwiązania...
Dzień dobry, Można spróbować takie makro: [syntax=vb]Sub Uzupełnij() Dim wiersz As Long, wzor As String wzor = "" wiersz = 1 Do If Cells(wiersz, 1) <> "" Then wzor = Cells(wiersz, 1) Else: Cells(wiersz, 1) = wzor End If wiersz = wiersz + 1 Loop Until wzor = "koniec" End Sub[/syntax] Powinno spełniać założenia. Pozdrawiam.
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
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.
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
iersz, który zamykam Co oznacza zamknięcie wiersza? to w sumie oznacza umowne w tym przypadku zamknięcie sprawy - najpewniej wpis w komórce np z datą zamknięcia sprawy. Zamiarem jest, że przy zmianie w tej komórce uruchomi się makro które poda monit, czy przenieść wiersz do pliku docelowego. Również ze zmianą w tej komórce może być powiązane przeniesienie...
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Przepraszam, tak wyraziłem swoją myśl mało precyzyjnie. W kolumnie B od wiersza B1 do wiersza od B2 do B2000 znajdują sie dane. Są w tym własnie wierszu są one wprowadzone w sposób ciągły i nie zawierają pustych komórek. Pusta komórka to koniec danych do zliczania. W pliku zamieściłem linie oddzielającą dane raportowe od podsumowań - sugeruja one wiersz...
Super. Działa tak jak powinno tylko z małym szczegółem po skopiowaniu wiersz nie znika z pierwotnego arkusza
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Witam, Proszę o pomoc. W tabeli arkusza1 są w wierszach dane, które należy przypisać do odpowiednich komórek szablonu, który znajduje się w sąsiednim arkuszu. Potrzebuję jak najprostsze makro, które skopiuje określone komórki z wybranego przeze mnie wiersza do sąsiedniego arkusza. Aby było tak: okno dialogowe pyta: "Podaj numer wiersza do skopiowania",...
Spoko, działa. Wartości są skopiowane. Ale niestety nie tak jak potrzebuje :( , gdyż Miasto się zmienia i zależy mi, aby czytało Miasto z każdego wersu. Na tej podstawie jeśli Miasto jest takie samo jak Miasto wiersz wyżej to wtedy powinno kopiować wiersz (tzn wartości z kolumn J,K,M). A jeśli się nie zgadza to przerwać kopiowanie. Coś na zasadzie pętli...
Dzień dobry. Za pomocą Logo AcessToll pobieram wartość licznika do Excela. Udało mi się stworzyć arkusz, który generuje trend z ostatnich 100 próbek pobieranych co 60sec, czyli mam informację z ostatnich 100 minut. Aby mieć dane z całego dnia, potrzebuje makra lub formuły, która będzie przepisywała wartość komórki A3 w arkuszu do kolejnych wierszy w...
Witam, potrzebuję pomocy w napisaniu makra, które jeśli znajdzie w przeszukiwanej kolumnie liczbę - to skopiuję odpowiadający jej wiersz i wklei obok... Pokaże na przykładzie: https://obrazki.elektroda.pl/9481950800_... Mam plik z czterema kolumnami - makro powinno przeszukać kolumnę C (wiersz po wierszu - max.300 wierszy) i jeśli znajdzie...
Cześć, mam główny plik kody, oraz istniejące pliki excel o nazwach z tego pliku z zakładki "Sheet3" tzn pliki o nazwach "62-200", "00-001" itd chce aby makro kopiowało do plików o odpowiedniej nazwie dane z pliku głównego kody wszystkie wiersze zawierające dany kod czyli jeśli napotka w pierwszej zakładce wiersz zawierający "62-200" to ma wszystkie...
Witam Proszę o pomoc. Potrzebuję proste makro, które skopiuje określone komórki z wybranego przeze mnie wiersza do innego arkusza. Chciałbym żeby to wyglądało tak: okno dialogowe pyta: "Podaj numer wiersza do skopiowania", podaje np wiersz nr 5 i wtedy komórka np A5 B5 D5 G5 z arkusza1 są kopiowane do komórek odpowiednio A1 A2 A3 A4 arkusza2. Nie znalazłem...
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D kopiowanie z kolumny w Arkusz1, następnie transpozycja i wklejenie w wierszu w aktywnym arkuszu (każde użycie makra wkleja do kolejnego wolnego wiersza wiersza)
Witam, Potrzebuje stworzyć makro wyszukujące odpowiedni numer z zakresu w innym pliku i kopiujące dane. Posiadam dwa pliki: AMSTERDAM_SPC-Carbody shell_v2 oraz SPC_Raport Zadanie makro: W pliku SPC_Raport -> zakładka ‘Geometria’ znajduje się nr KTW (wpisywany z ręki) komorka Z7: http://obrazki.elektroda.pl/9144379200_1...
Rozwiązaniem problemu jest zastosowanie pętli: For i= ... to ... ... Next Biorąc pod uwagę nazewnictwo plików zastosowałbym: Workbooks.Open FileName:="ścieżka\plik_" & i & ".xls" gdzie i będzie kolejnym numerem w nazwie pliku. Zrezygnowałbym tu z poprzedzającego zera. W przypadku tej pętli wszystkie powtarzające się polecenia...
Ogólnie tu jest kwestia poprawnego żonglowania Do while Cells(i,1) <> "" (czyli określenie ostatniego zapisanego wiersza) , warunku if i poprawności adresacji komórki przez liczbę( czyli dla celnego określenia użyj sformułowania Sheets(" [syntax=vbscript] Dim i, c, d As Integer Dim dzien As String i = 1 c = 1 d = 1 'określenie ilości komórek...
Dzięki za pomysł ale ja zacząłem myśleć o czymś innym.Może po prostu umieścić w SMARA NETHERLANDS gdzieś indziej osobno wyniki dla braku zapinki i brak woreczka, a później swykłą sumą umieścić je w komórce B5. Żeby nie było jednak za łatwo, zauważyłem dopiero teraz,że wyszukiwanie poprzez ("Paprika*") nie działa.Pewnie dlatego,że excel szuka w komórce...
[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Dzięki PRL za pomoc! Już jest prawie dobrze. Jest tylko jeszcze jeden mankament. Otóż jeżeli np. w wierszu G2 mam wartość 5 to makro kopiuje wiersz 2 pięć razy a powinno kopiować 4 razy. Ilość skopiowanych wierszy razem z tym, który pozostaje powinna być taka jak wartość w komórce w kolumnie G jeszcze przed uruchomieniem makra. Czyli suma wierszy po...
Witam arekkrasnal pozwolę sobie zmodyfikować twoje makro [syntax=vbnet]Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) End If wiersz = wiersz + 1 Loop End Sub[/syntax]
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
wrs = Range("A2:D2").End(xlUp).Row + 1 'co to ma robić? Skoro od drugiego wiersza w górę, to... pokazuje pierwszy wiersz :) Uparcie drepczesz w miejscu. Na czym wysypuje się makro z postu #16?
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...
Pętla FOR Wiersz =1 to wartość cells(wiersz, kolumna).Value =..... kopiowanie ; ; ; Next wiersz
Brakuje chyba jeszcze jednej pętli zmieniającej kod sklepu. Hmm, raczej: na pewno ;) Spróbuj[syntax=vb]Sub asd() Dim wiersz, nr, ilosc As Integer Dim ostWrs As Long, w As Long, ile As Integer ostWrs = Range("B65536").End(xlUp).Row wiersz = 1 Range("C1:D1500").Clear For w = 1 To ostWrs nr = Cells(w, 1) ilosc = Cells(w, 2) For ile = 1 To ilosc Cells(wiersz,...
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
Nie wiem czemu nie mogę uruchomić makra z przycisku? Kurcze pierwsze chodziło od cjancik ale to ostatnie nie. Wyskakuje komunikat o ustawieniach osobistych, które mogą być usunięte. Czy to makro ustawia dane w pierwszy wolny wiersz?
Witam, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Wygląda na to że bez zmian dla przykładu jeden wiersz a arkuszu Arka w którym sformatowałem ceny kolorem czerwonym: Sam chciałeś W nagranym przeze mnie makrze takie wklejanie daje taką linijkę kodu: Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats Niestety nie wiem czy można ja dopisać do Twojego makra. Niestety nie potrafię z kodu wychwycić...
komorka to jest Cells(wiersz, kolumna)
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
W prosty sposób można tylko w dodatkowej kolumnie D, w której byłby wyliczany postęp jako ułamek. W kolumnach B i C można to zrobić, ale trzeba dla każdej komórki podać osobną formułę, bo przy definiowaniu tego typu formatowania nie można używać adresów względnych, zatem nie można skutecznie kopiować komórek sformatowanych tak, aby każdy wiersz był...
Jeszcze jedno pytanko Wszystko działa tak jak trzeba tylko czy jest możliwoć żeby po znalezieniu takich przypadków kopiowany był cały wiersz?
Bez makr, to najprościej ;) : Wstaw nowy arkusz, w A1 wklej =ADR.POŚR("Arkusz1!"&ADRES... i skopiuj/przeciągnij w dół. Następnie możesz zaznaczyć kolumnę wynikową i przez...
Makro jest w pliku ZBIORCZY.XLSM. Te 1_19, 2_19, ..., n_19 nie mają w sobie makra. Z nich makro napisane w pliku ZBIORCZY.XLSM kopiuje do pliku ZBIORCZY.XLSM wiersz nr 2 z Arkusza 1.
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Naprzemienne kolory zrealizujesz formatowaniem warunkowym. Formuła: =MOD(WIERSZ();2)=1 Co rozumiesz pod pojęciem A po kolejnym użyciu nie kopiowało nagłówka tabeli tylko wstawiało wyszukane rekordy Z nagłówkiem nie ma problemu, wystarczy sprawdzić czy jest i kopiować warunkowo (gdy nie ma). Natomiast nic nie wiadomo co to za "wyszukane rekordy".
Makro jest w kodzie arkusza REJESTR - reakcja na zdarzenie Worksheet_SelectionChange (wybor kursorem dowolnej komorki w arkusze REJESTR). Makro pisze w N1 (nazwa 'wiersz') numer wiersza w ktorem zaznaczena komorka. Dalej w PROTOKOL'e formula INDEKS wybiera z tego wiersza dane(w przykladzie tylko wartosc PROTOKÓŁ ODWODNIENIA NR: , reszta dopasuj wg tego)...
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Dziękuję kolego PRL za zainteresowanie i kodzik. spróbowałem go użyć i nie wiem dlaczego ale jego działanie ogranicza wyniki. Jeżeli w arkusz1 jest kilka wierszy które zawierają w sobie któreś konkretne ze słów z kolumny B w arkusz3 to jako wynik działania dostaję tylko jeden skopiowany wiersz z z danym słowem . I jest to pierwszy wiersz patrząc od...
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,...
Najprościej: Zarejestruj sobie nowe makro wykonując potrzebne czynności a potem zobacz w edytorze VB jak wygląda kod. U mnie wyszło coś takiego (kopiowałem jednocześnie 5 i 10 wiersz do wiersza 1 i 2 w drugim arkuszu): Sub Makro1() Range("5:5,10:10"&... Range("A10").Activate Selection.Copy Sheets("Arkusz2").Sele...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
Witam wszystkich mam poważny problem z dodawaniem nowego wiersza za pomocą przycisku. Stworzyłem tabelkę, która zawiera wiele list rozwijanych i funkcji jeżeli to coś tam. Przycisk z odwołaniem do Makra dodaje mi kolejny wiersz zachowuje listy rozwijane ale nie przenosi funkcji i pojawiają się puste komórki. Czy może ktoś wie jak powinno wyglądać prawidłowe...
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...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Super działa rewelacyjnie, adamas_nt dziękuje ci bardzo. A mam pytanie co dodać do tej funkcji by sprawdzało mi do końca czy 'Malina' się nie powtarza. Okazało się, że 'Malina' w 1 arkuszu może mi się powtarzać. A w tej funkcji jak znajdzie to kopiuje pojedynczy wiersz.
Bardzo proszę o pomoc chciałbym napisać proste makro, które po przypisaniu do kontrolki formularza lub kontrolki activeX wykona takie zadanie skopiuj komórkę o adresie kolumna: A wiersz: TopLeftCell.Row (klikniętej kontrolki) do wiersz kolumna: c wiersz: ten sam
kopiuje 2-5 i 6-9... 10-13.. i tak dalej. wartość lp określa ile razy wiersz ma być skopiowany
Witam dowolna wartość lub ustalone? jeden wiersz lub więcej?
Nagraj makro w exelu jak wysyłasz wiadomość outlukiem, krok po kroku. Adres do wysłania bierzesz z komórki exela i wszystko co potrzebujesz. Będziesz miał kod. Potem można pozamieniać co trzeba aby działało np. tak że podajesz wiersz z adresem i samo wysyła. Tu też masz opis: https://support.microsoft.com/pl-pl/offi...
Przedstawione makro kopiuje drugi wiersz arkusza "Schell" z każdego pliku umieszczonego w podrzędnym katalogu o nazwie "xls" do pierwszego pustego wiersza arkusza o indeksie 1. Nie można skopiować pliku do pliku. Natomiast można skopiować całe arkusze lub wyznaczone zakresy poszczególnych arkuszy. Opisz stosując właściwe nazwy obiektów. Lista plików...
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,...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Podmień linijkę wklejania. Podaję cały blok copy-paste dla porównania kolRight = Range("d2").End(xl... Range(Cells(wrsLeftTop, 4), Cells(wrsLeftTop + 1, kolRight)).Copy Range(Target.Address).Offset(... 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode...
Wystarczy podpiąć poniższe makro :) Sub Kopiowanie() ' ' Kopiowanie Makro ' Makro am 18.12.2009 von xbaj aufgezeichnet ' Dim i As Long, wiersz As Long wiersz = 1 For i = 2 To Worksheets.Count Worksheets(i).Activate Range("M25").Select Selection.Copy Worksheets(1).Activate Range("A" & wiersz).Select...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
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...
tak właśnie też myślałam, z tym że czytałam, że Variant używa się wtedy kiedy nie mamy pewności czy w arkuszu znajdują się tylko np. liczby ze względu na to że variant zajmuje duzo miejsca Option Explicit Sub wczytywanie_danych() Dim dane As Variant dane = Range(Cells(1, 1), Cells(10000, 3)) End Sub czyli powyższe makro robi dokladnie to samo co makro...
Nie działa, a wstawiłem makra do mojego pliku źródłowego. Proszę skopiować ten makro całkowicie z pliku Pana jeszcze jedno. To również została skopiowana? Const LastR As Long = 5000 'Ostatni wiersz z formul Dodano po 46 Po pierwsze było: '''*************************************... '''Te stale Pan zmienic dopasowane do Twoich potrzeb '''*************************************...
.. a czy jest sposób na "zero", potrzebuje aby aktualne dane z ostatniej godziny (cały wiersz, kilkanaście kolumn) przenosiły się na koniec tabeli, będe bardzo wdzięczny za pomoc, pozdrawiam.. hmm może przy aktualizacji makro mogłoby sprawdzać dane z wybranej kolumny >0 i kopiować cały wiersz..
Cześć, Zwracam się z prośbą o pomoc, ponieważ potrzebuję napisać makro, które kopiowałoby wybrany wiersz, od pola B2 w Arkuszu1 (to wiem jak to zrobić) a następnie wklejałoby go w następne. Tu zaczynają się schody, ponieważ nie chcę na sztywno wpisywać zakresu wklejania. Warunek ma być następujący, jeżeli w kolumnie A (NAZWA DOSTAWCY), nie ma żadnej...
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
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).
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...
Witaj. Jak domyślam się, samo przeniesienie odpowiednich pytań i odpowiedzi do drugiego arkusza nie jest problemem, większym problemem jest pozbycie się pustych linii z najprostszego możliwego rozwiązania. Do tematu można podejść na dwa sposoby, za pomocą makr, albo za pomocą odpowiednich formuł. W przypadku bardziej skomplikowanego problemu makra pewnie...
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...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Wyszukaj.pionowo sprawdza się bardzo dobrze jeżeli dane nie powtarzają się (nr telefonu) Jeżeli może być parę wierszy z danym nr telefonu wtedy pozostaje do zastosowania autofiltr ... lub odpowiednio sporządzone makro (kopiujące autofiltr lub oparte na własnym "wybiórczym" kodzie).
1. Porównywać daty w instrukcji warunkowej. 2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select
Do samego kopiowania lepiej użyć funkcji for each, która odczyta dane z każdego arkusza i przekopiuje cały zakres. Przyjrzyj się temu rozwiązaniu: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set wswykaz = ThisWorkbook.Worksheets("Wykaz&... wswykaz.Range("A2:F65536&qu...
Coś w tym stylu. Makro będzie trzeba przerobić, żeby zamiast 'Target', zapamiętywało ostatni wiersz i od niego do końca kopiowało. To jest uzależnione od tego, jak wpadają dane do 'D402'. P.S. Dlaczego nie chcesz, żeby makro, które dodaje wiersze do 'D402' dodawało też wiersze do plików Joanny i Katarzyny? To się robi jakiś bezsens wg mnie. Tym bardziej,...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Kolejna prośba. Wiem, że dla Was będzie to sprawa prosta, ja się cały czas uczę i będzie mi potrzebna pomoc: W Arkuszu 1 wprowadzam dane w wierszu 1 Po naciśnięciu przycisku ZAPISZ (tutaj właśnie potrzebuję makra) kopiuje wpisane dane i wkleja w kolejny wolny wiersz w Arkuszu 2 (jednocześnie kasując wpisane dane w Arkuszu 1 i przygotowując go do dalszej...
Witam, Jako, że to dopiero moje początki w VBA proszę o pomoc. Potrzebuję stworzyć jak najprostsze makro żeby po kliknięciu przycisku kopiowało wybrane komórki (zawsze będą one w jednym wierszu) z Arkusza1 do Arkusza2 w kolejny pusty wiersz zaczynając od wybranej przeze mnie komórki i dodając przed całym tym ciągiem kopiowanym kolejnej liczby porządkowej....
Podmień całe makro Sub wyszukaj() wrk = "Arkusz2" 'TU WPISZ NAZWE ARKUSZA w cudzysłowiu Application.ScreenUpdating = False 'wyczysc zakres Sheets(wrk).Select zakrOd = Range("F6").End(xl... zakrDo = Range("G5").End(xl... Range(Cells(5, "F"),...
Witam wszystkich serdecznie. Bardzo potrzebuję pomocy. Wszystko opisane jest w załączonym pliku. Opisywanie tego na sucho, bez wglądu w plik, raczej nie będzie zrozumiałe, więc napiszę możliwie prosto: W kolumnie "l.p" wprowadzona jest liczba porządkowa produktu, a w kolumnie "ilość" liczba produktów tego samego typu. Makro kopiuje dane z wierszy (jeden...
Jeszcze lepiej by było gdyby makro przeszukując kolumne T działo tak, że jeżeli w danym wierszu (komórce w kolumnie T) nie znajdzie średnika, to kopiuje cały wiersz do nowego arkusza. Jak to napisałeś, to już miałem gotowy kod dla #1.
Na arkuszu "Nowa Hala Cyl." przypisać jedną komórkę dla indeksu, np. O1 Na arkuszu "Etykieta" w komorkach odwolania do arkuszu "Nowa Hala Cyl." np. dla C29 =INDEKS('Nowa Hala Cyl.'!H:H; 'Nowa Hala Cyl.'!O1) W kodzie arkusza 'Nowa Hala Cyl.' wpisz kod Dodano po 27 Edit Umieść kursor w wierszu, który chcesz wydrukować i kliknij przycisk
Zamiast nazwa pliku=nazwa karty(arkusza) zapisuj nazwy pliku w kolumnie Z, następnie poszukuj nie arkusz, tylko wiersz... wtedy [syntax=vb]exWs.Range("A" & wiersz).Value = CusPropMgr.Get("Description")[/syntax]it...
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
Można i bez makra. Jeśli każde odwołanie [1.xls]Arkusz1!$L$12 zastąpisz ADR.POŚR("["&WIERSZ... Jeśli formuła znajduje się niżej, to należy odjąć liczę wierszy powyżej. Np dla formuły w A3 (3-ci wiersz) 1=3-2 ADR.POŚR("["&WIERSZ...
Źle się wyraziłam - dwukrotne kliknięcie w dowolny wiersz w kolumnie "Adres" w Arkuszu 'Baza' uruchamia makro, w związku z czym nie wiem jak edytować adres :)
makro kopiujące makro kopiujące arkusz wiersz makro
skrzynka telekomunikacyjny termostat weller serwer ethernet
kupić kartę graficzną kupić kartę graficzną
Renault Fenix 5.2 "Klepaczka" - Usterki i Diagnostyka Demontaż oczka inspekcji oleju w Suzuki GN125
