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ż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")....
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...
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,...
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")
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...
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ś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...
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...
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...
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...
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...
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...
Najprawdopodobniej zaznaczasz >1 komórkę. Dopisz warunek: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 10 Then If Target.Cells.Count = 1 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End If End Sub[/syntax]
[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...
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...
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...
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ę...
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...
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...
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...
[syntax=vbscript]Sub elka() For Each s In Sheets Sheets(s.Name).Range("w2:w" & Sheets(s.Name).Cells(Rows.Count, 1).End(xlUp).Row) = s.Name Next End Sub[/syntax] ........................................ ps. można usunąć nie widziałem, że już odp :)
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,...
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]
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,...
To sprawdź sobie takie rozwiązanie.
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...
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...
Witam. Mam problem z makrem, które w Excelu ma za zadanie przenosić arkusze do nowego skoroszytu (każdy arkusz do odrębnego) i zapisać plik w podanej lokalizacji z nazwą tego przeniesionego arkusza. Na potrzeby tego zadania zarejestrowałem, a następnie zmodyfikowałem makro, które wygląda następująco: Sub Rozdziel() ' Rozdziel Makro Dim arkusz As Worksheet...
Najlepiej użyć pętli For. W przykładzie (rozumiem, że ochrona skoroszytu włączona) działanie na kolekcji, ale równie dobrze można zliczyć (For i = 1 to Sheets.Count)[syntax=vb]Dim sh As Worksheet ActiveWorkbook.Unprotect Password:="tutaj_hasło" For Each sh In ThisWorkbook.Sheets If IsNumeric(sh.Name) And Val(sh.Name) > 0 And Val(sh.Name) < 21...
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.
[syntax=txt]=MAX((INDIRECT(E1&"!C:C"...
Ciekawy temat. Po wykonaniu kilku testów zauważyłem, że jak nazwa arkusza jest "R", to kod się sypie. Zmień nazwę arkusza na RR i będzie działać. Wygląda na jakiś 'bug'.
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))....
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
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...
.Parent dla ActiveWorkbook jest program Excel, wtedy zapisze w sciezku Excel'a naprosto .Path jest sciezka do pliku Split(.Name,".")(0) daje np. 'faktura' Dodano po 2 wtedy[syntax=vb]With ActiveWorkbook Selection.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=.Path & "\" & _ Split(.Name, ".")(0) & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True,...
SOA#1: "A u mnie działa" ;) A tak na poważnie - nie wiem, dlaczego nie działa u Ciebie odwołanie do arkusza o nazwie ze spacją... Możesz użyć odwołania przez indeks: Worksheets(1).Cells(1.1) Rozwiązanie ryzykowne, bo ktoś może skasować jakiś arkusz i indeksy się pozmieniają... Wg. mnie najbezpieczniejsze jest odwołanie przez tzw. .CodeName: Arkusz1.Cells(1.1)...
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...
Zmieniłem nieco koncepcję. Kopiowany jest ukryty arkusz "Wzór", automatycznie przypisywana nazwa i zapisywana w zestawieniu. Dopracuj, jeśli odpowiada Ci takie rozwiązanie.
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...
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...
W drugim pliku arkusze mają nazwy dni tygodnia Poniedziałek, wtorek, środa...... Kiedy pracuję na pierwszym pliku (zestawieniu) np tydzień40.xls/poniedziałek to z drugiego pliku potrzebuję danych z pliku Zalegle39.xls/piątek W drugim pliku są dane z poprzedniego roboczego dnia pracy. Jeśli piątek jest dniem wolnym od pracy to dane z drugiego pliku będę...
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...
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
arkusz nazwa nazwa komórka nazwa arkusz nazwa arkusz odwołać
vestel 17ips72 instrukcja vissman wyświetlacz sterownika pieca defro
materiały budowlane radio pionier schemat
Audi A3 8P Sportback - tylna lewa lampa nie świeci Wyświetlacz LCD do Blaupunkt BB18BK – gdzie kupić, zamienniki, serwis
