[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]
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Application.Undo O! A dlaczego w moim Excel 2007 tego nie ma? W Internecie (nawet u Walkenbach'a) napisano "Excel 2007 and later" :( Może dlatego, że wersja "for school and student"? Biegnę szukać jakiś aktualizacji... No coś takiego!
z tego co się orientuje, poprzez wbudowaną funkcję excela się nie da. Możnaby napisać makro. W załączniku przedstawiam proste makro, które zmienia tło na czerwień jeżeli wpiszesz cokolwiek w zakresie A1:C3. W razie pytań... pytaj:)
załączam przykladowy plik i teraz np. sprobój wpisac w jakas kolumn obojetnie b cz c jakąs wartość i wypełnić w dół serią danych nie wiem dlaczego makro się odzywa jeśli ja nic nie grzebie w nim tylko wypełniam serią danych inne zakresy.
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Nie widzę obrazka ale u mnie nie działa bo wykres ma być w nowym arkuszu. Chodzi właśnie o zakres na sztywno. Jak wstawiłem do makra to co tam wpisałeś to makro przestaje działać.
Zobacz załącznik. Dla prawidłowego działania formuł, każdą fakturę w Arkusz1 należy kończyć nowym numerem. Kolumnę F oraz zakres E1:E2 ustaw z białą czcionką i nie będzie widoczne na wydruku. Edit 21:29: Zmieniłem załącznik, poprzedni był niedokończony.
tak, chcę aby po wprowadzeniu dat lub zakresu komórek excel zrobił wykresy dla wszystkich walut
Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...
Dobry wieczór, Nie bardzo rozumiem o co chodzi. Cały zakres obejmuje kolumny od A do LH. Jeżeli to ma być zmienione należy wprowadzić poprawki w komórkach A16 i A17 oraz w definicjach wi i wj w Menedżerze nazw. Natomiast jeśli chodzi o ten węższy zakres to jest on rozpoznawany automatycznie, co widać w komórce A16 i w definicji wi. Czy coś nie działa...
... " a " czy mógłbyś poprawić aby wstawiało Datę w komórkach w zakresie od B11 do B2000 i Godzinę od C11 do C2000 1. " a " co to jest to " a " w " If Target <> a " ? 2. "zbiorczo", tj. hurtem (?), czy sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 ? ps: trzeba by wstawić kontrolę zmiennej "i" (wierszy)
Sub wykres() ' ' wykres Makro ' x = 1 Sheets("Druk").Select While (Cells(x, 1).Value <> "") x = x + 1 Wend Sheets("Wykresy").Sele... ActiveSheet.ChartObjects("PPK&q... ActiveChart.PlotArea.Select ActiveChart.ChartArea.Select 'tutaj się wykoleja ActiveChart.SeriesCollection(1)....
Nagraj to makro i przypisz do przycisku. Przycisk wiesz jak zrobić? Wiesz jak przypisać makro do przycisku? Makro powinno wyglądać mniej więcej tak: [syntax=vb]Sub aktualizuj() ' aktualizacja danych z zakresu A1 Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False End Sub [/syntax] .. ewentualnie we właściwościach danych zewnętrznych...
Działa świetnie, dziękuję! Mam jeszcze pytanie. Jako że ten plik był testowy podałem tylko dwie dane do kopiuj/wklej. Czy jest możliwość uniknięcia efektu "migania" w chwili gdy wykonuję makro na dużym zakresie danych.
Rozwiązań jak zwykle jest kilka. Jednak w związku z tym, że makro wykonuje działania na konkretnym arkuszu i określonych zakresach umieściłbym je pod przyciskiem, a cały plik bez wpisanych danych najlepiej byłoby zapisać jako szablon. Użytkownika łatwo będzie nauczyć klikać: Plik>Nowy z wyborem odp. szablonu... Można nawet dołączyć jakiś Help lub dodatkowy...
range("C6:E16";"B19:B20") Możesz nawet Próbowałes ręcznie skopiować ten zakres?
W wierszu "rang" wpisz: rang = Array("E5:E10,O45:R42") Kolejne zakresy poprzedzaj przecinkiem. Pozdrawiam
Witaj. Czy musi to być koniecznie w Excelu? Jest dużo innych narzędzi, które się do tego mogą bardziej nadawać, mogą na przykład generować plik CSV, który sobie można łatwo w Excelu wczytać. Chyba że ma to być część jakiegoś większego projektu i Excel jest konieczny.
No niestety w obu plikach są też inne dane, a na dodatek trzeba sprawdzić nie jeden, a kilka zakresów danych (dokładnie 8). Excel ma naprawdę duże możliwości, ale domyślać się nie potrafi. Trzeba określić rzeczy stałe, podać ewentualne granice tych, które mogą ulegać zmianie, a jeśli makro/funkcja ma działać w różnych zakresach, czyli być uniwersalne/a,...
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Witam, mam serie dat w jednej kolumnie. Chciałbym żeby makro zapytało mnie, najlepiej w formie wyskakującego okienka jaki zakres dat chciałbym zaznaczyć a następnie żeby makro wykonało polecenie. W przypadku braku zakresu danych wybranego przez użytkownika, najlepiej żeby makro napisało brak daty. z góry dziękuję za pomoc pozdrawiam
Super, dziękuję. Dodano po 8 Jeszcze jedno pytanko, czy jest możliwość żeby zamiast komunikatu "wybierz zakres", na stałe podać zakres do tworzenia arkuszy (dane w tym zakresie są zmienne, ale zakres z którego mają się tworzyć arkusze jest stały)?
Zrobić się da, ale trzeba trochę pokombinować... Piszę tego posta gdy problem już jest rozwiązany, a piszę dlatego, że podałeś rozwiązanie nie tylko pracochłonne, ale przekombinowane. Po co wstawiać dodatkowe kolumny, skoro można od razu - gdzieś w sąsiedniej wpisać formułę: ="''" & A1 & "'", a otrzymanym wynikiem napisać (wkleić specjalnie...
Chodzi mi o to że tabela będzie się powiększać i zakres danych pobieranych do wykresu też powinien się powiększać
Czy to żart? Ciekawe czy znajdzie się chętny przeanalizować tę formułę i zrozumieć co ona robi nie widząc danych? Lepiej napisz własnymi słowami co chcesz uzyskać, może wtedy ktoś pomoże.
Mógłby porosić o gotowca do wlejenia: index to zakres A8:A600 nazwa to zakres B8:B600 warości1 to zakres FW8:FW600 warości2 to zakres FX8:FX600 warości3 to zakres FY8:FY600 warości4 to zakres FZ8:FZ600
Sprawdzanie poprawności danych było by wystarczające jednak problem w tym że nie mogę tej opcji ustawić odgórnie, dlatego że plik w którym ma być ta opcja jest tworzony z innego głównego pliku i zakres w którym ma działać sprawdzanie danych jest ruchomy. Dlatego sprawdzanie danych musi być włączone przez makro. Zakres w którym ma być ustawione sprawdzanie...
Witam, bardzo proszę o pomoc w napisaniu makra analizującego tabelę danych. W załączeniu plik Excel z opisem zadania. Makro powinno pozwalać zdefiniować zakres analizy. Z góry dziękuję za pomoc. https://obrazki.elektroda.pl/5779882000_...
Witam Panowie Mam zakres danych w 8miu kolumnach po np. 40ci wierszy. Potrzebuję zrobić wykres z zakresu 4ta i 8ma kolumna od 13go do 22go wiersza (10 wierszy). Wszystko jest ok, do czasu aktualizacji zakresu danych, aktualizacja wykonywana jest przez makro. Wykres natomiast zmienia sobie zakres danych na inny. Ja potrzebuję zawsze ten sam. Nie mam...
Witaj Ponieważ wiemy tylko zakres wejściowy jest nieznany, gdzie wynik, Załóżmy, że R3. znaleźć komórki z największą wartość - colrez=Application.WorksheetFunction.Mat... i skopiuj format do klatki wyniku R3 - Range("S3:AD3").Cells(colrez).copy Range("R3").PasteSpecial xlFormats Application.CutCopyMode = False Oczywiście...
Wydruk zawsze jest jednostronicowy, ale zakres jest różny w każdym arkuszu, wówczas to makro nie zadziała Jak zapisać dla różnych zakresów
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
W załączniku znajdują sie dwa arkusze: "DANE" i "WZÓR". W arkuszu"WZÓR" jest przykład o co mi chodzi. W arkuszu "DANE" w kolumnie A jest jakiś zakres danych(danych będzie tysiące i w tym problem) W kolumnie C arkusza"DANE" należy wstawić jakieś dane. Zastanawiam jak rozwiązać aby w kolumnie C wstawić te dane szybko i sprawnie? jak robię zakres od 1-20...
jeśli to są zakresy komórek, to możesz spokojnie nagrać makro - nie trzeba się bawić w ręczne tworzenie jego.
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
W makro obsługującym przycisk użyj select-a. Do ustalenia obszaru druku :[syntax=vb]ActiveSheet.PageSetup.PrintA... = "$A$1:$G$56"[/syntax]
Szablon PZ musiałbyś najpierw utworzyć w dodatkowym arkuszu. Umieszczenie w nim danych i wydruk, to już tylko "chwila" Odn. zegara Wklej do modułu [syntax=vbscript]Option Private Module Sub Zegar() If Time > "23:49:00" And Time < "23:59:00" Then Druknij End If NextTick = Now + TimeValue("00:10:00") Application.OnTime NextTick, "UpdateClock" End...
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
Andie, póki co makra to magia dla mnie, ale czy Twój kod działa tylko kiedy w kol. 1 są wartości takie jak sa w przykładzie, czyli 1, 2 ... itp ? Bo kiedy sprawdzam je na innej tabeli która ma już konkretne nazwy w kolumnie 1 i jest tych zakresów o wiele więcej to mi coś nie bardzo idzie...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
Nie do końca mi to wychodzi. Mam arkusz produkcja i arkusz zrobione. W arkuszu produkcja jest kolumna C w której jest unikatowy numer zlecenia a w kolumnie N jest pusto lub 'got.'. Chcę aby w arkuszu produkcja kolumna N, wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. Zakres danych w arkuszu produkcja to A2:L3000.
Dzień dobry, Bez załącznika to można się tylko domyślać. Jeżeli to ma być z użyciem filtra, to albo można zastosować filtr zaawansowany, albo ustawić sobie formatowanie warunkowe na odpowiedni zakres dat przy użyciu formuł, a potem zastosować autofiltr wg kolorów. Pozdrowienia.
Nie zrozumiałem dokładnie Pana problemu. Jeżeli chodzi tylko o odczyt informacji, to może udałoby się wykorzystać funkcję ADR.POŚR w formie tablicowej. Zakres adresów podaje się w postaci tekstowej i wtedy po wstawieniu nowych wierszy w arkuszu docelowym dane się przesuwają. Należy tylko zadeklarować dostatecznie duży zakres na wyniki, żeby nie zabrakło...
Witam, czy istnieje możliwość, żeby makro VBA wykonało się w drugiej zakładce wszystkich arkuszy w podanym katalogu ? Mam kilkadziesiąt arkuszy o nieregularnych nazwach. Druga zakładka w każdym z nich też ma inną nazwę. W każdej (drugiej zakładce) potrzebuję zrobić kilka wykresów na podstawie danych, które szczęśliwie są już w tych samych zakresach...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
1. Zmienne te muszą być liczbami, np. musi być: kol_pocz = 1 wiersz_pocz = 1 kol_fine = 27 ' (27 jest nr kolumny "AA") wiersz_fine = 100 2. "ZZ" - nie ma takiej kolumny (excel 97). 3. Makro to dla dużych zakresów będzie liczyło bardzo długo (musi przejść wszystkie komórki) 4. Należy usunąć wywołanie okien INPUTBOX i zmiennych z nim związanych (lub poprzedzić...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Witam, Mam pytanko do wszystkich fachowców z Excela, jak powinno wyglądać makro które stworzy mi kolejny plik, i skopiuje do niego dane które mam obecnie zaznaczone, dobrze by było aby w pliku głównym stworzyło mi również hiperłącze do nowego pliku, tak aby w razie ewentualnej edycji danych zmieniły się one również w pliku który powstał podczas owego...
Powtórzę jeszcze raz: jeśli oczekujesz realnej pomocy daj realny załącznik i opisz jak to ma działać - kiedy to makro ma działać i w jaki sposób - czy po każdej zmianie danych w jednej komórce, czy okresowo - na życzenie od razu w całym zakresie. Określ, w jaki sposób mają być rozpoznane komórki, w których są dane do obliczeń. W pierwszym poście podałeś...
Potrzebuję stworzyć taki algorytm/makro który będzie automatycznie dobierał zakres danych wykorzystanych do wykresu (każda taśma ma inna długość co ta tym idzie różną ilość zapisanych pomiarów) oraz tworzył wykres przebiegu walcowania. Jak to się ma do układu danych? Nie można zaimportować jedynie kolumn z danymi, a wykresy tylko aktualizować (zostawić...
Opcja każdorazowego zaznaczania zakresu przed uruchomieniem makra nie jest satysfakcjonująca. A masz w tym zakresie jakieś dane?
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
Tak jak kolega powyżej pisał - wystarczy zrobić tabelę przestawną. Jeśli chodzi Ci dokładnie o taki układ jaki zamieściłaś, to tabela musi być odpowiednio sformatowana. Dodatkowo zastosowana jest opcja powtarzania elementów - ale pamiętaj, jest ona dostępna dopiero od wersji 2010. Przy okazji wprowadziłem dynamiczną definicję zakresu danych. Przy odświeżaniu...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Super dzieki. probowalem teraz pousuwac zbedne wiersze tj. puste wiersze (takie w ktorych w kolumnie 2 nie ma wartosci). czy cos jest nie tak w ponizszym makrze? Sub usun_wiersze() col_base = 2 row_limit = 1300 f = 0 For x = 45 To row_limit r = x - f If Cells(r, col_base) = "" Then f = f + 1 ActiveSheet.Rows(r).Select Selection.Delete End If Next x...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Szkoda, że nie chcesz załączyć przykładowego pliku, bo w ten sposób zmniejszasz swoje szanse na uzyskanie optymalnej pomocy, a potencjalnych pomagających zmuszasz do wypytywania o wszystkie szczegóły. Z tego co teraz napisałeś zrozumiałem, że arkusz "Generator cen" zawiera jakieś formuły, które mają być użyte do przeliczenia danych z arkusza "301" i...
Cześć. Czy ktoś z Was wie jak powinno wyglądać makro porównujące ze sobą tabele w następujący sposób: -Załóżmy, że mamy dwa arkusze z danymi pracowników. W jednym jest formatka do raportu, w drugim przygotowana baza z ilością pracowników przypisanych do danych grup (dział/sekcja/skrót jedn org/MPK/rodzaj pracownika/fabryka) - formatka ma ten sam układ....
Przepraszam ,że zawracam głowę ale nie mogę sobie poradzić z prawidłowym wyznaczeniem ściezki pliku ,który ma zostać skopiowany. Powinna ona być następująca - I:\Wycena Efos\NabyciaUmorzenia + dane z Wyciagu powinny wklejać się do arkusza o nazwie PODST - Wkleić Patrzyłeś w ogóle na kod? Nawet nie trzeba znać angielskiego, bo w kodzie jest napisane...
Rany!!! Tak też próbowałem ale za każdym razem wywalało mi błąd. Teraz wiem co źle zrobiłem. Makro nagrałem i testowałem na pustym plik i tam działało. Kiedy przeniosłem makro do mojego docelowego pliku to zapomniałem w moim pliku utworzyć zakres "Przeniesienia" i dlatego wywalało mi błąd. Dzięki
Myślę, że kod z załącznika robi to co trzeba. Przypatrz się jedynie na miejsca, gdzie definiuje się zakresy: początkowe komórki czy zakres tabeli. W razie rozbudowy - musisz je odpowiednio w kodzie zmodyfikować... Nie wiem dlaczego, ale ciągle mi się wydaje, że makro, a sortowanie to już zupełnie, nie jest potrzebne. Tak jak ja zrozumiałem autora, to...
Proszę o pomoc w stworzeniu makra w Excelu. W załączniku plik który ma pomóc w kontrolowaniu magazynu. Założenie, że po naciśnięciu makra w arkuszu "Dispatch" w komórce A33, dane w arkuszu "Klient1" w kolumnie "G" zostaną odjęte od danych w kolumnie "A" i uaktualnione dane najlepiej wyświetlone w tej samej kolumnie "A", następnie dane w arkuszu "Dispatch"...
Dobry wieczór, Nie wysilił się Kolega na ten załącznik. Nie ma w nim co segregować! Generalnie najprościej wydaje mi się zastosować filtr zaawansowany z opcją kopiowania wyniku w inne miejsce. Dla każdej tabeli wynikowej trzeba utworzyć zakres kryteriów (może on być w arkuszu źródłowym lub wynikowym - obojętne). Sam filtr musi być zainicjowany w arkuszu...
Wszystko działa wspaniale jak określę zakres dokładnie, czyli np. B8:H50 . Ale jak ma sam określić jak znajdzie 2020 ACTAUL to niestety nic się nie kopiuje. To 2020 ACTUAL jest w kolumnie B, nie H - może stąd problem?
Ok, w warunkach testowych wszystko działa - sorry nie zrozumiałem tego, że nazwa pliku jest wstępnie zdefiniowana "plik..." - mój arkusz nazywał się inaczej. Teraz jeśli będę chciał zmienić nazwę pliku to rozumiem, że kodzie muszę podmienić wszystkie "plik" na nazwę którą nadam plikom? Czy coś przeoczyłem? Chciałbym jeszcze dodać jakiś przycisk-odwołanie...
Mam następujący problem: Arkusz zawiera takie dane: kolumna A: data [RRRR-MM-DD] w formacie daty kolumna B: cena [xxx,xx] w formacie liczby Ilość w/w wierszy: około 4000 Problem: Chciałbym zrobić wykres linowy, który by przedstawiał zakres w/w danych, a jego data początkowa i końcowa byłaby automatycznie uzależniona od dwóch komórek, w których bym podawał...
Hej, mam problem z hasłem na pliku excel. Mam makro zakładające hasło Sheets("DATA").Select ActiveSheet.Unprotect "HASŁO" teraz chciałabym zezwolić na odblokowanie edycji arkusza - mianowicie zmiany kolorów, czy ukrywania kolumn. Gdy ręcznie zakładam hasło na pliku mogę w checkboxach zezwolić na edycję danych i określi zakres, które mogą być edytowane...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
Witam, nie mam pomysłu jak przerobić to makro żeby pobierało jedynie wybrane zakresy danych z kolumny AQ, a nie całą kolumnę, np zakres AQ16:AQ22, AQ26:AQ30, AQ37:AQ39 itd bo zakresów będzie więcej w tej kolumnie. Proszę o pomoc. Poniżej makro: [syntax=vbscript]Private Sub Test_Click() Sheets("Klient").Range("A18:H32").ClearC... poz = 18 For w =...
Proszę o konkrety: - nazwy folderów, - nazwy plików, - nazwy arkuszy. Jeżeli Kolega ma na przykład foldery z nazwami miesięcy, a w nich pliki z nazwami magazynów, a w takim pliku arkusze z nazwami magazynierów, to trzeba napisać nowe makro.:) Obecne makro działa dla wielu plików z różnych lokalizacji, ale zakłada, że w każdym z plików źródłowych istnieje...
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
Przepraszam, że odświeżam tak stary temat ale mam podobny problem, a zasugerowane w wątku rozwiązanie nie jest skuteczne. Chodzi mi o to, że mam zakres danych, który chciałbym podawać do makra parametrem (makro umieszczone w komórce nad zakresem), a makro miałoby sortować zakres za każdym razem gdy ktoś wprowadzi do niego dane. Makro postaci: Function...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Witam, Potrzebuje stworzyć makro wyszukujące odpowiedni numer z zakresu w innym pliku i kopiujące dane. Posiadam dwa pliki: AMSTERDAM_SPC-Carbody shell_v2 oraz SPC_Raport Zadanie makro: W pliku SPC_Raport -> zakładka ‘Geometria’ znajduje się nr KTW (wpisywany z ręki) komorka Z7: http://obrazki.elektroda.pl/9144379200_1...
Mam nadzieję iż o takie rozwiązanie chodziło. Wyszukuje w zakresie do 50 wierszy i tylko 7 pierwszych rekordów. Funkcja jest tablicowa więc po jej edycji zatwierdzasz shift+ctr+enter Musi zaczynać się nawiasem { kończyć } ale nie wprowadzasz ich z klawiatury tylko pojawiają się po zatwierdzeniu jej trzema przyciskami Powodzenia
Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
Można również użyć formuły tablicowej jak w załączonym przykładzie. Zakresy w formule należy dopasować do wielkości danych. Liczba 100 w formule musi być większa od liczby wierszy danych. Plik należy zapisać w formacie .xlsx i uruchamiać w Excelu >= 2007. Powodzenia.
Ze względu na "zaszumione" dane zrobienie formuły jest dosyć dużym wyzwaniem, ale można kombinować z makro: [syntax=vbnet]Function Wyjmij(r As Range, n As Integer) As String Const minLen = 5 Wyjmij = "" Dim x, tmp, tmp2 As String Dim v, cn, cg As Integer tmp = "" For Each x In r tmp = tmp & x tmp = tmp & "%" Next x tmp2 = "" cn = 0 cg = 0 For...
Witam, Chciałbym zautomatyzować sprawdzanie poprawności danych w excelu, oto przykład: W kolumnach znajdują się zdefiniowane przedziały grubości, szerokości, długości, symbol rodziny danych, itp. określony wiersz zbudowany z w/w parametrów daje ostatecznie prosty symbol "dane OK". Chciałbym żeby makro sprawdziło czy zdefiniowane w pierwszej tabeli "zakresy"...
Witajcie! Napisałem sobie makro podliczające ilość zakolorowanych komórek w zakresie. Funkcja działa doskonale, ale jest jeden szkopuł. W momencie, gdy zakoloruję w zadanym zakresie dodatkowe komórki lub odsłonię wcześniej zakolorowane, wartość zwracana przez funkcję nie jest aktualizowana. Dopiero po ponownym jej wprowadzeniu (tj. po wciśnięciu ENTER...
Witam Chciałbym Was bardzo prosić o pomoc w napisaniu algorytm/sposobu, który wydaję się w miarę logiczny i prosty do wykonania…Szukałem rozwiązania jednak nie mogę znaleźć nic podobnego. Poza tym moją wiedza z zakresu VBA jest chyba zbyt skromna. Dane, którymi muszę się zając to kilkaset wierszy wpisów w tabeli. Dane źródłowe wyglądają jak w...
Niestety, za każdym razem typy są różne i zakres danych również Dodano po 4 Jak zrobić pętle dla danych filtrowanych w kolumnie E dla różnej ilości wierszy, aby kopiowało mi w zależności od danych i wrzucało do nowego arkusza zapisując go tym typem oraz według tego co aktualnie mam w liście wyboru w kolumnie E? Mogę prosić o podpowiedź.
Załączam. Makro potrzebuję napisać w pliku statystyki.xlsm - makro licz_uslugi. Później podepnę je pod przycisk W pliku "zlecenia.xlsm" mam dane osobowe wraz z zamówionymi usługami (usługi w kolumnach od K do BK - jak w komórce pojawia się liczba 1 lub 2 lub 0,5 to znaczy, że dana usługa była zamówiona). W pliku statystyki sama podaję daty, które mnie...
Poradziłem sobie. Makro odświeża dane w podanym zakresie. Sub pr() Application.Calculation = xlManual DoEvents For Each mycell In Sheets("Feuil1").Range("AP2").Cells mycell.Formula = mycell.Formula Next DoEvents Application.Calculation = xlAutomatic End Sub
Nie umiem jednak stworzyć szablonu(a w zasadzie wykresu), dzięki któremu mogę zmienić zakres danych, który odpowiada faktycznemu wypełnieniu komórek. Ale to już jest sama sprawa excela a nie c#. O, na to też są metody... Można np. użyć dynamicznego zakresu. Zakładając, że masz nagłówek w pierwszym wierszu, w komórkach A2...Ax masz etykiety, a w C2...cx...
Witam, Dopiero uczę się VBA i mam taki problem. Potrzebuję napisać makro, które dla pewnego zakresu dat (wskazanego przez użytkownika poprzez inputbox) będzie: a) sumować dane b) wyliczać średnią z tych danych c) zaktualizuje wykres na bazie tych danych (co miesiąc nowy wykres) Dla przykładu w kol. A mam daty a w kolumnie B kwoty, na których chcę wykonać...
Całe makro tworzące wykres z danych w określonym zakresie i zmieniające kolor wybranych słupków może wyglądać tak: [syntax=vb]Sub Wykres_kolorowy() ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Range("Arkusz1!$A$3:$B$8") 'zakres danych With ActiveChart.SeriesCollection(1) .Points(1).Format.Fill.ForeColor.RGB...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Nie sądzę ... podsumujmy zatem, na podstawie kodu, co mamy: 1. Arkusz zbiorczy nazywa się "Aktywność" 2. Tabela zbiorcza znajduje się w zakresie "B18:O2000" 3. Nagłówki tabeli zbiorczej znajdują się w zakresie "B18:O18" 4. Tabele źródłowe w plikach dawców znajdują się w arkuszach nazwanych "Aktywność" 5. Tabele źródłowe w plikach dawców mają nagłówek...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Napisałam proste makro kopiujące zakres komórek z aktywnego arkusza do archiwum. Chciałabym, aby tabela z aktywnego arkusza po zapisaniu do archiwum automatycznie "się wyczyściła". Dodatkowym problemem jest również makro działające w arkuszu "BAZA" - zaznaczam tu dowolne pozycje w kolumnie K poprzez dwukrotne kliknięcie myszy, po czym wybieram przyciskiem...
No dobra, makro było pójściem na łatwiznę ;). Można też taką formułą: =INDEKS($A$1:$A$9;ZAOKR.W.DÓŁ... Gdzie zakres $A$1:$A$9 jest zakresem ze znakami, które mają być powtórzone.
że taki kod do wpisywania zakresu kopiowania danych, powoduje, że trzeba wpisywać zakres po kolei dla wszystkich plików Miałem na myśli przed petlą For [syntax=vb]Obszar = InputBox("Podaj obszar kopiowania danych", "Obszar danych", "A1:K10") For Each everyObj In filesObj '..itd.[/syntax]
excel zakres makro excel zakres danych excel makro kopiować zakres
zmywarka amica silnik robota kuchennego kondensator szeroko
żarówka szeregowo początkujący elektronicy
Yamaha FZR 600 1992 – schemat podłączenia cewek zapłonowych, kolory przewodów, układ 1-4 i 2-3 Panasonic TX-L47DT60E – długie włączanie, kondensatory, eMMC, płyta TNPH1056