Zakładając, że nagłówek znajduje się w pierwszym wierszu: [syntax=vbscript]Sub WszystkieArkuszeDoJednego() Sheets.Add.Name = "Podsumowanie" Application.ScreenUpdating = False nwp = Sheets("Podsumowanie").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To Sheets.Count Set sh = Sheets(x) If sh.Name <> "Podsumowanie" Then ow = sh.Cells(Rows.Count,...
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Pożądany efekt aktualizacji tabeli w arkuszu "3" 961000 można uzyskać poprzez makro aktualizujące (odświeżanie danych skrótem ctrl + a :D ) z zastosowanie pętli typu: 961004
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
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...
Zupełnie nie mogę zrozumieć na czym polega błąd. Co znaczy przeładowywało się i plik się wyłączał? Sam? Niemożliwe. Proponuję dołączyć to co masz. Najlepiej plik cały, choć ja i tak go nie zobaczę. Zastanów się co potrafisz wykonać, czy: 1. Potrafisz oznaczyć obszar do skopiowania? 2. Potrafisz skopiować dane? 3. Potrafisz wskazać gdzie kopiować kolejne...
Moje własne próby też nie przyniosły pożądanych rezultatów. Proszę przedstawić. Można porównać do pętli wykorzystanych w http://obrazki.elektroda.pl/8966955000_1... dostosować do sytuacji, dopisać instrukcję warunkową i... gotowe. Proszę zapoznać się z • Pytania dotyczące zagadnień związanych z pakietem Office, Open Office i tym...
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,...
Witam, sprawdzałam forum ale nie trafiłam na podobne zagadnienie. Czy jest możliwość aby za jednym razem utworzyć wiele (kilkanaście) kopii jednego arkusza w danym skoroszycie? Jest na to jakiś sposób?
Potrzebuję pomocy z plikiem. mam tabelę w arkusz1 te dane chciałbym kopiować. następnie dwa arkusze DANE i DANE2 te strony mają być puste. potrzebuję pomocy w automatyzacji kopiowania zawartości Arkusz1 do kolejnego arkusza począwszy od arkusz4. potrzebuję kopię arkusz1 z wyczyszczoną zawartością komórek .. Kod towaru, nazwa opis, wydana i numer partii...
Witam, chciałabym zapytać czy macie może gotowe makro, które kopiowałoby tabelę razem z formatowaniem z jednego arkusza do drugiego. Muszę powielić taką samą tabelę w dużej liczbie arkusze i wolałabym uniknąć jej każdorazowego formatowania. Z góry dziękuję za pomoc.
Witam, potrzebuję wkopiować kilka arkuszy o różnych nazwach z jednego skoroszytu do kilku odrębnych. Jestem nowicjuszką i zupełnie nie wiem, jak sobie z tym poradzić. Znalazłam takie makro, niestety nie wiem jak dopasować je do mojego zadania. Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy '(I got...
Witam To makro realizuje kopiowanie wszystkich plików znajdujacych sie w katalogu do jedengo. Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set MergeObj = CreateObject("Scripting.FileSystemObject... Set dirObj = MergeObj.Getfolder("C:\2014") Set...
Czy można w jakikolwiek sposób tworzyć automatyczna kopię fragmentu arkusza do drugiego arkusza? Kopiowanie automatyczne samej zawartości jest proste, kopiowanie ręczne (kopiuj/wklej) z zachowaniem formatowania jest proste. Ale czy jest możliwość kopiowania automatycznego z formatowaniem?
Dzień dobry. Poszukuję rozwiązania za pomocą Vba . Dane są zawarte w 6 kolumnach ok 2000 linii posiadają duplikaty i nie tylko-są też pojedyncze linie w liście. Makro powinno wycinać i wklejać do Arkusza2 w oparciu o duplikaty lub pojedyncze elementy Arkusza1 z kol"A" w zakresie linii do kolumny "E" . ( w całej liście w większości to duplikat choć występują...
Nie mam wielkoego pojęcia o probramowaniu, będę wdzięczna za pomoc Mam plik który zawiera 75 arkuszy. 5 akruszy jest "stałych" (zawierają m.in. dane do których się odwołują pozostałe arkusze), a pozostałe mają taką samą sktrukturę ale inne dane Muszę: 1. utworzyć 70 nowych plików, gdzie każdy zawiera 5 "stałych" akruszy i jeden zmienny 2. Zapisać nowy...
Mam następujący problem do rozwiązania: W jednym skoroszycie mam ponad sto arkuszy. Prócz pieszego wszystkie mają identyczny układ. W jaki sposób skopiować dane z pierwszego do pozostałych aby komórki od A2 do A120 z arkusza 1 skopiowały się odpowiednio: A2 z arkusza 1 w A1 arkusza 2, A3 z arkusza 1 w A1 arkusza 3, A4 z arkusza 1 w A1 arkusza 4 itd....
Witam! Przeszukałem forum, zastosowałem kilka zapisanych tutaj makr, ale niestety żadne nie odpowiada mi w 100% dlatego proszę o pomoc. Problem: Mam skoroszyt, w którym chce podsumować dane z innego skoroszytu, który ma kilkadziesiąt arkuszy. Chciałbym, aby makro przechodziło pomiędzy arkuszami i kopiowało odpowiednie komórki. Z jednej komórki pobrało...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
Przeszukałem już wszystko i naprawdę nie wiem jak zrobić. Mam 6 arkuszy na których powypisywane są dane w kolumnie A1. Chciałbym aby w ostatnim arkuszu excel wypisał mi wszystkie dane które są w kolumnie A1 w poprzednich 6 arkuszach. Z tym że te dane w niektórych arkuszach powtarzają się i nie chcę aby w ostatnim arkuszu wypisane były kilka razy tylko...
Witam Szanowni forumowicze w załączeniu plik z fikcyjnymi danymi. W arkuszu1 mam dane z których z kolumny C kopiuję do arkusza2 do kolumny A jeżeli spełnione są dwa warunki. Jeden warunek to taki aby zgadzały się indeksy z akrusza1 kolumna B z arkuszem2 kolumna D. Drugi używa pomocniczej kolumny I z arkusza2 i ona ma się zgadzać z danymi z arkusza1...
Witam, Czy mogłbym prosić o pomoc w stworzeniu kopi excela. Chciałbym aby drugi plik kopiował wszystkie arkusze z pliku głównego wraz z danymi i formatami. Aby stanowił lustro głównego pliku. Podejrzewam że nie da się stworzyć formuły pewnie będzie musiało to być makro. Dzięki
Witam, Moja pierwsza prośba o pomoc. Mam bardzo stary plik Excela a w nim 1300 arkuszy i coraz częściej coś się psuje. Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( całych z danymi i funkcjami itp.). Nazwa arkusza to Nr rejestracyjny z listy. Bardzo dziękuję za jakąkolwiek pomoc w tym temacie. Zupełnie...
Witam, Ponieważ nie jestem programistą mam dosyć spory problem z rozwiązaniem swojego problemu. Sytuacja wygląda następująco: mam 101 arkuszy Pierwszy z nich to "protokół likwidacyjny" w którym znajduje się tabela mająca 100 pozycji. Kolejne 100 arkuszy są to kwity likwidacyjne (nazwy arkuszy są zgodne z pozycjami w tabeli z protokołu likwidacyjnego)...
Przed 'Paste' wstaw linię wyszukującą pierwszy wolny wiersz. Przykładów ci u nas dostatek: [url=https://www.elektroda.pl/rtvforum/f... W ostateczności nagraj makro Ctrl+strzałka w dół.
Musisz sprawdzać n znaków w nazwie arkusza (zależy od formatu zapisu daty w nazwie). Nazwa arkusza jest typu String , więc nie ma z tym problemu. Najprościej nazwy sprawdzać w pętli For , wybierając właściwy instrukcją [syntax=vb]If Right(nazwa_arkusza, n) = komórka_ z_datą_we_właściwym formacie Then[/syntax]
Dzięki, za odpowiedź, ale niestety nie działa. Wyskakuje błąd '1004'. Przesyłam plik, w którym wklejam powyższy kod. Dodam, że chodzi o komórkę Q29 Dzięki
Witam, proszę o pomoc. Jestem totalnie zielony jeżeli chodzi o VBA. W pliku znajduje się X zakładek. Ze stałego pola w każdej zakładce chciałbym skopiować dwie wartości, tak aby dane pojawiały się w formie tabeli. Znalazłem poniższy skrypt, ale zamiast wartości kopiuje formułę z arkusza źródłowego. Z góry dziękuję za pomoc S [syntax=vb]Sub test() 'Change...
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 jestem znawcą tematu. W skrócie chciałbym napisać skrypt do Excela(open office bo podobno też tam działa) który z masy plików z rozszerzeniem txt kopiowałby całą zawartość tych txt do kolejnych arkuszy w danym dokumencie (w którym uruchomiono skrypt oczywiście) np jeżeli uruchomię skrypt powiedzmy w pliku exela na dyski c:\dokumenty\(ten...
Witam wszystkich Mam problem z małym kodem vba do kopiowania arkuszy w tym samym pliku. Posiadam arkusz Szablon. Po jego uzupełnieniu przy kliknięciu na button chciał bym, żeby cały arkusz Szablon kopiował się do nowego arkusza, którego nazwa będzie podana w komórce P1 (jest to nazwa miesiąca). Próbowałem kilku sposobów, ale nie chciało mi skopiować...
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...
Hej! Czy spotkał się ktoś może z problemem przenoszenia/kopiowania arkuszy. Mam kilka arkuszy, które tworzone są na podstawie jednego wzoru. Jeden z nich kopiują się szybko a inne bardzo długo - do godziny. Zdiagnozowałam problem w kilku komórkach ( również bardzo długo się kopiują). W niektórych są listy wyboru lub formuły, a w jednej tylko tekst....
Po ActiveSheet.Paste wpisz Sheets("Arkusz1").Select
[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]
[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
[syntax=vb] For i = LBound(Zrodla) To UBound(Zrodla) Worksheets("txt").Range(Cele(i)) = Worksheets("oferta").Range(Zrodla(i)).Va... Next i [/syntax]
Zobacz takie rozwiązanie.
Witam! Mam dość skomplikowany problem. Założyłem konto na tym forum, żeby go rozwiązać. Sprawa wygląda nastepująco: Mam dwa skoroszyty Excel. W jednym z nich jest kilkadziesiąt arkuszy z różnymi danymi - są to opisy budynków z danymi statystycznymi na ich temat. Plik nazywa się " Budynki " Każdy arkusz nazwany jest tak jak budynek- arkusze " Budynek...
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Plik spakowałam, bo nie pozwalało mi dodać pliku z rozszerzeniem *.xlsm. Nazwy Arkuszy w moim zapytaniu podałam przypadkowe, nie będą tak się nazywać. Tworzę plik na własne potrzeby, który ma ułatwić rozliczanie pracowników z wykonanej pracy. Pracownicy mają bardzo podstawowe umiejętności z excela. Każde zlecenie składa się z kilku etapów. Zleceń jest...
Gdybyś wiedział jak rozwiązać problem napisałbyś kilka linijek kodu w kilka minut jak jesteś taki spec i wrzucił jako odpowiedź. Widzę, że kolega nie przeczytał dokładnie regulaminu. Jeżeli chce kolega otrzymać rozwiązanie, bez nawet poświęcenia kilku chwil na przeszukanie forum, to sugeruję koledze zmienić forum na inne. Temat zamykam i pozostawiam...
Wybor spolki - lista lub kursor na skrocona nazwe
Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]
Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
Nie bardzo rozumiem kopiowanie 'pp1' i oddzielne tworzenie nowego arkusza. Może chodzi Ci o to? [syntax=vbscript]Sub DodajPP() Dim n As Integer n = Val(Mid(Sheets(Sheets.Count).Name, 3)) n = n + 1 Sheets("pp1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "pp" & n End Sub [/syntax]
Czy te 4-ry "kolejne" arkusze należące do jednej grupy "cyfrowej", np.: 0202 (SUMA, WDT, WNT, WŚU) znajdują się jeden za drugim, czy też mogą być porozrzucane pomiędzy innymi arkuszami z innych grup numeracyjnych, np.: 0202SUMA, 0205WDT, 0202WDT, 0203WŚu, itd. ?
Witam, Jestem początkujący jeżeli chodzi o programowanie makra i utknąłem w martwym punkcie. Posiadam skoroszyty z danymi z poszczególnych miesięcy, które na koniec każdego okresu muszę wgrać do innego(zbiorczego) skoroszytu z którego wyciągam interesujące mnie dane z kilku lat. Udało mi się ogarnąć temat do momentu wklejenia danych do finalnego zestawienia...
Super! Jutro będę próbował to zrobić dla kilku tysięcy rekordów. Życz mi szczęścia :) P.S. Bo myślałem jeszcze, żeby każdą kolumnę przelecieć formułą jeżeli. A - jeżeli d="in" to skopiuj a1, inaczej 0 B - jeżeli d="in" to skopiuj b1, inaczej 0 Tylko, że wtedy by mi wywalało zera co też nie byłoby za bardzo pożądane.
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
:) Nic nie zaznaczaj, przeczytałem po ludzkiemu kod makra. Jeżeli w tym arkuszu w którym masz przycisk w komórce A1 wpiszesz nazwę arkusza np: X5 To twój kod z moją pierwszą linią Sheets(ActiveSheet.Range("A1") .Value ).Select Range("D6:H10").Select Selection.Copy Sheets("X2").Select ActiveSheet.Cells(6, 4).Select ActiveSheet.Paste Sheets("X1").Select...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
[syntax=vb]Sub kopie_zakres() With Sheets("Arkusz3") pw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Arkusz2").Range("A2:Y2").Copy .Cells(pw, 1) End With End Sub [/syntax]
Proszę. [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then r = Target.Row nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy Sheets("Arkusz2").Cells(nw, 1) End If Cancel = True End Sub [/syntax]
[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]
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
niestety Akcesa nie posiadamy w firmie I właśnie dla takich, jak Wy istnieje darmowy Access Runtime. P.S. Wybacz Kolego, ale ciężki z Ciebie przypadek... Co Ci się nie podoba w powyższym rozwiązaniu?
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
zrób np. tak (wstawi ci na koncu) [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh...
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...
jezeli bedzie to robic na na jednym i tym samym kompturze to pocelam scriptit, mam kilka "programow" w tym napisanych np: nowy word, wstaw ze schowka, wstaw date, ustaw drukarke oraz strone, wydrukuj ...
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
kopiowanie arkuszy łączenie kilku arkuszy sumowanie kilku arkuszy
candy bęben niebieski matryca blaupunkt obsada pierścień
Wentylator w suszarce do grzybów nie działa - diagnostyka Prowadzenie masy we wzmacniaczu lampowym - minimalizacja szumów
