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...
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...
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...
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...
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....
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ę!
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...
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ż...
Odwołanie do aktywnego arkusza może rozwiąże problem.
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...
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...
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...
witam mam problem ze zmiana zakresu dla funkcji split, zaznaczam ze jestem poczatkujacy w tym temacie ogolny zarys projektu to zczytywanie danych z wielu skoroszytow excela i kopiowanie niektorych arkuszy i okreslonych danych do jednego glownego skoroszytu w okreslone miejsca, po paru dniach przegladania sieci stworzylem cos co zaczelo dzialac ale pojawil...
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 <>...
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?
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...
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?
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
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...
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...
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...
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]...
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...
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ą...
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...
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....
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...
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...
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...
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
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...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
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]...
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...
jeśli stworze tabelkę z poszczególnym towarem to wyskakuje bląd Nowe tabelki muszą mieć skorygowane formuły - zwłaszcza te w "drugiej linii" :D 967206 a może być żeby sumowało ? Owszem :cunning: , może - ale wymaga zmiany formuł i zmiany tabeli "wyszukującej" :sm9: 967244 967247
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....
Dzień dobry, To jest typowe zadanie do konsolidacji. Było to już wiele razy na forum, można też przeczytać w pomocy Excela. Deklaruje Pani obszar do konsolidacji, miejsce na wynik (może być w tym samym arkuszu, albo w innym) i dostaje gotowe podsumowanie. Tyle, że jest to jednorazowe, po zmianie danych trzeba wykonać ponownie, ewentualnie skorzystać...
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
nazwy arkuszy makro kopiujące nazwy arkuszy bluetooth zmiana nazwy
programowanie gp300 chłodziarko mastercook elektryczny prysznic
suszarka electrolux pompka nokia 6310i
Wymiana gąbki w drukarce atramentowej - krok po kroku Zanieczyszczenie głowic i rolek w magnetofonie