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...
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....
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
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....
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...
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)...
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...
... 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...
Wystarczy przecież tylko usunąć ostatni człon równania który jest w załączonym arkuszu. ZŁĄCZ.TEKSTY(LEWY(B1;5);A1)
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 .
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. 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?
Trzeba co najmniej nazwy arkuszy danych i wyników. Dane( A:B) ma naglowki? Z ktorego wiersza dane ma początek?
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",...
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,...
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...
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...
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
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...
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 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...
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ć"...
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
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...
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 <>...
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, czy jest możliwe wykonanie makra, które z danego folderu gdzie jest X plików excelowych, scalił do 1 pliku excel wszystkie te pliki? I czy jest możliwe aby podczas importu nazywał zamiast Arkusz1, 2, etc nazwami plików zaimportowanych? 1plik>to 1 arkusz w excelu 2 plik>to drugi arkusz etc Całość w 1 pliku? Obecnie robiłem to poprzez Dane>Importuj>wskazywałem...
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)
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.
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 nie było gotowe rozwiązanie, ale schemat podzielenia nazwy pliku, oczywiście w ten sposób możesz też podzielić nazwę pliku. Tak, potrzebna jest pętla. Mniej więcej taki algorytm musisz pomyśleć gdzie to wkleić, bo część już masz zrobione 1. Wyszukujesz plik są różne sposoby wyszukania i w związku z tym różne konstrukcje pętli. 2. Jeżeli jest plik...
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...
No właśnie nie moge sie pogodzić z tym, że normalnie sie tego nie da zrobić. Pomijam fakt że arkusz można tak zaprojektować żeby nie było problemów ale taki dostałem. Komórka scalona powinna byc traktowana jako jednostka bez zaszytych rozmiarów. Programiści z microsoftu powinni nad tym pomyśleć. Twój drugi sposób jest troche szalony. Nigdy nie wiadomo...
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"....
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...
Ten VAT, to ma dotyczyć łącznej kwoty (w przykładzie 600 zł), czy tylko wynagrodzenia (500 zł)? Gdzie będą te inne osoby (obok, poniżej?), bo nie widać z tego przykładu wyglądu całego arkusza. Poza tym, po co te komórki w kolumnach D:F są scalone? Czy ma to jakieś uzasadnienie? Scaleń należy unikać, jeśli w arkuszu coś się dzieje, bo one często powodują...
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...
adamas_nt, to co robi Twoje makro można uzyskać (chyba...) tym samym sortowaniem o jakim pisał marek003... Albo ja coś źle robię... Ale nadal nie grupuje mi np. nazw miast w jednej komórce, godzin w jednej komórce... Da się to jakoś ugryźć? znalazłem takie makro: Sub scalaj() Dim w As String, i As Long With Selection w = .Item(1) For...
To akurat udało mi się rozgryźć.Chodzi mi tylko o to że jak wkleję jedną pod drugą to w drugiej jest inna szerokość kolumn.Nie wiem jak to obejść. Robisz dwie kolumny jedna o szerokości tej prawidłowej krótszej a druga obok o takiej szerokości by wspólnie z pierwszą kolumną tworzyły tworzyły tą szerszą kolumnę w innej tabeli. Scalasz w tej tabeli komórki...
Witam Przykład: http://obrazki.elektroda.pl/9352209600_1... Komórki oznaczone na żółto zawierają zmienne wybierane z rozwijanych list. To co widać w komórce A22 tworzę scalając (znak „&”) teksty znajdujące się w komórkach A4:A18. Następnie kopiuję tekst pokazany w komórce A22 i przenoszę do innego arkusza wklejając specjalnie...
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...
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. Znowu mam klopoty. Moze niedostatecznie wyjasnilem problem za co z gory przepraszam. Zaczne wiec od poczatku. Program, ktory chce napisac to prosta (mam nadzieje) aplikacja magazynowa. Aplikacja ma polegac na zlozeniu zamowienia na okreslona ilosc sztuk produktu. Na produkt skladac sie bedzie iles tam podproduktow, ktore sa na magazynie. Zawartosc...
Witam. Przeglądałem kilka tematów tu na forum które dotyczyły mojego problemu niestety żaden nie tyczył dokładnie tego co mnie interesuje. Pracuje jako specjalista ds. transportu w niewielkiej sieci marketów i tworząc plan transportowy dla samochodów musze po skończeniu wpisać tzw zwroty (puste palety, kartony, kosze z butelkami etc). Sklepy zgłaszają...
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,...
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,...
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.
[syntax=vbscript]Sub Scalaj() Kryterium = InputBox("Podaj kryterium filtra: ", "Filtr") Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row Range("A1:B" & ow).Select Selection.AutoFilter ActiveSheet.Range("A1:B" & ow).AutoFilter Field:=1, Criteria1:=Kryterium y = 1 For x = 2 To ow If Not Rows(x).Hidden Then Sheets("Arkusz2").Cells(y,...
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)...
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 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,...
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...
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"...
Makro robi zestawienie wszystkich wierszy z różnych plików z jednego folderu ale odrzuca te w których szósta komórka we wierszu wynosi zero. Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Z pierwszego pliku jednak takie dane pobiera bez problemu, z kolejnych już nie, pojawia się tam 0. Jakieś wskazówki?...
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...
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...
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...
scalanie arkuszy excel excel scalanie arkuszy scalanie arkuszy
bagażnik rowerowy zakłócenia podłączyć akumulator hamowanie silnika uzwojenie
vestel 17mb140 flash vestel 17mb110
Czy dekoder ma w środku bezpiecznik? Canon MF4150 nie przechodzi w tryb gotowości, wyświetlacz i podświetlenia nieaktywne
