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...
[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]
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...
Prosty przykład w załączniku.
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.
Średnio się na tym znam. Nie wiem czy o to chodzi [url=http://akademia-vba.pl/excel-vba/sc...
Jeżeli chodzi tylko o określenie położenia zaznaczonej komórki to jest to ActiveCell i odpowiednio do potrzeb .Address, .Row, .Column.
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.
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...
Dziękuje
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...
Dzięki wielki. Makro działa, tak jak chciałem
W przykładzie na który się powoływałem w tamtym poście był błąd, niedopatrzenie autora... Poprawny przykład wylistowania plików w katalogu zamieszczam poniżej: Private Sub CommandButton1_Click() Dim nextFile As String 'sciezka do katalogu myDir = "C:\" 'jakich plikow szukamy myFile = "*.txt" nextFile = Dir(myDir &...
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...
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....
Po obróbce przez makro ta tabela powinna wyglądać jak ta po prawej stronie Takie kody tylko na elce :) [syntax=vbscript]Sub elka() Application.DisplayAlerts = False x = 3 Do While Cells(x, "B") <> "" a = Application.CountIf(Columns(2), Cells(x, "B")) With Union(Cells(x, "B").Resize(a), Cells(x, "G").Resize(a)) .Merge .VerticalAlignment = xlCenter...
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...
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ę...
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, 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ą...
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)...
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...
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",...
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 ?
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)
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ć"...
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,...
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...
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"....
1. Szara nie jest scalona, ale może być. Bo czasem scalałem czasem nie. 2. Numeracja 2 kolumny, zawsze od 1. Ale problem w tym: że na początku dnia nie jestem w stanie określić jak dużo będzie pozycji. Gdybym wiedział wcześniej jaki zakres to nie byłoby problemu 3. Tak, makro jak najbardziej ( a dlaczego pytanie o makro? już kilka osób o to pytało )
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...
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) <>...
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 <>...
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...
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...
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
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?
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...
Ma pobierać typ danych z prawej kolumny i gdy się ciąg zmieni w niej tylko wartość na inną wtedy dodać scalający wszystkie kolumny (cała szerokość kolumn w 1 wierszu) nagłówek z wpisem w zawartości z nowym wpisem ciągu. Tak jak na obrazkach jest pokazane. 1 to dane przed zmianami a 2 pokazuje to co chcę uzyskać. Może być Access.
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...
Witam Jak napisać makro które będzie przeszukiwało kolumnę A i B http://obrazki.elektroda.pl/4124127900_1... Jeżeli w kolumnie B będzie więcej niż jeden ciąg znaków to dodaje wiersz i scala komórki jak na zdjęciu poniżej wartość z komórki A wkleja do scalonej komórki a wartości z kolumny B z danego wiersza wkleja do oddzielnych komórek...
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...
Witam serdecznie, mam w pliku excela tabelę ze scalonymi komórkami, pech że muszę ją posortować, a że jest dość duża (2300 wierszy) to nie wchodzi w grę rozłączanie scalonych komórek. Na forum znalazłem już podobne pytania i odpowiedzi do nich, jednak w stosunku do nich u mnie występuje jeszcze jeden problem: ilość scalanych wierszy nie jest stała i...
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ć...
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, W załączniku (mocno) przerobiona wersja v4 pliku. Może coś w tym stylu spełni swoją rolę. Tym razem podejście jest trochę inne: najpierw makro sobie tworzy listę wszystkich plików, folderów i podfolderów w w katalogu źródłowym (co może trochę potrwać przy jakiejś ogromniej ilości plików...). Następnie próbuje dopasować nazwę (pliku, katalogu...
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...
Najlepiej jeszcze aby procesor tekstu sam wypełnił za użytkowników paragrafy ;). Z tego co wiem to MS-Word nie kompiluje plików. Uważaj bo w informatyce ten termin ma trochę specyficzne znaczenie. Chodzi ci oczywiście o łączenie/scalanie plików, a to po angielsku "combining" lub "merging". Wydaje mi się, że za bardzo byś sobie chciał ułatwić/zautomatyzować...
makro uruchamiać makro makro uruchamia makro makro uruchamiające makro
tda7294 subwoofer lexia sterowniki interfejsu rozdzielacz hydrauliczny budowa
lodówka samsung rl41pcih sterownik układu solarnego
Migające kontrolki i czerwony wykrzyknik w DeLonghi Magnifica Evo Total Media 3.5, Gigabyte VGA – komunikaty „Supported device not found” i „VGA BIOS not found2” po deinstalacji w Windows XP
