Witam, Mam problem z długo wykonującym się kodem. Pisze krótki program wczytujący pliki txt do Excela za pomocą VBA. z zapisem danych do pliku nie ma problemu, jednak wczytanie pliku zajmuje trochę czasu. Struktura pliku txt to: 1;12;12;12;12;12;12;12;12;8;8;8;8...
Możesz też przypisać jedno makro do każdego pola wyboru, jak napisałem poprzednio, po nazwie pola identyfikujące skąd-dokąd mają być kopiowane wiersze z danego zakresu. Tylko: Co ma się dziać kiedy dane pole wyboru zostanie odznaczone ? Czy dane, wcześniej odkopiowane do drugiego arkusza, mają...
Kopiowanie komórek: [syntax=vb]Sub Kopiowanie() Linia = 2 Sheets("Sheet1").Select Range("C6:H45").Select Application.CutCopyMode = False Selection.Copy Sheets("PASS").Select While Range("A" & Linia).Value <> "" Linia = Linia + 1 Wend Range("A"...
Pytałem o kopiowanie wierszy -jednak do mojego programu potrzebne jest "przestawienie" wiersza na inną linię. Pokrótce omówię dołączony kawałek programu. Chciałbym aby faktury mogły być wpisywane do książki w dowolnej kolejności , a program ustawiał je w/g dat. Program już kontroluje i nie przyjmie...
Wielkie dzięki za zainteresowanie i odpowiedź. Problem w tym, że "ręcznie" jest powiedzmy w trzystopniowej skali numerem 1 (niedoskonale), 3 to doskonale (powiedzmy normalna maszyna sterowana alfanumerycznie i możemy zaprogramować na niej jakiś obiekt CADowski). Pisząc o takim "szukaczu linii" pomyślałem,...
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek...
Da się tylko że programista za bóg zapłać tego zazwyczaj tego nie robi a nikt tego nie sprawdza, chyba że skarbówka na kawę się wprasza lub ktoś plagiacik doniósł i rozpoczęto "polowanie na czarownice spod znaku Crtl+C -> Crtl+V" ]:-> w skrócie (modułowo progs opisuję): musiałbyś napisać coś co...
Witam. Nie znam niestety VBA i mogę liczyć tylko na Waszą pomoc. Musze napisać makro, które skopiuje mi dane z pliku csv/txt do arkusza, przypisując jednocześnie nazwę pliku z którego zostało skopiowane.. .To jakby połaczenie tych dwóch kodów: Sub Importuj() Dim rg As Range Dim sciezka As String,...
Witam, mam makro kopiujące tabelkę dowolną ilość razy (w zależności ile użytkownik ustawi). Niestety mam problem z obramowaniem - niektórych linii nie chce skopiować (próbowałem już wklejać specjalnie - nic nie pomogło). Wie ktoś może czy istnieje jakieś rozwiązanie? Chciałbym uniknąć zapisu tworzącego...
przerabiam jeden temat i potrzebuję skopiować: albo same pliki z podkatalogów do jednego katalogu na dysku(żeby pliki z różnych podkatalogów znalazły się w jednym podkatalogu) albo skopiować z linii poleceń FTP (może byc jakiś klient z linią poleceń) cały katalog z podkatalogami, w każdym przypadku...
Wtrącę się ale kolega adamas_nt już ci raz pokazał jak znaleźć ostatni wiersz. Spójrz na pierwszy kod i na zmienną "ostWiersz" (druga linia procedury Kopiuj) Tak na chłopski rozum to tą linię trzeba tłumaczyć tak: Ustaw się na ostatniej komórce w kolumnie A i "idź" do góry po pustych komórkach....
Kopiuj całe wiersze. Odpowiednia linia jest w makro w załączniku. Usuń apostrof opisanej linii, wyrzuć/zaapostrofuj trzy następne (od For do Next).
Witam. Kopiuję kilka kaset VHS na DVD. Na części obraz mam prawidłowy, a na drugiej części kaset obraz taki jak poniżej (zdjęcie z panoramicznego TV kineskopowego). Na dole wyświetla czarny pasek, a ta cienka linia pod nim to z kolei górna część obrazu. Jest to na kilku kasetach, więc to nie jest...
W Listboxie mam listę ścieżek do plików *.jpg. Chciałbym, żeby po kolei, każdy plik ze ścieżki kopiowało mi do 'C:\1.jpg', następnie wysyłało na maila w załączniku, po czym usuwało plik z 'C:\1.jpg' i tak robiło kolejno z każdą linią z listboxa i żeby po ostatniej linii zakończyło czynność. [syntax=delphi]var i:...
Witam. Zachwyciłem się programowaniem VBA i ulepszam swój arkusz kalkulacyjny. Bardzo przydała by mi się funkcja prezentowana w tym filmiku: Posty scaliłem, zamykam temat. RADU23
Dzień dobry. Poszukuję rozwiązania za pomocą Vba . Dane są zawarte w 6 kolumnach ok 2000 linii posiadają duplikaty i nie tylko-są też pojedyncze linie w liście. Makro powinno wycinać i wklejać do Arkusza2 w oparciu o duplikaty lub pojedyncze elementy Arkusza1 z kol"A" w zakresie linii do kolumny "E"...
Niedawno zdarzyła mi się taka sytuacja: Wykonywałem zrzuty ekranu i zapisywałem je do kolejnych plików BMP 24-bit. Po zapisaniu kilkunastu plików, jeden z nich nie chciał się otwierać. Próba kopiowania za pomocą funkcji Windows XP powodowała wyświetlenie "Błąd danych CRC", program Total Commander...
Wstaw moduł do pliku 'Aktywności NSM_glizda_TOTAL.xlsx' i wklej taki kod Update 22:25 Ups. miało być w pierwszy-wolny. Poprawiłem...
Witam Próbuję zmodyfikować przykład projektu z tego linku -(tia-portal)?dti=0&lc=en-WW ... to projekt który tworzy log na karcie sd i co godzinę(task) kopiuję ten log do odpowiedniego folderu który się sam tworzy zgodnie ze skryptami Funkcja copy i create ; Od razu mówię projekt działa...
Witajcie, Napisałem makro kopiujące cały wiersz. Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak. Poniżej wklejam...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls)...
Wydaje mi się, że lepiej będzie jak "załapiesz" o co chodzi. Pierwotna wersja pętli For Each kom In Selection If Left(kom.Address, 2) = "$G" Then If kom.Value = 1 And kom.Offset(0, 1).Value = "tak" Then ActiveSheet.Rows(kom.Row).Copy Sheets(1).Rows(ostWrs) ...
Dzięki, O tym nie pomyślałem. Rzeczywiście sposób działa, jednak później mam 1 plik .bat dzięki któremu startują 3 servery. Coś takiego: samp-server-all.bat start samp03e-1.bat start samp03x-2.bat start samp03z-3.bat Pliki tak wyglądają: samp03e-1.bat :Start copy 0.3e.cfg server.cfg...
Pytanie dlaczego jest to nie bezpieczne? Łatwo podsłuchać i rozbroić przez osoby niepowołane? Pilot można zgubić, można również ukraść. Taka osoba wtedy ma dostęp do twojego domu, a ubezpieczyciel może wtedy nie wypłacić odszkodowania, gdyż system był rozbrojony w momencie włamania. "kopiowania"...
Witam, Dobrze zacząłeś z tym wczytywaniem pliku, trzeba było to kontynuować. Proponuję wyszukiwanie załatwić kodem, np: If Right(t, 1) = ";" sprawdza czy w grupie znaleziono linię 333. Jeśli nie to po średniku będzie pusty ciąg.
No fakt, kilkadziesiąt linii deklaracji tablicy stałych zadeklarowanych jako zmiennych ajmującej pamięć RAM jest o niebo czytelniejsze niż: #define PAGEADDR(n) ((void *)(0x8000000 + (n) * 0x800)) Parę innych rzeczy też jest dziwnie, np. pisanie Flash stronami zamiast słowami, przekształcenia int...
Jak kopiować dane z CSV do XLS wysłałem wcześniej (#21). Jest tam błąd, powinno być: [syntax=vbscript]Sub ImportujCSV() Application.ScreenUpdatin... = False Dim xls As String, csv As String, Linia As Long, Bajty As Long, Arkusz As String xls = Sheets("Parametry").Range("A2") csv = Sheets("Parametry").Range("B2") Linia.....
Witam, robię odczyt z terminala i mam plik FILTR.xlsx(excel) i ten plik zawiera dane których nie chcę w pliku z właściwymi danymi dane.xlsx(excel). Czy wiecie może jak to zrobić aby nie trzeba było ręcznie wszystkiego przepisywać? Jest bardzo dużo linii.Na zdjęciu widać przykładowe dane po lewej a...
1) Kod działa, ale chce żeby po wpisaniu kodu produktu w textbox i wciśnięciu zatwierdź (lub klawisza ENTER) wypisywał produkty jeden pod sobą w karcie zestawienie, nie w tej samej linii jak jest obecnie. Domyślam, się że trzeba dodać linię z n=n+1, ale nie wiem w którym miejscu :D 2) jak wyglądałby...
Podłączyłem oba dyski do komputera, uruchomiłem Linuksa (w tym przypadku akurat Ubuntu, bo taki mam na komputerze stacjonarnym zainstalowany). Zidentyfikowałem, dyski - tj. sprawdziłem, który jest sdb, który sdc itp. Można to sprawdzić na wiele sposobów, np. uruchamiając (z konsoli*) fdisk /dev/sdb,...
Dziękuję za odzew ;) z przykrością muszę stwierdzić że nie do konca o to chodziło, zależy mi na NIE kopiowaniu całej tabeli tylko samego tekstu. Warto zauważyć ze w exccelu (patrz zdjęcie) w całym wierszu czcionka jest tak samo sformatowana (podkreślenie lub pogrubienie). Mój dotychczasowy program...
foto: dawn.com Ponad tydzień temu pisałem o Apple , a Nokią, którego finałem była ugoda, na mocy której amerykański gigant będzie płacić fińskiemu producentowi. Tymczasem firma Steve'a Jobsa nie zwalnia tempa i w dniu dzisiejszym ogłosiła złożenie pozwu przeciwko Samsungowi twierdząc, że kopiuje...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest...
[syntax=vbscript]Dane.Range("J2:L" & x).Copy Kalkulator.Sheets(1).Range("L23")[/synta... ta jedna linia kodu do kopiowania zakresu J:L. Co Ty kombinujesz z tym miastem? Kod działa tak, że sprawdzanie miasta zaczyna od O2. Sprawdza w kolejnych wierszach, czy miasto jest takie samo, jak...
Witam Mam macro do kopiowania danych z jednego arkusza do drugiego i kopiuje dane ale tylko 3 razy. Przy kolejnym zatrzymuje się na poziomie (pogrubiona linia): Sub DoBazy() For i = 1 To 200 If Worksheets("Baza").Cells(1, i) = Cells(2, 3) Then kol = i Exit For End If Next i For...
Witam, Staram się napisać makro, które zlicza ilość rekordów w przedziale od (B2:B2000) Zaznacza formułę w wierszach A2 i kopiuje ją do zakresu A3:A(wynik z liczenia +1) Nieudolnie napisałem coś takiego, ale nie wiem jak ustawić zakres odwołując się do wyniku z operacji liczenia... PS. Docelowo...
powiem wprost wiem, że to nie jest trudne dla mnie też wydaje się nie zbyt trudne, ale nie wiem od czego zacząć program najpierw robię w zwykłym programowaniu java, potem kopiuję i przerabiam program w programowanie w j2me, a na końcu przerabiam na programowanie android co do pytania 10, 30,70,80...
:) Witam Trafił mi się ostatnio fax w którym wszystko prawidłowo działa poza kopiowaniem i wysyłaniem stron . Otóż są one w całości jasnego, szarego koloru z różnymi odcieniami i miejscami na stronie są białe pasy , raz poziome , a raz pionowe, nie ma na to reguły. Odbieranie faxów i pozostałe funkcje...
witam. mam duży problem z odpaleniem kompa. procek 450MHz i 64RAM.system jest 98. podłączyem kompa do monitora IBM 8512 i na ekranie po odpaleniu windowsa zobaczylem obraz podzielony na 3 czesci pionowe i duzo linii poziomych.obraz jest nieczytelny,i nic nie moge zrobic. karta graficzna jest zintegrowana,i...
Jezeli dane do znaku wielkosci nie zmieniaja sie to mozesz wykorzystac funkcje copy wpisujac stala (liczba znakow do znaku rownosci wlacznie) od ktorego miejsca dana linia ma byc kopiowana, lub jezeli nazwy do znaku rownosci beda sie zmieniac to funkcja copy + funkcja pos
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się...
W tej dystrybucji jest tylko emelfm, mc w linii komend nie działa. Próba kopiowania za pomocą podanej komendy cp -R kończy się komuniktem, że nie można utworzyć katalogu ponieważ mam prawo tylko do odczytu. I jeszcze jeden problem. Jak już uda się zabezpieczyć dane jak usunąć partycje aby dysk można...
Spójrz jeszcze raz trochę poprawiłem (dokładnie o odczytany.Worksheets("Dokument&... .Cells
Jaka jest kolejność działań? Zakładam że: 1. dostajesz raport w innym pliku. 2. kopiujesz arkusz do pliku roboczego i nadajesz mu stałą nazwę . Np "TEMP". 3. Uruchamiasz makro. Tu pod zmienną w linii 3 makra FILTRUJ1 NAD_OK = "Jakaś nazwa nadawcy" należy podstawić wartość wybraną z pola...
Dobre macro tylko co zmienić by nie kasowało tabeli bo mam odpowiednio komórki scalone i przeniosło dokładnie zawartość wraz z taka samą tabelka ? Z góry dziękuje za odpowiedź. Wiele jest tematów na temat kopiowania danych z arkusza do arkusza lecz nie mogę wykombinować jak 1.Skopiować tabelkę z zawartością...
Wykonaj pomiary ponownie ;) w spoczynku: Pomiar napięć na liniach +5V za pomocą wtyczki MOLEX linia 20V - 5,01-5,02 (poprzednio było 4,04) podczas kopiowania i muzyka Pomiar napięć na liniach +5V za pomocą wtyczki MOLEX linia 20V - 5,01-5,02 Dodano po 1 Spróbuj jeszcze jedną rzecz....
Metoda PasteSpecial ma jeszcze parameter(xlValues, xlFormulas, xlFormats itp.) Dodano po 16 Sheets(Q).Select Jak Q=1 nie wybierze zakładka o nazwie "1", tylko pierwsza zakładka po lewej stronie. Być może problem tutaj. Ponadto: dlaczego dwukrotnie otworzyć Wnioski_2016.xlsx, jeśli nie...
Witam Dostałem drukarkę jak w tytule, była przeznaczona do utylizacji więc pomyślałem wezmę zobaczę:) Objaw jest taki, że przy kopiowaniu skanuje dokument mechanika z boku kręci ale nie podaje papieru i po chwili się zatrzymuję jakby proces się normalnie zakończył bez błędów, przy drukowaniu nic nie...
Witam, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W arkuszu Arkusz1 jest całość artykułów widniejących w systemie ( ok. 40 tys ). Do arkusza Arkusz2 będę wklejał dane artykułów, które będę kontrolował pod kątem jakości. Plik powinien szukać identycznych artykułów...
ilość arkuszy mam. Problem pojawia się jak mam wyliczyć średnią z danych komórek z każdego arkusza wynik w pliku SREDNIA Dodano po 27 Napisałem coś takiego: Dodano po 1 Bez tego u-4
Cześć. Robisz to odrobinę źle. W trybie ciągłym dodajesz kolejne linie na podstawie odczytanych danych. Powinieneś w tej funkcji kopiować odczytane dane do pomocniczego stringa, przeanalizować, czy znajduje się tam znak końca linii, jeżeli tak, to podzielić go na dwa stringi, jednego dokleić do ostatniej...
Żeby pozbyć się tego ułatwienia doraźnie można kliknąć linię rozdzielającą wiersze lub kolumny arkusza (na górnym lub lewym marginesie). Żeby przycisk w ogóle nie był wyświetlany trzeba odznaczyć odpowiednią opcję: Plik/Opcje/Zaawansowane/Wycinani... kopiowanie i wklejanie/Pokaż przycisk opcji wklejania...
(at)ex-or przyjrzyj się dokładnie tej sekcji kodu w pliku UTFTGLUE.h. Sądzę, że dyskusja jest czysto akademicka i jest to oczywiste ;) Ale nie w deklaracji, nieprawdaż? Tutaj użyte zostało to jako nazwa typu tzn. przynajmniej były takie intencje autora. Masz rację, że tego typu definicje typu się...
Błąd wynika z faktu, iż nie ma zaczytanych danych bo miały zły format (myślałem, że to nieistotne skoro ma być kopiowane to co tam jest) ale moja wiedza z Excela nie jest wybitna. Mam już sformatowane dane i warunki wykluczające chyba wszelkie możliwości wystąpienia braków w danych. Arkusz może się powiększać...
Cześć, dzięki za odpowiedź. Problem pojawia się na linii [syntax=vbscript]With Sheets("XXX" & Cells(Y, "B"))[/syntax] Arkusz XXX istnieje i w nim są dane do kopiowania.
Linia pojawiła się w trakcie oglądania starej kasety VHS z filmem Mortal Kombat z nieistniejącej już wypożyczlni. Prawdopodobnie film jest kopią albo jest nagrany na kasetę na której był film porno. Kreska pojawiła się w przedziale kiedy statek odpływa z Hong Kongu do sceny z Goro i Kano. Najprawdopodobniej...
Liczysz znaki końca linii i kopiujesz do bufora zawartość pomiędzy kolejnymi takimi znakami. Potem wyświetlasz zawartość bufora.
nie przełknie? o co ci chodziło bo chyba nie o to że kolega może mieć usb 1.0... Szczerze mówiąc widziałem kompy z neo 6mbps albo jaką inna ta największa co miały proca 400mhz i ramu 256 tylko dysk 300gb i ten komp tego nie przełykał tylko wchłaniał filmy ,gry i itp z prędkością światła zresztą sam mam...
Witam , problem jest następujący , przy kopiowaniu stron tło jest szare i przez środek kartki przechodzi linia czarna przez całą kartkę o szerokosći 2 cm.
Kolego, może nie kopiuj tego samego postu do różnych tematów ;). Faktem jest, że dostałeś pechowo pełne llu, z voipem na CPE, przez co zarówno konfiguracja tego jak i działanie pozostawiają wiele do życzenia (było to pierwsze LLU wprowadzone w polsce dość eksperymentalne ;)). Od dłuższego czasu natomiast...
Faktycznie, wpisałem nazwę to sporo rzeczy się wyświetliło - dzięki!!!! A co do tego konkretnego przypadku to mi chodzi właśnie o coś takiego do sortowania warzyw - głównie do ziemniaków. Co do wydajności to myślę, że ok. 7t na godzinę byłoby wystarczająco, tym bardziej że z tego co widzę to kwestia...
Witam. Mam drukarke HP F380. Problem polega na tym, iż po wydrukowaniu jednej linii wyskakuje błąd E. Identyczny mankament jest przy kopiowaniu czy to na czarno bialo czy kolorowo. Po wylaczeniu kartka wyjezdza sama. Robilem test drukarki po odlaczeniu od kompuera naciskajac drugi od gory i drugi od...
Jeżeli bazy podłączysz niezależnie do instalacji telefonicznej to będą działały obie bazy i obie słuchawki. Jeżeli chcesz podłączyć do jednej bazy 2 słuchawki bezprzewodowe to musi mieć taka możliwość dany model telefonu. Ja dla przykładu używam w domu zestawu Panasonic KX-TG6411PD z jedną stacją bazową...
Znam dyktafony w cenie 60 zł, które zapisują z kompresją ;-) Do tego tania przejściówka na przewód słuchawkowy, lub na przewód linii. ----- czy znasz centralkę w cenie 1000 zł, która zapisuje nagrania z kompresją? To ile rozmów równoczenie możesz nagrywać na tym dyktafonie za 60zł? Czy dyktafon...
Atari - to nie mozliwe aby to co mówisz pomogło ... zabrudzenie soczewki czy nawet jej wyrwanie nie spowoduje zniknięcia napędu . . .jedynie spowoduje problemy lub uniemozliwienie czytania/zapisu . Zniknięcie napędu nastepuje w momencie braku zglaszania się urządzenia przez BIOS napędu, przerwanie...
Scandisk zawsze miał problemy z naprawianiem niedozwolonych znaków w nazwach plików i folderów, raz je naprawiał a raz nie, dlatego napisałem o Norton Disk Doctorze który nie ma tych błędów i bez problemów zmienia niepoprawne "krzaczki" na dozwolone znaki. Bez tego żaden Norton/Total Commander czy inna...
Witam. Jeśli nie wydaje mi się, że siedzi układ detekcji podniesienia słuchawki. Trzeba tego szukać w linii do telefonu zewnętrznego. Jartech :D
Hej! Mam zagadkowy problem z Di350. Po kilku tygodniach pracy u klienta , zauważył on że odbitki wychdzą "krzywe" . Jak chce skopiować np. kartkę A4 z ramką do okoła , to na kopii wyjdzie delikatny "romb" , z krawędziami które zamiast prostych linii mają "schodki". Ogólnie sprawia to wrażenie jakby...
Witam !!! Mam pewien dylemat. Mianowicie napisałem program, który steruje linią produkcyjną na procka AT90S8515 i nie chciałbym aby ktoś niepowołany skopiował mój kod. Czy istnieje jakieś zabezpieczenie, które nie pozwoli osobom trzecim na kradzież mojego softu? Jeśli macie jakieś doświadczenia...
Na forum jest kilka podobnych usterek opisanych, ale to nie to... Chyba że nie znalazłem odpowiedniego wpisu... Najpierw miałem problem z kalibracja skanera. Przeczyściłem jednak optykę i już wszystko w tym temacie jest OK. Teraz pojawił się nowy problem. Podczas kopiowania, skaner w pewnym momencie...
moze na poczatek standardowe: diskcopy a: a: w dosie lub w linii polecen (oczywiscie to skopiuje cala zawartosc dyskietki na druga dyskietke). Pozdrawiam Michal
sprawdz jeszcze wartosc TTL-a, bo moze nie da sie tak po najmniejszej linii oporu. polecenie: ping "adres bramy" i powinno sie pokazac czy TTL=1 czy jest wiekszy. Jesli bedzie wiekszy to tym nie musisz sie martwic.
cały "układ" wygląda tak napisane jest na scalaczku ATMEL 628 34002N SU18 tej ostatniej lini nie jestem pewny ponieważ jest na niej zaschniety toner
Witam! Jeżeli chodzi o jakość VHS to w zasadzie nie ma co szaleć. VHS przenosi tylko około 240-250 linii. Przewód sygnałowy 1,5 metra nie będzie grał roli. Do przegrywania postaraj sie jednak o jakiś porządny studyjny magnetowid np [url=]Panasonic AG-6500 z modułem TBC (Time Base Correction). Zminimalizuje...
Ostatnio otwarty plik ma najwyższy indeks, więc wystarczy policzyć (Workbooks.Count). Pełną nazwę ze ścieżką możesz "wydłubać" zaraz za poleceniem Open. W przykładzie wstawiłem MsgBox'y w miejsce gdzie nazwę możesz przypisać do zmiennej Sub Otwarcie_skoroszytu() Dim fd As FileDialog Dim vrtSelectedItem...
Podałem ci funkcje na tacy. Ostatnia linia obowiązkową bo każdy string kończy się zerem. Dostosuj warunki i gotowe.
No to widzisz już, gdzie błąd? Linia 59 - niezgodność typów.
Po mojemu powinno być coś takiego. Sub ReadDataFromSheets() Dim colxls As New Collection Dim path As String, filtr As String, plik As String, i As Long Dim wynik As Long, SheetName As String Dim kom As Range, rg As Range Dim shAct As Worksheet, sh As Worksheet, wb As Workbook Dim p As...
No ale to co przedstawiłeś ma błąd. Wg mnie nie do końca zrozumiałeś przykład przedstawiony przez kolegę adamas_nt . Zauważ że "druga linia"/drugi przypadek liczony jest błędnie (dla ilości 266 sztuk, danej paszy, pomijając jej typ, starczy do 2011-04-09 a nie do 06) gdyż w zamierzeniu kolegi adamas_nt...
Dzięki wielkie, twoje makro zajmuje raptem 5 liniejek i działa znakomicie, a ja miedzy czasie wydusiłam coś takiego, oczywiście działa (tu mam inne zakresy), ale lini kodu jest nieporównywalnie więcej: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Nie mam w tej chwili Linuxa ale sprawdź czy program DD nie ma takiej możliwości (program jak i instrukcja obsługiwana z linii komend, instrukcję wywołujesz poleceniem MAN DD).
Od jakiegoś czasu przeszukuję informacji na temat utworzenia makra w Wordzie, które działało by następująco: W danym otwartym dokumencie jest napisane zdanie np. „Ala ma kota”. Zdanie to makro powinno skopiować do linijki niżej oraz zmienić czcionkę na następną na liście w pasku formatowania....
Jeśli programy w PLC i w Twoim archiwum zasadniczo się nie różnią, to może jednak warto uplodować bloki do istniejącego projektu (np. te które nie przechodzą weryfikacji na zgodność (Compare block). Komentarze linii zostaną zachowane. Ważne jest to, że jeśli w ciągu networków danego bloku w PLC jest...
Producent Corsair Info Linia Flash Voyager Techniczne Info Pojemność 64 GB Info Szybkość zapisu Info Szybkość odczytu [MB/s] 23 więc czego się spodziewasz jak ma takie parametry ? - kupując nie patrzymy zawsze na parametry, tylko wygląd i wielkość/pojemność, za tym idzie cena :)
ale czy jest możliwość aby po kliknięciu kolejny raz nie przenosiło poprzednich tylko dopisywało nowe? Jest, ale dla prostoty kodu najlepiej było by gdyby można było dołożyć kolumnę pomocniczą w której znajdowała by się informacja o tym że dany wiersz został skopiowany. Wtedy delikatna modyfikacja...
BOMBAA coś jest z zapisem nie tak 1 nie wiem jaki fragment to reguluje bo jak mam następne arkusze to mi przewala nie linie po linii ale w każdy następnym arkuszu mi przesuwa o wartość linii jakie były wcześniej gdzieś jakiś fragment zerujący licznik trzeba dać ale za bardzo nie wiem jak i gdzie??(dobrze...
Faktycznie. Poprawiłem i działa. Serdeczne dzięki!! Zmiana formułku co rok, nie przeszkadza ani trochę. To w zupełności wystarcza. Nie zorientowałem się, że pod nazwami miesięcy kryją się formuły. Zmieniłem zgodnie ze schematem i śmiga, tylko [syntax=VBA]=DATA(A$16;WIERSZ()-1... oznacza...
Witam. Muszę połączyć dwa pliki (pierwszy niewielki ale niezdefiniowanej zawartości) a drugi plik jest bitmapą (dowolną) więc może być duży. próbowałem to zrobić po jednym bajcie ale to strasznie powoli idzie a nie mam pomysłu jak zadeklarować większą ilość danych ponieważ pliki nie są tego samego...
Do szczęścia brakuje mi tylko żeby nie wyskakiwało pytanie o przechowywanie danych w schowku i zapisywanie zmian w plikach ze wzgledu na różnicę wersji offica. 1. Application.CutCopyMode = False po linii z Paste 2. Nagraj makro zapisywania pliku w odp. wersji i wyciągnij z niego argument FileFormat:=xlCoś....
W Thisworkbook (Ten_skoroszyt) linię[syntax=vb]ActiveWorkbook.Sheets.Ad... after:=Worksheets(ActiveSheet.Name)[/syn... do[syntax=vb]ActiveWorkbook.Sheets("WZÓR... after:=Worksheets(ActiveSheet.Name)[/syn...
Dziękuje za odpowiedź. Wydaje mi się, że Twoje rozwiązanie na szybsze działanie miało by sens. Nie wiedząc jak zamienić usuwanie na kopiowanie, dodałem jeszcze 4 takie same funkcje, których każda kolejna usuwała kolejną z 5 linii (w sumie jest 6, a tylko jedna z nich muszę kopiować), program niestety...
Dlatego proponuję tuner TV, on się może przydać... ogólnie zgrywanie VHS jest niewdzięcznym zadaniem ze względu na niską jakość i problemy z synchronizacją. Żeby to się dało oglądać na PC, trzeba materiał odszumić i pozbyć się przeplotu (tu akurat nie ma problemu, wystarczy podwoić nieparzyste linie...
Z tych wszystkich przeróbek zapomniałem dołożyć jedną linie:) wpisz to: mainws.Delete przed przedostatnią linią kodu, dokładnie przed: Application.DisplayAlerts = True
jak coś napiszesz to spróbuj przeczytać kod tak jak to robi makro Range("D6:H10").Select - zaznacz komórki D6:H10 Selection.Copy - skopiuj selekcję Sheets("X2").Select - zaznacz arkusz X2 ActiveSheet.Cells(6, 4).Select - w akrtwnym skoroszycie zaznacz D6 (ponieważ wyżej zaznaczyłeś arkusz...
Czytam, czytam napisane przez niektórych bzdury, które nawet nie tyle ich ośmieszają ale dyskredytują do logowania się na forum. Poziom umysłowy Polaków upada, a myśleniem logicznym coraz mniej się spotyka. No cóż, bezmyślnymi głupcami łatwiej rządzić. Dlatego świadomie niszczy się szkolnictwo. Wystarczy...
Sub MoveFiles() Dim Cell As Range Dim Filename As String Dim Filepath As String Dim NewPath As String Dim Rng As Range Dim RngEnd As Range Dim Wks As Worksheet Set Wks = ActiveSheet Set Rng = Wks.Range("g1") Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp) ...
Z tego co na razie napisałeś to masz do sprawdzenia oprócz oczywiście kondensatorków na płycie - do wymiany cała linia zasilająca - to jeśli założymy że płyta jest jeszcze sprawna to pozostaje ram i dysk - na razie bym te dwie rzeczy sprawdził...
Następnie chciałem usunąć pierwszy wiersz w pierwszym arkuszu żeby powstał kolejny wydruk z danymi z drugiego wiersza.niestety w tym momencie rozsypują się odwołania. Najprostszym rozwiązaniem Twojego problemu jest: 1. zaznaczyć wszystkie komórki powyżej tej którą chcesz wykasować 2. użyć kombinacji...
hehehe no przecież wiesz co miałem na myśli :) Dodano po 41 arnoldziq nie mam już żadnego pomysłu :( Jeżeli usunę header('Content-Type: image/jpeg'); to wołając bezpośrednio otrzymuję "wnętrze" jpga - ładnie losowo się zmieniające. Jednak gdy to samo usiłuję zrobić przez to nic się nie dzieje....
Może nie bardzo wiem o co chodzi ale podaję dokładnie nazwę arkusza w jakim jest grafik i w dalszym ciągu wywala ten błąd, w tym wypadku w pierwszej linii podaję: [syntax=vb]With Sheets("29")[/syntax]
Na tym czarnym tle pod blachą nic nie ma?? A po drugiej stronie też nic? Żadnych parametrów linii zasilających? Jeżeli nie ma nic innego to wywal tę atrapę zanim ci podzespoły ubije! może mi powiesz jak zrobić remap w MHDD bez zerowania Bez punktu 3. Czyli robisz punkty 1, 2 i 4.
Wypróbuj poniższy kod. Założenia: - kolumna A - dane do wyszukania - kolumna B - szukane frazy - założyłem, że też tam będzie jakiś nagłówek, więc odpowiedni zakres jest deklarowany od wiersza 2, w kodzie jest odpowiedni komentarz - jako, że makro operuje na mechaniźmie filtra zaawansowanego to dane...
Skoro czyści arkusz, to dochodzi do linii przed 'oExcel.Sheets(mySfrom).UsedRange.Copy'.... na to, że nie znajduje arkusza i zgodnie z instrukcją "goni" do etykiety 'qInst'. Przejdź makro krokowo [F8], lub postaw apostrof przed 'On Error', uruchom i podaj treść komunikatu błędu.
znaleźć oznaczenie M i skopiować wszystkie większe poziomy do arkusza2 Zielony idzie do linii 28. ale mamy M-ku z poziomem 4 w wierszu 87. dlaczego nie idzie do niego?
W której linii? P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...[syntax=vb]Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object,...
Błąd wynika prawdopodobnie z tego, że nie masz ograniczeń dla [syntax=vb]Range(Selection, Selection.End(xlDown)).Select[/syntax]Ws... po tej linii jakąś "czujkę", Np [syntax=vb]If Selection.Rows.Count > 1000 Then Exit Sub[/syntax]
wszystkie dane poniżej nazwy miasta i wkleić je do arkusza3 w komóce np B5 wszystkie dane muszą być w B5? Co oddziela? szpacia lub nowy linię?
Postaram się tak wszystko opisać żeby znowu nie oberwać po głowie :) WSTĘP. W folderze mam (w kolejności alfabetycznej), jak już pisałem ponad 300 plików o nazwach. Czerwone1Bdekon-1, Czerwone1Bdekon-2 ..., Niebieskie1Adekon-1 ..., Zielone1Adenon-1 itd. Na każdym z tych plików muszę dodać kolejne...
Witam, preszukalem kilkanaście tematów dotyczących excela makr itp. i powoli uczę się krok po proku a moze mi pomożecie.Potrzebuje makra który będzie przeszukiwał arkusz1 wzgłedem danych zapisanych w np. pliku indexy1.txt lub jak trzeba bazie danych, przeszukuje w arkuszu1 kolumne C (ilość wierszy różna...
W każdym arkuszu masz tylko tyle linii, ile rzeczywiście zostało zakupionych, czy każdorazowo masz pełną tabelę wyrobów, z ilościami tylko przy tych zakupionych? Czemu nie umieścisz tego na jednym arkuszu z 7 kolumnami na ilości i 8 - sumą?
dziękuję ZA TEN WYKŁAD. trochę SIĘ ROZJAŚNIŁO :) Co do mierzenia to myślę, że te wyniki były spowodowane słabą baterią w mierniku. Sprawdzałem napięcia na każdej lini przez cały dzień ( przeróżne prace, granie pisanie internet ) I odchylenia, jeżeli w ogóle były to niewielkie. Na płytę główną chciałem...
Wrzuć plik źródłowy jako załącznik (z fikcyjnymi danymi, ale w oryginalnym układzie). Ale po pierwsze zrezygnowałbym ze zmiennych systemowych i kopiował w jednej linii. [syntax=vb] Do While Sheets(1).Cells(licznik, 2) <> "" Sheets(1).Range("B" &...
Nie wiem czy zauważyłeś, ale tabela jest rysowana w locie. Wskazuje na to kod JS skąd pobierane są dane(około linii 340): [syntax=javascript] var pricedata = [{"Ris":true,"Id":1480,"Tem":"Tottenham"... Eric","Flg":"G","Pos":2,"Cos":"5.1","NTI...
Witam, mam problem ze skopiowaniem fomularza cenowego na 420 pozycji z worda do excela :( Przy kopiowaniu robią się przerwy co kilkanaście wierszy formularza. Do tego w niektórych komórkach widać linie z excela i przy przeciąganiu jakiejś wartości pojawia się informacja "ta operacja wymaga aby komórki...
niestety poprawiony plik nie działa, otwiera mi pierwszy plik do importu i zatrzymuje się. Makro podświetla linię: ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Są jakieś pomysły. P.S. 1) po wykonaniu kilku linijek wyskakuje błąd Cytat: runtime error 1004 application-defined or object-defined w tej linijce Kod Visual Basic - był to jeden pusty rząd. Pusty wiersz na pewno nie wywołał błędu 1004, a nieodpowiednia wartość indeksu wiersza/kolumny...
Próbowałem kolego tej apki która jest w Nokii fabrycznie zainstalowana ale ona łączy przesył kontaktów poprzez moduł bluetooth i co najciekawsze z tamtego tel LG L 90 wysyłałem kontakty i odbierałem pojedynczo na Nokii bo każdy kontakt musiałem akceptować ale nie wiem gdzie to się zapisało bo nie mogę...
To co wysłałeś wgl się nie kompiluje, debuger podkreśla na żółto linię z hiperlinkiem, wiec nadal coś tam nie gra, sprawdzałeś to w excelu? :)
Makro jest w kodzie arkusza REJESTR - reakcja na zdarzenie Worksheet_SelectionChange (wybor kursorem dowolnej komorki w arkusze REJESTR). Makro pisze w N1 (nazwa 'wiersz') numer wiersza w ktorem zaznaczena komorka. Dalej w PROTOKOL'e formula INDEKS wybiera z tego wiersza dane(w przykladzie tylko wartosc...
Tak, no i jeszcze wiersz z imionami. Jest na sztywno. Jeśli zawsze będzie o jeden wyżej, linię: wkb.Sheets(1).Cells(wrsDst, 1) = .Cells(2, kol) zastąp: wkb.Sheets(1).Cells(wrsDs... 1) = .Cells( wrs-1 , kol)
Panowie, Potrzebuję pilną pomoc z następującą kwestią. Mam dwie karty, w Arkuszu1 ustawiam automatycznie filtr na wartości równe 0 lub "Blanks" w kolumnie V i chciałbym aby makro automatycznie skopiowało wszystkie wiersze do Arkusz2. Póki co korzystam z wariantu [syntax=vbscript] Range("A1:AH60000")...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać, gdyż teraz wyskakuje mi błąd w tej linii: Set wb = GetObject(strQ) Chodzi o to, że mam otwarty skoroszyt x gdyż co chwilę muszę wprowadzać do niego nowe dane, a jednocześnie co...
Pod linią : temp = Cells(wiersz,10).Value dopisz Cells(wi... = "" 'co spowoduje wyczyszczenie zawartości komórki
To jeszcze ten fastboot musisz mieć z nimi lub np d:\fastboot oem unlock %%a aha i kod w txt masz wpisany ciągiem w pierwszej linii coś takiego fastboot oem unlock 12345678910111213141516
W menu po lewej masz kwadrat narysowany linią przerywaną ( GROUP). Po kliknięciu możesz oznaczyć cały obiekt. Teraz kliknij W menu KOPY ( te dwa pajace) i kliknij prawym klawiszem myszki oznaczony obiekt. Rozwinie się lista i będzie tam funkcja COPY GROUP. Kliknij i masz możliwość wklejania n-razy...
Najprościej: 1. Zadeklaruj zmienną publiczną w 'Module1' Np "Public KolToSh As Integer" 2. W procedurze 'DaneDoKPSkladka' wstaw linię: "KolToSh = ActiveCell.Column - 16" Najlepiej zaraz za "If Val(ActiveCell.Value) > 0 Then" 3. W procedurze 'zapiszKPdoRK_1' zamiast: "Sheets("RK1S").Select" wstaw:...
Dzięki za wsparcie. Pojawia się błąd na linii Arkusz21.Cells(poz, kol_doc).Paste z informacją iż Object doesn't suporty this property or method linia Arkusz1.Cells(w, kol).Copy przechodzi poprawnie
Zainstalowałem dodatek TextFX i póki co mogę zrobić coś takiego: Zaznaczam tekst który chcę zawinąć i wybieram TextFX > TextFX Edit > ReWrap Text to (Clipboard or 72) width, albo używam skrótu - ctrl+i Teraz mam nowe pytanie, jak zmienić domyślną szerokość 72 na 60? Wiem, że mogę dopasować szerokość...
Nie ma co przesadzać z tymi zabezpieczeniami, jeżeli nie ufasz lockbitom to i drugi mikrokontroler nie pomoże, już przy drugim "rozbrajanym" egzemplarzu będzie wiadomo gdzie ma umieszoną baterię, mikrowyłącznik itd. Gdy coś staje się popularne i generuje realne zyski to konkurencja i tak to skopiuje...
Zobacz z wcięciami [syntax=vbscript]Sub wstawianie_IL_z_załącznikami() 'te dane mają być w makrze pobierającym arkusze Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze() Application.ScreenUpdati... = False tblArkusze() = Array("I L", "II L", "III L", "IV L", "V L", "VI...
Ostatni miałem mało czasu na sen, więc przepraszam za zwłokę. Dzięki Panowie za pomoc, zwłaszcza (at)Sparrowhawk za podanie wszystkiego "na tacy" (potrzebne jedynie drobne modyfikacje). Nie do końca rozumiem zwiększanie i zmniejszanie wskaźnika do kolejnych linii: [syntax=c] #define SB_FIRST...
Tekst tego rozdziału ma niewłaściwy styl (nagłówek) Może też być brak Enter na końcu akapitu, a jest znak końca linii
(at)lanzul : nie mam tam excela... (at)JRV" dziękuję, lecz co mam zrobić, żeby czytała linię 2 i 3 i przypisywał ją do texboxów Open "C:\test\notatnik.txt" For Input As #1 Line Input #1, wiersz UserForm1.TextBox1.Value = wiersz Close #1
Witam, Dziękuję za pomoc. Niestety makro wykrzacza mi się na linii: "If Sheets(wybor) Is Nothing Then" i dodaje za każdym razem nowy arkusz. Nie do końca też rozumiem do czego służą dodatkowe arkusze z nazwami kolekcji. Czy mają jakieś znaczenie? Generalnie chodziło mi tylko o kopiowanie do już istniejącego...
Dzięki za szybką odpowiedź. Podsyłam spakowany plik z kilkoma przykładowymi wpisami i makrem. Dane w arkuszach mają być dodawane jako kolejna linijki. Tak jak to jest w przykładzie w arkuszu Transaktionen. Po każdym uruchomieniu makra dodawana jest nowa linia z wpisem z Makra (bądź kilka linijek zależnie...
Oczywiście ... ale im lepiej przygotuje się "wstęp" tym łatwiej będzie obrabiać dane, i szybciej. Sama zmiana "układu" danych, to będzie ze trzy linijki plus jedna pomocnicza na wyznaczenie końca linii, a potem to już tylko znajdywanie początków i końców dniówkowych, i wygląda na to, że nawet bez tablic...
Nie znam bezpośredniego sposobu żeby to zrobić. Można z to w prosty sposób w Notepad++ zamienić tabulatory na znaki nowej linii, ale to już po wklejeniu. Co prawda ten sposób nie będzie tak efektywny jak ustawienie kopiowania w calcu (jeśli takie istnieje), ale i tak oszczędzi mi dość sporo godzin...
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty...
Przed 'Paste' wstaw linię wyszukującą pierwszy wolny wiersz. Przykładów ci u nas dostatek: [url=]Link W ostateczności nagraj makro Ctrl+strzałka w dół.
Przed linią Target.ClearContents wstaw jeszcze Target.Select :spoko:
Niepotrzebnie się wtrąciłem i namieszałem. Nie uwzględniłem podpowiedzi kolegi PRL. Wróć do kodu z przed mojej podpowiedzi dodaj na chwile apostrof przed zmienna nw i sprawdz co się dzieje :) Jeszcze raz zamieść cały kod. Na pewno w tym kodzie przedstawionym wyżej "b.Cells(10, 4) = a.Cells(x,...
witam, potrzebuje pomocy bo walcze z tym juz drugi dzien i nic nie wychodzi, a mianowicie potrzebuje zrobic takie makro (VBA) zeby w momencie uruchomienia, moze byc przycisk(np.export) na kazdym akruszu kopiowalo mi dane ktore sa wprowadzone ze skanera do osobnego pliku w ktorym bedzie cala baza...
wyrzuca mi błąd 9 Jaka linia jest podświetlona na żółto? kod tego potwora to 8 stron wydruku Czy czasami połowa kodu, to polecenia .Select???
Dziś zrobiłem kolejną próbę kopiowania programem od programatora dostarczonym przy zakupie są różnice na zrzutach poniżej ,ale nie bardzo widzę aby tym dało się zapisać plik do folderu następnie pobrać i zapisać na czystej pamięci . Komórki w liniach 00-03 sa OK to znaczy takie same w obu przypadkach.
Cześć, przygotowałam sobie plik, który działa poprawnie na profilu każdego z użytkowników, natomiast wykrzacza się przeniesiony na wspólny dysk. Błąd pokazuje się po przejściu zaznaczonej linii. Ktoś podpowie, o co chodzi? Dzięki.
Taki wlasnie problem....drukuje bardzo cienka pionowa linie przez srodek kartki czasem dwie takie linie (wtedy jedna robi za margines), linie sa delikatne ale od gory do dolu, a wystepuja tylko i wylacznie podczas skanowania i kopiowania z wykorzystaniem gornego podajnika. Sama drukarka drukuje dobrze,...
Schematu nie ma, ale sprawdzaj elementy od strony gniazda liniowego. To nie takie trudne. czasem do wymiany jest tylko tranzystor, czasem mostek. Często też lecą dławiki na wejściu. Domyślam się, że fax na siebie (kopiowanie) jest dobry.
A co to za hybryda? RADA: Skup się na Twoim programie, na HELP-ie do BASCOMA (jest też po polsku na stronie producenta), na dobrej książce (hasło: Wiązania Marcin), nie rób GOOGLE-KOPIUJ-WKLEJ-PRÓBA bo nigdy się nie nauczysz programować. Jeśli nie ogarniesz BASCOM-a to te zabawki nie są dla Ciebie.
Kolego 1) Wydruk tylko w jednej barwie można zrobić prosto przy kopiowaniu wybierając z menu. 2) Skoro kreska jest zawsze w mono i w pojedynczym kolorze, to z bębnów moje podejrzenie przesuwa się na element wspólny dla wszystkich bębnów czyli pas transferowy obrazu, na nim tworzy się zespolony obraz...
A czy przy kopiowaniu bez udziału komputera (drukarka odłączona) też to występuje?