https://obrazki.elektroda.pl/9760997100_... Witajcie moi drodzy. Przedstawię tu wnętrze starego tunera sat Kathrein Innovatron UFD 41 260211 a potem spróbuję pokazać działanie kilku ciekawszych części ze środka i omówić ich zastosowanie w projektach DIY. Uruchomię tutaj m. in. modulator RF od ALPS, przełącznik A/V TDA8440 (poprzełączamy...
(...) wo wartość "aaa" na wartość "bbb". Wartość miała by być wyszukiwana i zamieniana w kolumnie C. Najlepiej jakby się uruchamiało po edycji danych właśnie w kolumnie C. Ważne żeby było tylko przypisane do jednego arkusza tak aby po zmianie danych w innym arkuszu w kolumnie C się nie uruchamiało. Dziękuje. Wstępna ocena dostępnych informacji Witam,...
Dobry 300W z pewnością wystarczy. Twój zestaw pobiera jakieś 140W? Wyczyść to chłodzenie z kurzu i przy zmianie procesora połóż nową pastę termoprzewodzącą i temperatura z pewnością spadnie. Doradzałem Modecom MC , a nie jakieś LOGIC czy inne FEEL. Co do zdjęć to tryb makro w aparacie lub telefonie naprawdę nie gryzie.
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...
Wykorzystałbym zdarzenie arkusza "przy zmianie". Jeśli ilość wierszy w arkuszu jest zmienna, należy określić jakiś "punkt orientacyjny" Np wyraz "NR" (aktualnie w A26). Wtedy[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Row = Cells.Find(what:="NR", lookat:=xlWhole).Row Then wrs = Sheets("Dane").Columns(2).Find(what:=Tar...
No niestety w obu plikach są też inne dane, a na dodatek trzeba sprawdzić nie jeden, a kilka zakresów danych (dokładnie 8). Excel ma naprawdę duże możliwości, ale domyślać się nie potrafi. Trzeba określić rzeczy stałe, podać ewentualne granice tych, które mogą ulegać zmianie, a jeśli makro/funkcja ma działać w różnych zakresach, czyli być uniwersalne/a,...
Niestety nie zobaczę twojego pliku (pobieranie zabronione), ale mam dla ciebie materiał do przemyśleń: [syntax=vbscript] Private Sub testEl() Dim y As Long, i As Integer, V As Integer, v1 As Integer Dim Tb() As String y = 2 Do While (Cells(y, 1) <> "") Tb = Split(Cells(y, 1), " ") V = 0 For i = LBound(Tb) To UBound(Tb) Step 2 Select Case Tb(i...
Na VBA się nie znam, ale elementy html można pobierać np. po nazwie taga bądź klasie. Tutaj 'document api': https://developer.mozilla.org/en-US/docs... Warto zwrócić uwagę na metodę querySelector i querySelectorAll: https://developer.mozilla.org/pl/docs/We... która pozwala na bardzo dokładne określenie, jakich...
Czy takie makro da się zrobić? Tak :D , ale chyba lepiej dwa oddzielne :spoko: Po drobnych zmianach w pliku tygodnie.xlsm 901448 umieszczony w Module1 kod sprawdza "stan arkuszy" i ewentualnie przygotowuje arkusz na nowy tydzień :!: Zmodyfikowano również plik suma pól.xlsm 901451 i wyposażono w makro do kopiowania potrzebnych Ci wartości z aktualnego...
A nic nie pisałeś, że chcesz zautomatyzować jakąś czynność :) Zwykle robi się to kompleksowo. Pobieranie danych z zewnętrznego źródła lub t.p. a same działania matematyczne są jakby przy okazji. Po drugie, makro pisze się raczej w sytuacjach, gdzie nie ma możliwości stosowania funkcji wbudowanych, a póki co (przynajmniej ja) nie widzę takiej potrzeby....
Musisz wpisać coś takiego: ActiveWorkbook.XmlImport URL:="C:\Users\Humano\Downloads\" + Worksheets("Obliczenia").Range("D1").Val... _ Kolejna prośba o pomoc Chcę wykorzystać dane pobrane do tego arkusza w innym arkuszu w tym samym skoroszycie ale zmienia mi formuły Jeżeli np ustawię przykładową formułę w arkuszu "Obliczenia" =SUMA(Dane!BB2) to po zaimportowaniu...
Tak na szybko masz tu makro, które chyba robi to co chciałeś. założenia - pliki są w katalogu C:\dane - pobierasz nazwę do szukania z komórki B3 - szukasz takiego produktu w kolumnie B - w obu plikach arkusze nazywają się Dane - zakres poszukiwania w kolumnie B jest ograniczony do 30 - wartość dotycząca szukanego produktu jest pobierana z komórki sąsiedniej...
Cześć! Drodzy forumowicze! Mam przed sobą następujące zadanie. Piszę makro które ma za zdanie wysłać maila na wskazany adres pobierając dane (jako treśc maila ) z komórki A1 oraz A2 ale ma wysłać taką wiadomość dopiero kiedy w tym wierszu w którejkolwiek z kolejnych komórek A3-A10 pojawi się umowiony symbol np: 1. Makro powinno działać dla wszystkich...
Witam, Potrzebuje napisać makro, ktore bedzie mialo dwie pętle. Pierwsza pobierać nazwy z nagłówka kolumn, kopiować je, przechodzic do nastepnego arkusza, tam druga pętla bedzię szukała wartośc pobranej z pierwszego arkusza, czyli nazwy kolumny. jesli znajdzie taką samą nazwe kolumny to kopiuje nagłówek z całą zawartością kolumny i wkleja ją do pierwszego...
Mógłbyś jeszcze mi podpowiedzieć jak zrobić makro na wszystkich plikach w folderze ? W poprzednim moim temacie napisałeś kod: [syntax=vbscript] Sub DzialajNaPlikach() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder" .InitialFileName = Environ("USERPROFILE") & "\Documents\" If .Show = -1 Then Sciezka = .SelectedItems(1)...
Mirekk36, Twój program już na pierwszy rzut oka bedzie działał, bo pobierasz dane z tablicy. Chciałem na początek poćwiczyć z tymi przesunięciami bitowymi... No żeby używać przesunięć to żaden problem ale najpierw warto gdzieś poczytać dokładnie o co chodzi z tymi przesunięciami. Widziałem w sieci taką makrodefinicję: Taaaak jest to powszechnie znana...
Poniżej "szybki" przykład z niewielkimi makrami dotyczący pobierania danych z pliku o zmiennej nazwie. Dodałem tez drugie makro do zapisu danych bez formuł (po zapisie wynikowy arkusz się zamyka (ten niewielki widok przełączania miedzy plikami można wyeliminować). Przed wyborem nazwy pliku sprawdź ścieżkę dostępu wpisaną w arkuszu2. Bo bedziesz musiał...
Teraz chciałbym wykonać pewne makro na wszystkich plikach w danym folderze. Wydaję mi się że to jest wykonalne, ale czy nie znając zaawansowanych funkcji w vba jest to możliwe ?
Nie wiem z jaka predkoscia dziala to co testujesz, a czy probowales np. otwierac jednak skoroszyt z ktorego pobierasz dane i po pobraniu go zamykać ? najprosciej: Sub Makro1() Workbooks.Open Filename:= "C:\\jakisarkusz.xls" //otwiera arkusz Range("C6").Select //wybiera komorke z ktorej bedzie kopiowac Selection.Copy //kopiuje ActiveWindow.Close //zamyka...
Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy pobierać je od ... np.: r = 10 ... to pobierzemy...
Chciałbym stworzyć makro, które pobierze jedną "daną" z kolumny C, jedną z E i jedną z G i np w kolumnie I poda mi "połączoną wartość". Pierwszy przykład a1b1c1d1e1f1g1h1i1j1k1. Kolejny to np a1b1c1d1e1f1g1h1i1j1k2. I tak dalej. Aż do połączenia wszystkich możliwych trójek. Jest taka zasada, że jeżeli komunikat jest niezrozumiały, to jest to wina nadawcy,...
W ostatnim pliku, który wysłałeś, nie działa wklejanie danych z przeglądarki (format się wysypuje) A jak wklejasz? Pisałem wcześniej, że przypisany do makra jest skrót Ctrl+Shift+V. Zakładałem, że poza komórką A2 istnieją też inne komórki (choćby w innych arkuszach) i może chcesz zachować standardowe wklejanie przez Ctrl+V dla nich. Tak, pisałeś, ale...
Witam Jeżeli chcesz żeby były kopiowane tylko wartości to zmień linijkę z [syntax=vbscript].Sheets(S).Range("A1:AW... ThisWorkbook.Sheets("Arkusz1").Range("A3... & ":T34")[/syntax] na [syntax=vbscript].Sheets(S).Range("A1:AW... ThisWorkbook.Sheets("Arkusz1").Range("A3... & ":T34").PasteSpecial xlValue Application.CutCopyMode = False[/syntax]
Witam, Proszę o pomoc ponieważ nie mam pomysłu jak mam zrobić aby wykonało sie pewne zdarzenie. Chcę zrobić makro które wyszuka dany fragment tekstu i zamieni go na podany w danej komórce. Przykładowo mam domek.rafała w kilku komórkach, natomiast w komórce A1 mam pałac i chce aby ten tekst zaminił się na pałac.rafała. Zawsze robiłem to ręcznie metodą...
Chamski (podwójne NOT) kod, ale działa. - najpierw wybierasz sobie "co chcesz wstawić" z komórek D1..D6 - potem wybierasz sobie "gdzie to wstawiasz" - komórki A1..A6 O pierwszej nad ranem trudno o lepszy kod :) Myślę, że koncepcję moją już znasz, przerobisz sobie "na swoją modłę" - jak będziesz chciał. Kod wklejasz bezpośrednio w kod arkusza, którego...
A da sie jeszcze tak zrobic zeby, pobieralo dane z komorki A1 arkusz1 do komorki B1 arkusz2 ?? tyczy sie tego o co wczesniej pytalem.
Macro dziala tak ze ma mguzik w pliku X, Nciskam go i Macro łączy się z plikiem źródłowym Y. Macro pobiera potrzebne dane i tworzy TEMP Sheet gdzie wkleja pobrane dane w formie tabelek miesięcznych. Następnie w Temp Sheet manipuluje danymi, przestawia kolumny, zmienia nazwy nagłowkow itd. Potem copiuje tak zmienione dane i wkleja do Sheet Ostatecznego...
rozwiązałem ten problem w inny sposób. Poniżej kod i krótkie wyjaśnienie. Jako, że nie potrzebowałem automatycznego pobierania txt, kupiuje cały plik mt940(txt) do excela, i uruchamiam nagrane makro, które: - ustawia filtr z opcją contenti contains: ":61" co pozostawia mi tylko wiersze excela, które zawierają poszukiwaną przeze mnie wartość. - nagrałem...
Nie pracowałem z tym kompilatorem ale nie wierzę że brakule w nim tego standardowego elementu. Jeden, (dowolny!) argument jest potrzebny aby funkcje ze standardowej biblioteki <stdarg.h> mogły sie połapać jak i gdzie są pozostałe parametry. Ile ich i jakie to jest sprawa programisty i tego jak sobie to wszystko oprogramował. Przykład z printf...
Proszę o pomoc!! Czy jest możliwość napisania makra, które pobiera dane z komórki Excela wkleja wartość na stronie internetowej kopiuje wynik i wkleja do sąsiedniej komórki w excelu. np.: pobiera kwotę w złotówkach sprawdza na stronie kurs i wkleja np. w dolarach ... wiem że można wpisać po prostu kurs walut ale to jest przykład bo takich wartości mam...
Witam. Chciałbym stworzyć wyszukiwarkę produktów. Na razie korzystam z mało ciekawego rozwiązania. Wyszukuje produktu po ID za pomocą funkcji podaj.pozycje w innym pliku. Następnie za pomocą makra wyszukuje dany wiersz i kopiuje cały do arkusza. Niestety za każdym razem muszę modyfikować funkcję podaj.pozycję zmieniając nazwę pliku i skoroszytu. Plik,...
Można przypisywać zakresy w kodzie przycisków.[syntax=vb]Private Sub CommandButton3_Click() ComboBox2.RowSource = "'Wpis'!c8:c20" End Sub Private Sub CommandButton4_Click() ComboBox2.RowSource = "'Wpis'!C25:C29" End Sub[/syntax]Co do drugiej części pytania: Domyślam się, że wartość ma być pobierana z wiersza określonej kolumny. Spróbuj z 'ComboBox2.ListIndex'.
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Cześć, posiadam codziennie jeden plik, który zawiera wiersze ze stanem naładowania baterii dla 12 urządzeń. Mniej więcej tak to wygląda: timestamp numberpointbatterypallet 2021-05-25 00:00259 2527FAŁSZ 2021-05-25 00:00568 2280FAŁSZ 2021-05-25 00:00260 2524FAŁSZ 2021-05-25 00:00799 2488FAŁSZ 2021-05-25 00:008107 2514FAŁSZ 2021-05-25 00:00571 2279FAŁSZ...
Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...
Witam jeszcze jedno pytanie stworzyłem kod który miał wstawić tło arkusza jak podawałem ścieżkę na sztywno to działało próbowałem wskazać ze ma pobierać z bierzącej lokalizacji pliku Excela ale niestety nie działa kod wygląda tak Sub makro4 Dim Sciezka As String Sciezka = ThisWorkbook.Path & "\" Worksheets(3).SetBackgrundPicture:=sciez... \ nazwa.jpg...
W załączniku są pliki końcowe, które bedą używane i teraz fajnie by było, gdyby znalazły się jeszcze następujące rozwiązania: 1. W pliku czerwony1 , jeśli dodatkowo wartości w kolumnach M i U zostaną zmienione na kolor czerwony , to nie zważając na to, czy w kolumach odpowiednio AM i AQ są wpisane godziny , kopiowałoby te wartości razem z wartością...
Witajcie, Mam taki przykład. Handlowcy, region, punkty. Potrzebuję aby z arkusza "dane" kopiowały się wiersze w zależności od regionu. Tj wszyscy handlowcy z południa do arkusza "południe", ci we wschodu do "wschód" itd. Mam takie makro. Sub CopyWhenConditionMet() a = Worksheets("dane").Cells(Rows.Count, 6).End(xlUp).Row For i = 2 To a If Worksheets("dane").Cells(i,...
Stoję przed ostatnim w zasadzie problemem mianowicie w jednym z pól mam taką formułkę: ='10-07-13'!C25+'11-07-13'!C24 która jak widać opiera się na pobieraniu wartości z pola z poprzedniego dnia+wartość z pola z obecnego dnia. czy mogę jakimś sposobem zmodyfikować tą formułe (lub powyższe makro) tak aby sama wiedziała że ma korzystać z zadanych pól...
Chodzi mi o wybranie jednej kolumny, z której dane są pobierane. W sumie to napisałem ale nie chce dalej przekazywać do podpisów punktów (etykiety punktów) nie mają to być wartości liczbowe tylko tekst. Mam gotowe makro i jak ustawie zakres to nie chce mi dawać podpisów przy punktach, a jeśli sam zaznaczam kolumnę to wszystko działa, a chciałbym żeby...
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
Plik csv można "klasycznie" otworzyć w Excelu poleceniem 'Workbooks.Open', skopiować potrzebne dane i zamknąć. Jeśli nazwy arkuszy w plikach WZ.xls oraz PZ.xls są pobierane z A2 odpowiednich dokumentów (csv), to można w pętli otwierać je kolejno, sprawdzać czy istnieje arkusz o nazwie=A2 i jeśli nie... Postąpiłbym wg następującej kolejność: 1. Z głównego...
Wielkie dzięki, w życiu bym tego nie ogarnął. Całość jednak działa tylko, gdy numer_wiersza = 1(wartość stała) Gdy jednak do kodu wklejam wiersz: [syntax=vbscript]numer_wiersza = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).... 0)[/syntax] niestety makro nie działa i nie bardzo wiem jak to naprawić. Plik rośnie z każdym kolejnym i nie wiem...
Witaj. Makro to dość precyzyjny zbiór poleceń, więc projektując jego działanie musisz określić dokładnie co skąd i gdzie ma kopiować. Wartość "na przykład" 3000 lub jakiś (jaki?) tekst ma być od czegoś zależna? Skądś pobierana? Gdzie ma być "dana kolumna", o której wspomniano? Znowu mamy inną wartość przykładową, "na przykład" 0000 lub jakiś tekst w...
[syntax=vb]"SELECT Eany.Pole1, Eany.Pole2" & Chr(13) & "" & Chr(10) & _ "FROM `D:\Ariel Dokumenty\Auchan\Dane\Baza.accdb`.Eany Eany" & Chr(13) & "" & Chr(10) & "WHERE (Eany.Pole1=" & wartosc & " )" _ ) [/syntax]
Dzień dobry, proszę o wsparcie w rozwiązaniu poniższego problemu. Makro działa następująco: 1. Do istniejącej tabeli dodaje kolumnę z lewej strony. 2. W nowo dodanej kolumnie wykorzystuje funkcję np. Jeżeli. 3. Następnie całą tabelę do nowego arkusza jako wartości i tworze tabelę. 4. Usuwam kolumnę, która z której były pobierane wartości dla funkcji....
Witaj. Formatowanie warunkowe w Excelu 2003 nie umożliwia sprawdzania wartości w innym arkuszu (nie wiem, czy nowsze wersje to potrafią, bo nie używam). Dla mnie rozwiązaniem problemu było skopiowanie tabeli świąt do komórek A100 w dół i użycie formatowania warunkowego z warunkiem opartym na tych komórkach. Oczywiście A100 w dół można sobie ukryć, a...
Dzień dobry. Za pomocą Logo AcessToll pobieram wartość licznika do Excela. Udało mi się stworzyć arkusz, który generuje trend z ostatnich 100 próbek pobieranych co 60sec, czyli mam informację z ostatnich 100 minut. Aby mieć dane z całego dnia, potrzebuje makra lub formuły, która będzie przepisywała wartość komórki A3 w arkuszu do kolejnych wierszy w...
Nie skupiałem się na obliczeniach. Statystykę jakoś zaliczyłem, ale nie uważam jej za dziedzinę matematyki... Matematykę lubię, nawet różniczki 2 rzędu i szeregi, ale jak widzę prawdopodobieństwo to jestem chory... nie rozumiem tego zupełnie. Wykonałem makro do pobierania wartości na zasadzie wprowadzenia ich "gdzieś" i rozpoczęcia obliczeń. Chciałem...
Witam, mam jeszcze jedno pytanie co do tego tematu. Otóż zmieniła się jedna rzecz. Mianowicie, Kolumna w plikach PlikA i PlikB okazuje się, że nie jest stała i ta sama. W każdym pliku i w każdym arkuszu kolumna, z której ilość powinna być pobierana jest inna, ale można ją rozróżnić po nagłówku. Nagłówek zawsze znajduje się w trzecim wierszu. I teraz...
Mam mały problem. Chciałbym stworzyć makro które drukowało by mi konkretną stronę z Excela. Udało mi się to ale mogę wydrukować tylko jedną stronę a chciałbym aby pobierał ilość stron z komórki arkusza. Sub Druk_1() ' ' Druk_1 Makro ' ' ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range("J34"... Collate...
Witam, potrzebuje takie makro, które: --> pobiera z Arkusza1 z kolumny z lp ostatnią wartość np: 3 czy 300. (w zależności ile pozycji będzie wprowadzonych). --> mając ostatnią wartość lp wykonuje operację kopiowania w Arkuszu2 wierszy 2-5, dodając je na koniec czyli do wiersza 6. Operacja będzie wykonywany tyle razy ile wynosi wartość lp. Z góry dziękuje...
iersz, który zamykam Co oznacza zamknięcie wiersza? to w sumie oznacza umowne w tym przypadku zamknięcie sprawy - najpewniej wpis w komórce np z datą zamknięcia sprawy. Zamiarem jest, że przy zmianie w tej komórce uruchomi się makro które poda monit, czy przenieść wiersz do pliku docelowego. Również ze zmianą w tej komórce może być powiązane przeniesienie...
Super, wielkie dzięki. Brakuje mi tylko wisienki na torcie tzn: skoro już pobiera adres obrazu z komórki to po co wyświetla mi okno do wyboru pliku. Idealnie by było gdybym tylko włączył makro a ono wstawiło obrazek bez pytania skoro ścieżkę pliku ma podaną w komórce. Teraz wygląda to tak: " Sub Nieobudowany() ' ' Nieobudowany Makro ' Option Explicit...
Czytam, czytam i jakoś mi się to nie chce w głowie ułożyć... Moim zdaniem: można, ale jest za dużo rzeczy, które mogą pójść nie tak. Excel jest fajny, ale do pewnego stopnia. Do niektórych zastosowań lepiej nadają się inne języki. Nie wiem czy dobrze rozumiem - chcesz stworzyć jakieś narzędzie do zbierania danych sprzedażowych? Jak duża to ma być skala,...
Ok. Rzeczywiscie jest to dobre rozwiązanie,. Postanowiłem jednak pogłowić się nad makrem, bo arkuszy jest sporo. Sub xxx() ' ' xxx Makro ' ' Range("I63").Select ActiveCell.FormulaR1C1 = "='[2012 rozliczenia.xls]Wrzesień'!R30C42&quo... Range("I70").Select ActiveCell.FormulaR1C1 = "='[2012...
Tadzik, moze warto cos sprawdzic zanim sie komus poradzi. Zagladajac do pgmspace.h znajdziesz: #define pgm_read_byte(address_short) pgm_read_byte_near(address_short) Czyli w zaden sposob to makro bez suffiksu _far nie moze dostac sie do danych powyzej 64kB. Inna sprawa, ze kompilator nie mialby jak taki fakt wykryc. Tu jest jeszcze problem pobierania...
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
Makro chyba wyjdzie lepiej, niż kombinowanie. Takie na szybciora zmontowane w 5 minut mniej więcej robi chyba to, co chcesz (pewnie trzeba je gdzieś tam doszlifować, ale z grubsza robi swoje). Jako że jest krótkie, umieszczę je w treści postu. Dodatkowo w załączniku plik xls (excel 2003), zawierający trzy arkusze, w każdym komórka C10 ma wartość. Plik...
Odświeżam trochę temat... Wszystko ładnie mi hulało do momentu chęci dopisania kolejnego/szóstego zestawu danych... echo "KOD" Sub A() Dim tolerancja As Integer Dim licznikZnalezionych As Integer tolerancja = 5 licznikZnalezionych = 0 For Each element In Range("c1:d25") element.Value = Null Next For i = 1 To 49...
Witam, można spalić sporo kalorii w ten sposób, ja sugeruję nieco inne rozwiązanie, na pewno skuteczne, elastyczne. wg mnie świetne. Cóż - sam swego czasu pisałem i poprawiałem makra, które zrzucały mi dane do skoroszytu, ale jak sprawdzicie to rozwiązanie - sami dojdziecie do wniosku, że nie warto.... łączyłem czasem nawet 200-300 plików w ten sposób...
Witam Dzięki przede wszystkim pomocy tutaj forumowiczy oraz częściowym nagraniom powstało makro j.n. Zastanawiam się czy są możliwości uproszczenia,. Makro i tak działa bez zarzutów, ale pewnie uposzczone będzie działać szybciej. Będę wdzięczny za wszelkie sugestie [syntax=vbscript] Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog...
Twój pomysł nie będę się wtrącał - ważne że sam myślisz. Kłopot jest w tym że po znalezieniu ciągu twoje makro szuka dalej więc pobiera pusty ciąg i znajduje ten pusty ciąg w kolumnie D więc zapełnia go danymi które notabene też sa puste. Trzeba by było przerwać makro (lub przeskoczyc do końca) jeżeli nastąpiło znalezienie jakiejś danej. np po każdym...
1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako kolejne kolumny 5. tworzy nowy plik z danymi z zakladki KOR, zapisuje i przechodzi do pkt 1...
Cześć, Mam dwa pliki i chcę zastosować SUMIFS w VBA. Jednak mam dwa błędy 91 oraz 424 Plik 1 z którego są pobierane dane: DanedoSumIFs.xls Plik 2 - tutaj sumuje, kolumnę C z pliku 1, dla każdego kodu z Plik2 z daną datą z Plik2. Mam dwa problemy w napisanym makrze: [syntax=vbscript]Sub Makro1() Dim ok, ostk As Integer Dim ow, ostw As Integer Dim i,...
Witam Jako, że to mój pierwszy post proszę o wyrozumiałość. Znam tylko podstawy VBA i nie wiem jak ugryźć problem. Muszę napisać "program", który po wpisaniu 6 wartości oblicza ze wzoru dopuszczalne obciążenie. Z poprzednimi współczynnikami sobie poradziłem jednak zaczął się problem przy współczynniku w którym znajdują się 3 zmienne - Czas pracy, odległość...
Na początek (to mój pierwszy post) pozdrawiam wszystkich forumowiczów. Oby takich jak wy, bezinteresownie pomagających innym było jeszcze więcej. Ale do rzeczy... Wszystko zgodnie z opisem na mikrokontrolerach. Przerwania wykonują się co 10ms, o czym świadczy dioda LED2 zmieniająca stan co sekundę, ale na przycisk nie reaguje dioda LED1. Pliki keyb.h...
Witam, jestem tutaj nowy i potrzebuję pomocy osób bardziej doświadczonych. Mój problem polega na tym że potrzebuję po wcisnięciu buttona aby utworzyło mi nowe zeszyty z nazwą pobraną z innego arkusza niż ten na którym jest przycisk znalazłem takie rozwiązanie : Sub CreateWBs() Dim lRow, x As Integer Dim wbName As String lRow = Range("A"...
Przyszedł poniedziałek, znowu wróciłem do pracy i kontynuuje po kawałkach swoje dzieło i znowu pytania... Sub bl() Shapes(4).Fill.ForeColor.RGB = RGB(255, 255, 255) Shapes(5).Fill.ForeColor.RGB = RGB(255, 255, 255) Shapes(6).Fill.ForeColor.RGB = RGB(255, 255, 255) End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$N$5"...
Próbuję napisać w excelu tabele dotycząca osób i przypisnaych im dat w tym, w arkuszu pierwszym jest tabela i w niej : 1) będą dopisywane osoby maks 80 (tabele zrobiłem i adekwatnie się powiększa jak dopisuje osobę) (nie przypisuje się jej odrazu numer, chciałbym żeby lp dotyczyło kolejności związanej z nazwiskiem i wskakiwało same). Czasem może być...
Można uzyskiwać również dostęp do danych w plikach zamkniętych Przecież wyszukaj.pionowo działa na zamkniętych skoroszytach i nie trzeba cudować z makroexcel4. Jak pominąć to otwierające się okno, aby makro samo otwierało plik i pobierało wartość? Masz źle zrobione odwołanie do skoroszytu (baza), oprócz samego pliku musisz jeszcze dodać z którego arkusza...
Witam, potrzebuję makra, które z jednego arkusza będzie pobierało liczbę porządkową, szukało tej samej wartości w drugim arkuszu i jeśli znajdzie tę wartość to zmieni w innej komórce wartość na "wysłane". Jest mi to potrzebne do potwierdzenia wysłania oświadczeń dotyczących dostaw. Proszę o pomoc. z góry dziękuję.
Przy takim układzie danych sugerowałbym wykorzystać zdarzenie arkusza: Worksheet_SelectionChange . Po umieszczeniu kursora w nagłówku (rok) i pobierając dzień i miesiąc z kolumny A w pierwszej pętli otrzymamy datę oraz Nr wiersza wynikowego. DateSerial(Target.Value, Month(Cells(i, 1)), Day(Cells(i, 1))) Wystarczy...
tak pracują nie tyle RISCi co procesory z przetwarzaniem potokowym (nie mylić pojęć). Poza tym w AVRach jest EOR oraz uzupełnienie do jedynki-negacja bitowa (COM). Obie wykonywane w 1 cyklu i obie (i nie tylko one) wymagają znajomości "poprzedniej wart. rejestru (bitów)" Stary co ty wiesz o RISC'ach ? Procesory RISC pracuje tak: 1) cykl pobiera instrukcje...
Rzecz w tym, że nigdy nie będziesz pewien wyniku. Z InputBox'a pobierasz 01-12-2015, w arkuszu może być 12/1/2015, 12/01/2015, 1/12/2015, 01/12/2015. Który tekst (w obecnym formacie) odfiltrować? Pewnie wszystko (tylko czy odfiltrowaliśmy pierwszego grudnia, czy dwunastego stycznia?). Wartości w kolumnie D nie są datami, w rozumieniu Excel'a, a zwykłym...
Witam, Mam mały problem z makrem które wcześniej dobrze mi działało(chyba?).. Chodzi głównie o to że mam zestawienie pracowników i wszystkich klientów. W 1 arkuszu o nazwie "Dodaj" -> jest przycisk i przypisane do niego macro: =Client_list!$B:$B C24 =PRZESUNIĘCIE(db!B:B;PODAJ.POZYCJĘ("RET"... Głównie chodzi o...
Aby było 0 przy wchodzeniu do arkusza DANE trzeba w kodzie arkusza wpisać: Private Sub Worksheet_Activate() For i = 1 To 11 Cells(i + 2, 9).Value = 0 Next i End Sub Co do przecinka samo Val czy CSng w tym przypadku nie wystarczy bo raz pobierasz dane z arkusza a raz wpisujesz z ręki. Można to było uzależnić od "rozbicie" ale stwierdziłem...
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
Cześć. Chciałbym żeby w makro Zapisz excel pobierał ścieżkę z komórki H1. Obecnie w makro mam ustawioną wartośc stałą jako Pulpit ("C:\Users\Pawel\Desktop\") i wygląda to w ten sposób: Sub zapisz() ' ' zapisz Makro Range("H3").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Pawel\Desktop\" + ActiveCell.Text,...
Witam Serdecznie. Potrzebuję stworzyć dwa makra przypisane do przycisków. 1. Skopiowanie komórek B4,D4,E4, K4 z arkusza Brudnopis do arkusza Dane_NAGRODA w pozycje A2.B2,C2, H2 - czyli B4doA2, D4doB2 i tak dalej w kolejności. Chciałbym aby kopiowanie było ograniczone do momentu aż skończą się nazwiska w kol E w arkuszu brudnopis. Nazwiska przenoszone...
Rewelacja Bardzo dziękuje, ale jest problem. Bardzo zależy mi aby wartości z tabeli były pobierane przez zapytanie z power query. Więc dodałem w kodzie wiersz odświerzania zapytania. Teraz po zmianie wyboru z listy rozwijanej wartości się "podbierają" ale nagłówek już nie. Czy mozna z tym coś zrobić ? Private Sub Worksheet_Change(ByVal Target As...
JRV Wiec chyba jest jednak prostsze rozwiązanie i tu Makro jak najbardziej wchodzi. Odnośnie twojego pytania. Funkcja wyszukaj pionowo pobiera dane z tabeli w arkuszu DATACODES Natomiast tabela w arkuszu work jest potrzeba tylko aby automatycznie zrobić formatowanie i to jest potrzebne do wydruku tylko i wyłącznie. Czy jest możliwość napisać takie Makro...
zwróci datę jeżeli suma w kolumnie D przekroczy zadaną wartość. Jest niemozliwe wpisac date przy pomocy funlcji np.Dzis(), poniewaz jutro formula zwraca juz inna date. Dodano po 2 Nie może być użyte VB ani macro Już może ? Nie mogę mieć pliku z makrem. (Zabezpieczenia serwera pocztowego :) ). Makro które przesłałem służy do zobrazowania jaki cel chciał...
ten plik Excela podpięty jest do innego programu, który wrzuca w komórki H5:H30 i F5:F30 wartości liczbowe (co 0,2 sekundy). Tak więc w naszym arkuszu musimy sobie "wyobrazić" (monitorować), że w kolumnach H i F pojawią się wartości liczbowe i jeśli spełnią warunek to pojawią się w kolumnie AR i AQ. Nie rozumiem, czego nie rozumiesz ;) Zamiast kwerendy...
Dla kwerendy nie jest potrzebne makro, tylko komorka z podana wartość.(jak sciezka pliku .txt jest stala) Patrz tu https://support.office.com/pl-pl/article... oraz tu https://support.office.com/pl-pl/article...
dokładnie tak, skoro już zajmujesz głos w dyskusji i nie masz innej możliwości, to jak to sobie wyobrażasz...? Przedstawiasz styl roszczeniowy wypowiedzi, a przecież wystarczy pominąć temat jeśli nie ma się zamiaru "poświęcać" celem zdobycia EXIF? Czy napisałem coś nie tak? Niczego Kolego nie rozumiesz i już tak będzie. Nie będe się wysilał na zdobywanie...
Witam, siłuję się z makrem. Piszę różne kody, ale żaden nie działa. Mam trzy pliki: 1. Makro z formatkami zakładek (zakł.: pełna, skrócona) 2. Nowe dane 3. Stare dane Wszystkie pliki są otwarte Kod miałby się odpalać przyciskiem w pliku Makro i było w nim podpięte. Próbuję napisać makro, które sprawdziłoby, które dane z pliku: I. Nowe dane występują...
Znalazłam na waszej stronie poniższe marko : [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets("BUD") x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("Y:\CGEurope\Files\SOC Reports\2020\Bridge files") 'Tu trzeba wstawić ścieżkę roboczego folderu For...
Witam - chciałbym dołożyć pytanie do tego wątku. Mianowicie, czy można wykorzystać konkretną komórkę (przy użyciu funkcji cells (w, k), do tego by określić lokalizację danego pliku. Pytam, gdyż chciałbym w prosty sposób móc pobierać dane, bez konieczności ich każdorazowego otwierania i kopiowania. http://obrazki.elektroda.pl/4558130500_1...
Rozdziel ścieżkę i nazwy plików. Argumentem metody Open jest string, więc możesz podstawić ze zmiennych. Np Workbooks.Open sciezka & "\" & plik Gdzie wartość dla "sciezka" pobierana jest z komórki, inputbox'a, browsera, etc.
To jest tak jakbyś wpisał formułę do komórki zawierającą odwołanie do innego pliku i w zmiennej a masz wartość z tej komórki jeśli chcesz pobrać więcej danych to musisz napisać pętle pobierającą dane do tablicy lub zakresu. Ale jeśli masz jeden duzy plik do którego wszyscy wpisuja dane, a nie powinien być on dostępny powszechnie a dodatkowo plik ten...
Po powrocie do domu zrobię taki testowy arkusz w którym będzie oznaczone o co mi chodzi. Dodano po 4 Także wygląda to tak. Arkusz1 Wiersz 1 - tak wygladaja moje dane wejsciowe do których bym chciał dodać znaczniki (;?) (;?;) itp. Dlaczego sredniki? A to glownie po makro jezeli mialoby ono być wykorzystane (w arkuszu drugim jest rozpisane to samo jak...
Witam! Mam problem z poprawnym działaniem makra. Makro które przerobiłem z innego pliku gdzie dane były przenoszone z pierwszego arkusza do arkuszy znajdujących się w tym samym pliku. Teraz potrzebuję aby przenosiło do innego pliku z innych komórek. Niby przerobiłem je na podobę tamtego odpowiednio zmieniając adresy komórek z których ma pobierać dane...
Dzięki Witam, czy mógłbyś pomóc jeszcze w jednej kwestii? Chodzi o to aby w weekend lub święto dane w kolumnie załóżmy H nie zerowały się ale zwiększały swoją wartość. Do tej kolumny ściągają się dane z innego arkusza. Codziennie ( w dzień roboczy )operator zeruje zawartość arkusza z którego dane się pobierają. W weekend również zeruje ale w kolumnie...
https://obrazki.elektroda.pl/8023543700_... Pytanie: Czy mogę ulepszyć model analogowego klucza w LTspice, gdyż mój projekt zawiera w sobie takie przełączniki i multipleksery? Odpowiedź: Pewnie; tworzenie własnych modeli do LTspice nie jest trudne. Wprowadzenie Podczas testowania obwodów elektronicznych często natknąć można się na...
Próbowałem to formułą zrobić (suma warunków) ale sobie nie poradziłem więc może ktoś pomoże mi napisać takie makro. Mam stały schemat pliku z narastającą datą w jednej kolumnie. Każdej dacie jest przyporządkowana stała liczba wierszy 20. 1.Wyszukaj datę dziś plus zakres do 2 dni do przodu 2.Potrzebuję zsumować wartości w kolumnach C,E,G,I gdy w kolumnie...
Adamus to brzmi obiecująco :D W takim razie jeszcze: 1. czy trzeba zaznaczyć, że wartości będą pobierane z aktywnego dokumentu?Active.Document.Tables(1) 2. Czy należy dodatkowo opisywać Tables i Cell zmiennymi? 3. jak skorzystać z edycji tekstu left(x, len(x) -2) dla pierwszego wiersza mojej tabeli, skoro ma tylko jedną kolumnę? Rozumiem, że Left zwraca...
Cześć. Bardzo proszę o pomoc. Mam plik excel w którym jest 150 arkuszy o nazwach liczbowych odpowiednio 1, 2, 3... 150. W każdym jednym arkuszu chciałbym aby było makro które kopiuje konkretne dane do nowego pliku (zawsze te same od S6:V6). Plik excel z makrami jest "matrycą" która co miesiąc powstaje nowa (służy do rozliczania zleceń) i zmienia się...
Chyba działa!! Pomogło .Value=.Value Wygląda następująco i faktycznie zmieniło na wartość. Jak skończę pisać całe makro dam znać czy zadziałało. Dzięki Wielki! Sheets("IR").Select With Range("S6") .Value = .Value End With With Range("W6") .Value = .Value End With Sheets("ASG").Select With Range("Y6") .Value = .Value End With With Range("AC6") .Value...
Formatowanie nie "pobiera" wartości, jak robią to funkcje. Jeśli do formatowania zastosuje się właściwą funkcję :idea: to ona będzie sobie odpowiednie wartości odniesienia pobierała :please: 941308 941309 941310 941315 Proszę autora postu o wyjaśnienie po co wklejane mają być te tabelki do Worda :?: Jeśli już koniecznie Word ? To można przecież utworzyć...
pobiera warto tabela makro zmiana warto makro pobiera wartość
analogowe webasto zabezpieczenie zalaniem bascom zapis pamięci
wzmacniacz słuchawkowy wzmacniacz słuchawkowy
Terkoczący dźwięk w piecu Junkers - przyczyny i rozwiązania Jak wyłączyć tryb grzania w piekarniku - porady
