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...
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/3458645800_... 1. Geneza Budowę wzmacniacza audio planowałem już od pewnego czasu, stąd gromadziłem przydatne do jego budowy elementy. Jednak nie mogłem się zdecydować na ostateczną koncepcję. Do działania zainspirował mnie kol. https://obrazki.elektroda.pl/8178345700_... Zestawy wieżowe...
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....
http://obrazki.elektroda.pl/2126980700_1... System monitorowania środowiska, oparty o interfejs LoRa IoT składa się z stacji bazowej zbudowanej z wykorzystaniem modułu Arduino Mega z bramką LoRa oraz zdalnych stacji opartych na Arduino Feather, które łączą się z stacją bazową poprzez radiowy interfejs LoRa. System pozwala na monitorowanie...
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...
Nazwa modułu: Moduł inteligentnego przełącznika Moes MS-104 Protokół: Wi-Fi 2,4GHz Napięcie wejściowe: 90 - 250 V AC 50/60 Hz Maksymalny prąd: 10A Moduł Wi-Fi: Tuya CB2S (BK7231N) Zdjęcia modułu: https://obrazki.elektroda.pl/7334952300_... https://obrazki.elektroda.pl/8643891100_... https://obrazki.elektroda.pl/3101557100_...
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....
Odwołanie do aktywnego arkusza może rozwiąże problem.
arkusz 02 zadanie 1 testowanie procesora za pomocą SuperPi i hwinfo zmiana odświeżania na 100 ms screen z hwinfo z użyciem procesora w procentach + temperatura przetestować za pomocą SuperPi 2M, po teście sprawdzić temperatury i użycie procesora to zrobić w tabeli i wnioski pod tabelą jak wpływa obciążenie procesora na temperaturę wyciągnąć wnioski...
Cześć, oto szybkie otwarcie i zmiana firmware pasków ledowych Nedis WIFILS50CRGBW. Wykorzystuje układ BK7231T WB3S. Oficjalna nazwa produktu: Taśma LED Nedis SmartLife | Wi-Fi | Zimna biel / RGB / Ciepła biel Kod produktu: WIFILS50CRGBW Numer EAN produktu: 5412810303106 Strona produktu: https://obrazki.elektroda.pl/1597601100_... https://obrazki.elektroda.pl/6403977200_...
Arkusz z dzisiaj (chyba 14) Linux: 1. Zablokowanie modyfikacji pliku 2. Zmiana identyfikator użytkownika 3. Skopiowanie pliku do folderu Home 4. Za pomocą terminala wyświetlić zawartość pliku (cat plik.txt?) 5. Tworzenie grupy, użytkownika i dodanie go do tej grupy Windows: 1. Ukryj ikony, zrób SS 2. Zablokowanie użytkownikowi odczyt dysków wymiennych...
Dziękuję za podpowiedzi – funkcja ‘Licz.jeżeli’ zadziałała. Jako że pozostało mi już tylko 5 punktów na założenie nowego tematu postanowiłem korzystając z okazji zaoszczędzić je i zadać dodatkowe pytanie w tym wątku. Tym razem przygotowałem się bardziej starannie niż poprzednio. W załączniku przedstawiłem bardzo uproszczony schemat...
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 <>...
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...
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?
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.
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
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...
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....
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 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....
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...
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...
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...
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]...
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...
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))....
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....
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...
... 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...
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
Tak, dziś rano arkusz numer 08. Oto co trzeba było zrobić: 1. W Linuxie za pomocą dostępnych narzędzi wykonać test podzespołów i wpisać do arkusza: a) nazwę powłoki - polecenie echo $SHELL b) identyfikator użytkownika - polecenie id , wartość uid c) domyślny program do muzyki d) liczbę uśpionych procesów - polecenie ps i odczytać wartość stat - status...
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
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...
Czy da się ukryć dzień tygodnia (który domyślnie wpisuje się na "sobota" ? Oraz czy można i w jaki sposób zmienić nazwy Arkusz1, Arkusz2, Arkusz3 na poszczególne nazwy żeby nie p i takie pytanie przy okazji nie związane z tym tematem. Czy excel może korzystać z zewnętrznej bazy ? Chodzi o to, że z listy towarowej, która jest w tym szablonie w "arkusz2"...
Powyższa procedura działa, jak sama nazwa wskazuje, w momencie zmiany zawartości komórki w arkuszu. Jak chcesz zrobić, żeby sprawdzane były wcześniej wpisane daty, to skorzystaj z tego kodu: [syntax=vb]Sub SprawdzTermin() ow = Cells(Rows.Count, "B").End(xlUp).Row For x = 2 To ow Step 2 If Date - Cells(x, 2) > 30 Then Cells(x - 1, 5) = "" Cells(x, 5)...
Po zmianie początkowej części kodu z function onEdit(e) { // Nazwa arkusza, w którym skrypt ma działać var nazwaArkuszaDocelowego = "Nazwa_Arkusza"; // Proszę wpisać rzeczywistą nazwę arkusza na function onEdit(e) { // Nazwa arkusza, w którym skrypt ma działać var nazwaArkuszaDocelowego = "Arkusz1"; // Proszę wpisać rzeczywistą nazwę arkusza podczas...
Jeżeli chcesz się dalej uczyć to proponuję kolejne ćwiczenie: zrób to samo wyciągając parametry kopiowanych obszarów do pomocniczego arkusza sterującego, tu lepsza będzie pętka do while po wszystkich niepustych wierszach arkusza pomocniczego. Czyli wpisujesz w 1 wierszu nazwę arkusza (np w A2) i nazwę obszaru (np w B2 => I1:I), a potem kopiujesz: [syntax=vbscript]...
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ż...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Witam, mam problem z excelem... Mianowicie mam 4 arkusze, każdy z różną nazwą. W każdym z nich znajduje się tabela z danymi. Chciałabym w piątym arkuszu stworzyć formułę, która po wpisaniu w danej komórce nazwy arkusza automatycznie przypisze mi wartość z np. komórki B5 tego arkusza. Jednocześnie przy zmianie nazwy w tejże komórce, wartość z komórki...
nazwa arkusz arkusz nazwa makro zmiana nazwa arkusz
subwoofera tda1562 wyświetlacz sterownika pieca defro brother tranzystor
ariston wymiana programatora przekaznik zapłonu
Słabe świecenie kontrolki kierunkowskazu w Seacie Ibiza 2005 Vivax LED TV-40LE120T2S2SM - Włączanie bez pilota
