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....
Czułem, że trzymasz coś w rękawie ;) Z takim pryszczem poradziłabyś sobie. Spróbuj takiej pętelki [syntax=vb]Sub Merguj() Dim wrs As Long, merg As Long wrs = 1 merg = wrs Application.DisplayAlerts = False Do While Cells(wrs, 1) <> "" If Cells(wrs, 1) <> Cells(wrs + 1, 1) Then With Range(Cells(merg, 1), Cells(wrs, 1)) .Merge .HorizontalAlignment...
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.
[syntax=vbscript]Sub Scal() ow = Cells(Rows.Count, "A").End(xlUp).Row b = 1 For x = 1 To ow If Not f Then b = x f = True End If If Cells(x + 1) <> Cells(x, 1) Then Range(Cells(b, 2), Cells(x, 2)).Merge Cells(b, 2) = Cells(x, 1) f = False End If Next End Sub[/syntax]
Proszę o pomoc. Potrzebuję napisać makro do kopiowania danych z plików excela, które umieszczone są w danym folderze. W taki sposób, aby następnie dało się w pliku zbiorczym zrobić listę "nazw". W każdym pliku mam "nazwy", które mają przyporządkowane poszczególne numery. Cześć z tych numerów się powtarza. A ja potrzebuję zrobić listę wszystkich numerów...
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...
Witam, potrzebuję makro do scalania wielu plików z danymi w jeden. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze, dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe obszary. Jako, że nie bardzo radzę sobie z VBA, skorzystałem z dostępnego makra, które później lekko zmodyfikowałem do własnych celów. Jednakże pozostało mi...
Prosty przykład w załączniku.
Jeżeli chodzi tylko o określenie położenia zaznaczonej komórki to jest to ActiveCell i odpowiednio do potrzeb .Address, .Row, .Column.
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....
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...
Coś czarujesz! Gdzie Ty wpisywałeś to CutCopyMode? Powinieneś wpisać przed zamknięciem każdego pliku, czyli tu: [syntax=vbscript]Application.CutCopyMode = False Skor.Close False[/syntax]Sprawdzałem i u mnie komunikat się nie wyświetla.
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...
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...
Scalone komorki w zakresie kopiowania? Jeżeli chodzi o zakres kopiowania i wklejania żadne z komórek nie są scalone, staram się unikać scalania komórek, co może być innego przyczyną tego błędu ?
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",...
1. Otwieramy TC (2 kliknięcia) 2. Zaznaczamy wszystkie pliki (jedna szara *) 3. Ctrl+M (2 klawisze) 4. Wybieramy np wstawianie daty (1 kliknięcie) 5. Start (1 kliknięcie) 6. Zamykamy (1 kliknięcie) 7. Robimy Entery - Ctrl+C, Ctrl+V dla podanego skryptu konsoli, Enter (5 klawiszy) 8. Scalamy (3 kliknięcia) 9. Można otwierać w Excelu ;)
Dzięki wielki. Makro działa, tak jak chciałem
Dziękuje
i jeszcze jedno pytanie: jak scalać tygodnie;miesiące =num.tyg(4;1) lub =miesiąc(F4) by one się ciągle nie powtarzały nadal nie mogę sobie poradzić z obramowaniem początku/końca tygodnia ktory wyraznie rozdziela sobote i niedziele 1 dzien pracy niedziela, ostatni sobota
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...
Panowie, Przepraszam z góry, jeżeli umieszczam post w złym miejscu :) Chcę stworzyć makro, które w zależności od zawartości danej komórki, będzie scalać odpowiedni zasięg komórek. Mniej więcej aby wyglądało to w ten sposób: http://obrazki.elektroda.pl/4064407500_1... http://obrazki.elektroda.pl/9854831800_1... Pomysł...
Witam. Ponieważ makro w wordzie jest mi trochę obce (w excelu trochę lepiej, ale mistrzem to na pewno nie jestem) chciałbym poprosić o radę. Chodzi o korespondencję seryjną, wysyłam listy w pracy o treści takiej samej, ale do wielu osób. Dane adresatów, które pojawiają się w liście pobierane są z excela. Ostatnia operacja przy korespondencji seryjnej...
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, mam problem z formułą. Mianowicie potrzebuje takiej która by spełniała warunki: a) Zliczała ilość unikalnych dat z unikalną godziną w kolumnie C dla określonego miesiąca. b) W kolumnie "C" sformatowanej jako data (z godziną) zliczała ilość wierszy z określonym miesiącem. (Np. tylko październik, tylko listopad) c)Nie dublowała dat z tą samą godziną...
Wcześniej już wspominałem, że w moim przypadku, pomimo wieloletniego doświadczenia z aparatami i fotografią analogową, musiałem nauczyć się robienia zdjęć lustrzanką cyfrową. Analogowe aparaty były znacznie mniej wymagające ale też miały ograniczone możliwości. Zdjęcia da się źle wykonać KAZDYM aparatem. Podobnie jak i zrobić dobre. Są tylko pewne ograniczenia...
ten problem jest rozwiązany, ale mam jeszcze jedno pytanie. Jak scalić komórki zachowując przy tym tekst z tych wszystkich scalonych komórek w jednej ? Excel domyślnie, przy scalaniu komórek, zachowuje jedynie wartość z lewej górnej komórki, a zawartość pozostałych komórek zostaje usunięta. Aby scalić komórki i zachować tekst z wszystkich scalanych...
Z kolorem to jasne - trzeba stworzyć trzy makra, każde dla innego. Bardziej chodzi mi o element który będzie zmieniany. Chciałym zamienić ItemFromID(x) na aktualnie zaznaczony myszą element. Ostatnio miałem podobny problem w Excelu (chodziło o możliwość scalania i formatowania komórek w ten sam sposób, ale tam wystarczyło wyrzucić linię określającą...
Witam. Znalazłem w sieci Marko które wykorzystuje do scalania danych z wielu skoroszytów do zbiorczego. działa wyśmienicie (scala dane z pierwszego arkusza skoroszytów) ale pojawiła się potrzeba scalenia arkuszy z rożnych plików po nazwie arkusza czyli mam 10 plików źródłowych z arkuszami "Arkusz1", "Arkusz2","Arkusz3","Arkusz4".............. chciałbym...
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...
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...
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ć...
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?...
Po dodaniu tej linijki okno o pytanie rzeczywiście się nie pojawia, jednak skutek jest taki, jak przy kliknięciu w "NIE" czyli do otwieranego pliku nie podpina się źródło danych do korespondencji i nie można wygenerować w dalszej części plików, które zawierają dane z bazy danych. Potrzebne jest coś co zadziała podobnie ale "naciśnie przycisk TAK" i...
Mam tabelę, w której chciałbym scalić komórki w kolumnie B i G. Czy jest możliwość, aby makro sprawdziło kolejno w kolumnie B komórki i scaliło wszystkie o tej samej wartości (one sąsiadują zawsze ze sobą), a następnie taki sam format zastosowało do kolumny G. W załączniku umieściłem przykładową tabelę (po lewej stronie), Po obróbce przez makro ta tabela...
W kolumnie D nie widzę w ogóle Z. Po analizie jak to działa stwierdzam, że: 1) Chciałem usuwać te pliki hurtem, żeby było szybciej, ale okazuje się, że to za dużo i jednym poleceniem odwołującym się do tablicy z nazwami tego się nie da zrobić. Widocznie jest jakieś ograniczenie, którego nie znam. Wobec tego trzeba usuwać pojedynczo. Dopisałem nową procedurę...
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ć"...
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)
To o Bios"ie przez autora Widać też, że ktoś przy nim majstrował Naczym polegało to ? majstrowanie" ? Daj foto. makro tego miejsca, Podaj model płyty... opisy z MB, np. SCALA-15L rev:MP 1.1 SCALA-15L rev:MP 1.0 BA92-07xxx BA41-013xxA Tam jest jeszcze słynny NEC_Tokin http://obrazki.elektroda.pl/6123290300_1...
Nie jestem guru od makr w VBA, ale coś takiego powinno zadziałać (zrobiłem testy na prostym arkuszu wklepanym z palca). [syntax=vb] Sub Makro1() Dim xo As Integer xo = 2 Columns("A:B").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom,...
Skopiowałam sobie poprawione według wskazań powyżej makro, które teraz wygląda tak: Sub Test() Call DoOsobnego(oWzorDoc:=ActiveDocument, _ sDir:=ActiveDocument.Path) End Sub Public Function DoOsobnego(oWzorDoc As Word.Document, _ ByVal sDir As String) As Boolean On Error GoTo DoOsobnego_Error Dim r As Long Dim lngRecs As Long If Right(sDir, 1) <>...
Cześć, mam już część makra, ale niestety nie działa na całym zaznaczonym zakresie. Nawet wiem dlaczego, ale nie umiem poprawić. https://obrazki.elektroda.pl/5315120000_... tak chcę by wygladało https://obrazki.elektroda.pl/5152282400_... Pomożecie?
Witam, mam zapytanie o makro z funkcją "złącz teksty" tzn. chciałabym, żeby w wstawionych wierszach w kolumnie "G" były przeniesione i scalone teksty z tej kolumny jeżeli... poniżej przykład: /wstawiony wiersz/29337 12183 3825 28713 6457 1327 14471 Warszawa29337 Warszawa12183 Warszawa3825 Warszawa28713 Warszawa6457 Warszawa1327 Warszawa14471 /wstawiony...
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...
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ą...
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"...
samsung scalać scalać komórka scalać samsung
parametr maszynowy wytrzyma kondensator step7 manager
galmet wyswietlacz galmet wyswietlacz
Amplituner Yamaha, Denon, Sony – nie stroi stacji radiowych, brak odbioru FM/AM, usterka tunera Piksel vs foton – różnice rozmiaru i funkcji w sensorach ISOCELL, Exmor, SPAD, QIS