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...
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.
[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]
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...
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", , , , , ,...
[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]
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...
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,...
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...
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]
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]
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]
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,...
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. 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...
Witam. Nie mogę uporać się z kopiowaniem zmiennego zakresu z jednego arkusza do drugiego. Sytuacja wygląda następująco. 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. Z góry dzięki za wszelką pomoc. Pozdrawiam MałyLesiu
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...
Niestety, nie działa to prawidłowo. Moja radość była przedwczesna:( Nawet jeśli skopiowałem dane rzeczywiste do takich samych 3 kolumn jak w załączonym przykładowym pliku, nie uzyskuję pożądanych efektów. Wydaję mi się, że problem leży w tym, że zastosowałeś tutaj sortowanie...Nie może tak jednak to wyglądać, bo nazwy te nie są w kolejności alfabetycznej,...
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.
Mam małe pytanie a właściwie problem! Chodzi o, iż mam kilka zakresów danych w osobym arkuszu "Arkusz1". Każdy z tych zakresów ma trzy kolumny. Jaki byłby kod źródłowy jeżeli chciałbym za pomocą pojedyńczych przycisków móc wybrać kilka zakresów osobno do "Arkusza2". Przykładowo wybieram zakres 1 (za pomocą przycisku) i chciałbym następnie wybrać zakres...
Kopiuj i wklej zakres kolumn jezeli spelniony jest warunek... Szukam pomocy w napisaniu macra tak aby kopiowalo i wklejalo wartosci w kolumnach do dnia z data wczorajsza
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...
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...
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?
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.
Witam Jestem nowym użytkownikiem, jak i nowicjuszem w programowaniu VBA. Ostatnio zacząłem się coraz bardziej interesować VBA, ale jak to na początku wiele spraw mnie przerasta. A oto problem: Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
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]
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...
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...
Dżiekie bardzo za pomoc działa super. Mam jeszcze jedno pytanie ponieważ powiększyłem obszar kopiowania do zakresu d6:J11 formuła działa ale niestety kopiuje tylko 1 raz jakie parametry muszę jeszcze zmienić żeby kopiowało tyle razy ile jest wskazane w komórce c6
Czy da się partycje wybrane kopiować? Tak. Można wybrać zakres sektorów tworzących partycje do kopiowania.
[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]
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.
Dzięki wielki pięknie działa. Temat do zamknięcia.
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
Witam! Jestem tu nowy więc pozdrawiam wszystkich! Przeglądałem to forum i wiele rozwiązań zastosowałem w moim skoroszycie, jednak nie potrafię poradzić sobie z takim problemem: chodzi o kopiowanie wiersza z jednego arkusza do drugiego w zależności od daty zawartej w jednej z komórek. Chodzi o przekopiowanie danych z KP i KW do raportu kasowego. Kopiowane...
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...
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
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...
Pierwsza sprawa to macro które kopiuje pewien zakres komórek do schowka I jaki masz z tym problem?
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...
Spróbuj z Select Case .
przeinstalowanie Office`a względnie samego Excel`a.
W załączniku plik. Generalnie trochę udało mi się skrócić kod, ale nadal nie jest on zautomatyzowany i wymaga powielania tej samej treści, aczkolwiek robi to co zamierzałem. Kod jest przypisany do Buttona i działa tylko dla komórek na czerwono i wkleja odpowiednie wartości w tym samym arkuszu począwszy od kolumny L (to tak dla testów, docelowo chcę...
Robiłem kiedyś na swoje potrzeby taki pliczek, udostępniam go w załączniku. Zakłada on, że wszystkie pliki mają jednakowy układ i format treści. Kopiuje całe wiersze do zakładki "Wyniki". W żółtych polach podaje mu się dane do pracy, takie jak: - ścieżka do katalogu z plikami źródłowymi, - rozszerzenie plików które mają zostać wyszukane w tym katalogu,...
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...
Tak z grubsza przeanalizowałem ten kod i przestaję rozumieć... Kopiujesz całe zakresy wierszy?
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...
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.
Najprościej, zapisać nową 1. zaznacz w innym miejscu arkusza lub w innym arkuszu zakres równy żródłowemu 2. napisz "=" 3. zaznacz zakres źródłowy 4. wpisz o ile ma się zwiększyć. Np "+2" 5. zatwierdź Ctrl+Shift+Enter (formuła tablicowa) http://obrazki.elektroda.pl/5481118400_1... 6. Ctrl+c (kopiuj) 7. Ctrl+Alt+v (wklej specjalnie), wybierz:...
sprawdź załącznik
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 :!:
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ą...
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")...
ale w tym wypadku wszystko mi wklei do kolumny E Sprawdziłeś? Widzę że wklejasz do 'E i F" Kopiując dwa zakresy wklei ci właśnie do tych dwóch kolumn.
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.
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...
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...
Chce mieć to makro w drugim pliku do którego będa dane kopiowane i pod przycisk makro przypisane
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
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.
Witam Pewnie temat juz dawno był i zmoka. Potrzebuje rozwiązania na problem.. Mam arkusz kalkulacyjny i potrzebuje w niego za jednym pociągnięciem skopiować dane w kolejną pustą komórke z innych arkuszy xls o rożnej nazwie ale z tych samych komórek C1:F25. nazwa aruszy jest zupełnie przypadkowa. Coś na zasadzie otwórz plik.. formie dialogowej. ma ktos...
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...
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Witam, Potrzebuję stworzyć kod, który będzie za pomocą przycisku kopiował dane z kolumn A i C do nowego skoroszytu. Ilość wierszy do skopiowania jest zależna od wprowadzonych danych. Mam kod, który kopiuje dane do nowego skoroszytu, jednak ustawiłem na sztywno zakres A1:C200, który jest kopiowany. Jak uzależnić zakres do skopiowania w zależności od...
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.
Formatowanie warunkowe: Pierwszy warunek: D2 czerwone, jeśli data mniejsza od dzisiejszej. Podał Ci to już marek003 . Wpisujesz warunek:=JEŻELI(D2<=DZIŚ();PRAWDA;FAŁ... Drugi warunek: D2 zielone, jeśli data większa od dziś i mniejsza od dziś+60. Wpisujesz warunek:=JEŻELI(ORAZ(D2>=DZIŚ();D2<... Obie formuły wpisujesz dla...
Kopia wsteczna może być jeszcze wolniejsza. DMDE jest o tyle fajne, że pozwala kopiować dowolne zakresy LBA, ale żeby umieć ręcznie wybrać potrzebne, trzeba mieć trochę doświadczenia ze strukturami logicznymi. Jeśli dysk jest prawie pełny, a wszystkie dane są mniej więcej tak samo ważne, nie ma sensu kopiować plików na sztuki, tylko trzeba robić posektorówkę....
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,...
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...
Jeżeli to podpowiedź to nie rozumiem. Liczby źródeł i celów a makrze zgadzają się zawsze, w źródłach mogę kopiować zarówno jedną komórkę jaki i cały zakres przylegających komórek, w celach wystarczy dać jedną komórkę i zakresy wklejają się adekwatnie. Problem polega na tym że nie wiem ile komórek będzie wymagało skopiowania i gdzie one będą się znajdować...
Witam, Staram się stworzyć zdalny pilot do bramy i ogólnie mi się udało, najprostszą metodą, ................ W skrócie, w zamyśle miałem, żeby po naciśnięciu guzika podpiętego do płytki kopiować sygnał z pilota i następnie go odtwarzać po naciśnięciu guzika w aplikacji. Stąd pytania: - Czy ma to w ogóle prawo działać? Jeśli tak, jak mogę uzyskać zbliżony...
Po długiej walce udalo mi się przekopiować znaczne obszary danych poprzez kopiowanie różnych zakresów sektorów poczynając od końca. Następnie odtworzyłem dużą liczbę plików, których typ podał mi właściciel - do tego celu użyłem program photorec_win. Poprzez to, że uszkodzona została tablica alokacji zbiorów, nazwy plików określają numer sektora, gdzie...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
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,...
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.
jeśli dobrze zrozumiałem Twój przykład, Wydaje mi się, że nie :D W moim przykładzie wyraźnie widać: kopiowane są w odrębnym miejscu lub odrębnym arkuszu :!: Analogicznie jeśli byś chciał ponownie przefiltrować wg nowych (lub innych) kryteriów - to w drugim przebiegu ustawiasz rngWynik jako rngDane2 ustalasz nowy zakres kryteriów i ... kopiujesz w nowe...
witam, przeszukałem trochę postów ale nie mogłem znaleźć rozwiązania na mój problem. Napisałem makro wyszukujące i kopiujące dany zakres jaki będzie wyszukiwany automatycznie. A teraz: Mam teraz stałą ilość nazw WW1A, WW1B itp. teraz chciałbym aby te nazwy powieliły się tyle razy - zapisały pod sobą - ile jest wierszy nie pustych ze skopiowanego zakresu....
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 Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
Witajcie, mam dość według mnie ciężki temat do zrobienia. Chciałbym aby makro kopiowało dane uzupełnione przez pracowników z poszczególnych arkuszy do Arkusza PH1 i wklejało dane jedno pod drugim. Czyli sprawdzało który wiersz jest ostatnim w którym już są dane w PH1 i wkleiło je pod nimi. I tak po kolei z każdego arkusza pracownika do PH1. Ilość zapisanych...
Chodzi o to, że chce stworzyć skoroszyt z arkuszem głównym, do którego mają być kopiowane zawartości spełnianie przez dane kryteria (przy użyciu filtrowania zaawansowanego) z innych arkuszy. Przy kopiowaniu z jednego arkusza nie ma problemu, lecz gdy próbuję wybrać zakres z kolejnego arkusza, zakres pierwszy jest zastępowany drugim. Piszę z telefonu...
Witam, Jestem początkująca w programowaniu VBA w Excelu. Mam problem z okodowaniem Comboboxa tak aby w zależności od wyboru z listy kopiował mi zakres komórek z innego Arkusza do drugiego w konkretnie wskazane miejsce, W załączniku dołączam plik .xlsm z moim przykładem. Chciałabym żeby w arkuszu MP HOLT-WINTERS po wyborze z ComboBoxa: np. "V"Excel kopiował...
Dzień dobry, potrzebuje kod VBA, który będzie kopiował tabele o zakresie (A;B) z Arkusza 1 do Arkusza2 o tym samym zakresie, jednakże jedno pod drugim, według pustych komórek. Z góry dziękuję za pomoc.
DMDE (narzędzia ->kopiuj sektory ustaw cały zakres i wskaż dysk docelowy).
Cześć Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz. Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc. Application.ScreenUpdating = False Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx" Sheets("Spakowane").Select...
Z zamieszczonego fragmentu można wywnioskować, że chcesz kopiować z arkuszy o identycznym fragmencie nazwy (- 4 ostatnie znaki). Wnioski: 1. Gałąź 'Else' jest zbędna (dlaczego chciałeś w niej zerować licznik?) 2. Brakuje najważniejszego: co chcesz kopiować (jaki zakres mogą zajmować dane)? 3. Najprościej wydzielić arkusz i po wszystkim skopiować/przenieść...
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ć
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...
z zakresu a3:g3(tutaj znajdują funkcje Excela z innych arkuszy tego samego pliku) byc moze warto operowac z wartosciamy?
Po wpisach autora nie wspomniałem, że może też kupić programator i próbować szczęścia z kopiowaniem we własnym zakresie, ponieważ jest ryzyko, że przez brak doświadczenia skasuje sobie też ten sprawny.
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
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...
Dobry wieczór, Nie bardzo rozumiem, co to znaczy "inne rozwiązanie"? Co miałoby być inne? Jeśli chodzi o formułę, to może być inna. Generalnie tego typu zadania można rozwiązywać formułami z funkcją INDEKS lub funkcją PRZESUNIĘCIE. Przykład innej formuły dodałem w nowym załączniku. Można to też rozwiązać w VBA pisząc makro obsługujące zdarzenie Change...
Jak widzę występujące w tabeli "liczby" właściwie nie są liczbami bo są przechowywane jako text, wystarczy je przekonwertować na liczbę i wszystko liczy tak jak powinno. opis jak się tego pozbyc: Poszczególne komórki 1. W menu Narzędzia kliknij polecenie Opcje, a następnie kliknij kartę Sprawdzanie błędów. 2. Upewnij się, że pola Włącz sprawdzanie błędów...
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.
Zastosuj formatowanie warunkowe. Zaznacz pierwszą komórkę zakresu (kolumny), z menu wybierz: Format>Formatowanie warunkowe i jako warunek wybierz: 'Formuła'. W okno formuły wklej wyżej opisaną i ustaw formatowanie komórki wg uznania. Następnie sformatowaną komórkę kliknij prawym pm, wybierz kopiuj, zaznacz zakres (kolumna z nazwiskami), w którym formatowanie...
kopiowanie zakresów kopiowanie warunkowe zakresów przełączniki zakresów
kabel ethernet przerywa biało szary schemat wzmacniacz tonsil
parkside szczotki parkside szczotki
Symbol kranika w zmywarce Siemens – znaczenie, kody błędów, typowe usterki i naprawa BL602L20 binary files: Boot2, partition table, firmware images, flashing with BLDevCube and bouffalo-cli