arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
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...
O! Widzę, że zmieniłeś #1. teraz nieco jaśniej. Jeśli kolejno, to przypisz najpierw wartość zmiennej "i" Gdzieś będzie skrajny/górny wiersz, Np drugi. Wtedy: i = Range("B2").end(xldown).row +1 (albo od dołu, jeśli nie ma nagłówka) Poskładać do kupki (konkatenacja) wartości TextBox'ów też nie powinno stanowić problemu, Np cells(i,2) = textBox1.text &...
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...
Funkcje w Excelu mogą pobierać dane z bieżącego, bądź dowolnego innego arkusza. W moim przykładzie utworzyłem arkusz Wyniki, pobiera on dane z wcześniejszego arkusza (Arkusz1). Zobacz, jak zmienił się zapis funkcji. Jeśli funkcja ma pobierać dane z innego arkusza to przed komórką (lub zakresem) wpisujesz nazwę arkusza z wykrzyknikiem.
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...
Musisz zrozumieć podstawy VBA, najlepiej coś na ten temat przeczytaj. Każdy zapis w VBA musi albo coś deklarować albo coś wykonywać. Twoja pierwsza linijka kodu ani nic nie deklaruje, ani nie wykonuje. Od drugiej powinno być dobrze pod warunkiem, że arkusz SPR jest aktywny. Nie możesz tak chaotycznie używać Range poprzedzonego nazwą arkusza i bez tej...
Przydałby się przykładowy plik, żeby chcący Tobie pomóc, nie musieli robić tego za Ciebie.
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Rozbudowałem Ci to makro tak, żeby uwzględniało operacje na kilku komórkach jednocześnie, ale nie zmieniałem zasady jego działania. Więc jeśli zależy Ci na historii wszystkich komórek, musisz przestrzegać pewnych reguł. Makro działa w ten sposób, że po zaznaczeniu komórki/komórek zapamiętuje ich zawartość i adres (procedura SelectionChange). Następnie...
Zależy jak zrealizowałeś listę. Najprościej (w Excelu, ale w OO będzie podobnie) wstawić formularzowe pole kombi, w arkuszu pomocniczym wpisać kolejno wszystkie funkcje z odwołaniem do arkusza roboczego, i wykorzystać funkcję INDEKS po łączu komórki pola. Funkcja INDEKS pobiera sobie wynik z arkusza pomocniczego, a jej zapis będzie może ciut dłuższy...
co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...
Czy liczby, np. pod "-Q0" to numery rysunków? 2) Z czym związany jest jest "-" przed "Q0"? Numer wyłącznika w danym polu. Mając dwa wyłączniki pod rząd w danej linii będziesz miał -Q0 i -Q1, -Q2, itd. Minus przy -Q zastąpiony będzie numerem pola w którym na schemacie ten wyłącznik się znajduje. Zakładając, że będzie to pole 1, to będzie 1Q1. 3) Co...
Funkcja ADR.POŚR pobiera dane tylko z otwartego pliku, więc tu raczej się nie nada. W Excelu można to zrobić odpowiednim makrem, ale dostosowanym do konkretnego problemu. Twój zapis formuł wskazuje jednak, że to nie jest Excel. Podaj dokładnie jakiego programu chcesz użyć i więcej szczegółów o tych danych (czy to są pojedyncze komórki z każdego pliku,...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
Witam! Mam złą wiadomość dla kolegi: 1) w plikach xlsx istnieje możliwość odtworzenia pierwotnej kolejności wprowadzania danych - w pliku ("wewnętrznym" :idea: ) sharedStrings.xml - wpisywane są kolejne wartości komórek tabeli arkusza :D Sortowanie tabeli (i zapis zmienionego układu) nie zmienia pliku sharedStrings.xml :spoko: Treść przykładowego pliku...
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Przesiedziałam już mnóstwo godzin, przejrzałam kilka tutoriali, ale dalej jest to dla mnie czarna magia... Czy ktoś mógłby mi pomóc? Ok. przedstawiłeś logicznie jak ma to wyglądać. Ale w czym ci pomóc? Przecież to proste więc nie wiem gdzie szukałeś. Dwie pętle "for". Najpierw dla tabeli A z warunkowym "if" jak w G jest X i zapis do tabeli C. Potem...
Pozwoliłem sobie wtrącić bo mam chwilę czasu. Dodaj jeszcze jedno jeżeli() które sprawdza czy jest zapis w komórce przylegającej do danych. http://obrazki.elektroda.pl/3459288200_1...
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
W porządku, więc skoro dopiero zaczynasz, to: 1. Utrzymuj porządek w kodzie - wcięcia, odstępy między blokami kodów, pozycjonowanie składni typu ' If ... End If ', ' Select Case ... End Select ', itd. Robisz to co prawda dla siebie, nie dla innych, ale im większy będziewsz mieć porządek, tym szybciej będziesz mógł coś zmienić, poprawić, przestawić,...
... 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...
Co zrobić, aby po po zmianie wartości w kolumnach 5,6,7,8; Data i godzina w kolumnach B i C pozostała niezmieniona. Odpowiadając tak na "sucho" ... trzeba do kodu dodać coś takiego: Wariant I If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then " można skrócić do " If Target.Column >= 5 And Target.Column <=...
No cóż kolego Adamas. Wywołałeś lekką polemikę, a że temat jest ciekawy myślę, że warto (w ramach wymiany doświadczeń). :D Nie to, że chcę się kłócić lub udowadniać przewagę jednego operatora nad drugim, ale nie do końca się z Tobą zgadzam. Przytoczony przez Ciebie cytat (pobrany zapewne z help-a) jest niepełny. Ale o tym później. Nie ma żadnego logicznego...
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
https://obrazki.elektroda.pl/8025280500_... Witam! Przedstawiam wam w pełni automatyczną domową windę osobową! Jest to mój największy, najbardziej skomplikowany, i najdroższy projekt którym chwaliłem się jakiś czas temu w dziale „DiY w budowie”. (https://www.elektroda.pl/rtvforum/viewt... Na początku...
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Witam, Zielony z makro szukam pomocy :-) Uprościłem pytanie, poszukuję makra które uruchamiałoby się automatycznie po wprowadzeniu zmiany w arkuszu dane C3, makro powinno zapamiętać i zapisać poprzednią wartość C3 do arkusza zestawienie C5, przy kolejnym wpisie do C3 w danych, kolejny zapis w C6 w arkuszu zestawienie itd. Mógłby ktoś pomóc w stworzeniu...
Jak powiedziałeś z powyższej odpowiedzi, jeśli usunąłem wartości śmieci, flashując oprogramowanie układowe 2 MB, powiedziałeś, aby wykonać kopię zapasową adresu Mac i jak mogę wykonać kopię zapasową adresu MAC? po prostu zmień MAC na cokolwiek chcesz po wykonaniu flashowania, możesz zmienić MAC w ustawieniach obk Czy mógłbyś wyjaśnić, nie rozumiem...
To jest tzw. problem XY. Zadajesz pytanie nie na temat faktycznego problemu, który chcesz rozwiązać, tylko na temat wymyślonego przez siebie sposobu rozwiązania tego problemu, sposobu który nie jest właściwy. Kod, który podałeś w załączniku jest powtórzony ileś tam razy - czy to jest konkretna liczba powtórzeń, czy zależy od liczby danych? Nie jest...
Wracam jeszcze do tematu, bo zauważyłem, że jeśli w polu nazwy wpiszę inną nazwę niż ta, która jest w komórce p1 w arkuszu "ilości", to zapisuje się tylko plik xls a pdfy nie są tworzone. Można to jakoś poprawić, bo czasem są sytuacje, w których trzeba zmienić nazwę, albo dodać do niej dopisek, i wtedy zapis 3 plików jednocześnie nie zadziała. Jeszcze...
Zarejestrowałem poniższe makro, które miało za zadanie tworzyć kopię arkusza "CZAS PRACY" i zapisanie go na "pulpicie", z tym że nazwa pliku pobierana jest z komórki (w tym wypadku AQ3). Makro działa dobrze z tym wyjątkiem że nazwa pliku jest przypisana na stałe. Jak należny zmodyfikować kod, aby nazwa pliku była aktualizowana zgodnie z zawartością...
a może znasz inną metodę zapisu arkusza do pliku TXT tak by przy zapisie nie było "" "ciapek" Nie wiem, o której wersji mówisz, ale 2007, [syntax=vb]ActiveWorkbook.SaveAs Filename:="D:\Moje dokumenty\Desktop\Zeszyt1.csv", FileFormat:=xlCSV, CreateBackup:=False[/syntax] zapisuje bez cudzysłowów.
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...
Hej https://ww1.microchip.com/downloads/en/D... This document for mec1732 I need erase eeprom interne with pin (at)ElektrodaBot Wstępna ocena dostępnych informacji Odwołałeś się do arkusza danych Microchip MEC172x (DS00003583G) dla urządzenia MEC1732, pytając konkretnie, czy możliwe jest wymazanie jego wewnętrznej...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Zupełnie o tym zapomniałem. Teraz wszystko działa. A czemu kwalifikator nie jest potrzebny przy zapisie danych do pliku, w którym jest makro. Poniższy zapis działa poprawnie. TenPlik.Range(Cells(OWD + 20, 4), Cells(OWD + 22, 38)) = Dane Przy odczycie danych z pliku zewnętrznego nawet po otworzeniu pliku i ustawieniu arkusza "Wyniki zbiorcze" jako aktywnego...
Cała zabawa polega na tym, że skoroszyt ma być szablonem dokumentów systemowych. Chodzi o to , żeby każda osoba tworząca dokument określiła w komórkach arkusza EXPORT lokalizację i nazwę oryginalnego pliku, lokalizację i nazwę kopii, którą udostępnia użytkownikom, oraz lokalizację i nazwę dokumentu nieedytowalnego do wykorzystania przez dział produkcyjny...
Tak jest jeśli chodzi o import to działa właśnie przy tych ustawieniach co 1 minuta automatycznie mi odczytuje uaktualnione pliki i właśnie się zastanawiałem czy jest szansa zwiększyć częstotliwość tego odświeżania. Ale właśnie boje się ze to wszystko się wysypie gdy będzie tak często odświeżane. Dodano po 5 Tak na dobra sprawę to najważniejszy był...
Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...
Jeśli w arkuszu danych obwodu multimetru jest napisane przed rezystorem R5=10 KF. Oznacza wielkość rezystancji? Czy może chodzi o coś innego? W kontekście, który opisujesz, "R5=10 KF" w karcie katalogowej jest trochę nietypowe. Zazwyczaj wartości rezystancji są podawane w omach (Ω), kiloomach (kΩ) lub megaomach (MΩ), a "KF" nie jest zgodne ze standardowymi...
Krótszy zapis to: [syntax=vbscript]Range("A1:A10, D2:D12").Select[/syntax]
Trochę po czasie ale: - za wcześnie dodajesz wpis, - nie dodajesz zapisu !important, żeby nadpisać natywny zapis z innego arkusza - arkusz css jest zapisany w pamięci podręcznej
Dziękuję za szybką pomoc. Zmodyfikowałem ten kod zmieniając adres komórki z nazwą. Po przekierowaniu do innego arkusza niż ten, w którym znajduje się przycisk "zapisz" pojawia się okno zapisu, ale nie wczytuje się nazwa ze wskazanej komórki. Kod po zmianie wygląda tak: [syntax=vbscript]Private Sub CommandButton1_Click() plik = Application.GetSaveAsFilename(Sheets("il...
Witam, mam problem z zapisem skoroszytu, jako plik txt, przy włączonej ochronie arkusza (z hasłem). Wszystko działa dobrze, dopóki nie zabezpieczę kodu VBA hasłem - wówczas pojawia się: Run-time error '1004': Method 'SaveAs' of object'_Workbook' failed [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="C:\!\Test1", _ FileFormat:=xlTextPrinter ActiveWorkbook.Close...
Korzystając z ciekawostki kolegi PRL chciałbym przestawić rozwiązanie mojego problemu z kilku postów wyżej. Chodzi o to, że po usunięciu pozycji dwuklikiem móc cofnąć operację usunięcia wiersza. Makro poniżej sprawia, że po podwójnym kliknięciu w arkuszu "szablon" w pierwszej kolumnie w danym wierszu wiersz ten zostanie najpierw skopiowany do arkusza...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
Worksheets("nazwa arkusza") Taki zapis będzie stosowany do istniejącego arkusza o nazwie 'nazwa arkusza', którego zapewne nie ma w skoroszycie.
kopia arkusza blokada arkusza wybranie arkusza
symbol kłódki przekroczenie limit zasilać większy zasilacz laptopie
focus szarpie silnik benzyna p0171 volvo
Schemat balansera akumulatorów żelowych 24V TL431, MOSFET, Victron, Volt Polska Mikrofon nie działa po wymianie płyty głównej i mikrofonu - przyczyny
