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...
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
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ż...
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...
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...
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...
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
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 <> ...
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.
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...
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ż...
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....
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 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...
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...
Jak zwykle genialnie! Brawo - po raz kolejny mi pomogłeś uratować skórę. Jest tylko jeden drobiazg (jak zawsze) - dla ułatwienia podałem przykład w języku polskim a właściwe tabelki (i nazwy arkuszy) - są po angielsku niestety. Pomyslałem - nic to - popodmieniam nazwy w formule z polskich na eng. i będzie ok. Niestety tak się nie stało. Wyrzuca mi błąd....
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
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]...
Dobra inaczej na prędko z postem zapoznam sie póżniej."Moc pozorna" liczona w arkuszu to moc jaka mogłaby być gdyby była pełna sinusoida. Dla mnie arkusz jest fajny ale służy do liczenia klucza na z np.tyrystorem zmiana nazwy na arkuszu moc pozorna=moc czynna na otwartym np.tyrystorze na full moc czynna=moc czynna uzyskana po otwarciu tyrystora przy...
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...
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...
W nazwie arkusza " Zmiany" przed "Z" jest spacja. Musisz to uwzględniać. Dlaczego nie skopiowałeś treści funkcji?
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
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...
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...
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ę!
temat mogłabym pominąc To amator_piotr jest kobietą? :D Jeżeli tak to jako gentelamenant przepraszam za warczenie. Na kobiety się nie warczy. :D Co do pytań "dla czego?" to ja mam jedno. Mianowicie, w jakim celu chcesz dobierać się do VBProject? Przecież operacje zmiany nazwy arkusza możesz przeprowadzić prościej.
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...
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_...
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
(at)Paweł - ale hurtowa zmiana nazwy w TC to też żaden problem ;)
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
Już wiadomo co było o 16:00? "pingować wszystkie trasy" - ja bym to rozwiązała w sumie prostym tracertem, który pokaże czy wszystkie urządzenia działają, ale w polecaniu jest "ping" to nie ma zmiłuj ;P Zadam jeszcze kilka, być może banalnych pytań, ale zawsze lepiej się upewnić, niż później płakać za straconymi punktami. ;) Wyłączenie karty sieciowej...
te pliki beda sie zmieniac. Beda dodawane nowe modele oraz bedzie zmianiala sie czesciowo nazwa. Za kazdym razem jezeli bedzie wprowadzona zmiana do nazwy pliku zostanie dodana data. Np modele-seria20.20150118a, modele-seria20.20150225a etc. Niestety arkusze pomocnicze nie sa dozwolone :-(
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,...
Narzekać na praktyczny to już przesada, arkusz nr 5 był wręcz banalny, jeżeli ktoś nie umiał ustawić grup, zdjąc admina, nie mówie już o najprostszych jak kursor klawiatury czy zmiana nazwy komputera. No prosze was :) Ja pisałem arkusz nr 1, ale problem jest inny, ŹLE przygotowane stanowiska nie zgodnie z instrukcją od CKE (ale to już wina szkół) i...
Witam, Moi drodzy, problem jest... To znaczy ja mam, bo dla pozostałych to już problem być nie musi, jak znacie jego rozwiązanie :) Chodzi o tworzenie grafików dla osób pracujących na różnych maszynach (nazwy maszyn: M, M1, M2, D1, D2) z uwzględnieniem dni urlopowych (U), chorobowych (ch) i życzeniowo wolnych od pracy (x) - ten arkusze (zmiana 1 i zimna...
Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 zaw_pliku = Input$(LOF(1), #1) Close #1 [/syntax] lub [syntax=vba]...
Witam, jako, że raczkuję (wcale się nie orientuję) w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku z zał. : Arkusz "NAZWA ODDZIAŁU" - kolumna A - po sczytaniu na daną komórkę w kolumnie A tj. A2 z czytnika kodów kreskowych powoduje skopiowanie danych z tej komórki do Arkusza " DANE " komórka A2 i skasowanie danych w Arkuszu "NAZWA ODZIAŁU" , a...
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...
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.....
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...
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,...
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
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...
Dosc prosto da sie to zrobic tworzac w jakims arkuszu kalkulacyjnym plik csv i na podstawie jego plik bat/cmd. kolumna A komenda ren kolumna B stara_nazwa.ext kolumna C nowa_nazwa.ext Listy importujemy z plikow txt i pamietamy aby separatorem CSV byla spacja. Na koniec zapisujemy jako CSV i zmieniamy nazwe na BAT/CMD i odpalamy w katalogu z plikami....
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...
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...
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"...
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:...
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...
Próbuje skopiować te formuły jak w pliku który załączyłeś. Nie da się skopiować. Masz całkiem inną strukturę danych źródłowych. Te formuły trzeba zrozumieć i napisać je od nowa pod swoje dane. Chciałbym zrobić ten autofiltr na mojej formatce ale nie wiem czy jest to możliwe ze względu na różne szerokości kolumn w arkuszu 1i 2. Jeżeli umieścisz jedną...
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?
"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 prośbę o kod dla nazwy arkusza danych - z komórki zmieniającego się pola Kombi. Chodzi o to- by nazwa wyszukiwanego numeru faktury - automatycznie (dynamicznie) zmieniała nazwę arkusza do momentu kiedy tej faktury nie zapiszę w określonej bibliotece w formacie PDF. Niestety przerasta to moją wiedzę - więc ze skruchą wyznaję, że liczę na działający...
Witam serdecznie znowu utknąłem w moim formularzu i potrzebuję Waszej pomocy. Problem jest następujący: 1. Mam 2 ComboBox (w każdym są nazwy miesięcy, które są nazwami poszczególnych arkuszy) 2. Kiedy użytkownik wybierze w ComboBox1 = "styczeń", a w ComboBox2 = "luty" 3. Za pomocą przyciku zostana porównane wartości w tych arkuszach 4. Każdy arkusz...
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...
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...
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ą...
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())...
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...
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...
A co z wierszami nieparzystymi: 3, 5 itd. ? Rozumiem, że zmiana z 3 na 15 to jest zmiana o 12 wierszy, a nie o 15. Ponieważ brak odpowiedzi, to odniosę się tylko do wierszy parzystych. Schemat przeliczania numerów wierszy i kolumn jest dość złożony. Trzeba te adresy po prostu wyliczyć. Zakładam, że masz funkcje LET i LAMBDA w swoim Excelu. Ta długa...
Kochani pomocy jak zmienić id usera proszę szybko !!! usermod -u <UID> <nazwa uż.> Tak mi się zdaje Dodano po 8 Arkusz 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...
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ć...
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...
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...
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....
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...
Stworzylem sobie tabelke na tyle ile potrafie sam :cunning: A mógłbyś wyjaśnić dlaczego w personalnych arkuszach jest kilka "Time List" :cry: ? i czy struktura tych tabelek mogłaby ulec zmianie w ten sposób, że w pierwszej kolumnie była by nazwa projektu nad którym pracują poszczególni pracownicy ? - taka zmiana umożliwiała by wyszukiwanie poprzez...
Tak po prostu to się chyba nie da. Przeciąganie formuł działa tak jak działa i tego zmienić się nie da. Opisz dokładnie, co chcesz osiągnąć, dlaczego nie chcesz funkcji ADR.POŚR, czy te numery '1', '2', '3' to są numery symboliczne, czy faktyczne nazwy arkuszy? Poza tym, żeby móc coś przeciągać, to te arkusze musiałyby najpierw zaistnieć, więc trzeba...
Kazda godzina paportu ma 4 kolumny W celu nie czyszczenia 'Produkt' - myslim ze rodzaj ich jest mniej-wjac staly od 0 do 7 = 8 razy 4 kolumny = 32 kolumny jedna zmiana Dodano po 4 Wejdz w menager nazw - wybierz np. zm_1 - ustaw kursor w dolu na formule - bedzie widac na arkuszu ten zakres. offset - to samo tylko wprawo o 4 kolumny razy 7 Dodano po 21...
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...
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, Zaczynam przygodę z VBA w Excel i potrzebuję Waszej pomocy, bo utknęłam. Cel makra- uporządkować dane w raporcie wg wymagań: 1.zmiana nazwy nagłówków wg schematu, 2.usunięcie zbędnych kolumn, 3.zmiana kolejności kolumn po nazwie nagłówka, 4.formatowanie i zapisanie pliku na odpowiednim zasobie. Poradziłam sobie prawie ze wszystkim. Pozostał pkt.3....
próbowałem ale nie działa mi, pewnie źle coś wpisuje. Zgadza się. Poruszona funkcja, w zasadzie posiada jeden argument typu String i trzeba go tylko poskładać... Najpierw początek nazwy arkusza bez numeru: "Arkusz" Następnie podstawiamy liczbę. Wykorzystamy do tego funkcję WIERSZ(), która po prostu zwraca Nr wiersza. Formuła znajduje się (wg rysunku)...
Temat ciekawy, więc dołączam. Sprawę blokady zapisu szablonu można rozwiązać następująco Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = False Then Cancel = True End Sub Uwaga: Po wklejeniu tego kodu nie można już zapisać pliku, działa tylko zapisz jako i tak trzeba będzie zapisać szablon. W związku...
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....
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)...
Sam arkusz w sumie nie posiada żadnego kodu, jest tam tylko coś takiego: [syntax=vb]Private Sub CommandButton1_Click() With Sheets("Menu") ActiveWorkbook.Unprotect Password:=Haslo .Visible = True .Activate ActiveSheet.Protect Password:=Haslo ActiveWorkbook.Protect Password:=Haslo End With End Sub Private Sub Worksheet_Activate() Range("A1").Select End...
No czy ja wiem czy tak sporo? Każda ulica ma polskie znaki? Zapewne nie. Zamień wszystko rozprawi się dość szybko z tym. Zmiana na małe litery z pierwszą dużą to już Excel i funkcja Z.WIELKIEJ.LITERY Mógłbyś próbować z porównywaniem długości wyrazu lub porównywaniem wartości tekstu (różnica polskich znaków) i stosować zamiany w tym celu. Usuń kolumnę...
Witam Więc rozumiem, że Pan chce mieć 24 arkuszy w skoroszycie. Zależy jeszcze od tej godziny dzień aktualizacji danych. Niedobór powyżej określonego skryptu jest że to stale dodaje kwerendy, ale nie usunąć poprzedni jak i nazw, które są stale wzrosła w skoroszycie. Dodano po 5 Myślę, że lepiej makro tylko zmiana parametru "Connection" i zaktualizować...
Faktycznie. Poprawiłem i działa. Serdeczne dzięki!! Zmiana formułku co rok, nie przeszkadza ani trochę. To w zupełności wystarcza. Nie zorientowałem się, że pod nazwami miesięcy kryją się formuły. Zmieniłem zgodnie ze schematem i śmiga, tylko [syntax=VBA]=DATA(A$16;WIERSZ()-15;1)[/s... co oznacza w powyższej linii WIERSZ() ? Rozumiem, że kryje się...
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...
Witam, mam pytanie, czy jest możliwość w vba przygotowania kodu, który z jednego pliku xlsx (dla mnie bazy danych) zaimportuje wybrane dane do innego pliku xlsx, ale bez otwierania bazy danych, gdyż jest to zbyt czasochłonne. Obecnie używam kwerendy: Parametry połączenia: DSN=Excel Files;DBQ=C:\Users\Asus\Desktop\Dane szczegółówe.xlsx;DefaultDir= C:\Users\Asus\Desktop;DriverId=1046;MaxB...
Witam, Chciałbym odnaleźć w moim Arkuszu (który jest zaimportowanym plikiem xml, z bazy danych) kolumnę opisaną przeważnie w kolumnie R jako /zgloszenieSpolki/beneficjent/nazwisko. Żeby było trudniej z bazy importuje różne pliki i czasami kolumny się nie pokrywają. Dobrze by było gdyby komputer liczył ile w kolumnie jest wierszy a później kopiował dane...
No to mamy wreszcie pierwszy konkret: w arkuszu Excela w komórce A1 jest "Polcaina" (tej nazwy nie znajdzie, bo w danych jest "Polocaina", ale listy rozwijanej Pan nie chce), w B1 jest "5", w C1 jest "Polocainum Hydrochloricum 5%", w D1 jest "57". I co dalej? Co teraz przeszukujemy i czego dokładnie szukamy? Skoroszyt, arkusz, zakres w arkuszu? Jak...
Wystarczy obejrzeć dowolną stronę w różnych warunkach (ustawienia rozdzielczości ekranu, zmiana rozmiaru okienka, zmiana w menu IE: Widok | Rozmiar tekstu... itp.), aby przekonać się ze tekst i zdjęcia układają się nieco inaczej. Najlepiej chyba tworzyć strony w dobrym edytorze tekstu korzystając z HTML i CSS, by zapanować nad wyglądem strony. Ale i...
jakby ktos chcial zestaw 3 : Zamontować zasilacz , dysk nr 1 (windows) na windowsie zalogowac sie na admina bez hasla przetestowanie dysku programem - crystadiskinfo wpisac do tabeli parametry - model ,interfejs stan dysku dobry/zły z programu wypisać parametry ID 01 i ID 09 , zrobic screenshot'a i zapisać na USB w formacie png nazwa usb ma być EGZAMIN...
... 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...
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ą...
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.
ZESTAW 6 1. Instalacja RAM - KOPERTA RAM1 (są dwie koperty, RAM1 i RAM2. Jeżeli włożymy RAM2, mamy N) 2. Instalacja karty graficznej, wyłączenie w BIOS (jeżeli jest zintegrowana), instalacja sterownika, specyfikacja SIW na CD i opakowaniu od karty lub panel nividia 3. Użytkownicy z silnym hasłem (co 15 dni zmiana) (hasło bez słowa ze SŁOWNIKA - dałem...
E12 zestaw nr 3 25.01.2016 Zamontować zasilacz , dysk nr 1 (windows) na windowsie zalogowac sie na admina bez hasla przetestowanie dysku programem - crystadiskinfo wpisac do tabeli parametry - model ,interfejs stan dysku dobry/zły z programu wypisać parametry ID 01 i ID 09 , zrobic screenshot'a i zapisać na USB w formacie png nazwa usb ma być EGZAMIN...
Witam, nie wiem czy będę w stanie należycie opisać wyzwanie przede mną stojące, ale postaram się jak mogę :D Więc tak, firma myśli nad stworzeniem efektywniejszego arkusza do wprowadzania danych (raportów pracy), który by sam uzupełniał wpisy o dane z bazy (spisu produktów). Raport jest w formie: osoba X - zlecenie nr XXX - czyli produkt o nazwie YYYYY...
Dla zasady #NAZWA to nie format tylko błąd obliczeń - excel nie zna funkcji o danej nazwie (nazwa po - ). Aczkolwiek dziwne bo u mnie pomimo myślnika nie zmusza excela do obliczeń (chyba że na wstępie jest znak równości ( = ). Formatowanie arkusza jest na ogólne a wkleja wartości ale ... Sama zmiana formatu komórek właściwie nic nie da bo i tak jak...
Potrzebujesz dwóch, zagnieżdżonych pętli. Taka najprostsza przeróbka kodu z postu #1 [syntax=vb]Sub otworz_pliki() Dim MyFile As String, arkusz As Worksheet, wkb As Workbook Dim wrs As Long, dstArk As Worksheet Set dstArk = ThisWorkbook.ActiveSheet wrs = 1 MyPath = "D:\Dane\" MyFile = Dir(MyPath) Application.DisplayAlerts = False 'wyłączymy pytania...
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...
Witam, Mam poniższy kod w VBA: application defined or object defined error )
makro zmiana nazwy arkusza pobranie nazwy arkusza makro zmian nazwy arkusza
pracuje silnik wyjęciu kluczyka peugeot uruchomić nawigacje soundbar subwoofer
samsung ps50c91h gigabajt zasilacz
Demontaż obudowy spawarki ARC160 - krok po kroku Asus RT-AX58U - Czy można zamontować na ścianie?