Jeśli plik, który jest otwierany, zawsze w tym samym folderze, np. C:\..\..\DaneCodzienne należy: w pliku makr osobistych w kodzie skoroszytu [syntax=vb] Private WithEvents App As Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) If Wb.Path Like "*\DaneCodzienne" Then Wb.Sheets(1).Name...
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....
Pozwolę sobie odpowiedzieć: zmień deklaracje typu zmiennych i będzie ok. Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Na Dim Nazwa_1 As String Dim Nazwa_2 As String Integer to liczby całkowite a String to ciąg tekstowy do którego też można zaliczyć "wizualnie" liczby (czyli liczby i cyfry jako tekst). I jeszcze jedno jak zmienić aby nazwy arkuszy zmieniały...
Tak jak w tytule Czy jest możliwe ? aby program VBA zmieniał automatycznie nazwę tabeli znajdującej się w komórkach arkusza A1:F10. na nazwę arkusza Nazwa arkusza np. Janek - nazwa tabeli Janek. pozdrawiam
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,...
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...
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...
https://obrazki.elektroda.pl/4780071900_... Podstawy GOOGLETRANSLATE i wpisujemy w A1 jakieś przykładowe słowo - "Przekaźnik": https://obrazki.elektroda.pl/2211472500_... W B1 wpisujemy znak równości a potem zaczynamy pisać GOOGLE, podpowiedź powinna się już pojawić: https://obrazki.elektroda.pl/2939205100_...
Połączona wiedza na temat zestawów pochodząca z różnych grup i cytatów na FB. Nie traktujcie tego jako 100% receptę, po prostu przepracujcie te scenariusze uzupełniając brakujące dane. zestaw 01 06-02-2017 16:00 09-02-2017 16:00 Na początek, patchpanel i skrętka oba w T568B Polaczenie serwera, routera i klienta do switcha. Zmiany ich ip i ogolna konfiguracja....
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...
błąd pojawia na komputerze z WIN 10, na WIN 7 działa poprawnie To jest informacja kluczowa. Niestety ja nie mam w tej chwili dostępu do WIN 10, więc nie mogę sprawdzić. Jedyne co mi przychodzi do głowy, to zmiana nazwy arkusza na "bezpieczną" - tylko litery łacińskie, bez cyfr, spacji, znaków specjalnych. Czy to coś zmieni? Jeśli nie, to ja na razie...
BARDZO WAŻNY LINK DO POSTA Z KOLEJNYMI ARKUSZAMI https://tinyurl.com/yaxya64x postarajmy się wraz ze wsparciem grup FB stworzyć dobry grunt by jak najbardziej zwiększyć swoje szanse. daty egzaminów: W innych egzaminach praktycznych CKE wróciło do "starego" systemu czyli jeden arkusz na dzień. Dane na podstawie obserwacji tego co się dzieje na E.13....
1. Zarabianie kabla, z jednej strony RJ45 w standardzie A, z drugiej keystone 2. Połączenie: Ruter --- Switch ---- Serwer i Klient 3. Konfiguracja rutera: ip LAN, brama, DNS, DHCP włączone i ustawić zakres, rezerwacja IP dla serwera i klienta, WAN: ip, maska i DNS 4. Konfiguracja switcha: ip, brama i DNS 5. Klient Linux: a) sprawdzenie wolnej pamięci...
Odwołanie do aktywnego arkusza może rozwiąże problem.
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
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.
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...
Ja jeszcze nie miałem egzaminu więc nie wiem jaki to nr zadania :D. Tak na virtualboxie udało mi się to zrobić, w szkole też robiliśmy coś takiego na 100% się da BEZ AD EDIT: Jestem po egzaminie, łatwizna. Jest do zrobienia to co napisałem wyżej + jakieś drobne zadanka typu, zmiana nazwy SSID itp. NR ARKUSZA TO 01
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:...
W podobnym przypadku, w którym chodziło o kalkulację kosztów produkcji (ceny energii, surowców, robocizny etc) korzystałem z tabeli cen osobno na każdy miesiąc. W załączonym przykładzie zastosowałem nazwy zakresów i dwa sposoby obliczania oparte na funkcji INDEKS. Pierwszy prosty, wymaga przepisania formuł w każdym arkuszu. W drugim nazwa zakresu pobierana...
Witam, Sprubuję jaśniej to wyjaśnić: 1. Mam arkusze nazwane od styczeń - grudzień 2. Wszystkie nazwy kolumn są takie same różnica wartości liczbowych jest tylko w kolumnie N:N każdego arkusza 3. Chodzi o porównanie miesiąc do miesiąca za pomocą ComboBox: - użytkownik wybiera arkusze za pomocą Combobox1 i ComboBox2 - klika przycisk i zostają porównane...
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...
Dzień dobry, Nie wiem, czy o to dokładnie chodziło, ale można wypróbować coś takiego: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub LastRow = Cells(Rows.Count, "J").End(xlUp).Row ActiveSheet.Unprotect Range("J:J").Locked = False Range("J2:J" & LastRow).Locked = True ActiveSheet.Protect...
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...
Witam Chciałbym dodać parę słów od siebie na temat produktów Mentor Graphics. Obecnie mam do czynienia z z następującymi wyrobami tej firmy:Expedition i DxDesigner. Moim osobistym zdaniem większego dziadostwa nie widziałem. Dodam, że pracowałem również z takimi narzędziami jak Altium Designer i Cadstar. Ale żeby nie być gołosłownym poniżej przedstawiam...
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....
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 <>...
++++++++++++++++++++++++++++++++++++++++... EDIT : PROBLEM ROZWIĄZANY, ROZWIĄZANIE ZAMIEŚCIŁEM NA DOLE TEGO WPISU ++++++++++++++++++++++++++++++++++++++++... Witam, Szanowni koledzy, proszę o pomoc w napisaniu makra, w którym z całej kolumny E zostaną wybrane wartości z zakresu pomiędzy wartościami w komórkach T2 i U2,...
Zwykla zmiane, podobna do TC i innych, oferuje Free Commander po zaznaczeniu kilku plikow i wcisnieciu F2. To oczym piszesz moim zdaniem jest do wykonania chyba tylko przez odpowiedni skrypt, ktory najpierw przeliczy z nazwy pliku jego wartosc, a nastepnie zmieni jego nazwe wg. odpowiedniego schematu. Najprosciej bedzie wylistowac wszystkie pliki i...
gpedit.msc > Konfiguracja użytkownika > szablony administracyjne > panel sterowania > Programy > ukryj aplet Programy w Panelu sterowania Niestety - ale na Win7 bez względu, czy zrobimy to za pomocą konsoli MMC czy też gpedit kategoria programy będzie cały czas widoczna. załączenie opcji: http://obrazki.elektroda.pl/9821714600_1...
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...
Witam wszystkich. Jaka jest możliwość zmiany ścieżki dostępu do komórki w określonym skoroszycie i danym a arkuszu na zmienną? Mam takie odwołanie: ='D:\URLOPY 2010\[URLOP 2010.xls]STYCZEŃ'!AL68*8 jak zmienić segment tej ścieżki odpowiedzialny za nazwę arkusza STYCZEŃ na zmienną żebym mógł sobie w innej komórce wpisać nazwy innych miesięcy bez potrzeby...
W nazwie arkusza " Zmiany" przed "Z" jest spacja. Musisz to uwzględniać. Dlaczego nie skopiowałeś treści funkcji?
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?
Sprawdź w załączniku, czy o to chodziło. Dopisałem procedurę Workbook_Open, która tworzy kształt w arkuszu Arkusz1 (nazwa kodowa) przy otwieraniu skoroszytu (jeśli go nie było) lub zmienia kolor na biały (jeśli był). Dopasuj sobie jeśli ma być w innym arkuszu.
Odpada, te arkusze znajdują się w różnych miejscach skoroszytu, mają różne nazwy i trafiają w różne miejsca docelowe. Polecenie "Przenieś lub kopiuj" wystarcza, tylko chciałam, żeby je obsłużyć od A do Z z klawiatury, nie potrafię wywołać menu z nim lub tego polecenia bezpośrednio, reszta działa. Ewentualnie może jest jakiś "stary" skrót bezpośrednio...
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...
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())...
Ilość arkuszy znajdziesz za pomocą: Edit: Precyzując, zapisujesz ilość arkuszy obliczoną przez powyższe do zmiennej i umieszczasz ją w nawiasach (tam gdzie masz swoje znaki zapytania). Nowy arkusz dodany będzie jako ostatni. Do zmiany nazwy w tym przypadku możesz zastosować: [syntax=vb]Sheets(ile + 1).Name = strName[/syntax] Warunkiem prawidłowego działania...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
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...
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]...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
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))....
Cześć, Mam taki problem. Chciałbym kopiować dane z jednego pliku do drugiego za pomocą vba. Program ma dopisywać arkusz z datą kwitu wagowego do tzw. "pliku łącznego" w innym folderze. (nazwa piku łącznego jest taka sama jak nazwaklienta na kwicie wagowym) Napisałem krótki kod, który miałby to robić, jednak problem jest wtedy gdy w nazwie klienta "pliku...
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...
Nie rozumiem skąd błąd.... w komórce C2 jest dobra nazwa. Nie spojrzałem wcześniej na rysunek. [syntax=vbscript]Set wsDocelowy = wbDocelowy.Sheets(Range("C2").Value)[/sy... Będziesz mieć błąd bo, gdy otwierasz skoroszyt staje się aktywny i w tym aktywny w C2 pewnie nic nie masz. Jak nazywa się ten arkusz z załączonego obrazka? wtedy [syntax=vbscript]Set...
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.
Ta formuła wyszła dość ciężka, może ktoś wymyśli jakieś uproszczenie. Przez wprowadzenie nazw można by było skrócić zapis, ale czas przeliczania się nie zmieni. W bloku dotyczącym dnia 27.04.2020 formuły zawierają odwołania do danych z kolumny F. Te formuły można kopiować w ramach tego bloku. Gdyby chcieć utworzyć z tego nowy blok, należałoby jedną...
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....
makro zmiana nazwy arkusza pobranie nazwy arkusza kopiowanie nazwy arkusza
parrot wyświetlacz parrot silownik schemat canon eprom
urmet cyfral subwofer wzmacniacz
Jak sprawdzić pompę AdBlue Bosch, Continental – podłączenie przewodów, test PWM, CAN Pralka Candy – czas stoi przy wirowaniu, brak obrotów bębna, diagnostyka usterki
