Pachnie to pętlą nieskończoną. Inkrementację i-greckiego w wewn. pętli masz po Else, czyli "utknie" na kopiowaniu... Spróbuj z taką poprawką: [syntax=vb]Do While Cells(y, 4).Value <> "" If (Cells(x, 4).Value = Cells(y, 4).Value) And (Cells(x, 6).Value = Cells(y, 6).Value) Then Cells(x, 8).Copy Cells(y, 8) 'Else End If y = y + 1 'End If Loop [/syntax]
Napisałem już wyżej, a teraz proponuję sprawdzić to w dowolnym miejscu. Uruchamiamy Geoortal mobile. Klikamy w Menu (trzy poziome kreski w lewym górnym rogu ekranu). Wybieramy Udostępnij pozycję. Klikamy Kopiuj (pod linkiem do lokalizacji). Pojawi się mapa z naniesionym punktem naszej aktualnej lokalizacji. Przemieszczając się po gruncie będziemy obserwować...
legalnie (tj bez efektów ubocznych) możesz to zrobić kopiując do świeżego obszaru. Mniemam, że chwile, kiedy jest to potrzebne, są nieliczne, i znajdzie się te 20 bajtów tymczasowej pamięci
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Poszukaj innej wersji smartdrv. Tez kiedyś próbowałem instalacji XP bez niego i po paru godzinach kopiowania plików stwierdziłem, że go znajdę. Znalazłem i poszło szybciutko. Pozdrawiam
Pomysły na pewno się znajdą. Ale dlaczego za pomoc oczekujesz zapłaty (prowizja za download)?
seagate bo zawsze uważałem że to jedne z lepszych dysków Były należy napisać... Już niestety nie są. Wystarczy trochę pogrzebać w internecie i znajdzie wysyp tematów na forach, gdzie ludzie zgłaszają, że te dyski łapią im bad sektory i w ogóle... Jak pisałem - to niestety nie te same dyski co te co miały gwarancję 5 lat i jak się rozpadły to po 5-10...
Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...
Ok sory źle to wytłumaczyłem, więc tak : 1. Wchodzisz do pliku rejestr 2. Uruchamiasz makro przyciskiem "wygeneruj zlecenie cent" 3. Makro przypisane do tego przycisku robi to: a. Generuje kolejny numer w najbliższym pustym wierszu. b. Otwiera wzór zlecenia o nazwie zlecenie cent C. Kopiuje nowo nadany numer w rejestrze i wkleja go do otwartego wzoru...
Active(at) File Recovery 7.1 sobie odpal. Ostatnio walczyłem z dyskiem 320GB i odzyskałem 90% danych z 3 partycji. Pomijam fakt, że te 10% to windows i jego wszelakiej maści pliki systemowe. Na dysku padł system więc standardowo C zostało sformatowane i zainstalowany nowy system ale co najdziwniejsze wywaliło partycje D i E i pozostała tylko C o rozmiarze...
Gdzie znajdę opcje "Edyty" "Kopiuj" "Usuń" z dziale „Przeglądaj ? fota
Na dwie formy [syntax=vb] Sub Do_Druk() Dim i&, j&, k&, m&, p&, wy$ Dim wsSort As Worksheet, wsKp As Worksheet, wsKw As Worksheet, ws As Worksheet Set wsKp = Sheets("KP") Set wsKw = Sheets("KW") wsa = Array(wsKp, wsKw) Application.ScreenUpdating = False For Each wsi In wsa For i = 0 To 600 praw = 34 * (i Mod 2) dol = (i \ 4) * 64...
Update: Jeszcze lepiej by było gdyby makro przeszukując kolumne T działo tak, że jeżeli w danym wierszu (komórce w kolumnie T) nie znajdzie średnika, to kopiuje cały wiersz do nowego arkusza. A jeżeli znajdzie średniki, to kopiuje ten wiersz tyle razy ile jest średników+1 do tego nowego arkusza, ale każdy kolejny uzupełnia pojedyńczą ścieżką, czyli...
Softem? Myślałem że to jest właśnie starszy model 😀 Ma ktoś może taki soft albo chociaż nazwę tego pliku to może sobie swoimi kanałami znajdę?
O to mi chodziło, jest prawie dobrze :) Tylko są jeszcze dwie rzecz do modyfikacji lub dodania otóż : 1. w momencie w którym znajdzie kolejny raz ten sam login nie powinien go znowu kopiować tylko sprawdzić co jest napisane w H , będzie to widoczne w pilku excel który dołączę, zmieniłem kilka pozycji żeby było wiadomo o co chodzi. 2. są wiersze których...
Potrzebuję urządzenia wielofunkcyjnego do małego biura które będzie drukowało, skanowało, kopiowało 2-stronnie do 2 tysięcy, coś znajdę?
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...
Skanowanie NTFS i zobacz co znajdzie. Jak kopiowałeś z niego już na sprawnej taśmie to większość danych powinieneś odzyskać.
Czyli wygląda, że da się wskazać obszar do skopiowania - sprawdź czy CtrlA zaznaczy prawidłowo, a plik? Czy możesz tak to zorganizować żeby plik był zawsze w tym samym miejscu a nazwa (przynajmniej część) była zawsze taka sama? Nie warto robić ręcznie tego co się da łatwo zautomatyzować, unikniesz w ten sposób pomyłek. Zamiast się bawić indeksami spróbuj...
Google i Youtube twoim przewodnikiem. Nie jestem fanem Jabłka. Ale żeby cokolwiek miało ręce i nogi na systemach nie Applowych w przypadku iPhona, to iTunes ;) Co racja to racja! Faktycznie bez iTunes nic nie działa. Dzięki poszukam coś może znajdę. Pozdrawiam
Nie, nie kłamałem, już wtedy został sprzedany, ale chciałem się upewnić. Trzęsiesz portkami? :-) Ja tam bym zaraz sprawdził z ciekawości co na dysku pozostało przed formatem i zapewne wielu innych z nas :-) Prokurator może wydać nakaz aresztowania jak znajdzie tam nazwy nieładnych plików, które np. "przypadkowo" ściągnąłeś albo znajdzie ich kawałki...
Witam, potrzebuję pomocy w napisaniu makra, które jeśli znajdzie w przeszukiwanej kolumnie liczbę - to skopiuję odpowiadający jej wiersz i wklei obok... Pokaże na przykładzie: https://obrazki.elektroda.pl/9481950800_... Mam plik z czterema kolumnami - makro powinno przeszukać kolumnę C (wiersz po wierszu - max.300 wierszy) i jeśli znajdzie...
Super działa rewelacyjnie, adamas_nt dziękuje ci bardzo. A mam pytanie co dodać do tej funkcji by sprawdzało mi do końca czy 'Malina' się nie powtarza. Okazało się, że 'Malina' w 1 arkuszu może mi się powtarzać. A w tej funkcji jak znajdzie to kopiuje pojedynczy wiersz.
Jeżeli masz konto z uwapnieniami administratora to możesz dostać się do plików tamtego użytkownika domenowego, które znajdują się w profilu lokalnym. Przy każdym logowaniu do domeny system kopiuje pliki na komputer. Może to ci wystarczy.
Witam. Mam w firmie taki program do obsługi pewnych urządzeń. W tym programie znajduje się szczegółowa baza danych w jednym pliku. Moje pytanie dotyczy backupu tej bazy. Jak musi wyglądać plik wsadowy kopiujący ten plik costam.fdb z danej lokalizacji na serwer ale po wcześniejszym zatrzymaniem dwóch usług na ten moment. Po tej operacji usługi należy...
Witam. Mam problem z napisaniem funkcji do tabeli ponieważ jestem laikiem exela. Przejdę do konkretów. Mam jedną tabele w której muszę uzupełnić dane w konkretnych komórkach aby to wykonać muszę porównywać dane z innym arkuszem ponieważ cześć kolumn ma takie same dane. Potrzebuję pomocy w napisaniu formuły która będzie szukać danych do kolumny nr zamowienia...
MOV C, ACC.7 MOV P1.7, C MOV C, ACC.6 MOV P1.6, C MOV C, ACC.5 MOV P1.5, C MOV C, ACC.4 MOV P1.4, C Tablicę znaków można zadeklarować jako tablica: .db 30h .db 31h .db 32h itd. aż do 39h, a później kolejne 6 znaków to 41-46h. Jeśli w A znajdzie się liczba od 0 do 15 (czyli pojedyncza cyfra 16 bitowa) to na podstawie jej wartości w A można przypisać...
Albo masz złe klucze z kopii albo żle wklejasz kopiujesz innej opcji niema Ok, więc gdzie znajdę odpowiednią kopię kluczy?
Raczej tak, przynajmniej częściowo. Proponuję zrobić obraz dysku w DMDE i przeszukać pod kontem utraconych partycji, jeżeli coś się znajdzie pozostaje kopiowanie na inny dysk. Można też użyć innego programu do odzyskiwania danych. Ważne żeby mieć obraz dysku - zawsze można wrócić do "początku".
software.hoga.pl - tam cos sie znajdzie
Tak dokładnie Wk jest aktywny a Ww jest tym do którego chce to kopiować (zresztą już to zamieniłam Wk=wksZ a Ww = wksDo bo tak wydawało mi się to bardziej jasne) Nie powinno zadziałać? Cóż ale przynajmniej wiem że cała reszta działa i robi wszytko to tak jak chciałam (za co bardzo Ci dziękuje). Aktualnie walczę z tematem, a że teraz zaczynam rozumieć...
w takim przypadku programy są nieodpowiednie. nie wiem czy w ogóle istnieją, ale pewnie wystarczyłoby wyłączyć jeden proces, aby przestały działać moją propozycją jest utworzenie skrótu :D 1.wchodzisz w folder, którego nikt nie znajdzie i tworzysz skrót (PPM->nowy->skrót) 2.wpisujesz w okienko treść shutdown -s -t 7200 -c "miłego dnia" , gdzie...
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...
Po prostu pomiń literkę dysku. Jeżeli plik .bat będzie znajdował się na tym samym dysku, co kopiowane pliki, to wystarczy: xcopy "\PROGRAMS 2009\dos test\new.txt" "\PROGRAMS 2009\" /s Jeżeli na innym dysku, to musisz zrobić trik. Niech plik nazywa się kopiuj.bat: xcopy "%1\PROGRAMS 2009\dos test\new.txt" "%1\PROGRAMS...
Jak pisze kolega zimon wylosowanie jednej liczby z wielu jest dosyć proste. Ale jeżeli chcesz "wymieszać", to dla Excela znaczy, że chcesz wylosować 1000 z 1000 bez zdublowania. Musisz podzielić to na etapy, wykorzystać kilka funkcji w tym WYSZUKAJ.PIONOWO i dlatego dane muszą zostać ułożone we właściwy sposób. W moim przykładzie użyjemy trzech kolumn....
tak właśnie też myślałam, z tym że czytałam, że Variant używa się wtedy kiedy nie mamy pewności czy w arkuszu znajdują się tylko np. liczby ze względu na to że variant zajmuje duzo miejsca Option Explicit Sub wczytywanie_danych() Dim dane As Variant dane = Range(Cells(1, 1), Cells(10000, 3)) End Sub czyli powyższe makro robi dokladnie to samo co makro...
A gdzie to tło znajdę?
A tak do 400 zł drukarki z kopiarką z tuszami do 30zł nie znajdzie?
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...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Cześć, potrzebuję makro które znajdzie się pod przyciskiem w tym kosztorysie, które skopiuje tabelę pomiędzy słowami "KOSZTORYS OFERTOWY" oraz "SUMA WSZYSTKICH PRAC" i kolumnami od A:G. Chciałbym aby makro utworzyło nowy plik który będzie zapisany w katalogu w którym znajduje się plik kosztorysu oraz aby wkleił do niego tę tabelę z zachowaniem formatowania...
Dziękuję kolego PRL za zainteresowanie i kodzik. spróbowałem go użyć i nie wiem dlaczego ale jego działanie ogranicza wyniki. Jeżeli w arkusz1 jest kilka wierszy które zawierają w sobie któreś konkretne ze słów z kolumny B w arkusz3 to jako wynik działania dostaję tylko jeden skopiowany wiersz z z danym słowem . I jest to pierwszy wiersz patrząc od...
Marne szanse - Chiny, Taiwan, Aliexpress.com .... W tym przypadku możesz spróbować użyć pilota kopiującego (jeśli oczywiście masz sprawną sztukę oryginału) albo niestety nabyć oryginał (np u Peiter - niestety bo 70 zł)
Przez podstawienie Nr ostatniego wiersza do licznika pętli, 'For wrs = Range("A" & Rows.count).End(xlUp).Row to ....' Musiałbyś tylko sprawdzać, czy nie jest większy od drugiego argumentu (pętla pojedzie wstecz), lub dodawać stałą liczbę. Jeszcze nie zdążyłem tego nanieść, jak tylko znajdę chwilkę, dam znać co z tego wyszło o ile znów się nie zatnę...
O tym też pisałem, np GParted/Parted Magic na pendrive/CD i można kopiować, wystarczy 340GB wolnego miejsca (tzn. tyle wolnego ile zajęte jest na tej partycji). Jak DMDE ją znajdzie to pójdzie bez kopiowania.
Nowa propozycja: [syntax=vbscript]Sub Wypełnij() Dim ost As Long ost = Range("B2").End(xlDown).Row ' ostatnia komórka wypełniona w dół ' ost = 2000 Range("A2").FormulaLocal = "=H2&B2&D2" 'to można pominąć, a formułę wpisać ręcznie Range("A2").AutoFill Destination:=Range("A2:A" & ost) Range("E2").FormulaLocal = "=C2&"" ""&D2" 'to można pominąć, a formułę...
W tym, że nie ma kopiować całego arkusza. Jak znajdzie w kolumnie O i wierszu 10 wartość większą niż 70, to ma kopiować i wklejać do innego pliku tylko wskazane wartości z kolumn i wiersza 10.
W załączeniu przykładowy plik, oryginalny jest o wiele bardziej rozbudowany i szerszy. Chciałbym aby skrypt sprawdzał kolumnę B pod względem występowania I lub II lub I-II i jeśli znajdzie odpowiednio kopiował do arkusza ZadanieI lub ZadanieII lub ZadanieI-II cały wiersz od kol. A do E z formatowaniem i formułami. Co do WYSZUKAJ.PIONOWO to ta funkcja...
Jak jesteś w winboxie otwierasz terminal i wpisujesz komende export file=config Cała konfiguracja poleceniami terminalowymi znajdzie sie w tym pliku. W teorii jakbyś zrobił kopiuje-wklej w terminal na nowym routerze to cała konfiguracja się tam pojawi. Problem jest tylko taki, gdy na obu routerach są jakieś róznice, np w nazwie interfejsów. Wiec ja...
Witam, Użytkuje Excel 2010, muszę napisać makro, które powieli zawartość komórek w kolumnie A (jak na zamieszczonym zrzucie). Komórki od A1 do A5 zostały pokazane jako przykład, makro powinno kończyć działać gdy w komórce znajdzie się napis "koniec". Chciałem tylko jeszcze napisać, że dane do skopiowania mogą być umieszczone w różnych komórkach np....
excel znajd znajd tekst delphi znajd
arduino sterowanie przez bluetooth alarm polecam prąd pobierać rozrusznik skuter
schemat pilota creative inspire p5800
Długość kapilary termostatu wewnątrz zamrażarki Navitel MS700 - Co oznacza komunikat "ładuje skórki"?
