Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
[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...
Trudno powiedzieć dlaczego. Kod wygląda normalnie. Spróbuj treść maila zapisać do jakiejś zmiennej typu string przed utworzeniem maila i zobacz czy jest tam co trzeba np. poprzez Debug.Print. Potem to wykorzystasz, a przy okazji będziesz mógł zrobić drugiego with'a, co znakomicie skróci zapis. PS. Nie rozumiem po co tworzyć, a potem zwalniać niepotrzebne...
Rzeczywiście przy odrobinie złej woli można to makro wprowadzić w błąd :cunning: Żeby ograniczyć tą możliwość - zamień jeszcze kod "With Selection.Cells" na "With Target.Cells" :ok:
Ponieważ spodziewałem się takiego obrotu sprawy dodałem do pliku skrypt który nie pozwoli na uruchomienie tego pliku po pewnej dacie. To lepiej (po określonej dacie) jest usunąć cały 'module' z kodem przy 'otwarciu', niż zabezpieczać, póki chodzi to nikt pewnie nie będzie sprawdzał jaką datę ustawiłeś na zablokowanie pliku :) (ps. usuwanie całego kodu...
Wita chciałbym się dowiedzieć czy może uporał się Pan z tym problemem, bo ja właśnie miałbym bardzo podobny problem.
Może źle wpisałem funkcje O, to to... ;D Wpisujesz Arkusz2!A:B (ewentualnie Arkusz2!$A$2:$B$15 - koniecznie z dolarami i do końca zakresu, który powinien pozostać wtedy niezmienny) a nie Arkusz2!A2:B2.
Podzielność sprawdza się operacją pozyskiwania reszty z dzielenia (dzielenie modulo). W VBA jest to operator [url=https://docs.microsoft.com/pl-pl/do... Jeśli daje wynik 0 to znaczy, że liczba lewa jest podzielna przez prawą. Zatem (Range("C81").Value Mod 4 = 0) będzie warunkiem podzielności.
hej, Czy jest jakaś możliwość zdjęcia szyfrowania wszystkich plików znajdującyhc się w danym folderze?
Witam Forumowiczów, mam problem z napisaniem makro, które może usuwać powtarzalne sekwencje w trzech kolumnach i jednocześnie zostawiając tę jedną sekwencję unikatową. Np. wygląda to tak, kolumny ABC i poziomo wiersze. Jeden raz się powtarza sekwencja 123, którą należy usunąć. 123 456 789 123 147 258 369 Proszę o pomoc.
Witam. Potrzebuje makro, ktore pobierze wartosc z danej komorki (konkretnie chodzi o miesiac z daty) a następnie przejdzie do innego pliku do arkusza o nazwie (badz numerze) tego miesiaca. Do tej pory korzystam z nagrywania i nie moge sobie z tym poradzic. Do tej pory probowalem ze standardowa deklaracja zmiennych... Dim miesiac As Worksheet miesiac...
może kolega zaproponowałby tak owe rozwiązanie A proszę bardzo (tylko "Forms" to nie "pytanie" a "obiekty" innymi słowy okienka): Kłopot polega na tym że jak dopiero zaczynasz to możesz się zniechęcić patrząc na "aż tyle" nowości - mimo że wbrew pozorom to nie jest trudne do zrozumienia. Krótka instrukcja: Dopóki nie zamkniesz okna i będziesz wciskał...
Na szybko napisałem ci skrypt wyciągający daty ze stringów. Wyrzuca je w kolumnie "J". Na resztę na razie nie mam czasu, bo lecę w trasę. Jeśli chcesz aby dopisać resztę, to się odezwij. Będę we wtorek.
Przeczytaj pomoc do programu, nie mam je, to jest Twoj program. Prawdopodobnie to jest cos jak terminal, zazwyczaj mozna parametry w pliku. Uruchom ptw32.exe /? co powie... Dodano po 10 Wszystko mozna wprowadzic w skrypt .psl a uzywac je jako parameter Dodano po 2 Ponadto ptw32.exe ""parameter ze spacje""" Nie ma spacji między znakami cudzysłowu
mam mały problem, gdyż muszę klepnąć skrypt na zawody dla dzieci w rzucaniu modelami samolotów. Każdy dzieciak ma 6 rzutów, z czego excell ma dla każdego dzieciaka zsumować tylko 3 najlepsze rzuty (w sekundach). Jeśli nie da się tego ugryźć standardowymi funkcjami może jakieś makro, które posortuje każdy wiersz, potem zsumuje... to mi wyszło, ale tylko...
Dobry pomysł, aby dołączyć plik danych DICOM
Zależy jeszcze co chcesz zrobić. Proste klikanie możesz próbować ogarnąć w oparciu o analizę kolorów wybranych pikseli. To daje informację czy strona już się załadowała i jaki jest wynik. Odczytać liczbę lub tekst już raczej nie, chyba że masz pojęcie o OCR i/lub dostęp do bibliotek. Zaleta: może działać na każdym kompie o tej samej rozdzielczości (o...
Witam. Na samym wstępie proszę o wyrozumiałość, jestem osobą raczkująca jeśli chodzi o VB. Prosiłby o pomoc w napisaniu kodu który pomoże mi w skopiowaniu określonego zakresu wierszy spełniających określone warunki. W arkuszu "1" jest tabela składa się z kolumn A:E; w kolumnie E jest lista rozwijalna z zakresem "Tak;Nie" Chciałbym aby tabela była analizowana...
Sporo tabel to ile? Więcej niż 100? Nie znam żadnego sposobu, że "automatycznie" dodać kolumny do wszystkich tabel, o ile mi wiadomo, w sql-u nie ma takiej możliwości, ewentualnie jakaś funkcja accessa, aczkolwiek nigdy o niczym takim nie słyszałam... Ewentualnie pozostaje uproszczenie pisania sobie skryptu alter table (np w excelu).
Witam Napisałem skrypt który robi po kolei różne kroki/ obliczenia itp. Skrypt nie działa w żadnej pętli ponieważ nie ma takiej potrzeby. czyli przechodzi od góry na dół raz i kończy prace. Skrypt ma dużo danych do przetworzenia i zajmuje kilkadziesiąt sekund. Przy pewnych krokach zrobiłem komendę pokaż 10% zawansowania później 20% itp. i to działa....
Skrypt VBA z odpowiednią (uniwersalną) pętlą.
Dzień dobry, Szanowni Panowie, potrzebuję pomocy. Stworzyłem prosty skrypt logowania w VBA, niestety loguje się do całego arkusza, a chciałbym, aby można było logować się do konkretnych arkuszy. Na przykład, po wpisaniu nazwy użytkownika: 111 i hasła: 111, otwierałby się tylko arkusz nr 1. Po wpisaniu nazwy użytkownika: 222 i hasła: 222, otwierałby...
Usuń tę linię, uruchom kod i podaj błąd. Nie wyświetla się błąd przechodzi cały skrypt tylko nic nie importuje sprawdzałem poprawność nazw, zaraz wrzucę pliki bo może coś źle robię
Używam od kilku lat skryptu z postu: https://www.elektroda.pl/rtvforum/topic3... Autora lanzul. Do tej pory było Ok. Wszystko. Ale od zeszłego roku Windows widzi problemy wszędzie gdzie ich nie ma. Wyskakuje błąd, że okno nie jest aktywne i skrypt nie chce tworzyć kolejnej części prezentacji. Ktoś ma pomysł jak się przed tym zabezpieczyć, poprawić?...
Napisany skrypt w Power Query.
Może ktoś z was ma pomysł jak to ugryźć. W przesłanym pliku widać wyraźną strukturę danych: numer rekordu, imię i nazwisko, zatrudnienie, edukacja itd. Jeśli ta modyfikacja jest potrzebna jednorazowo dla kilkunastu rekordów danych to najszybciej można ją zrobić metodą wytnij-wklej :D Dla kilkuset rekordów czy przy stałej potrzebie modyfikacji takich...
Pomysł bardzo fajny. Niestety nie mam pojęcia o pętlach w vba. Nie będę ukrywał, że ucieszyłby mnie gotowy skrypt do użycia.
Witam serdecznie wszystkich. Mam problem, który postaram się w miarę jasno opisać. Próbowałem funkcji "Znajdź", "fragment tekstu" i jestem w martwym punkcie. Chodzi mi o to, że w komórce np. A1 jest ciąg znaków np. "do-re-mi-fa". Zawartość komórki A1 jest zmieniana przez skrypt VBA i czasem wartość tej komórki (A1) zmienia się na "sol-la". Jeżeli komórkę...
prosiłbym o pomoc w znalezieniu błędu w kodzie, dysponuję takim oto napisanym przez siebie kodem. [syntax=vbscript] Private Sub Workbook_Open() Dim Wydano, Dzis As String 'wprowadzenie dzisiejszej daty do komórki P2 Worksheets("licence").Cells(2, 16).Select ActiveCell.FormulaR1C1 = "=TODAY()" Wydano = Worksheets("licence").Cells(1, 16) Dzis = Worksheets("licence").Cells(2,...
Nie sadze zeby bylo cos co zrobi to automatycznie. Trzeba napisac skrypt uzywajac VBA.
Dzięki za odpowiedź. A mógłbyś napisać cały kod jak to powinno wyglądać? Jestem kompletny łoś, jeśli chodzi o VBA. Dodatkowo, czy znacie może skrypt VBA który by kopiował całą zawartość z pliku powiedzmy RAPORT.csv do BAZA.xls? Z góry dziękuję.
skrypt do tworzenia katalogów
W bacie [syntax=dos](at)echo off pushd "\\adresserwera.abc.pl\DFG$" forfiles /s /m T* /d -7 /c "cmd /c if /i (at)isdir==true rd /s /q (at)path" popd[/syntax] ps. oczywiście dla każdego dysku osobno a nie jak masz DFG$ (bo rozumiem że to twoje dyski?)
A jak można zmodyfikować linię (i ewentualnie okolice): [syntax=vbnet] Set w2k2 = Columns(k1).Find(What:=w1k1, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchFormat:=False) [/syntax] żeby skrypt szukał i pobierał dane z innego arkusza? Nie widze takiej opcji do dodania w składni Range.Find.
Formatowanie warunkowe --> http://office.microsoft.com/pl-pl/excel/... Alternatywnie, możesz posłużyć się skryptem VBA (w sieci jest mnostwo gotowcow), ale czuję, że to jeszcze nie ten stopień znajomości Excela :-)
Piszę jeden post pod drugim ponieważ urodził się kłopot. Skrypt działa doskonale, jednak wcześniej nie dodałem że zakładek z firmami będzie 12 (Styczeń, Luty, Marzec ... itd). Nie za bardzo wiem jak to przenieść na kolejne zakładki. Skrypt VBA próbuję zostawić tak jak jest, na zakładce Luty jako łącze formantu daję Styczeń!$A$2 (bo tak mam zrobione...
problem rozwiązuje troszkę inaczej za pomocą skryptu VBA tworzę sobie PDF i jego będę wysyłał mailem. Pojawia się problem teraz z tym żeby skrypt zapisywał mi plik na pulpicie niezależnie od komputera na jakim działa. FileName = Create_PDF_Sheet_Level_Names("addtopdf", "C:\Users\xxxxxxxx\Desktop\Monitoring.pd... True, True) Co powinienem wstawić w ścieżkę...
witam muszę prze konwertować następujący skrypt VBA ja język javascript.. problem stanowi funkcja For Each, próbowałem wykorzystać funkcję For(var objDrive in colDiskDrives) {} ale bez efektów.. [syntax=vb] strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colDiskDrives = objWMIService.ExecQuery("SELECT...
Macie jakiś pomysł ? Do automatycznej analizy wyciągów bankowych (ING pliki .sta) wykorzystuje skrypt VBA oparty na wyrażeniach regularnych :idea: Cały "witz" przy stosowaniu tych wyrażeń sprowadza się do sformułowania takiego wzorca, który wychwyci wszystkie pożądane podstringi :D Niestety prawie każdy bank ma inny system i schemat sporządzania wyciągów,...
Hey Szukam makra lub skryptu który będzie odpalał inne makro o określonej godzinie. Pomożecie ? Lepiej makro czy skrypt ?
(at)widzu Jeżeli masz zero pojęcia o elektronice i programowaniu to będzie ciężko. Jeśli masz jako takie, to gotwce, które dostosujesz do własnych potrzeb znajdziesz w necie. W power point robisz prezentację, w miejscach, w któych coś ma się zmienić w oświetleniu wstawiasz prosty skrypt VBA do komunikacji przez port szeregowy (może być emulowany na...
1. potrzebuje pomysłu jak zabrać sie za makro... formatowanie danych wejsciowych ... i sprawdanie poprawności danych. Obawiam się kolego, że takie dane nie nadają się do automatyzacji obróbki przy użyciu VBA. W mojej ocenie pochodzą one z niezbyt precyzyjnego oprogramowania OCR i dlatego nawet po ewidentnie ręcznej obróbce w arkuszu AFTER mają dziesiątki...
Mam dokument, kilkaset stron, studium wykonalności technicznego projektu. 21 megabajtów, tabele, ilustracje, wypunkty, pięciopoziomowy podział na rozdziały. Edytowany i poprawiany przez kilkanaście osób z konsorcjum. Efektem jest to, że w dokumencie nikt już nie ogarnia, jakimi stylami powinny być nagłówki tabel, jakimi podpisy pod tabelami i rysunkami,...
Niestety nie mam możliwości uzyskania pliku w innym formacie. Jest to dokument z procesu sprzedaży, który chce zautomatyzować w swojej pracy, dlatego zaczęłam interesować się vba. Skrypt działa w wersji Pro. Nie działa w Readerze. Może poszukam, jakiegoś kodu przerzucającego od razu do tabeli Excela. Może faktycznie będzie łatwiej. Spróbuję.
Witam Poszukuje skryptu VBA który przepisze mi kolor tła z określonego zakresu komórek automatycznie (ja zmieniam w jednym arkuszu on automatycznie zmienia w innym). Pierwszy wariant: Powiedzmy zakres ( =Arkusz1!A1:A12 ) zostanie odwzorowany do następnego arkusza na inny zakres ( =Arkusz2!B1:B12 ). Po prostu odwzorować kolorowanie komórek. Drugi wariant...
To o ręcznym przepisywaniu to było do poprzedniego postu w którym ktoś pisał o z OCR'owaniu i daniu do pdf'a, ja dodałem, że można zamiast robić OCR, przepisać... Nie wystarczy zwykła blokada TYLKO DO ODCZYTU ? przecież jak ktoś chce sobie wyedytować to sobie przepisze i będzie miał ... W blokadzie zapisu chodzi o to, żeby ktoś nie zmienił pliku (np....
Nie bardzo rozumiem, gdzie w tym jest ukryty problem. Zerknij na arkusz i napisz co jest nie tak:
Świetnie:) dziękuję:) dzisiaj będę testował ten skrypt i napiszę popołudniu jak mi wyszło:)
Dzięki za odpowiedz, ale nie szukam rozwiązania doklejania dokumentów jeden pod drugi tylko łączenia tekstów z 2 dokumentów według ustalonej hierarchii NAGŁÓWKÓW i PARAGRAFÓW. Inaczej się nie da. Włącz rejestrację makra. Połącz dokumenty i wyedytuj aby miały ustaloną przez ciebie hierarchię nagłówków i paragrafów. Zapisz tak wygladający dokument. Wyłącz...
Nie wiem, jak Ci pomóc. Gdzie szukałeś żółtej linii, w arkuszach? Tak w arkuszach myślałem, że wyświetla wadliwe dane albo miejsce, którego nie może "przeskoczyć" Jesli chodzi o sam skrypt to tam tez nie podświetla mi nic na żółto
Witam, potrzebuję utworzyć skrypt w VBA ( koniecznie VBA :) ) który będzie w stanie pobrać wartość z komórki o adresie (35,6) z każdego arkusza z wyjątkiem indeksowanego jako (1)(2)(3) oraz arkusza który jest indeksowany jako ostatni jednak jego index jest zmienny ponieważ tworzone arkusze są kreowane przed nim, a nosi on nazwę "Podsumowanie". Chciałbym...
Na początek musisz jednoznacznie określić co rozumiesz jako "zeszyt", a co jako "arkusz" :D bo chyba trochę pokręciłeś, oraz określić format excela (xls czy xlsx ?). Przyjmuje że "Workbook" to "zeszyt" i "Worksheet" to arkusz, a dalej zgodnie z Twoimi założeniami - w arkuszu "Dane" masz ustawioną (w kolumnie 19 :?: ) tabele nazw dla nowych arkuszy (domyślam...
Dziękuję, pierwsza metoda działa ok. Jednak teraz mam problem z pobieraniem listy plików na dysku sieciowym. Tj skrypt działa w folderze na komputerze, ale już nie na zmapowanym dysku sieciowym. odrazu wyrzuca z pentli, bo localization=""
skrypt wyłączania backup skrypt skrypt kopiowania
czujnik powietrza wlotowego cyfrowy pomiar prądu sondy lambda citroen berlingo
podłączenie alarmu skuter komparator histereza
Czy wyłączniki siłowe działają przy 2-15V, 15mA? Podgrzewacz wody: ciepła woda, potem zimna - przyczyny i rozwiązania