wyskakuje jeszcze błąd z tą samą nazwą arkusza W Skoroszyt zawierający makra zostawić tylko jeden arkusz i dać mu jakiś unikatową nazwę(ale Excel, sam zmienia nazwę (dodaje (2)), a następnie zmiany nazwy na nazwę skoroszytu) Chcesz wybrać pliki indywidualnie? Wtedy [syntax=vb] Sub zbior() Dim wb As Workbook Do fl = Application.GetOpenFilename("ExcelFiles....
Może to Ci podpasuje.
Plik Excela to inaczej Skoroszyt, który zawiera od 1 jednego do wielu Arkuszy. a dostałam zadanie aby automatycznie następowało scalanie plików w jeden, po jednym kliknięciu. Tu trzeba określić czy trzeba scalić wiele Skoroszytów w jeden zachowując zawarte w nich Arkusze, czy też scalamy wiele Arkuszy w jeden Skoroszyt/Arkusz. W zależności co chcemy...
Tak jak w tym temacie, tylko rozwiązanie zdaje się u mnie nie działać :-? i nie wiem dlaczego DisplayAlerts = false, DisplayClipboardWindow = false Tego też nie udało mi się zaaplikować Sub Scal() Dim Plik As String Dim Skor As Workbook, Ark As Worksheet Dim Licznik As Long, i As Long Dim Folder As String ThisWorkbook.Worksheets(1).Range...
Trzeba co najmniej nazwy arkuszy danych i wyników. Dane( A:B) ma naglowki? Z ktorego wiersza dane ma początek?
Problem rozwiązany dodałam do kodu 3 Application.ScreenUpdating = True Set Skonsolidowany = Worksheets.Add() Plik = Dir(Folder & "*.xls") Do Until Len(Plik) = 0 Licznik = Licznik + 1 Application.StatusBar = "Konsolidacja pliku nr " & Licznik Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Sheets(1) iRows = Sheets(1).UsedRange.Rows.Count...
Przepraszam, przez roztargnienie trochę namieszałem. Wartości muszą być takie same w kolumnach od "B" do "F" oraz "H" oraz "K". W kolumnie "A" jest liczba porządkowa (czyli nieważna w tym przypadku), a w kolumnie "G" - liczba sztuk na komplet, co w liście produkcyjnej jest również mało znaczące. Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich?...
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Ja powiem nawet więcej - od prezentacji to jest tabela przestawna (i tam można spokojnie sobie wielowierszowe rekordy robić), a arkusz z danymi musi być jak baza danych - wiersz = rekord, komplet danych w jednej i tylko jednej linijce, bez scaleń, a z powtórzeniami, jeśli chodzi o scalenia pionowe. Scalać w niej można co najwyżej nieznaczące nagłówki,...
Wolałbym to mieć w excelu. Wszystkie tzn mieć jedne arkusz który będzie scalał wszystkie tabelki w poszczególnych arkuszach . Czyli otwiersz dzisiaj i pierwszy arkusz pokazuje jaki faktury są na termininie w dniu dzisiejszym .
działa wyśmienicie. zastanawiam się jednak czy można poprawić kosmetykę i "zostawić" pierwotną nazwę arkusza. dziś po scaleniu wszystkich Arkusz1 do nowego pliku nadawana jest nazwa arkusza Ark.name = "Skonsolidowany" & Licznik & StempelCzasowy A po co . skoro scalam wszystkie Arkusz 1 to niech w wynikowym pliku będzie np "scalone Arkusz1",...
... po dodaniu tego kod zaczyna bardzo długo pracować ... Nie obserwuję tego na "prostych" danych, ale spróbuj może w ten sposób: [syntax=vbscript]Option Explicit Sub Czysc_Wszystko_2() Dim czas As Single: czas = Timer If MsgBox("Wyczyścić wszystkie formularze 'Dniówek'?", vbQuestion + vbYesNo, "Potwierdź") = vbNo Then Exit Sub Dim i As Integer, w...
Kopiuje dane. Inaczej się nie da. Wyczytałem, że komunikat o aktualizacji pojawia się wcześniej niż jest wczytywana metoda worksbook.open ;/ A pytanie nie typowe ponieważ robię program, który scala kilkadziesiąt arkuszy excelowskich w których są powiązania do kolejnych arkuszy. Wczytując dane z nich za każdym razem wywala mi komunikat o aktualizacji...
Przed nagraniem makra zaznacz opcję "Użyj odwołań względnych". Jeśli zarejestrowane makro nie będzie działać tak jak chcesz, załącz tu plik przykładowy z nagranym makrem i opisem, co jest nie tak. Twój opis jest za mało precyzyjny, żeby go odtworzyć bez bazowego arkusza.
W załączniku twój przykład. Rzeczywiście przy umieszczeniu kodu w module trzeba było troszkę jeszcze poprawić kod (co uczyniłem powyżej). [Ukierunkować na odpowiedni arkusz] Co do tabel: Proponuje najpierw wcisnąć przelicz a potem opisywać kolory. Chyba że kolory będą zawsze przypisane temu samemu odbiorcy. Wtedy przydałby się arkusz ze słownikiem....
Witam. Szukam takiej przeglądarki pdf która otworzy mi parę dokumentów pdf i ma możliwość wydruku wszystkich arkuszy. Nie potrzebuję aby mi scalał wszystkie dokumenty tylko otworzył i miał możliwość wydruku wszystkich arkuszy a nie tylko tego zaznaczonego. Pozdrawiam :D
Bardziej zależy mi na tym wprowadzaniu godziny by się podstawiało imię i nazwisko w drugim arkuszu Próbowałem spełnić Twoje oczekiwania :cry: lecz ze względu na złożony układ tabeli roboczej (masowe scalanie komórek, wymieszane dane liczbowe i tekstowe, na jednych stanowiskach tylko obsada jednoosobowa, na innych różnie czasem dwu a czasem trzyosobowa,...
scalić pomijając kody Och, nie chce mi się już przerabiać (czytaj: znacznie upraszczać kodu, bo tablica w takim przypadku jest zbędna). Dołożyłem scalanie, podkreślanie i takie tam... Resztę sobie dopracuj. Makro wystarczy uruchomić z poziomu arkusza źródłowego (dla ułatwienia dałem przycisk). Na "przywitanie" dostałeś (prawie) gotowca. Ale następnym...
Dostaje dane w tabeli excel i muszę zrobić z poszczególnych zadań zawartych w tabeli protokoły. Abstrahując od wadliwości takiej procedury :D (protokoły post factum) to jeśli rzeczywiście :?: moge wplynac na zmiane To proponuję wpłynąć na radykalną zmianę tych plików źródłowych :idea: tzn. powinny to być "suche" dane (bez żadnego scalania i ozdobnego...
Trochę przekombinowałeś formułę, nie wspominając o scalaniu komórek :( Zakładając, że kolejność części (w wierszu 7 arkusza 00 i kolumnie E arkusza 01) i miesięcy w obu arkuszach będzie taka sama to wystarczy suma.iloczynów() i transponuj() jako funkcje tablicowe.
Witam, potrzebuję pomocy przy stworzeniu makra, które kopiowałoby zawartość arkuszy i wklejało je jeden pod drugim w arkuszu "zestawienie". Dokładniej mówiąc - mam plik, w nim trzy arkusze (np. aaa, bbb i zestawienie), chciałbym aby makro skopiowało cały arkusz "aaa" (bez nagłówka) do momentu napotkania pustego wiersza i wkleiło do arkusza "zestawienie",...
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Witam W każdym dobrym sklepie z artykułami biurowymi kupisz papier A4 z etykietami adresowymi. Wymiarów i rozmiarów jest ile dusza zapragnie. Drukować możesz i na drukarce laserowej i na drukarce atramentowej. Ja drukuję na atramentówce i wszystko działa jak należy. Do tworzenie etykiet możesz użyć dowolnego edytora tekstu. Ja pracowałem i z Wordem...
Wystarczy przecież tylko usunąć ostatni człon równania który jest w załączonym arkuszu. ZŁĄCZ.TEKSTY(LEWY(B1;5);A1)
Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
Bardzo dziękuje, za pomoc oba sposoby są dobre. Mam jeszcze jedno pytanie, które jest nieco powiązane z tematem. Otóż link z arkusza A ma odpowiadać wartości z arkusza B. Z tym, że dla jednego linku z ar. A może przypadać jedna wartość lub wiele wartości z ar. B. (coś na zasadzie zbioru). Chce w jakiś sensowny sposób to zobrazować, ale jak na razie...
Ja mam taki kod VBA. Jedyny problem to pętla. Nie wiem dlaczego nie pobiera danych z kolejnych arkuszy a tylko z tego samego lub dwóch pierwszych Coś jest nie tak. Sub Scalanie() folder = "D:\Pliki\" Set master = ActiveSheet plik = Dir(folder & "*.xlsx") wiersz = 14 Do While plik <> "" Set scalany = Workbooks.Open(folder & plik).Worksheets("Arkusz1")...
zrobić tak, by format był taki, jak w tym arkuszu co wkleiłam? A mogłabyś wyjaśnić co Ci nie pasuje z formatem tabelki z mojego załącznika :?: Formułujesz koleżanko swoje zadanie jakbyś chciała utworzyć nowy "trójkąt Penrose'a" w Excelu :D automatyczne wypełnia dni robocze (acz nadal można zmieniać coś manualnie, np. zmienić dzień roboczy na urlop)...
Witam. Posiadam zablokowany plik excela, czy jest możliwość scalania wybranych komórek w kolumnie tak aby użytkownik nie mógł zmienić stylu formatowania komórki?
Za pomocą Access importuje z 4 xls dane z arkusza 2 Jeśli wprowadzane dane mają te same nagłówki i scalane mają być w jednej tabeli :?: To bez żadnych kombinacji z kwerendami dołączającymi proponuję wykorzystać możliwości importu danych z plików xls (np. tak jak na zrzucie) 1158304 W takiej procedurze importu (dla mnie :D ) bardzo pomocne jest oznaczenie...
Mam makro pobierające dane z plików *xlsx w katalogu i wkleja je do aktywnego arkusza. Większość danych pobierana jest z arkusza o nazwie "Arkusz1". Co zrobić aby pobierał dane z arkusza o dowolnej nazwie. Zazwyczaj arkusz wypełniony danymi jest tylko jeden ale czasem zdarza się, że są trzy aktywne arkusze ale tylko pierwszy zawiera dane. [syntax=vbscript]Sub...
Wlasnie te teksty pomiedzy "DANE TECHNICZNE" a "INNE WARIANTY" ma kopiowac w kolumnie A i scalac je zeby wkleic ostatecznie do komorki N2 w arkuszu 3 Chce zeby opis produktu zawierał dane techniczne (tworze makro do masowego robienia plikow CSV, ktore potem importuje w sklepie internetowym)
Chyba będzie trzeba podejść do tego trochę niestandardowo. Najpierw posortowałbym dane źródłowe wg. klucza Kol C, D, O, N, M - tu można nagrać makro. Dalej podwójnie, no oko, zagnieżdżona pętla -scalanie w kol.H (wg. partner), a na zewnątrz dopisanie wiersza ze scaleniem F&G i scaleniem w C, D, E (wg. NIP) + przepisywanie danych. Oczywiście najpierw...
Ok działa, jednak jest jedno ale, teksty z połączonych plików stanowią jednolity, ciągły tekst, a czy można zrobić tak aby każdy scalany tekst zaczynał się od nowej linijki?
Mam takie makro, które ma pobierać dane ze skoroszytów i wklejać do jednego. Wszystko działa dobrze z wyjątkiem pętli - nie przeskakuje na kolejne arkusze tylko ciągle pobiera z jednego, maksymalnie dwóch. Co jest nie tak? Sub Scalanie() folder = "D:\Pliki\" Set master = ActiveSheet plik = Dir(folder & "*.xlsx") wiersz = 14 Do While plik <>...
zastosowałem funkcję VLOOKUP. Jeśli kolumna pierwsza składa się ze scalonych komórek z pięciu wierszy i ma określoną treść, a kolumna druga ma pięć wierszy z określoną treścią, To jak zrobić, zakładając, że obie kolumny są zakresem tabeli, aby funkcja VLOOKUP pokazywała mi drugi wiersz z drugiej kolumny jeśli odniosę się do pierwszej kolumny ze scalonych...
Pokaż proszę przykładowy plik źródłowy i plik docelowy - chciałbym zobaczyć jak chcesz scalać te dane :| Ten Twój kod rzeczywiście niezbyt precyzyjnie działa :cry: sądze, że z uwagi na użycie CurrentRegionów :D
Jak sie okazalo w pliku byly zdjecia zaladowane do excella ;D. Kumpel spakowal zdjecia rarem bez ladowania ich do jakiegos arkusza i wyslal bezposrednio. Po spakowaniu mialo to 4MB zamiast 60MB :D. Dzieki za pomoc.
kopiowanie danych z kilkunastu zakłądek w jednym arkuszu do jednego zbiorczego Trudno zrozumieć Twój problem ze względu na niepoprawną nomenklaturę :cry: Proponuję trochę przeszukać całe forum pod hasłem "scalanie danych" :D - znajdziesz wiele rozwiązań :D np https://www.elektroda.pl/rtvforum/viewto... Jeśli masz jakieś specyficzne...
OK, a jeśli zrezygnować ze scalania to jak rozwiązać wpisywanie w danym dniu w jednej komórce całych dniówek od 1 do 6 zmiany i ewentualnych nadgodzin a potem odpowiedniego zliczania według wzoru z powyższego arkusza?
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Bardzo dziękuję. Pewnie w tym tyg. dostanę kolejny plik więc jeśli zadziała to będzie to dla mnie duże przyśpieszenie pracy. Dodano po 6 Zrobiłem teraz "scalanie" i coś się jednak nie zgadza. Komórki pierwsze z lewej (były połączone tak żeby obejmowały pewien zakres komórek z prawej) teraz nie są połączone tylko tekst jest ściśnięty w jednej komórce,...
Po pierwsze: zamieść przykładowy plik z tymi danymi. Istotna jest tylko "kolumna2", bo "kolumna1" zawiera tylko powtórzone nagłówki, które nic nie wnoszą. Istotne jest czy imiona i nazwiska są zawsze prawidłowo rozdzielone i czy są w osobnych komórkach, np. Anna Maria Bogusz-Kowalska. Mam na myśli to, czy jest zawsze tylko jedno imię lub jedna komórka...
aby obszar do kopiowania można było wpisywać taki sam dla wszystkich plików w folderze, lub dla każdego pliku inny? rozpoczyna się od wiersza B, czy możliwe jest ? bo na pustem arkusze (xlUp).offset (1) = 2 Jest możliwe. Np. wiersz dla wpisu wrsz = Application.CountA(Range("A:A")) + 1
Witam, Jestem początkująca. Póki co potrafię rejestrować makra, czy staram się modyfikować znalezione kody makr. Mam 2 problemy. 1 to taki, że kod, który znalazłam działa, ale tylko na plikach, które nie są chronione. Nie wiem jak nie chronić pliku już na poziomie kodu VBA, gdy wybierane są pliki do scalania. W sensie- aby nie trzeba było ręcznie otwierać...
Ten Twój plik to jest stajnia Augiasza. Trudno się połapać o co w nim w ogóle chodzi. Piszesz, że masz problem z kopiowaniem z powodu scalonych komórek. A ja tu w ogóle nie widzę żadnego kodu do kopiowania. Jest tylko kod do sprawdzania kompletności wypełnienia tabelki, uzupełnienia daty i blokady niektórych komórek. Nie ma kodu do zapisu tego, co zostało...
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...
To może jaśniej - mam makro, którego zadaniem jest scalenie dokładnie 9 plików excel do jednego zbiorczego pliku. Makro scalające jest powyżej. Może i koślawe ale działa :) Do tego makra chcę dorzucić filtr, mający za zadanie scalić dane od - data początkowa, do - data końcowa. Obie daty, mogę wprowadzać w odpowiednie komórki w arkuszu, przed generowaniem...
Nowy post bo dzień już minął. Miałem chwilę i zrobiłem przykład atlasu :) z wykorzystaniem aparatu fotograficznego. (Jak pisałem trzeba go wcześniej dodać do wstążki) http://obrazki.elektroda.pl/1252193600_1... Arkusz atlas zablokowałem (bez hasła) dla "ładności" i by nie można było kliknąć w nic innego jak w nazwę do wyboru.
scalanie arkuszy excel excel scalanie arkuszy excel scalanie wielu arkuszy
ogrzewać szyba karta pamięci uszkodzona bascom przerwanie programu
engine fault peugeot diagbox peugeot
Odbiór vTuner na Harman Kardon HK 3770 Toyota Starlet 1998 1.3 – podwyższone obroty biegu jałowego, diagnostyka ISCV, ECT, TPS