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...
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.
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...
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,...
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...
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...
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)
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...
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....
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?
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...
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 <>...
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...
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ć"...
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?
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
alarm master renault przestrojenie tunera yamaha opinie audion
Tabela kodów ASCII, dostępu i błędów w elektronice Jak zdjąć hasło z odtwarzacza DVD Philips 5990?
