Sprawdź czy o to chodziło. Jeśli faktycznie druga procedura ma kopiować "wiersze powyżej", to oczywiście nie zawsze będzie ich 15, bo wyszukiwana wartość może zostać odnaleziona w wierszu, powyżej którego nie ma 15 wierszy. Załączona procedura w takich przypadkach kopiuje wartości począwszy od wiersza nr 3 do wiersza wyszukanego. [syntax=vbscript] Option...
Znajdz "formularze", wyswietli sie formatka z min. przyciskami. Tworzysz przycisk a nastepnie przypisujesz do niego makro.
[syntax=vb][/syntax] Witam wszystkich Forumowiczów, Jest to mój pierwszy post na tym forum jednak od jakiegos czasu sledze watki na elektroda.pl . Jednoczesnie przepraszam za brak polskich znaków. Poszukuje kodu VBA do znalezienia pierwszej wolnej komórki w zakresie a nastepnie wklejenie do tej komórki w kolumnie A tego co znajduje sie w schowku . Powyzsze...
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
nie podpowiem ci nic odnosnie makro, ale powiem jak ja uzyskalbym taki rezultat bez zadnego bawienia sie w makro 1 zainstaluj programmers notepad, jest darmowy 2 skopiuj tresc z excela do notepada 3 i teraz magiczne opcje znajdz wszystkie i zamien "PZ" > "PZ ", z wyrazem NA zamienic musisz "NA" > " NA " Tym sposobem w sekunde rozdzilisz sobie wszystkie...
Witam.Potrzebuję zmienić funkcje tego makro aby sprawdzało 6 pierwszych znaków numerów w kolumnie i nie usuwało podobnych(teraz nie kasuje tylko identycznych .Czy ma ktoś pomysł jak to zrobić? Sub wyszukaj_numery() ' ' wyszukaj_numery Makro ' ' Otworz plik z lista numerow Workbooks.Open Filename:="C:\Users\lista numerow.xls" ' Policz niepuste wiersze...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
Witam Jezeli chodzi o sterowniki s7-300; s7-400 to STEP7 natomiast s7-200 w programie MicroWin Do s7 można jeszcze użyć IBH Softec ale mało kto z niego kożysta Wiecej znajdziesz na tej stronie http://support.automation.siemens.com/WW...
Używam PICKIT3 więc debugowanie raczej odpada A to co za ciekawostka? Niby dlaczego? najlepszym rozwiązaniem byłoby podciągnięcie wej do Vcc (pull-up) , ale nie znalazłem takiego makra To znajdz w DS MCU którego używasz odpowiednie rejestry i użyj ich. Nie ma obowiązku używania makr. świecą się dwie diody RD1 i RD2. No tak, jak już wyjście ustawisz,...
Znalazłem coś takiego: 481253029113, tyle że nie wiem, czy to na pewno ten. Tak, to ten. Lepszego wężyka nie znajdziesz :D
Chcę zrobić makro które wyszuka dany fragment tekstu i zamieni go na podany w danej komórce. Nagraj sobie makro z przeprowadzania procedury systemowej "zamień (ctrl+H)" i w odpowiednie miejsca wprowadź swoje comboboxy :idea: Wszystko rozumiem, ale "zamień (ctrl+H)" w "znajdz" wpisuje szukana frazę i w "zamień na" w co mam wpisać ? chcę aby znajdował...
niestety u mnie po uruchominiu makra sie nic nie dzieje Pracuje na niemickim excel. Jesli chodzi o funkcje to musze tez niemickich uzywac np zamiast znajdz.pionowo - sverweis
[syntax=vbscript]Sub Znajdz() x = 1 y = 1 szukaj = "wtorek" a = Application.Match(szukaj, Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) If Not IsError(a) Then b = Cells(a + 1, 1) Set p = Workbooks.Open(ThisWorkbook.Path & "\Plik2.xlsx") Sheets(1).Cells(x, y) = b p.Close True End If End Sub [/syntax]
Można. Służy temu instrukcja Call. Przykład:[syntax=vb]Sub Przycisk() Call Makro1 Call Makro2 End Sub[/syntax]Makra umieść w module standardowym. Będą działać w aktywnym arkuszu. Jeśli ma być inaczej musisz adresować precyzyjnie (z nazwą arkusza). Sheets("Nazwa").Cells(wiersz, kolumna)
problem w tym, że nie można klepnąć gwiazdki zamiast spacji bo te teksty są już wpisane a szablon jest naprawdę niemałych rozmiarów... można oczywiście dać "znajdż i zastąp", ale wtedy i tak nie doda gwiazdki na początku i końcu wyrazu. Co do Makra to niestety sprawdzić nie mogę bo nie umię się tym posługiwać :( Dziękuję koledzy za MEGA szybką odpowiedź...
Mam pewien problem z lastRow. Napisałem poniższe makro do przeszukiwania wszystkich arkuszy w celu znalezienia "szukanej". W każdym arkuszu makro szuka od wiersza 7 do lastRow. I tu mam problem taki, że jak w Sht 1 lastRow = 7 ,a w Sht 2 lastRow =2 i załączę makro w Sht 2 to makro przeszukuje mi także w Sht 1 tylko 2 wiersze. Rozumiem to, ale szukam...
Proponuje takie makro odpal Alt+F11 w oknie VBAProject wybierz arkusz na którym pracujesz i wklej poniższy kod Public Sub znajdz() Dim i As Integer Dim j As Integer For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(i, 1) = Cells(j, 3) Then Cells(i, 2) = Cells(j, 4) End If Next j Next i End Sub a...
[syntax=vb]Sub Znajdz() ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = ostw To 1 Step -1 If Cells(x, 1) >= Cells(1, 3) Then Cells(1, 4) = Cells(x, 2) Next End Sub [/syntax] P.S. "Zależy mi na tym, aby obejść się bez makra. " Niedoczytałem...
Dziekuje za szybka odpowiedz. Chodzi mi tu raczej o cos w stylu znajdz->zamien->skopiuj do odpowiedniej komorki. Poczatkowo wprowadzam dane, ktore maja zostac odnalezione i na jakie dane zamienione, a potem te zamienione dane wpisac w odpowiednie komorki. Nie zawsze kody wygladaja tak jak przedstawilem. Czasem kod wyglada tak CORRI-BLRE-BRAS075DD. W...
Witam, Zaczęłam korzystać z makr, uczę się ich pisać na wlasne potrzeby, są one jak narazie bardzo proste. Niestety mam problem, który mi przerósł. Mam gigantyczną bazę danych w excelu stworzyłam makro które działa ale bardzo długo I na poczatku wszyscy się cieszyli ze sami moga sobie korzystac z pliku I dostawac konkretne informacje, teraz narzekaja...
sprawdziłem i działa! Dziękuje Mam już chyba ostatnie pytanie... najprościej ujmując po wykonaniu wyszukiwania zgodnie z ID dane przerzuca mi do arkusza wyszukiwanie... chciałbym następnie dane z tego arkusza skopiować do dwóch innych np do "arkusz1" oraz "arkusz2" zgodnie z kryterium: jeżeli w komórce F wpiszę "ok" to przerzuca mi dane dla tego wiersza...
Spróbuj pośrednio: Znajdz jakis program a'la PDFTransformer (ten nie jest darmowy) i przekonwertuj wszytkie pdfy do innego formatu, najlepiej txt. Potem mozesz albo odrazu napisać program, który ci z tego txt wygarnie dane, albo pokusić się np o masowe importowanie do programu a'la Excel i napisanie makra które przekonwertuje dane i na końcu wygenerowanie...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Wszystko zależy jak masz ustawiony w systemie odczyt i wydruk plików *.pdf Zerknij na ten temat https://www.elektroda.pl/rtvforum/topic3... Sam wydruk pliku *.pdf z Excela można uzyskać np. komendą Shell druk = Shell("c:\sciezka do programu\Acrobat.exe /t d:\sciezka\plik.pdf") To oczywiście duże uproszczenie, trzeba...
Witam szanownych kolegów. ponad rok temu i ja walczyłem przy budowie lamp studyjnych. chciałem rozwiązać problem płynnej regulacji mocy błysku, niestety zabawa skończyła się na spaleniu kilku tanich mosfetów (być może były źle wysterowane) i w tym miejscu kieruję swoje pytanie do kolegi szymwala, jakiego użyć IGBT do kondensatorów o pojemnośći 6mF....
Żaden ze mnie ekspert ale może poniższa próba rozwiązania przeze mnie przedstawionego problemu, będzie podstawą do dalszych eksperymentów ;) [syntax=vb]Sub fascynat_help() '10.05.2013 r. Dim PozPocz As String Dim PozKonc As String Dim ObszarZamiany As Range Dim Dokument As String Dim ZnajdzStart As Long Dim ZnajdzStop As Long Dim ZnajdzNast As Long...
Tutaj bez sortowania: [syntax=vbscript]Sub Szukaj() Set a = Sheets("Arkusz1") Set b = Sheets("Arkusz2") ow = a.Cells(Rows.Count, "A").End(xlUp).Row Set r = b.Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) y = 1 For x = 1 To ow s = a.Cells(x, 1) If Application.CountIf(r, s) = 0 Then a.Range("A" & x & ":B" & x).Copy b.Cells(y, 5) y = y + 1 End If...
[syntax=vbscript]Sub ZnajdzPole() ' ' ZnajdzPole Makro ' Puszkiwania {pola edycji} ' a = Selection f = False If Len(a) > 0 Then If Left(a, 1) = "{" And Right(a, 1) = "}" Then f = True If Left(a, 1) = "|" And Right(a, 1) = "|" Then f = True End If If Not f Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1...
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH")...
Twojego filmiku nie widać. Edit: Już się pokazał. Spróbuj jednak dokładniej opisać swoje obserwacje. Czy problem z tym plikiem "okrojonym" na potrzeby forum występuje u Ciebie na każdym komputerze i w każdej wersji Excela? Masz w pliku kilka ukrytych arkuszy, ale eksperymentujesz tylko z "B". Czy każdy arkusz po ukryciu zachowuje się tak samo? Ponieważ...
Zobacz makro z przykładowego załącznika. Jest pewnie dalekie od ideału i ze względu na to, że wrzuciłem tam pewnie kilka założeń za dużo, to się trochę zbędnie skomplikowało. Optymalne szczególnie też nie jest, ale brak wszystkich możliwych założeń uniemożliwia jakiekolwiek optymalizacje. Makro powinno sobie poradzić z dowolnym formatem daty, o ile...
Tu znajdziesz rozwiazanie http://blog.actuary.pl/2010/01/zegarek-n...
Próbujesz w OpenOffice uruchomić makro napisane w Excelu? Nie będzie działać. Trzeba przepisać. Mnóstwo informacji znajdziesz w Internecie. Tu przykład makra wydruku z zapisaniem "oryginał/kopia": http://obrazki.elektroda.pl/5534132900_1... Generalnie nie jest to trudne. Trzeba "złapać". Zakres C7:C10 aktywnego arkusza w VBA zapisujesz...
A jak są nazwane pliki z ankietami? Gdzie je zapisujesz, jeżeli mają taką samą (mozliwe?) nazwę? Czy jest jakaś struktura katalogów? I Ile tych ankiet będzie mniej wiecej? Może nie warto zbytnio kombinować z monitorowaniem tylko wczytać wszystko dopiero jak będzie potrzebne? Makra działają dosyc szybko. Mam gdzieś gotowca łączącego pliki Excela. Sama...
A nie dostałeś jeszcze odpowiedzi na Twoje zgłoszenie problemów do autora kodu ? :D Wydaje mi się, że ja mam dość bujną wyobraźnię :ok: , lecz nie mogę sobie wyobrazić tabeli przestawnej z tych Twoich danych :cry: Spróbuj sam zbudować tabelę przestawną "na piechotę" - przy użyciu narzędzi tabel przestawnych - może znajdziesz wówczas przyczynę problemów...
Oczywiście, że funkcji takiej nie ma, bo jest to makro. Musisz otworzyć edytor makr w excelu (Visual Basic) i tam w moim przykładzie znajdziesz funkcję. Ogólnie możesz w edytorze Visual Basic dodać do Twojego arkusza nowy moduł i wkleić w nim definicję funkcji: [syntax=vb]Function NDay(exclude As Range, prev As Date) As Date Dim flag As Boolean Dim...
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
[quote="Makro1993"]Przecież kolega wyżej wszystko wyjaśnił. Witam. Czytałem co kolega wyjaśniał ,ale to nie jest przyczyna żeby nie napisać o swoich problemach.Może znajdzie się ktoś kto znajdzie lekarstwo na ten problem. Pozdrawiam
Witam wszystkich, mam drobny problem, mam pewne makro które ma za zadanie zapisac istniejący plik, przejść do drugiego pliku "Rejestr", w Rejestrze odszukać konkretny numer, w linijce z konkretnym numerem zmienić wartość jednej z komórek, oraz na końcu zamknąć plik z którego zostało uruchomione makro. I wszystko działa do chwili aż makro nie zamknie...
Nie piszesz jakie masz soczewki dodatkowe. ...aparat Olympus E520 ze standardowymi obiektywami i dokupionymi soczewkami makro. Soczewki te jednak bardzo zniekształcają fotografowany obraz... Więc raczej nie ma to znaczenia. ;) Co do DCR'a fajny konwerter jednak jestem wyznawcą zasady, że jednak zaprojektowany jeden zespół optyczny da lepsze efekty...
Witam, Makro powinno szukac tekstu po kol "Journal name" z zakladki "9.18" w zakładce "10.18" kol " JOurnal name" i nastepnie po zalezieniu dokument number z zakladki "10,18" wpisac do do kol "Reverses" w zakladce "9.18" Przyklad przyporzadkowania nr dokumentu znajdziesz w zalaczonym pliku dzieki za pomoc
Witam, poniżej ostateczne rozwiązanie. Działa rewelacyjnie. Załączam także pliki z makrem. Miłej zabawy. [syntax=vb] Sub FindCopy() Dim plik1 As Workbook, plik2 As Workbook Dim i As Long, j As Long, w As Long Dim Omega_a As Integer, Omega_b As Integer Dim StartTime As Single, EndTime As Single Dim Test As Boolean StartTime = Timer Application.ScreenUpdating...
https://obrazki.elektroda.pl/8567963000_... Witam i przedstawiam kolejny mój projekt. Tym razem z obszaru innych moich zainteresowań. Stacker dla osób, które nie są w temacie pozwala na robienie serii zdjęć makro. W zależności od obiektu mogą to być zdjęcia makro robione typowym obiektywem ze skalą odwzorowania 1:1, np. grzybów, kwiatów...
Sprawdziłem, że samo makro po skopiowaniu jest składniowo poprawne. Logicznie nie sprawdzałem, bo nie mam danych. Niemożliwe żeby wogóle nie działało. Postaw kursor na procedurze i wciśnij F8. Idzie? Pewnie tak, to znowu F8 i popatrz którędy idzie i dlaczego ucieka z pętli. W linijce, gdzie coś jest nie tak możesz podejrzeć zmienne Daj na końcu jakiś...
Z Wikipedii: Liczby pochodzące z generatora programowego zwane są liczbami pseudolosowymi, ponieważ faktycznie nie są dziełem przypadku, lecz wynikiem obliczeń matematycznych. Jak wypróbujesz ten kod - to znajdziesz jeszcze jedną jego wadę :cry: wynikającą z zastosowanego algorytmu - tzn. powtórzenia losowanych liczb :-o Dla uzyskania ciągu unikatowych...
Niestety nie interesuje mnie wysyłanie do wszystkich tylko do pojedynczych osób.. Do korespondencji seryjnej możesz wykorzystać bazę z jakimś polem od którego będzie zależało czy adres się drukuje czy nie.(wstawiasz w to pole np. jakiś krzyżyk) Nie musisz drukować całej bazy za każdym razem. Tu na pewno coś znajdziesz [url=http://office.microsoft.com/pl-pl/w...
uniwersalny(gorsze)?? tzn co nie dobrze mieć wymienne obiektywy w kompakcie? Tyle zostało napisane.. Dobrze, ale trzeba je mieć! Poza tym ten dołączony podstawowy obiektyw kit jest zapewne budżetowym rozwiązaniem i pozbawia cię upragnionego zooma, a widzę, że nie prędko znajdziesz kasę na następny obiektyw. Pisałem, że dobrze jest ukierunkować się...
Dla cen rosnących ma podążać za ceną i od lokalnego żeby od szczytu jeżeli cena spadnie 10 % (zmieniłem wartość było 20%) podać przy dacie początkowej (tej z plusem) wynik dzielenia między ostatnią ceną a ceną początkową. Spoglądam na ten obrazek i próbuję zrozumieć Twój opis. Wygląda na to, że szukasz 10% spadku od szczytowej wartości cen jakiś akcji...
Nie podważam żadnego z profesorów (Którzy równie dobrze mogą być podstawieni) a podważam istnienie planety która nagle miała by się znaleźć na tyle blisko ziemi żeby tak poważnie zaburzyć jej magnetyzm. Pomijając już fakt że taka planeta musiała by być doskonale widoczna z ziemi. Już teraz. Postawionych... no proszę tam są nazwiska i to nie byle jakie???...
Obiektywem EF50/1.8 daję radę robić zdjęcia makro... Poproszę o jakieś przykłady z EXIF. ;) Może jakieś skale, albo chociaż fotografia karki w kratkę lub linijki. Cincin85 Masz kilka rozwiązań. Albo kupić 70-300 Tamrona i używać go do portretu i uniwersalne tele. Jednak do dużych "rozmyć" jeśli nie ma jak otworzyć przysłony to musisz nadrabiać odległością,...
znajdz uzytkownika znajdz telefon znajdz urządzenie
mobilny wzmacniacz wzmacniacz audio stereo mosfet karta pamięci uszkodzona
ekspres włącznik ekspres włącznik
Demontaż hamulca elektromagnetycznego Bosch Rotak 650 – instrukcja krok po kroku Panasonic Viera Touch Pad - Nie Działają Przycisk Zasilania