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...
Piszesz, że ma scalać wiersze, jeżeli wartości w kolumnach A:H oraz K są takie same, a w przykładzie: w 6 wierszu wartość w kolumnie A jest inna, a w 3 wierszu: w kolumnie G - mimo to zaznaczyłeś je na żółto. To jak to w końcu jest?? Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich? Czy one mają stałą długość, czy się zmieniają? Czy wiersze...
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
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.
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...
Wystarczy przecież tylko usunąć ostatni człon równania który jest w załączonym arkuszu. ZŁĄCZ.TEKSTY(LEWY(B1;5);A1)
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,...
Trzeba co najmniej nazwy arkuszy danych i wyników. Dane( A:B) ma naglowki? Z ktorego wiersza dane ma początek?
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)...
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")...
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.
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 .
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...
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...
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",...
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...
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ć"...
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...
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 <>...
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...
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...
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
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.
Tak. Przy scalonych komórkach (zarówno w pionie jak i w poziomie) pojawia się ten komunikat. Jeżeli scalenia sa w poziomie można zaznaczyć cały arkusz (kliknąć na narożną "kostkę" między A a 1) i odznaczyć scalanie komórek. Ale jeżeli scalenie było w pionie to po takim zabiegu tekst zostanie przyporządkowany do górnego wiersza a "dolne" komórki które...
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,...
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
Do kolegów i koleżanek zwracam z prośbą o pomoc. Exel 2010 jaki używam. Mam zeszyt o nazwie "Wzor program do składnic". W tym zeszycie są arkusze o następujących nazwach: "Informacja", "DANE", "ZASTĄP", "SCALANIE", "DATY_SKRAJNE", "SPIS". W tych arkuszach znajduje się wiele funkcji, które miały mi pomóc w uzyskaniu efektu jaki znajduje się w arkuszu...
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",...
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...
... 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...
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...
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?
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.
Dziękuję za wszystkie informacje. Na własne potrzeby przerobię sobie ten arkusz tak jak mówiliście. Jeden wiersz jedne dane. Bez scalania. Potem przerzucę sobie dane do tej pierwotnej tabelki bo taka formę muszę zachować. (wymog wyzszych przelozonych). Dziekuje za pomoc i zzangażowanie wszystkim. Pozdrawiam. Temat zamykam
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.
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
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...
J. Walkenbach, "Excel 2003 Programowanie w VBA", str.265: Czego nie potrafią robić niestandardowe funkcje arkusza Opracowując różne funkcje niestandardowe, musisz koniecznie pamiętać o podstawowej różnicy między funkcjami wywoływanymi przez inne funkcje VBA, a funkcjami używanymi w formułach arkusza. Te ostatnie muszą być koniecznie "pasywne". Nie można...
Witajcie, mam taki problem. Mój arkusz składa się z dwóch kolumn (id obszaru, zagrożenia istniejące). Niestety id obszarów w pierwszej kolumnie się powtarzają :-( Sytuacja wygląda tak: obszar1 zagistn1 obszar1 zagistn2 obszar2 zagistn1 obszar2 zagistn2 obszar2 zagistn3 obszar2 zagistn4 Chcę, aby było tak: obszar 1 zagistn1 zagistn 2 obszar 1 zagistn1...
Mam mały problem - jest arkusz Excela i dokument Worda. Dane wprowadza się w arkuszu a dokument służy tylko do ich wydruku. Wszystko ładnie działa, dopóki nie zmieni się położenia lub nazwy pliku Excela, bo Word zapamiętuje bezwzględną ścieżkę do pliku .xls. Czy ktoś ma jakieś sugestie jak wybrnąć z tego problemu? Całości nie da się napisać w Excelu,...
Ja się przyczepię, podpisu brak... ;) A i stępla. :) Ponieważ jest to pdf to nie ma podpisu i pieczęci...po wydrukowaniu powinny się tam znaleźć. Tak pieczęć organizacji z nr akredytacji i pieczątka imienna z podpisem autoryzacji np. kierownika lab. Pieczęć urzędowa znajdował się tylko na "poważnych" świadectwach legalizacji Głównego Urzędu Miar (wyciskana...
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)
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?
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...
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...
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)...
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...
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....
gpedit.msc > Konfiguracja użytkownika > szablony administracyjne > panel sterowania > Programy > ukryj aplet Programy w Panelu sterowania Niestety - ale na Win7 bez względu, czy zrobimy to za pomocą konsoli MMC czy też gpedit kategoria programy będzie cały czas widoczna. załączenie opcji: http://obrazki.elektroda.pl/9821714600_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ć...
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
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?
Witam, mam problem. Dodkonuje konsolidacji wielu plików z wieloma arkuszami do jednego. Robię to w tej sposób: https://excelbi.pl/power-query-cz-4-scal... Nie mniej jednak importują mi się dodatkowe zdublowane te same rekordy i są opsane jako dodatkowy arkusz a wpłasciewie 5 arkuszy, które w pliku głownym zostaje nazwany: xlnm._FilterDatabase...
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....
Możliwe iż masz rację chodź i tak dalej twierdzę że kod strony jest dla webmstera a nie jakiś innych którzy chociażby przez wzgląd na niego oceniają techniczną stronę WWW, wielokrotnie spotkałem się z tym chodź by na własnym przykładzie.Jak już mowa o html5 gdzie zapodziała się jego dokładna specyfikacja ? Szukałem juz wcześniej gdyż chciałem coś sprawdzić...
Witam Dzięki Maciej Gonet za pomoc :D . Dla zainteresowanych [syntax=vb]Sub tworzenie_formuły_tablicowej() ' ' tworzenie_formuły_tablicowej Makro Sheets("generator formuł").Select a = Sheets("generator formuł").Range("A5").Value b = Sheets("generator formuł").Range("A7").Value c = Sheets("generator formuł").Range("A11").Value d = Sheets("generator formuł").Range("A13").Value...
Znalazłem taki kod, który chciałbym dostosować do własnych potrzeb. ' ========================================... ' ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych (w tym docelowego) ' 3. Dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Witam. Potrzebuję pomocy a najlepiej gotowego rozwiązania pozwalającego na scalenie wielu plików xls znajdujących się w jednym katalogu do jednego finalnego pliku xls. Rozwinę problem. Mam utworzony jeden plik wzorcowy, zawierający w swym składzie 4 arkuszy (raport, dane_wejściowe, dane_wyjściowe, roboczy. Dodatkowe 200 plików od nr 1 do 200 są to "wizualnie"...
Hej, Mam oto sobie taką formułę na łączenie wielu plików z Excela (wiele plików i 2-3 arkusze): Kod: ' ========================================... ' ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych (w tym docelowego) ' 3. Dane do scalenia są zawsze...
excel scalanie arkuszy scalanie arkuszy excel excel scalanie wielu arkuszy
piece ekogroszek ustawienia wskazania paliwa opóźnić wyłączać radio
interfejs diagnostyczny naczepa kosiarka viking obroty
Ford Fiesta MK7 1.25: Pasek czy łańcuch rozrządu? Lokalizacja archiwum SMS w Android i iOS