Oświeciło mnie. Można to zrobić w prostszy sposób. Jeszcze raz to opiszę, mam dwa otwarte pliki, w jednym pliku jest to makro i nazwa tego pliku się zmienia natomiast ten drugi plik ma stałą nazwę więc może ona być na sztywno. Pomyślałem że można po prostu zastosować coś w stylu ThisWorkbook.Activate dla pierwszego pliku. Obecnie kawałek kodu wygląda...
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ż...
Tak jak już pisałem poprzednio funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze adresy, a Ty próbowałeś jej użyć tablicowo. Tu można jedynie próbować z funkcją LAMBDA, ale obawiam się, że to będzie wolniej działać niż VBA, a z resztą już i tak masz tę funkcję URL z VBA, więc po co mieszać różne technologie. Funkcja URL wymagała nazwy kwalifikowanej,...
Ad 1. Tu należy zwrócić uwagę, że każdy arkusz ma w VBA dwie nazwy, tzw. nazwę "zakładkową" - widoczną na zakładce arkusza i nazwę kodową - dostępną tylko w VBA. Te nazwy są początkowo identyczne, ale użytkownik może je zmieniać niezależnie, więc mogą później się różnić. Jeśli piszemy odwołanie: Jaka jest różnica pomiędzy: ActiveCell.FormulaR1C1 / ActiveCell.Formula...
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....
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Przy odświeżaniu pliku potrzebuję aby wykres ten został usunięty. W jego miejsce makro tworzy nowy w oparciu o aktualne dane. Jeśli wykres jest tego samego typu i nie zmienia się układ danych, tylko dochodzą nowe, to po co usuwać wykres ? Wystarczy "rozszerzyć" zakres danych dla wykresu już istniejącego ... ? : / ?
Wklej kod w zdarzenie arkusza. Stringi masz podstawione pod zmienne, więc ActiveWorkbook.SaveAs FileName:=Path & "\" & Name Nie wiem, czy Excel nie zjeży się na te nazwy. Zmień na polskie: Sciezka, Nazwa . Usuń te dwie linie rozpoczynające się od "Set", są zbędne. Jeśli to ma być kopia oryginału (obie zapisane), to pierwsza linia Thisworkbook.Save...
Witam serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
Mam rozbudowany arkusz excela z nazwami artykułów oraz cenami. Chciałem zrobić makro które znajduje dany produkt po nazwie i zmienia jego ceny zawarte w tym samym wierszu co nazwa w całym arkuszu Przykład Olej 1,50 Czekolada 2 zł Olej 1,50 Sól 1 Po wpisaniu nazwy produktu np olej w drugim okienku wpisuję cenę i funkcja zmienia mi wszystkie ceny dla...
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
Witam, Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
Cześć, potrzebuję stworzyć makro które będzie usuwało kolumny po nazwie nagłówka. Liczba kolumn w arkuszu może się zmieniać ale nazwy kolumn będą te same. Dodaję przykładowy plik w którym chciałbym usunąć kolumny o nazwie "warunek" i "licznik". Myślałem o takim kodzie ale może można zrobić coś prostszego? Nie za bardzo też wiem jak poprawnie tym sposobem...
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ć....
Witam, Chciałbym poprosić o makro które kopiowało by nazwy wszystkich Arkuszy z pliku i kopiowało je kolejno do pierwszego arkusza. Plik zawiera wiele arkuszy od Arkusz 1 do Arkusz n (o różnych nazwach). Chciałbym aby jego lista pojawiała się się w pierwszym arkuszu "Lista"od komórki A2 do ilość arkuszy. Dodatkowo w każdym z arkuszy jest "check box"...
To makro naprawdę ci coś kopiuje? Jakoś tego nie widzę, albo kopiuje w sposób którego kompletnie nie rozumiem. Proponuję zacząć od początku: 1. Skąd masz listę nazw plików? Jest stała, czy się zmienia? Może lepiej zrobić pętlę po wszystkich plikach o pasujących nazwach. 2. Dopisz to kopiowanie: [range].copy, [workbooks(...)].activate, [range].Paste...
Dzień dobry, Mam plik Excela w którym każdy z arkuszy zawiera podobną tabelę. Szukając na forum znalazłem makro kopiujące wybrany arkusz wzorcowy i zmieniające jego nazwę na kolejną o 1 wyższą. W tym przypadku wygląda to tak: [syntax=vbscript]Sub AddRecipe() Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Sheets("P000").Copy...
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
wiem, ale rejestrator nie zapisuje tego polecenia, a poza tym nazwa pliku ma być z automatu - jedno kliknięcie w przycisk i plik powinien zapisać się jako PDF z określoną nazwą, pobraną z komórki . Inne makro, które działa juz na tym formularzu automatycznie zmienia numerację i z tym nie ma problemu, Problem, by przenieść to teraz jako nazwę pliku......
Plik, który zmienia nazwę to plik z którego kopiujemy dane - Zlecenie prac na formie wtryskowej. Plik z arkuszem Import nie zmienia nazwy nigdy. W tym pliku wklejamy tylko komórki od S6:V6 z każdego jednego arkusza 1,2,3... z pliku Zlecenie prac na formie wtryskowej. Mam nadzieję, że jest jaśniej.
Nie wiem czy dobrze zrozumiałem myśl użytkownika "krzys.kas" Znawcy vba pewnie mnie wyśmieją za kod poniżej: Dodano po 1 Coś ala Nie mam drukarki. Jutro sprawdzę twój kod. Jestem przekonany że będzie działał. :D Dodano po 7 Zapomniałem podać że wartość TAK będzie zmienna. Nie jest wartością stała-przypisaną do arkusza. W jednym przypadku będzie 6 arkuszy...
Ja myślałem że należy skopiować wszystkie arkusze, tak od jednego użytkownika jest arkusz 1, ale jeśli następnie to są tej samej nazwy + 2...3 i itp. zapytał o to, ale nie otrzymał odpowiedzi Dodano po 2 ale teraz rozumiem, o co idze Dodano po 14 Ponieważ Total jest plik z powszechnego dostępu, następnie użytkowników może jednocześnie pisać w nim. Każdy...
We wszystkich makrach wartość Enabled przycisku 2 ustaw odwrotnie niż przycisku 1. Np Rzeczywiście pomogło wielkie dzięki. Teraz makro działa w ten sposób, że: Włączam plik "1">> wciskam "cmdsave">> program kopiuje mi wszystko to co chcę>> dezaktywuje się plik "cmdsave" ale niestety nie aktywuje się automatycznie "cmdexit" :(. zmienia się to dopiero...
Mam takie dane: 1. Krakow 2. Poznan 3. Warszawa wszystko w 3 komórkach czyli w A1 mam 1. Kraków i chciałbym te trzy komórki zaznaczyć i wyszukać w tym samym arkuszu poniżej czy nie ma tych nazw miast a jeśli sa to je zaznaczy na czerwono. Ten zakres który szukam czyli te trzy komórki mi sie nie zmienia. Zmienia mi sie tylko to co mam poniżej i niekiedy...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem,...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Komórki z nazwami nie muszą być warunkowe. Wystarczy =Menu!C10, =Menu!C12, itd. lub wpisz "z palca". Nazwę zakresu też już masz. Skopiuj makro "Druknij" i zmień: .PrintOut Copies:=1 na .PrintPreview Dla przykładu najpierw podmień sobie w "Druknij" i zobacz efekt.
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, w arkuszu mam 150 list rozwijanych typu combobox Makro ma wybrać 5 z nich i załadować do nich dane Listy mają nazwy Lista_1_01, Lista_2_01, Lista_3_01, Lista_4_01, Lista_5_01 z tym że ostatnie 2 cyfry zmieniają się od 01 do 30 i są brane z komórki F1 z tego względu że nie potrafię zrobić tego inaczej, napisałem coś takiego: [syntax=vbscript]Sub...
Cześć. Temat dla znawców błahy ale nie dla takiego laika jak ja. Mam 11 Arkuszów w EXEL2013.(MENU+ następujące nazwy:"arkusz1", "arkusz2" i tak do "arkusza10". I chciałbym zrobić przyciski, której mają następujące zadania: 1. Przenosza mnie do określonego arkusza( z "menu" do arkusza1 itd.). 2. W każdym arkuszu jest przycisk "wyczyść dane" ale tylko...
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.
Wykorzystaj funkcję wyszukaj.pionowo() z 0 (zerem) jako ostatni argument. Lub tak jak masz zrobione za pomocą wyszukaj() tylko zmień źródło z indeksu na nazwę i zakres kolumny przeszukiwanej na nazwy a nie indeksy. Jeżeli chcesz jednak makro to to podaj hasło do projektu makra lub zamieść załącznik z odblokowanym projektem makr.
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...
Cześć, od razu chcę poinformować, że jestem totalnie zielony 😉 tworzę plik w którym w Arkusz1 mam wzór raportu w którym w odpowiednich polach zmieniają się dane na podstawie wybranego dnia, a następnie drukowany do PDF. W Arkusz2 mam bazę danych na podstawie której wypełniany jest raport w Arkusz1. Każdy dzień w bazie to osobna kolumna. Takich raportów...
A Twoje makro mi nie poszło, mam info "subscript out of range". Masz otwarte obydwa pliki? Nie zmieniałeś ich nazw, ani nazw arkuszy?
Witam Zastanawiam się czy jest możliwość, aby makro skopiowało mi tyle arkuszy ile jest wypełnionych wierszy w arkuszu głównym. Dokładnie chodzi o to, że mam arkusz "Dane", w którym są podane pewne informacje dot. klientów (1 klient=1 wiersz) oraz arkusz "1", w którym są formuły pobierające dane z arkusza "Dane" z 3 wiersza (dane 1 klienta). Po dopisaniu...
Do kolegów i koleżanek zwracam z prośbą o pomoc. Exel 2010 jaki używam. Mam zeszyt o nazwie "Wzor program do składnic". W tym zeszycie są arkusze o następujących nazwach: "Informacja", "DANE", "ZASTĄP", "SCALANIE", "DATY_SKRAJNE", "SPIS". W tych arkuszach znajduje się wiele funkcji, które miały mi pomóc w uzyskaniu efektu jaki znajduje się w arkuszu...
Witam, Potrzebuję pomocy osób obeznanych z Excelem. Mam problem: tak jak w załączniku mam plik w którym pierwszy arkusz to lista osobowa z wartościami do niej przypisanymi. Drugi arkusz to zestawienie ogólne (nieistotne dla mojego problemu) a kolejne to arkusze osobowe których nazwy to imiona i nazwiska osób. Wszystkie te arkusze są identyczne tylko...
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...
Proszę o pomoc w makrach Stworzyłem arkusz do obliczeń. Makro które zarejestrowałem importuje mi do "Arkusz1" dane z pliku o określonej nazwie. Nie wiem jak stworzyć makro by nazwa tego pliku była pobierana z komórki o adresie np: D1 arkusza "Obliczenia" znajdującego się w tym samym skoroszycie Moje makro: Sub pobieranie_danych() ' ' pobieranie_danych...
Ale co ma ci sie aktualizować jeżeli makro "przeplywy" zwraca ci cyfrę a nie formułę do komórki G7. Mylę się? Co masz po uruchomieniu makra w komórce G7? Jeśli chcesz aby ci zaktualizowało uruchom jeszcze raz makro "przeplywy" lub zmień jego kod. Z tym że obawiam sie że wprowadzenie w jednej formule 50 nazw plików z ich ścieżkami dostępu przekroczy...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Usunąłem kolumnę F . To co się wpisze w dodatkowe okienko pojawi się w tej samej kolumnie co główny wpis (E) za "wpisem głównym" Wprowadziłem w funduszu remontowym i danych że jeżeli (iif) wartość 0 to "" Co do czyszczenia usunąłeś jeden arkusz dlatego makro "zgłupiało". Zmieniłem kod i uzależniłem "czyszczenie" od nazwy arkusza a nie od jego numeru....
Zmień nazwę 1-go arkusza na "Brudnopis" A1 i B1 traktuję jako nagłówki, czyli dane zaczynają się do 2-go wiersza Otwórz Edytor VB i w kod arkusza 'Arkusz3' wklej Private Sub Worksheet_Activate() Range("A1") = "Kod" Range("B1") = "Nazwa" Application.ScreenUpdating = False IleWierszy = Worksheets(1).Range("A1...
Arkusze mogą mieć zmienną ilość kolumn, nie zmieniają się nazwy ani ustawienie. Będę wdzięczna za jakiekolwiek rozwiązanie.
Hej, poniżej fragment kodu, który napisałam i działa on dobrze dla jednego arkusza: j = InputBox("liczba, którą mam znaleźć", "Szukana", 10960) k = WorksheetFunction.Match(j, Range("B1:B3000"), 0) NameAB = "A" & k w excelu mam dwie kolumny A i B. Załóżmy, że w kolumnie A mam jakieś liczby (niech będą jedynki i dwójki), natomiast w kolumnie B też mam...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Witam, Potrzebuje makra, które na podstawie istniejącego arkusza(pliku excel) np. zestawienie, stworzy mi arkusze w innym pliku(Formatka z przyciskiem makro odwołująca się do "zestawienia") 1.Arkusze te mają mieć nazwy tak jak w kolumnie "nazwa". Czyli według załączonego obrazka ma być 9 arkuszy (wartość ta będzie się zmieniać). (Np. raz będzie 9 raz...
Witajcie Na wstępie informuję, że dopiero uczę się Excela i nie idzie mi to tak łatwo. Główny problem polega na tym, że mam w Arkuszu1 pracowników, którzy mają kilka certyfikatów. Certyfikaty są wpisane u góry i zmieniają się w pozycji poziomej, czyli: certyfikat 1 ; certyfikat 2 ; certyfikat 3 itd. Jeśli dana osoba ma pierwszy certyfikat to pod tym...
Nie podałeś właściwego pliku :cry: , nie znam Twojej drukarki etykiet :cry: Spróbuj zamiast tego zarejestrowanego makra (z powtórzonym 3x wydrukiem :D ) poeksperymentować z poniższym kodem :spoko: Oczywiście z właściwym plikiem i z zainstalowaną w systemie drukarką Citizen :idea: [syntax=vbscript]REM ***** BASIC ***** Sub Drukuj() Dim oDoc as Object...
Nie mogę sobie poradzić. Niestety wyskakuje informacja "Nie można przypisać obiektu źródłowego". a potrzebował bym dowiedzieć się co może w nim nie styka. Jeżeli można prosić o pomoc to z góry dziękuje Dodano po 13 plik który jest do odczytu i zmienia sie w nazwie końcówka nazwy ar = Array("KolumnaC", "KolumnaF", "KolumnaH") ok = Cells(1, Columns.Count).End(xlToLeft).Column...
Cześć. Jest to mój pierwszy wątek na tym forum dlatego pragnę się przedstawić. Mam na imię Darek i troszkę bawię się excelem ale nie makrami. Stąd prośba o szczególną pomoc. Nie poradzę sobie z tym sam poradzę. Potrzebuję makro, które będzie mi kopiowało dane. Mianowicie: W Arkuszu1 znajduje się zakres komórek załóżmy od A1:A10 wpisane są nazwy. W kolumnie...
WIELKIE DZIĘKI. To właśnie potrzebowałem. Jeśli teraz musiałbym zmienić żeby ta tabela tworzyła się w innym arkuszu, to gdzie muszę dodać to: nazwa_arkusza! w którym miejscu w makro? Juz wstawiłem coś takiego "Arkusz2!" przed każdym G5 i F6 ale nie działa to przy: Range(Cells(5, "Arkusz2!F"), Cells(zakrOd, zakrDo)).ClearContents...
cienki jestem w programowaniu. Przedstawie sytuacje: -otwieram plik *.xls -w nim jest 30 arkuszy o nazwach od arkusz1 do arkusz30 -aktywnym arkuszem jest arkusz1 , -daje Narzędzia > makro> rejestruj nowe makro , daje ok i zaczyna mi "nagrywac" czynności -jako ze chodzi mi o ogólną zasade dzialania , czynnością jaką rejestruje makro jest "wstaw wykres"...
Musiałoby być cos takiego, sprawdź Sub CopyCount() Const wrt01 As Single = 72 Const wrt02 As Single = 15 Const wrt03 As Single = 13 Dim i As Integer, licznik As Integer, ark As String ark = "Arkusz2" ' nazwa arkusza docelowego licznik = 2 'pierwszy wiersz ark docelowego Sheets(ark).Range("A2... & Range("A2").End(xl...
Jeżeli kilku pracowników wykonuje taki sam przedmiot to ilość przeniesiona z zamówienia będzie nieadekwatna do stanu rzeczywistego (trzeba sumować ich produkcję). Proponuję działanie w druga stronę. W pliku z zamówieniami dodać kolumny z pracownikami i tam przenieść ilości przez nich wyprodukowane. Wtedy łatwo operować danymi. popróbuj z takim makrem....
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Cześć! Jest aktywna zakładka Bezpieczne stąd odwołanie do arkusza aero. Tak, liczba wierszy może się zmieniać, stąd odwołanie do ostatniej pustej. Variant, bo n jest zmienną. Long, gdyż p to kolumna wyczytałam, że tak powinna byc oznaczona. Sumy nie zadeklarowałam tylko określiłam ją jako =0, wylicza poprawnie, mimo wszystko trzeba ją zadeklarować?...
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....
Ja na Twoim miejscu przeprojektowałbym zupełnie ten plik, ograniczając go do 3-4 zakładek. Nie piszesz jak wygląda "proces" wprowadzania zamówień, czy to jest pełen asortyment oraz lista sklepów, czy tylko wycinek, ale to co sprawdza się przy 10 sklepach może zacząć być problemem, jak sklepów będzie 50. Moja propozycja jest taka: 1. Wszystkie informacje...
adamas_nt faktycznie jest mały problem z tymi wyjątkami. Najwyżej po zastosowaniu makra trzeba by było przejrzeć te nazwy własne i ewentualnie zmieniać je ręcznie. Możesz wstawić to makro którego użyłeś do poprawy znaków? Sam arkusz może być faktycznie trochę nieuporządkowany, jednak nie ja go tworzyłem. Marcin230 w załączniku plik PDF
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...
W przykładowym arkuszu: 1. Usuń "Przycisk 339" (jest wysoki na 1pkt.) Najprościej zaznacz widoczny przycisk i przesuwaj się tabulatorem. 2. Podmień makro, tu dobrze kombinujesz :) (porównaj sobie z tym co jest. Przyda się na przyszłość), ale trzeba szukać 4 elementów. [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count...
W przedstawionej procedurze eksportujesz (czy raczej usiłujesz ? :D ) do PDF dwa pliki komputer.xlsx i porto.xlsx :?: Planujesz zmieniać nazwy tylko plików komputer ? poprzez wprowadzenie do nazwy daty eksportu - formatowanej właśnie w takim stylu "yy.mm.dd" :?: czy też koniecznie oznaczyć datą z komórki A1 arkusza z makrem ? Proszę o wyjaśnienie
Witam, Mam problem z zakresem wykresu z VBA. Zależy mi na tym, by wykres zmieniał się w zależności od liczby "m". Przyjmuje ona wartość miesiąca otwarcia. "m+15" przyjmuje odpowiednią wartość kolumny, od których ma się zaczynać wykres, a kończyć się na konkretnej wartości 28 (dla 1 wykresu) i 27 (dla 2 wykresu). Makro dodatkowo weryfikuje czy arkusz...
Siema Na pierwszy ogień wziąłem makro zmieniające numery arkuszy wyszło mi coś takiego Private Sub Worksheet_Activate() 'Proc. wykonywana przy zmianie arkusza (Activate) Numery_Tygodni End Sub Private Sub Numery_Tygodni() Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Nazwa_1 = Sheets(1).Range("a1&quo...
Zrób wpierw symulację obciążenia takiego skoroszytu ze zdjęciami dla paruset/parutysięcy wierszy, bo może okaże się, że nie da się takiego zeszytu przeglądać. A zdjęcia przecież zawsze można spakować i przesłać zainteresowanemu, żeby je sobie rozpakował u siebie na dysku. Po co je wklejać do arkusza ? Zwłaszcza, że i tak niewiele trzeba, żeby "uszkodzić"...
Witam, Panowie mam problem. Przy użyciu rejestrowania makra, zarejestrowałem swoją operację, dla konkretnego pliku. Chciałbym ją codziennie używać, jednakże z każdym nowym dniem zmienia się nazwa samego pliku. Czy jest możliwość by poniższy kod działał bez względu na zmieniający się nazwę pliku ? Wyczytałem, że można by było zastosować "ActiveWorkbook.Name",...
Witam, Pierwsza sprawa - szybkość kodu... Ja stosuję dość uniwersalny trik z blokadą odświeżania zawartości na czas wykonania pętli, co znacznie przyspiesza szybkość działania każdego kodu. Przed pętlą wstawiasz: Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Po pętli: Application.ScreenUpdating = True Application.Calculation...
Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply parts of given (def = 40) rows excl one- sheet files '...
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
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, Wszystko się da jak się chce ;) Robisz to tak: 1. Tak jak pisali powyżej w procedurze która wysyła maila musisz mieć treść wpisywaną jako HTMLBody (zamiast Body) 2. Trzeba dopchać się do katalogu w którym masz swoje podpisy Outlooka a następnie "zassać" konkretnego podpisu kod HTML 3. Zassany kod trzeba dorzucić do treści maila w procedurze wysyłającej...
Przepraszam, przez roztargnienie trochę namieszałem. Wartości muszą być takie same w kolumnach od "B" do "F" oraz "H" oraz "K". W kolumnie "A" jest liczba porządkowa (czyli nieważna w tym przypadku), a w kolumnie "G" - liczba sztuk na komplet, co w liście produkcyjnej jest również mało znaczące. Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich?...
Podaj więcej szczegółów: Czy działasz na otwartym już pliku, czy makro ma je najpierw otworzyć? Ile plików znajduje się w lokalizacji? Co kryje się za: "plik formatka będzie zmieniał zawartość"? Czy będzie zmieniał się również układ danych w arkuszu, nazwa arkusza, ilość i kolejność arkuszy w pliku źródłowym?
na chwilę obecną poradziłem sobie w dosyć podobny sposób: 1.zapisałem sobie 2 puste pliki z zarejestrowanymi makrami 2.otwieram plik z logami 3.kopiuje zawartość do plików z pkt1 4.uruchamiam makro które mi przetwarza dane i tworzy pliki wynikowe-raporty właśnie mam taką sytuację ,że zmieniają mi się nazwy i kolejność arkuszy -,- trudno użytkownik będzie...
Cześć, szukałem w internecie po wielu miejscach sposobu na rozwiązanie problemu związanego z ochroną skoroszytu jednak rozwiązania nie znalazłem. Mam makra, które w odpowiedni sposób chowają, odkrywają arkusze oraz zabezpieczenia do tych arkuszy za pomocą hasła tak aby nikt nic nie zmieniał. Jednak chciałem jeszcze zrobić zabezpieczenia przed tym aby...
:arrow: adamas_nt Jak analizuje twoje kody to widzę że bardzo daleko mi jeszcze do pisania makr. Dzięki twojej wiedzy można było skrócić czas obliczeń (przynajmniej za pierwszym razem o parę sekund :) a nie milisekund,a drugie rozwiązanie też jest ciekawe) Adamas_nt 'owi należy się wielokrotne pomógł- a może nawet więcej] Ja już tylko skromnie dołożyłem...
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...
1. Patrząc po kodzie, to wcale nie formatujesz tabel tylko raczej zmieniasz ich zawartość, a formatowanie to dodatek - kawałek kodu po uporządkowaniu: [syntax=vbscript] Range("Tabela1[NAZWA TOWARU" & Chr(10) & "good''s name]").NumberFormat = "#,##0.00 $" '?Brak takiego nagłówka ? Range("Tabela1[ILOŚĆ" & Chr(10) & "amount]").ClearContents Range("Tabela1[WAGA...
Cześć, chcę stworzyć makro (przycisk w arkuszu), które będzie zapisywało plik jako wartość z komórki i dzisiejsza data. Lokalizacja pliku jest inna niż plik oryginalny. Napisałem następujący kod: Sub Zapis_Bizcase() Application.DisplayAlerts = False Dim Nazwa As String, Sciezka As String Nazwa = Range("T2").Value & " " & Date & ".xlsm" Sciezka = "C:\Users\was\Desktop\"...
Działa super! Jedyny problem - export.xlsx dostaję z zewnątrz, a jak makro przenoszę do innego arkusza .xlsm (oczywiście zmieniam ścieżki), to nie działa. [syntax=vb]Sub OrderBuilder() ' ' OrderBuilder Makro ' Order building ' ' Klawisz skrótu: Ctrl+q ' Workbooks.Open Filename:="D:\Desktop\NotWMS\działa\expo... Sheets("Sheet1").Select Dim lngLastRow...
Kolego JRV za diabła nie wiem o czym do mnie mówisz z excela jestem zupełnym laikiem więc bardzo Cię proszę, o co chodzi z tym odgadywaniem hasła? i nie bardzo rozumiem co to znaczy lub co mam z tym zrobić: wb.SaveAs ........... .Columns(5).Delete 'E pomocy proszę trochę jaśniej POZDRAWIAM I DZIĘKUJĘ Dodano po 3 Jeśli chcesz żebym podał hasło do ochrony...
Prawdopodobnie masz błąd w adresowaniu do obszaru! - sprawdz to. A wogóle zrób sobie (zarejestruj) macro w VBA i za każdym razem jak otrzymasz nowe dane uzupelni ci arkusz wynikowy. Jedyne o czym musisz bezwzględnie pamiętać to indywidualna i nie zmieniana nazwa (id) klienta. Uważaj na znaki niedrukowane typu spacja itp. Miałem kiedyś niezłą zagwozdkę...
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.
nie do końca wiem jak opisać moją potrzebę No to się postaraj.:) Staram się staram :) Póki co udało mi się znaleźć tworzenie osobnego arkusza dla każdej osoby z tabelą ( póki co niestety pustą). Dodano po 13 Nie napisałeś istotnej rzeczy - mianowicie, w której wersji Excela ma to działać? Jeśli w jednej z najnowszych (365 lub 2021), to można to rozwiązać...
Mam problem z edycją Makra ...Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. ...dość pilny temat Jeśli chcesz żeby ktoś Ci pomógł (i to pilnie :D ) - to daj "mu szanse" i pokaż swoje dzieło - załącz plik z testowymi danymi (jeśli to plik xlsm to umieść go w archiwum zip lub rar) :!:...
Witam. Proszę o poprawę stworzonego przeze mnie makra. [syntax=vb]Sub Macro1() ' usunięcie kolumn Columns("F:H").Select Selection.Delete Shift:=xlToLeft Columns("G:L").Select Selection.Delete Shift:=xlToLeft Sheets(1).Select Sheets(1).Name = "owssvr" ' zaznaczenie obszaru ActiveSheet.Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select...
Witam. Sprawa dotyczy pakietu Office 2016 W pliku excela .xlsm w niektórych komórkach umieszczam linki do innych plików które znajdują się na zmapowanym dysku sieciowym np. \\server\zasob\folder\plik.pdf Problem polega na tym że gdy przekopiuje główny plik excela do innej lokalizacji to linki zmieniają się na C:\Users\nazwa_uzytkownika\Roaming\Micro...
Czyli jak zdebugjesz to okienko to po wpisaniu w pola tekstowe wartości chcesz aby pojawiły się w tabelce ? jak da radę to tak Przypisz kod do klawisza OK. Tu masz przykład jak przepisać treść pola "przeznaczenie" do arkusza. [syntax=vb]Private Sub CommandButton1_Click() If CommandButton1.Caption = "OK" Then Range("C9").Value = TextBox1 'przeznaczenie...
Witam, Proszę o pomoc w napisaniu Makra. Informacje: Docelowy plik posiada 10 arkuszy z nazwami miast (załącznik4) Założenia: Makro powinno kopiować nazwiska z arkuszy z nazwami miast (kolumna H) wybierać unikaty, oraz kopiować je do co drugiej kolumny arkusza "Podsumowanie" począwszy od wiersza 9 (czyli pierwsza kolumna od A9, duga od C9 itd.) Przykładowy...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Cześć, bardzo dziękuje za pomoc :) Efekt końcowy jest prawie taki jak chcieliśmy uzyskać. Nie mam zastrzeżeń, do działania bo wszystko działa tak jak trzeba, lecz: 1. Zamienione są dane Firma 1 (t) z numerem karty. Firma 1 (t) - to wartość wyrażana w tonach, czyli MASA z dokumentu WZ Numer karty - to ta górna wartość z dokumentu WZ, nr karty/przepustki...
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...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Posiadam działającą wyszukiwarkę w Excelu, która działa tylko dla jednej kolumny [syntax=vbscript]Private Sub TextBox1_Change() ActiveSheet.ListObjects("Data1").RANGE.A... field:=2, Criteria1:="*" & [a2] & "*", Operator:=xlFilterValues End Sub[/syntax], jak zmodyfikować makro bądź utworzyć całkowicie nowe, aby działało dla wielu kolumn....
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...
Wykorzystanie przycisku to już makro. Nie ma problemu, ale by pomóc trzeba wtedy już znać "topografię" twojego skoroszytu (przynajmniej nazwy arkuszy które powinny się drukować). Ale może zrób inaczej/odwrotnie Zamiast zmieniać/wybierać dane w jednym arkuszu i "przechodzić" do arkusza który ma być wydrukowany, zrób odwołania do arkusza liczącego z arkusza...
makro nazwa arkusz makro zwraca nazwa arkusz excel makro nazwa arkusz
mercedes baterie marshall footswitch mercedes stacyjki sprinter
polonez abimex parkside robot koszący
Sterowanie silnikiem trójfazowym: obroty lewo-prawo Wymiana łożyska w pralce POLAR WA 1512 - krok po kroku