Jednak najpierw sprawdziłbym, a następnie warunkowo dodawał. Najprościej przez próbę aktywowania po 'On Error Resume Next'. Jeśli bez błędu (arkusz istnieje), komunikat, w przeciwnym wypadku wstawiamy. Taka odwrotność powyższej, ale mniej zamieszania. [syntax=vbscript]Sub DodajArkusz() nazwa = " " & Date On Error Resume Next Sheets(nazwa).Activate If...
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...
Witam w tym samym skoroszycie ale pod nazwa wzięta z komórki. Wartość w komórce będzie zmieniać codziennie? Dodano po 6 poprzez kliknięcie przycisku excel skopiowały arkusz Przycisk w tym samym arkuszu? Dodano po 34 [syntax=vb] Sub Kolejny_dzen() dzen = Range("b1").Text For Each sh In ThisWorkbook.Sheets If sh.Name = dzen Then MsgBox "Juz zapisane":...
Jeżeli zdefiniuje nazwę danych to przy ich kopiowaniu, nazwa arkusza nie ma znaczenia. Przykład: jeden arkusz nazywam x a drugi y. Warkuszu x wprowadzam dane a analogiczne pojawiaja się w arkuszu y. Definiuje nazwe zakresu danych (nie B:B ) tylko np. dane1 a w arkuszu y wprowadzam formułke: odwołanie.xls!dane1. Przykład w załaczniku
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa = Worksheets("Arkusz1")....
Zacznij od początku jeszcze raz bo coś za dużo usunąłeś z kodu (nie mam jak ci podesłać bo w pracy mam 2010 i rozwala mi plik) między tymi linjami kodu wprowadź warunek If IsNumeric(fragment2) Then fragment2 = "" kod = fragment1 & fragment2 Czyli ma wyglądać tak: If IsNumeric(fragment2) Then fragment2 = "" If...
A czy dana nie ląduje czasem w innym arkuszu niż zakładasz? Sheets(1) to arkusz o indeksie jeden. Jeśli "1" to nazwa arkusza, to posługuj się nazwą Sheets("1") Poza tym Workbook s ("jeden.xls")
A jak zmienić kod aby do zmiany wartości była uwzględniana tylko kolumna C, ale skrypt był wyzwalany po zmianie w kolumnach B, C, D. Do tych kolumn wklejam jednocześnie dane, po wklejeniu danych do trzech kolumn skrypt nie działa. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem, że chce Pan zmodyfikować skrypt w Google Apps Script tak,...
Bez załącznika, w którym można to sprawdzić, to trudno mieć pewność, ale jeśli nazwa arkusza była w komórce [syntax=vbscript]Sheets("Data").Range("L... arkusz będzie [syntax=vbscript]Sheets(Sheets("Data").R... jeszcze konkretna komórka: [syntax=vbscript]Sheets(Sheets("Data").R...
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...
Nie robiłeś dokładnie "tak", bo w kodzie masz After:=Workbooks("wczyt.xlsm"), co jest składniowo bez sensu: "wstaw nowy arkusz za plik wczyt.xlsm". Ja tylko dodam, że składnia [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh... nie zadziała jak trzeba, bo po otwarciu pliku, jak w przykładzie, aktywnym jest nowootwarty...
Dawno nie zaglądałem na forum i nie spojrzałem że autor założył już temat. A ponieważ zasugerowałem się dawnym (z 2012 roku :) ) kodem kolegi adamas_nt czuję się w obowiązku dołączyć do wątku. :) Przerzucę informację z PW jak przedstawił mi to autor: -- ... Może w skrócie opisze o co mi mniej więcej chodzi: Chciałbym żeby załączony arkusz zaczął żyć...
Ech... Spróbuj czegoś takiego: [syntax=vbscript]Sub Dzialaj() Dim ark As Worksheet, temp As Worksheet Dim i As Integer Application.ScreenUpdating = False Set ark = Sheets("Arkusz1") For i = 2 To ark.Range("B65536").End(xlUp).Row If Not czyistnieje(Left(ark.Cells(i, 2), 31)) Then Sheets.Add Set temp = ActiveSheet temp.Move After:=Sheets(Sheets.Count)...
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
Udało mi się sflashować moją inteligentną lampę sufitową LSC za pomocą Tuya Cloudcutter i podłączyć ją do Home Assistant. Kupiłem tę lampę sufitową kilka lat temu w Holandii w sklepie "Action". https://obrazki.elektroda.pl/4485224300_... Informacje podane w aplikacji Tuya Nazwa produktu w aplikacji Tuya: "LSC Smart Ceiling Light" Wersja...
Najprościej byłoby zastosować jakąś pętlę w VBA, ale można próbować po "excelowskiemu". Np dołożyć jeden arkusz roboczy, w którym tworzymy tabelę i szukamy wyniku, a w głównym dać tylko odwołanie... Całość oparta jest o funkcję ZNAJDŹ i jeśli nie ma tekstu z kolumny A w dowolnym wierszu kolumny B, to funkcja zwróci #ND! Na podanych przez Ciebie danych...
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ę...
Witam ,chociaż już po Świetach to życzę zdrówka wszystkim. A co do problemu z jakim się zwracam to potrzebuję do pliku załączonego aby dołożył ktoś makro lub formułe, w zależności czym będzie lepiej uzyskać efekt ,który przydałby mi się na co dzień. Mianowicie w skoroszycie mam kilka arkuszy z nazwą powtarzającą się w kolumnach "B". Po otwarciu skoroszytu...
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...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Dla twojego przypadku z załącznika. *dane aktualizowane są w arkusz 1 Tworzysz arkusz roboczy z całą aktualną bazą *niech będzie to w arkusz 2. Kolumny J K L uzupełniasz tak jak chcesz.*Najlepiej by było jakby wartości z kolumny M były przed J K L *czyli z przodu W arkusz 1 w kolumnach J K L używasz formuły wyszukaj.pionowo: Jeżeli będziesz miał problemy...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
1. Arkusz ma atrybut 'veryhidden' i przed usunięciem trzeba go zmienić. 2. W pliku jest nazwa do usunięcia. Najprościej [syntax=vb]Dim plik As Workbook Set plik = ThisWorkbook Application.DisplayAlerts = False On Error Resume Next With plik.Sheets("TemplateInformation") .Visible = True .Delete End With For Each nm In plik.Names nm.Delete Next Set plik...
Drukarka jest zalogowana do sieci ? Aby sprawdzić, czy drukarka jest prawidłowo podłączona do sieci bezprzewodowej, można wydrukować ustawienia sieciowe drukarki: 1. Upewnij się, że drukarka jest włączona. 2. Załaduj arkusz zwykłego papieru formatu A4 lub Letter. 3. Naciśnij i przytrzymaj przycisk Resume/Cancel (Wznów/anuluj), aż kontrolka zasilania...
Witam! Oświeć mnie kolego, czy dobrze rozumiem, chcesz ustawić mobilówkę w domu (w mieszkaniu)?. I dlaczego akurat to ma być magnesówka?. Ja powiem tak: Na stację bazową najlepsza będzie antena dedykowana do tego rodzaju pracy. Antena mobilowa jest przeznaczona, jak sama nazwa wskazuje do mobila i nie będzie się tak samo zachowywać jak na mobilu. Dodatkowo,...
Tak mnie zaintrygowało że się uparłem. Przecież to nie jest trudne tylko trzeba trochę poklikać. No ... trochę przy tym posiedziałem (dwa piwa i lampka wina) - edit: I jeszcze jedno: pokazane wartości procentowe są "zgodne z prawdą" do trzeciego miejsca po przecinku (czyli liczba prawidłowa do 5 miejsca po przecinku) - myślę że wystarczy. Pozostałe...
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
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...
https://obrazki.elektroda.pl/1533250900_... BK7231T/BK7231N to popularny SoC WiFi i Bluetooth, szeroko stosowany w produktach Tuya Smart. BK7231 można znaleźć w inteligentnych gniazdach, inteligentnych żarówkach LED, inteligentnych przełącznikach itp. BK7231 zwykle występuje w postaci modułów, które są pin-to-pin kompatybilne z modułami...
jak zapisać dla zmiennych nazw arkuszy Jeśli zadeklarujesz jako stringi i będziesz tworzył funkcjami tekstowymi nowe nazwy arkuszy to możesz to zrealizować np [syntax=vbscript]Sheets("dest").Copy After:=Sheets(4) Sheets("dest (2)").Select Sheets("dest (2)").Name = nazwa dWb.Save[/syntax]
A gdzie ma być to makro zapisane? Tak jak miałeś zrobione, to wszystkie arkusze zostałyby przeniesione do nowych skoroszytów (bez makr), a ten skoroszyt źródłowy zniknąłby wraz z makrem, bo nie byłoby w nim arkuszy. Musisz mieć przynajmniej 1 arkusz (ja go nazwałem Ostatni), który zostanie w skoroszycie i wraz z nim makro. Ten skoroszyt możesz sobie...
https://obrazki.elektroda.pl/1957939900_... BK7252 to 32-bitowy układ Wi-Fi i Bluetooth Low Energy (LE) zaprojektowany do zastosowań audio i wideo. Można go znaleźć zarówno w produktach Tuya (wideodomofon), jak i innych (kamera szpiegowska A9). Obsługuje do 6 kanałów PWM i obsługuje dźwięk za pomocą 2-kanałowego przetwornika cyfrowo-analogowego...
a mozna prosic rezultaty 4 i 3 zestawu? CO JEST? KONcERT ŻYCZEŃ?? :D Nic nie wkleję, póki ten post nie zbierze 50 plusików, nie ma nic za darmo ;) Kryteria oceniania ZADANIE NR 1 =============================== http://www.elektroda.pl/rtvforum/topic30... Kryteria oceniania ZADANIE NR 5 =============================== http://www.elektroda.pl/rtvforum/topic30...
Witam, chciałbym ułatwić sobie pracę w Excelu, ale zanim będzie łatwiej musi być trudniej :) Założenie jest takie: Mam plik (test) z 1 arkuszem - Arkusz1 oraz mam drugi plik (dane) z 3 arkuszami (biurowe, spożywcze i pozostałe). W pliku test mam kod EAN, załóżmy 5900316540144. Chcę sprawdzić czy występuje on w pliku dane w którymś z arkuszy a jeśli...
Proszę jaśniej. Nazwa arkusza ma być pobierana z komórki, czy w komórce ma być odwołanie do nazwy arkusza? W jakim celu?
Zastrzeżenie: Witamy w tym przewodniku, który jest pracą w toku i może być aktualizowany lub poprawiany w miarę pojawiania się nowych informacji. Chociaż instrukcje mają na celu uczynienie procesu demontażu i modyfikacji prostym i bezpiecznym, Nie ponoszę odpowiedzialności za jakiekolwiek uszkodzenia sprzętu lub obrażenia ciała użytkownika lub innych...
Lampa sklepowa SHOP/4/HO/CCT/AG to światło o natężeniu 10 000 lumenów z regulowanym białym światłem (3000 K - 6500 K) ze złączem NEMA 5-15P, które podłącza się do standardowego 3-bolcowego gniazdka. Można go znaleźć w USA na Światła Moduł oświetleniowy zawiera 6 rzędów diod LED (84 diody LED na rząd), każdy rząd na przemian zimny i ciepły, co daje łącznie...
W końcu po dłuuugim czasie mogę się pochwalić. Mój projekt " TERMINATOR T-1000.1 " został ukończony!!! https://obrazki.elektroda.pl/3755537200_... https://obrazki.elektroda.pl/3971085400_... Ta bestia posiada pod maską 800 koni. Bardzo dużo czasu zajęło mi dopracowanie wszystkich detali, aby to wszystko wyglądało i...
(at)khoam :smile: Motorola miała za złe, że 6501 był pin to pin odpowiednikiem 6800 . Z tego względu MOS zaprzestał jego produkcji, a kontynuował 6502 , który był dostępny jednocześnie z 6501 (razem trafiły na rynek) :idea: Ciekawostka: 65C816 był użyty w Apple IIGS 👀 :smile: Tak rodzi się urban legend hihi :lol: W czasach internetu byłbym bardzo ostrożny,...
Tematem tego artykułu jest przegląd kilku pojazdów elektrycznych, które przykuwają uwagę, więc postanowiłem podzielić się nimi z czytelnikami tego forum. Wydają się najbardziej zaawansowane technologicznie i pasują do samodzielnej budowy pojazdów zasilanych energią słoneczną, nawet jeśli nie ma przyrządów ani pomocników, a prace spawalnicze i tokarskie...
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
To i tak nie ma znaczenia. Indeks arkusza określa o jaki arkusz chodzi. Problemem jest to, że Autor się nie odzywa, a my za niego kombinujemy 'co autor miał na myśli', jak na języku polskim.:) Zmienna 'MojArkusz' , też zwraca nazwę arkusza :) Bo w zapytaniu musi być użyta nazwa arkusza, nic więcej. Już się nie odzywam. Czekam na Autora.
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...
Cześć, Mam w jednym pliku kilka arkuszy o różnych nazwach. Chcę wydrukować tylko te arkusze, które spełniają mój warunek, te arkusze które nie spełniają warunku mają zostać pominięte do drukowania. Na razie mam kod, który drukuje wszystkie arkusze do pdf, ale baza się rozrasta i nie chciałbym drukować wszystkiego. Jeden arkusz to jeden plik pdf. kod,...
(at)dt1 Jak dla mnie to porady na forum ELEKTRODA odnośnie Excela VBA nie powinny mieć miejsca. Jest to w pewny sposób wykorzystywanie umiejętności informatycznych ludzi, którzy kiedyś musieli nauczyć się od zera VBA, a teraz maja podawać kawę na ławę zatrudnionym pseudo informatykom pracującym w biurze i przeważnie na posadach państwowych lub w dużych...
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....
Wydaje mi się, że to dziwna firma EVERLIGHT. Na rynku amerykańskim używa innej nazwy chipa. W pakiecie Everlight (nie amerykańskim) znalazłem ten arkusz danych. Wygląda na to samo, także z numerem produktu w rejestrach, ale nazwa chipa jest inna. Może pod tą nazwą udałoby się znaleźć gotowe biblioteki. Dzięki!
Witam. Proszę o pomoc w stworzeniu programu w języku VBA. Będzie to makro Excela. Program ten będzie częścią mojej pracy licencjackiej. Program będzie analizował zapisy partii szachowych w formacie pgn. Na początku musi zaimportować z pliku/plików tekstowych zapisy partii. Następnie będzie analizował dane pod różnymi aspektami, to znaczy: policzy liczbę...
Witam, Szczerze mówiąc zupełnie nie kumam VBA, a potrzebuje napisać makro, które bardzo ułatwi mi życie. Dla kogoś kto cokolwiek z tego rozumie to pewnie pestka, a ja będę wdzięczny za pomoc w tym zakresie. Potrzebuję makro które będzie się uruchamiać na żądanie (np skrót klawiszowy) w otwartym arkuszu excel, który ma kilkanaście arkuszy. Nazwa arkusza...
nazwa arkusz nazwa komórka nazwa arkusz zmiana nazwa arkusz
dwufazowy mostek wyciszy domofon błędy wózków still
odkurzacz zelmer syrius płytka krups ea8108 mleka
Całkowity reset modułu NA7495GPS - instrukcja krok po kroku Problem z wyłączeniem wzmacniacza Philips FR-731/00
