Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Przy okacji trochę mi sie koncepcja zmieniła - gdybym musiał wykluczyć więcej niż jeden arkusz - to dałoby się? Można wykluczać arkusze, można też uwzględnić tylko te z listy... Wykluczanie generalnie można zrobić tak: - wykluczasz Arkusz1, Arkusz2 i Arkusz3, drukujesz pozostałe[syntax=vbscript]If ws.Name <> Arkusz1.Name And ws.Name <>...
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
Bardzo ciekawie zrobiona aplikacja. Przesyłam wzór wydruku etykiety. Prześlę makro do wydruku ale jest pewien problem. Niejednoznaczne są używane nazwy wyrobów, na jednym arkuszu jest to np.Sałatka drobiowa a na drugim Drobiowa. Należy stworzyć słownik nazw wyrobów i tylko takimi się posługiwać. Zrobię swoją propozycję zmian do przedyskutowania.
Jasne. Spakowane pliki w załączeniu. Plik musi niestety zmieniać nazwę, bo jest tworzony nowy co miesiąc. Jeśli ją zmienię czy kod może się automatycznie uaktualniać? Nazwy arkuszy i układ są bez zmian we wszystkich plikach Zlecenie prac na formie wtryskowej matryca. Dziękuję!
A jak zmienić kod aby do zmiany wartości była uwzględniana tylko kolumna C, ale skrypt był wyzwalany po zmianie w kolumnach B, C, D. Do tych kolumn wklejam jednocześnie dane, po wklejeniu danych do trzech kolumn skrypt nie działa. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem, że chce Pan zmodyfikować skrypt w Google Apps Script tak,...
Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: [syntax=vb]Sub zz() Dim tblArkusze() Dim i& Dim rngTmp As Excel.Range tblArkusze() = Array("I L", "II L", "III L") 'nazwy arkuszy w których mają być wykonane zmiany For i = LBound(tblArkusze()) To UBound(tblArkusze())...
Jeśli to wszystko jest w jednym skoroszycie, to możesz użyć też funkcji ADR.POŚR. Jej argument podaje się w formie tekstu, więc można go złożyć z kawałków. Ale użycie tego spowalnia trochę działanie funkcji, więc zależy ile masz tych danych do przeliczenia. Mogłoby to wyglądać np. tak: [syntax=text]=WYSZUKAJ.POZIOMO(D3;ADR.PO... " & A1 & "'!36:62");2;FAŁSZ)[/syntax]...
Zamknęłam tamto zadanie a mam jeszcze 3 pytania extra do makra, które stworzył (at)prl . Post dokleiłem do wczesniejszego wątku i odblokowałem go. W przypadku chęci kontynuowania zamkniętego wątku zawsze można zgłosić go do moderacji (raportując którykolwiek z postów w nim) z prośbą o ponowne otwarcie. 1. Makro dzieli skoroszyt na osobne skoroszyty...
Witam, poszukuję makra, które uruchamiało by się automatycznie po wykryciu zmiany wartości w kolumnie "Data" w arkuszach 1,2. Miało by ono działać następująco: gdy w kolumnie "Data" zostaje wprowadzona zmiana, makro sprawdza nazwę z kolumny A oraz zapamiętuje starą wartość komórki "Data", przechodzi do arkusza 3 i wyszukuje w kolumnie A nazwę z arkusza...
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...
Bez makra: - zaznaczasz arkusze w których mają być wprowadzone zmiany (CTRL+LPM na kolejnych nazwach arkusza "zakładkach" lub mając aktywny pierwszy arkusz w którym mają być przeprowadzone zmiany, trzymając SHIFT klikasz na nazwę ostatniego arkusza do zmian i zaznacza Ci się "zakres" arkuszy) - mając zaznaczone arkusze, w aktywnym arkuszu dokonujesz...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
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....
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....
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
Witam Jesli chodzi o vba i makra jestem mocno początkujący ale zastanawia mnie to czy istnieje kod który będzie powtarzał czynność w kolejnych arkuszach o innych nazwach. Chodzi o to,że mam trzy arkusze dane wejsciowe , zmiany, dane po zmianach. I chciałbym aby ten ostatni arkusz był nowym wyjściowym dla kolejnych 2 (zmiany 2 i dane po zmianach 2) itd....
Moim skromnym zdaniem ostatni dodany arkusz ma najwyższy indeks (nazwę tylko nie tę widoczną w Excelu pod arkuszem) Ustalić go można prosto korzystając z: [syntax=vbscript]OstArk = ActiveWorkbook.Sheets.Count[/syntax] skopiować na koniec: [syntax=vbscript]Sheets(OstArk).Copy After:=Sheets(OstArk)[/syntax] i ostatni krok ze zmianą nazwy: [syntax=vbscript]...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
chodzi mi chyba o coś innego. chciałbym aby formuły które mam w pliku wynikowym "czerpały dane" nie z arkuszy w tym samym pliku (arkusze kopiowanie z innych plików) ale bezpośrednio z innych plików. Wiem, że w formule mogę wpisać skąd ma czerpać dane ale problem w tym że co miesiąc pliki z danymi inaczej się nazywają i inaczej nazywają się arkusze w...
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
Załącz plik, bo tak można długo wymyślać możliwe przyczyny. Czy w tym arkuszu istnieje obiekt o nazwie ScrollBar2? Czy możesz się do niego odwołać w trybie bezpośrednim?
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Dzień dobry, Muszę przygotować zestawienie w postaci dokumenty Worda na podstawie danych które mam w arkuszu Excela. Napisałem makro Excela, które uzupełnia przygotowany szablon w Wordzie danymi i wykresami z arkusza Excela (oba pliki w załšczaniu). Makro pobiera dane z arkusz i wkleja do pól szablonu Worda tam gdzie sš ustawione zakładki (bookmarks)...
Wszystko jest do zrobienia. Jeśli chcesz umieszczać obszary w zmiennej rang , wystarczy zmienić przypisanie elementu /rn = rang(i)/ na pętlę for, przypisującą adresy komórek z tych obszarów. Np If lub Select Case w pętli For Each . Wyłączenie obsługi błędów (On Error Resume Next) spowoduje, w przypadku braku arkusza w pliku, jedynie przypisanie pustego...
Witam, Próbuję stworzyć makro, które będzie zrzucało plik excela do PDF. W zależności od opcji wybranej w ComboBox2 , plik powinien zmieniać nazwę w wydruku i jednocześnie pokazywać zmiany w kalkulacjach itd. ComboBox2 znajduje się w kilku arkuszach. Z założenia przy zmianie ComboBox2 na jednym arkuszu, wartość ComboBox2 na innych powinna się zmieniać....
Może to dlatego, że w takiej formie jak to podałeś teraz, funkcja aktualizuje dane tylko z otwartego arkusza o takiej nazwie. Żeby aktualizować dane z arkusza umieszczonego w jakiejś konkretnej lokalizacji, powinieneś podać pełną ścieżkę do niego. Spróbuj przerobić kod w podobny sposób jak przykład poniżej (zwróć uwagę na zmianę nazwy arkusza na pełną...
potrzebowałbym makro które łączy ze sobą pliki excel w jednym katalogu na pulpicie i zmienia nazwy arikuszy na arkusz 1.[nazwa 1 pliku] , arkusz 2.[nazwa 2 pliku] a jeżeli arkusz jest pusty to go nie łaczy
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,...
Czyli po prostu wg matematycznej zależności... Zmyliło mnie to, bo przecież to się wzorem opisuje :) For I = 1 To 400 Sheets("Zduńska Wola K.").Select Cells(I, 7).Copy Sheets("Arkusz3").Sele... Cells((I - 1) * 63 + 18, 3).Select ActiveSheet.Paste Link:=True Cells((I - 1) * 63...
dobrze, inne osoby nie działa z arkusza 1? plik Pana powinny być wspólne dla reszty. Jest pożądane, który można otworzyć bez ostrzeżenia "do odczytu" Pytanie 2 jako makro musi znać nazwę pliku "statystycznego", bo to może mieć inne pliki do nagrania na arkuszu po zamknięciu, zamiast otwierać je na statystyki ==akrusze w całości ze wszystkich plików...
Kopiuje z pojedynczej komórki do zakresu scalonego który ma swoją nazwę. //wcześniej pomyliłem zmienne wksz,wksdo //status to nazwa scalonego zakresu //arkusz wksdo - jest aktywnym otwartym arkuszem fpath = ActiveWorkbook.Path fname = ActiveWorkbook.Name Workbooks.Open FileName:=fpath & "\Baza.xlsx" Set wksdo = Workbooks(fname).Sheets("Arkusz1") Set...
Przykład kopiowania danych dla wykresu z arkusza "baza-a.xls". Zostawiłem tę samą nazwę, żeby nie było potrzeby przerabiać później kodu. Makro szuka pliku "baza-a.xls" w tej samej lokalizacji, jeśli jest inaczej trzeba zmienić 3 linijkę kodu (podpowiedź w makrze) W pliku "baza-a" do filtrowania i kopiowania makro wykorzystuje kolumnę "O" i "Arkusz2"...
Trochę czasu wolnego się trafiło, poczytałem toiowo, i znalazłem może niezbyt eleganckie ale dosyć satysfakcjonujące rozwiązanie mojego problemu. Tylko brak mu automatyzacji i całościowego podejścia jeszcze. Są dwie kolumny, w jednej nazwa towaru po polsku (A), w drugiej ma być po angielsku (B). Część drugiej jest już przetłumaczona, więc niektóre komórki...
Witam Pracuję codziennie z takim samym plikiem excell posiadającym jeden arkusz, aczkolwiek za każdym razem nazwa tego arkusza się zmienia. Aby zautomatyzować sobie dalszą obróbkę danych potrzebuję makra, które zmieniałoby tę nazwę na nazwę wybraną przeze mnie. Dzieki
Udoskonalając dalej swój arkusz zastanawiam się czy jest możliwe utworzenie rozwiązania dla poniższego problemu: W swoim skoroszycie posiadam arkusz pt."Zestawienie ogólne" , który jest listą wszystkich arkuszy towarowych, arkuszy towarowych może być nieskończoność. Arkusz towarowy jest listą produktów , które dojechały do hurtowni, a wiersz sumy na...
Dziękuję JRV :) Szczerze mówiąc trochę mnie przytkało że kilka linijek kodu może robić taką robotę, tym bardziej ochota na start nauki VBA. Przetestowałem kilka zmian które będę musiał wykonać i wszystko działa szybko i zgodnie z założeniem. W sumie nawet lepiej niż w pomyśle 1, bo makro kopiuje dane bezpośrednio z plików "zrodlo", plik zbiorczy służy...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Wielkie dzięki. Udało się :) Makro wygląda tak [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "D:\Test\" plik = Dir(katalog & "*.xls")...
Wierszy by było około 5tys. i są to podobne wartości (raport kasowy) Jeżeli wszystkich 5 tys wierszy to nie ma sprawy. Excel ma w jednym arkuszu 65.635 wierszy w każdej kolumnie. Jeżeli w każdym arkuszu masz po 5 tys to razem 600.000 wierszy więc jeżeli już to trzeba to będzie rozdzielić na parę kolumn. Kolumn jest w 2007 do IV czyli 256. A tak już...
Plik w załącznik Konkretnie chodzi o to że po podaniu nazwy która jest w pierwszej kolumnie podaję starą cenę która np jest w 7 kolumnie ale w tym samy wierszu i podaję nową cenę i wtedy makro zamienia wszystkie ceny oleju w całym arkuszu na nową cenę.
Musisz jednoznacznie nazwać te obrazki, ja w przykładzie nazwałem je pic1 i pic2 (klikasz na obrazek w arkuszu i w lewo od paska formuły wpisujesz nazwę, jak w moim przykładzie klikniesz na obrazek to znajdziesz). Do tego makro, które przy każdej zmianie arkusza DANE będzie sprawdzać zakres komórek D14:D19 (oczywiście zakres ten możesz rozszerzyć, jeśli...
Witam. Od dłuższego czasu szukam i nie znalazłem nic co w pełni spełniałoby moje oczekiwania. Poszukuję opcji (pewnie makra) które działałoby i blokowało możliwość wklejania wyciętej komórki/komórek. O ile to możliwe najlepiej było by aby w chwili wyboru opcji "wytnij" zadziałała opcja "kopiuj" i wartości z kolumn zostały by skopiowane i wstawione "jako...
Witam potrzebuje kilku porad odnośnie excela 1. Formułę lub makro do automatycznego wstawiania formuły przy kopiowaniu arkusza. Przykład: w arkuszu2 w polu B2 jest formuła =DANE!H5 czyli przenosi mi wartość z arkusza DANE pola H5 i teraz przy kopiowaniu arkusza2 i zmianie nazwy na arkusz3 chce żeby w polu B2 była formuła =DANE!H6 itd. 2. formułę lub...
Ja pisząc makra w VBA zawsze sobie deklaruję odwołanie do poszczególnych arkuszy, dzięki czemu łatwo można się później po nich poruszać. Robi się to w ten sposób: Set wssg = ThisWorkbook.Worksheets("Strona główna") gdzie ThisWorkbook oznacza - jakże by inaczej ;), bieżący dokument Excela. Jeżeli otworzysz plik w ten sposób: Set wb...
1. ... makro które zmieni nazwę arkusza na występujące w pewnej komórce. 2. ... następnie ... zapisało ten arkusz osobno pod nazwą tego arkusza. 3. ... + jeżeli w folderze występuje plik o takiej samej nazwie wyłącza cały program bez żadnego zapisu ... 1.[syntax=vba] Sub zmien_nazwe_arkusza() Application.DisplayAlerts = False If ActiveSheet.Name =...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
Tu zaczynają się cuda. To może podrzucę kanister z wodą? :) Poważnie: Umieść oba makra w module i precyzyjnie "wskaż" Excelowi, którego arkusza dotyczy kod. Przykład z kopiowaniem[syntax=vb]With Sheets("Arkusz3") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues 'pozostałe mają ustawienia domyślne Application.CutCopyMode...
Dzięki za wyjaśnienie JRV , robiłem podobny błąd w innych przypadkach. Mam prośbę, mógłbyś zaproponować rozwiązanie dla poniższej sytuacji. Mianowicie mam w jednym arkuszu dużą liczbę nazw, które będę chciał później pogrupować, w tym celu chciałbym aby makro zmieniało nazwy na podstawie bazy w drugim arkuszu (załączyłem przykład o co mi chodzi), próbowałem...
Bardzo bardzo dziękuję! Praktycznie o to mi chodziło. Natomiast jeszcze 2 pytania: 1) Czy duża byłaby zmiana w kodzie gdyby dla braku nazwy czy braku numeru w arkuszu config, makro nie wyświetlałoby komunikatu tylko pozostawiało stare wartości w kolumnie z nazwą? (Arkusz1) Po prostu żeby wtedy przechodziło dalej do kolejnej linijki nic nie robiąc.....
aby program VBA zmieniał automatycznie nazwę tabeli A próbowałeś poprzez nagranie makra ? Otrzymasz całą składnię szybko i bezproblemowo, potem tylko dołączyć do właściwości ".Name", tabeli, właściwość ".Name" bieżącego/danego arkusza.
Pomyśl, jak radzi kolega PRL . Przecież jeśli wstawiasz kwerendę With ActiveSheet.QueryTables.Add(Conne... to wystarczy jak na początku pętli dopiszesz wstawianie nowego arkusza (nagraj makro i przekopiuj), nadanie mu nazwy i aktywowanie (niekonieczne, bo nowy=aktywowany, ale dla porządku). Razem 3 (słownie: trzy) linijki ;) Pomocna uwaga: Nowo wstawiony...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
(at)Paweł - ale hurtowa zmiana nazwy w TC to też żaden problem ;)
Cześć Mam problem, którego sam nie potrafię rozwiązać i liczę na Waszą pomoc :-) W dużym skrócie mój problem polega na tym, że mam dwa zakresy danych, na podstawie wartości z jednego zakresu muszę wyszukać wartość w drugim zakresie, jeżeli makro znajdzie tą wartość to zostawia ją bez zmian, jeżeli natomiast wartości w zakresie jest brak to usuwa cały...
:) Widzę że kolega tele3 jest fanatykiem stosowania VBA :) Można i tak :) Ja jednak jestem przy "klasyce": "Moje" sortowanie z kolumną pomocniczą (żółtą) i sortowanie bąbelkowe w VBA na to samo wychodzi. No prawie: różnica dotyczy tych samych ilości defektów. W VBA ustawia je "od tyłu" (od końca występowania) - jeżeli tak ma być w przypadku funkcji...
Należy rozumieć, że ta "baza danych" też jest w Excelu ? i wypróbowałeś już wszystkie "zwykłe" metody odwołań i łączy :?: Tak, baza to po prostu arkusz w excelu. Wydaje mi się, że próbowałem już wszystkiego i nic nie zapewnia takiej funkcjonalności jaka byłaby optymalna. Tak jak pisałem, mam w tej chwili formuły które dają radę to wyciągać (z użyciem...
Jeżeli chodzi o dynamiczną zmianę samego arkusza nie było by problemu ale tobie chodzi o zmianie ścieżki a właściwie nazwy pliku. Właściwie nie ma formuły excelowskiej by to uzyskać. ADR.POŚR() sobie z tym nie poradzi. A właściwie innej wbudowanej funkcji nie ma. Pozostaje tylko makro lub .... inne "pobranie" danych Jeżeli zdecydujesz się na makro to...
Ok Jeszcze mi choroba nie minęła ale ... proszę przykładowe rozwiązanie Zwróć uwagę że poprawiłem dane w arkuszu BAZA (zmiany na czerwono) Jeżeli tak nie może być to pisz. Wynik też troszeczkę się różni od twojego (chodzi o "dublowanie" nazwy) jeżeli to również ci nie odpowiada a nie poradzisz sobie z poprawą makra to też pisz. Z tym że nie mam obecnie...
Panie Macieju, serdeczne podziękowania, zrobiłem wstępną próbę i wygląda na to, że makro spełnia dokładnie moje oczekiwania :)) Jutro wprowadzę pełne dane do Arkusza2 i zobaczę jak się wtedy zachowa skrypt. Parę linijek tekstu co mieisąc zaoszczędzi mi ze 2 godziny roboty. Gdyby Pan miał chwilę i podesłał jeszcze jedną zmodyfikowaną wersję, w której...
Witam. Ponieważ na innym forum nie uzyskałem jak dotąd pomocy to może tutaj znajdzie się pomocna ręka. Mam problem , którego ja sam nie mogę rozwiązać od jakiegoś czasu , a który nie pozwala mi spać (autentycznie - to nie przenośnia). W załączniku mam tabelkę. Arkusze "target" oraz "wykonanie" to łącza do skoroszytów , które będą ulegały zmianie. Zmiana...
Bez makr, przy pomocy funkcji LOS oraz kilku kolumn pomocniczych, wychodzi jak na obrazkach. Ze względu na formuły tablicowe, przeliczanie trwa 2-3 sekundy: http://obrazki.elektroda.pl/6362680900_1... http://obrazki.elektroda.pl/4153628300_1... przemyśl jeszcze ;) Jeśli makro, to () sprawdzanie w pętli wartości...
Witam, Makro zwraca błąd method range of object _global failed. Prośba o pomoc - co jest nie tak?[syntax=vbnet][/syntax] Sub copy_nazwy_kolory() Dim i As Integer, j As Long, wynik As Long, wiersz As Long, zakres As Variant Dim kol As String wiersz = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count zakres = Range("f1:f" & wiersz) For...
Dziękuję! [syntax=text] Sub makro_1() Dim Zakl As Worksheet 'pojedynczy arkusz Dim Nazwa As String 'nazwa arkusza Dim Numer As Long 'numer arkusza Dim LiczbaArkuszy As Long 'liczba arkuszy w pliku LiczbaArkuszy = Worksheets.Count Sheets(Array("Arkusz2", "Arkusz3", "Arkusz4", "Arkusz5", "Arkusz6", "Arkusz7", _ "Arkusz8", "Arkusz9", "Arkusz10", "Arkusz11")).Select...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
Można to robić i makrem ale może wystarczy skorzystać tylko z ... "zamień" Bo przecież chodzi tylko o zmianę nazwy pliku źródłowego w formułach (tak to zrozumiałem). Otwierasz plik w którym są już formuły do skoroszytu z poprzedniego miesiąca. Zaznaczasz wszystko (Ctrl+A) na arkuszu. Wciskasz Ctrl+H (lub z menu Edycja wybierasz "zamień..."). W okienku...
Witam serdecznie wszystkich. Mam takie pytanie, czy da się napisać makro tak żeby z kilku arkuszy automatycznie kopiowało się do jednego arkusza. Wiem że temat był już poruszany nie raz ale już od kilku tygodni szukam właściwego makra i nic. I tu wielka prośba do Was o pomoc. Potrzebuje gotowe makro bo ja jestem BARDZO słaby w tym temacie a dokładnie...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Dzień dobry, mam skoroszyt w którym jest 3200 arkuszy i każdego arkusza mam do skopiowania klika wybranych danych do kolejnych kolumn kolejnych wierszy podstawowego arkusza BAZA. Usiłuję napisać makro, które z każdego z tych arkuszy by przenosiło wybrane dane, utknąłem na takim etapie jak procedura podstawowa ma wrócić po kolejne dane do tego wybranego...
O ile mi wiadomo takie cuda nie są możliwe Oj, zapomniałeś o zdarzeniu 'BeforeSave'. Przy "zapisz jako" argument SaveAsUI przyjmuje wartość True. Przy "zwykłym zapisz", False. Można to wykorzystać (zapisać z podstawioną nazwą, następnie "zCancelować")... W sumie lepiej byłoby (przy w/w zdarzeniu) wyeksportować arkusz do nowego pliku (będzie bez makr),...
Jeżeli przez 10 dni nie ma żadnej reakcji, to powinieneś się zastanowić, czy pytanie jest zrozumiałe. Teraz podbiłeś pytanie, ale nic w nim nie uzupełniłeś. Załącznik nie zawiera żadnych makr ani formuł, tylko losowo wpisane liczby 1, 2, 3. Piszesz, że w pierwszej tabeli nie będzie pustych wierszy, a wiersz 25. (w arkuszu) jest pusty. Zatem nie wiadomo,...
"dodawanie" (Arkusz 3, G2) dodawało go automatycznie do listy do Arkusz1 jako kolejną pozycję Tylko, że musisz zablokować makro, które tam występuje (Blokada). Zmiana nazw zakładek: ''Arkusz3''=>''Odczyt skanerem''; ''Odczyt skanerem''=>''Lista'' 885424
Mam taki problem, że w arkuszu z planem produkcyjnym co tydzień muszę zmienić źródło danych. Źródło jest =dysk/folder/[nazwa pliku week 20]Monday'!$F$3 I co tydzień poprzez ctrl+f zamieniam wszystkie frazy "week 22" na "week 23" itd. Chciałabym napisać takie makro, że wpiszę w komórkę a1 tekst week 22 a w komórkę b1 tekst week 23 i makro samo przeprowadzi...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Witam, mam stare makro na kilka stron a4 napisane jeszcze pod windowsem 2000. W firmie wszystko przeszlo na nowe windowsy poza jednym komputerem. Makro niedziala pod nowym excelem i wykrzacza sie w momencie wklejania. [syntax=vb] Worksheets("Working").Select Range("a1:iv65536").ClearContents Range("a1").Select ActiveSheet.Paste If ActiveCell.Offset(11,...
Ze mnie jest kombinator, a że nikt nic nie odpisywał no to zacząłem próbować... Nie znam się dobrze na VBA, ale podszedłem co do zasady, że w nawiasach są parametry funkcji... tak więc zamiast "x1Value" trzeba podstawić takową... No i okazało się, że makro działa dla: ActiveChart.Axes(1).MinorGridlin... ActiveChart.Axes(2).MinorGridlin...
Dzięki za pomoc. Niestety mam kilka wykresów w arkuszu. Próbuję dokonać edycji całego wykresu (czyli wszystkich zmian, zakresu, nazw osi itp.) za jednym razem łącznie w ciągu makra. ostatnia uwaga co do zakresu - to zanim generuję wykres muszę zmienić zakres serii wykresu - bo czyta on inne, te które zostały wstawione wcześniej. Zaimplementuje Twoje...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
Adamas w międzyczasie pojawił mi się jakiś babol... Nie zmieniałem makra ani plików, ale teraz po imporcie arkuszy nie mogę zapisać pliku, w którym zostały one wgrane. Nie pomaga zmiana nazwy ani zmiana lokalizacji plików na dyskach. Po usunięciu zaimportowanych arkuszy można zapisać skoroszyt. W załączniku komunikat, który mi wyskakuje. Dodano po 2...
Witam jak zmienić w exelu 2003 domyślnego koloru obramowania komórki z czarnego na inny kolor? Chodzi o komórkę która jest widoczna zaraz po uruchomieniu programu. Czy jest to w ogóle możliwe? Tak, to jest możliwe. 1. Nagraj makro formatowania komórki. Prawdopodobnie trzeba je będzie trochę przerobić, ale to zostaw na później. Najważniejsze abyś przy...
wchodząc alt+f11 otwiera się VB ale tam np nie widzę możliwości edycji pierwszej zakładki Menu Całe to rozwiązanie pliku magazynowego oparte jest o tzw. formularze arkuszowe i kilkanaście makr 1048212 które przypisane są do poszczególnych przycisków w tych formularzach :idea: :D Nie wystarczy samo odblokowanie arkusza i jego swobodna modyfikacja :cry:...
O którym przykładzie piszesz? W ostatnim z przedstawionych nie ma makra. Wszystko opiera się na formułach excela. Odkryj kolumny od K do Q a zobaczysz "silnik" funkcji zmieniającej cyfry w słownie. Ja z kolei korzystam z własnego rozwiązania bez makr: dodatkowego arkusza i własnych nazw. Poniżej przykład Końcówkę w stylu "zł" można dodać w ostatniej...
Nie wiem, czy mogłoby to ułatwić temat, bo właśnie skończyłem manualne obrabianie tego pliku. I wiem, że dane z poszczególnych wierszy można kopiować np w ten sposób: Dane z pod wierszami A1-G1 do wierszy G2-N2 i da sie kilka takich potrzebnych wierszy wpisać jako stała. Lecz potrzebne byłoby sprawdzenie, czy nazwy danych nie uległy zmianie tzn wiersze...
Do przemieszczania się pomiędzy arkuszami w pętli zamiast nazw arkuszy użyj indeksów (znaczy numerów arkuszy). Numer 1 należy do pierwszego arkusza. Nie myl z numerem arkusza w nazwie. Po zmianie kolejności arkuszy indeksy też się zmieniają. W pętli z pkt 4 umieszczasz dwie ostatnie linijki kodu z pkt 3. Przed pętlą pkt 1, 2 i pierwszą linię z pkt 3....
Witam, mam następującą zagwozdkę. Mam kilkanaście plików. Jeden z nich ma kontrolować czy są wypełnione dane komórki w pozostałych plikach. W plikach, które wypełniają pracownicy jest makro, które powoduje po kliknięciu przycisku powstanie nowego arkusza z pustą tabelą o nazwie "przekazanie zmiany" &date i ukrycie poprzedniego arkusza. Oba pliki chciałam...
Ten arkusz nie dopasowuje się automatycznie do zmienionej liczby danych. Trzeba przejrzeć zakresy i dokonać poprawek, gdzie trzeba, również zakresy danych w xn w Menedżerze nazw i na wykresach trzeba zmienić. Dla ułatwienia wyliczyłem Panu literowe oznaczenia kolumn kończących zakresy. W tym poprzednim przykładzie, gdzie było już 320 punktów, ten arkusz...
Witam! Chciałbym osiągnąć następujący efekt. Mam plik excel o nazwie "tygodnie" w którym kolejne arkusze nazywają się T-1, T-2, T-3… nazwy oznaczają tydzień w roku kalendarzowym i są tworzone z tygodniowym wyprzedzeniem, czyli arkusz T-16 jest dodawany dopiero w tygodniu 15 itd. W kolejnym pliku o nazwie "suma pól", którego lokalizacja jest inna...
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
Chodziło mi o nazwę typu: i , które pozostaje = 0.
Jeżeli nie ma takiej możliwości, to będę wdzięczny za pomoc przy makro Jak widać w Twoim pliku jest on naszpikowany makrami korygującymi zapis czasu :D w takim układzie proponuję dodać tylko jedno makro (w module uniwersalnym), które podsumuje Ci wszystkie komórki H1 z analizowanego miesiąca - wybierasz np. arkusz "lipiec - suma" i uruchamiasz kod...
jednak ładowanie arkusza do tablicy trochę trwa ... "zależy jak leży" ... są sytuacje kiedy "nic nie pomoże" i wtedy rzeczywiście tak jest, ale w większości są to dość szybkie "kody", przykład na zwykłych tablicach: (wydaje się że 1:1 w stosunku do kodu "kończącego sobotę") Sekcja-Odpowiednik => .Range("A" & el).EntireRow.Delete " można skrócić...
Dzień dobry, Operacja konsolidacji jest z założenia operacją statyczną. Jeżeli włączy Pan opcję tworzenia łączy, to utworzy się tzw. konspekt, który też zawiera łącza statyczne. Będzie to działać poprawnie tylko wtedy, gdy będzie Pan zmieniał długości kabli, ale każda zmiana nazwy pozycji wymaga skasowania starej konsolidacji i utworzenia wszystkiego...
makro zmiana nazwy arkusza makro sprawdzanie nazwy arkusza excel zmiana nazwy arkusza
hyundai obrazu grubo drutu nawojowego silnik magnetofonu obroty
sharp 40bg5e zmniejszenie obrotów wentylatora
Bosch Motronic 2.1 J00005 EPROM Meaning for BMW, Volvo, Saab – Not a Fault Code Volvo SH380 – demontaż prawej strony deski rozdzielczej, instrukcja krok po kroku