[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Ostatni wiersz i ostatnią kolumnę trzeba określić osobno dla każdego arkusza źródłowego. Ale można wykorzystać te same zmienne, bo raz użyte dane nie będą już więcej potrzebne. Coś takiego: [syntax=vbscript]Dim Workbook1 As Workbook Dim lRow As Long Dim lCol As Long With Workbook1 With .Sheets("A") lRow = .Cells(Rows.Count, 1).End.(xlUp).Row lCol =...
Ten procesor odczytasz sobie np. DAP Miniwiggler bez problemu bo on odczytuje sobie te infeony z serii XC800/XC166/XC2000/XE166/XMC1000/XMC4000...
wszystkie transakcje z tego miesiąca. If Month(kom)=Sheets("Raport").Cells(1, 3) Then
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Wygląda to jak na poniższym przykładowym obrazku. http://obrazki.elektroda.pl/6959952900_1...
Poprawiłem nieco makra, nie zrobiłem więcej bo działanie aplikacji jest dla nie niezrozumiałe. Proszę jeszcze raz dokładnie opisać co ma się wyświetlać w UserForm i co później ma się skopiować.
1. Co i gdzie wyświetla komunikat. Pytanie czy się zgadza. Jeśli tak to przerób: zamiast MsgBox "Kod " & kod & " liczbę: " & baza.Sheets("Base").Ce... 13) & " kopiujemy do " & .Cells(i, kol).Address wstaw przypisanie .Cells(i, kol) = baza.Sheets("Base").Ce...
Panel sterowania -> Kopia zapasowa / Przywracanie systemu. tam to wyłączysz.
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(wrsDst, 1) = .Cells( wrs-1 , kol)
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
Jak masz ustawione bloki DB? Nie mogą mieć Optimized access. Ja używam tak: http://www.elektroda.pl/rtvforum/topic29...
Trim(Str(...))
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
nie kupi sobie licencji MS Office'a To szkoda, bo wtedy byłoby łatwiej. Okazuje się jednak, że LibreOffice w wersji 25.8. całkiem dobrze radzi sobie z plikami xlsm. Proponuje zatem przetestowanie załączonego pliku Protektor z automatycznym wypełnianiem arkusza wydruku bieżącymi danymi (z ostatniego numeru rekordu), z automatycznym uzupełnianiem danych...
Weź pod uwagę że wszelkie operacje wykonywane na tym dysku będą trwały krócej. Natomiast jak piszesz kopiowanie między dyskami będzie się odbywało z prędkością tego wolniejszego. Nie ma żadnych magicznych sztuczek, ograniczeń interfejsu SATA się nie przeskoczy.
Czy jest jakieś magiczne polecenie, które by kopiowało cały arkusz z jednego pliku zachowując formatowanie? Możesz przykładowo wykorzystać po zaznaczeniu w pliku źródłowym źródłowego arkusza (np. Arkusz1) i kopiować do pliku docelowego (tu Zeszyt1) polecenie typu :spoko: : [syntax=vbscript]Sheets("Arkusz1").Copy Before:=Workbooks("Zeszyt1").Sheets(1)[/...
Witam Workbooks.Add nowy=ActiveWorkbook.Name '....... 'tu kopiowanie a t.d. '........ Workbooks(nowy).Close False Ten kod w petli
Powiem szczerze nie wiem jaki szybkość ma port Asus RT AC56U, oraz komputer stacjonarny. W domu mam neo 80 a lan cat 6 i kopiowanie między urządzeniami w lanie to już inna bajka niż cat 5e :). Różnica w cenach kabli (ilość do użytku domowego) nie jest wysoka więc lepiej mieć ciut "lepsiejszy" lan. Przy przewalaniu obrazów iso, maszyn wirtualnych itd...
ok mogę to zrobić za pomocą dwóch kabli tylko jak czytałem, żeby dwa laptopy połączyć ze sobą bezpośrednio to musi być kabel skrętka, a za pomocą kabla ethernet da się bezpośrednio pomijając ruter czy rozbić co na kablach ale przez ruter
Dla mnie dziwne jest to, że system startuje - jest to trochę dziwne, ale też system może po prostu być w mniej zdegradowanych obszarach. 99% danych mam skopiowane z prawami NTFS - napisz jasno, co robisz - kopia posektorowa kopiuje sektor po sektorze ignorując struktury logiczne i związane z plikami uprawnienia, więc w zasadzie nie powinieneś tego...
(at)ElektrodaBot opis Brother DCP-1622WE Brother DCP‑1622WE – opis i ocena pod kątem użytku domowego Krótko: DCP‑1622WE to proste, kompaktowe, monochromatyczne urządzenie 3‑w‑1 (druk/kopia/skan) z USB i Wi‑Fi. Drukuje do 20 str./min, ma rozdzielczość druku do 2400×600 dpi, podajnik 150 ark. i odbiornik 50 ark., skaner 600×1200 dpi, pamięć 32 MB. Zużywa...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
No i zapomniałeś napisać o programach antywirusowaych - czy coś działa w tle ?
Zobacz jeszcze w DMDE, czy po wejściu na $Noname 01 w $Root masz pliki oraz czy masz błędy odczytu $MFT po wybraniu wszystkie znalezione+rekonstrukcja-->wirtualna rekonstrukcja systemu plików, i czysta rekonstrukcja. Jak będą błędy można je skorygować. Jak w $MFT nie ma już widocznych błędów to można próbować jak pisałem. Chkdsk możesz używać jak chcesz,...
Witam, potrzebuję stworzyć między 3 firmami coś w stylu dysku sieciowego, może jakiś cloud drive. Tak aby użytkownicy mogli w jakimś sensie pracować wspólnie na plikach, głównie z pakietu office, pdf. Wygląda to tak, ze 3 firmy są spięte VPN. Padło zapytanie czy nie można po prostu zmapować dysku sieciowego użytkownikom z serwera NAS. Jednak zależy...
Witam serdecznie, jestem początkujący w temacie VBA i myślałem, że makro którego potrzebuje będzie proste do napisania jednak nie wziąłem pod uwagę, że za jednym zamachem w excelu nie można kopiować wielu zaznaczeń i trochę się pogubiłem. Założenia są następujące: 1. Mamy dwa pliki o tej samej strukturze (oba to zahasłowane kalkulatory) 2. Celem jest...
Mam jeszcze jedną sprawe. Próbowałem zrobic tak aby mozna było porównywać dane w dwóch arkuszach ale od róznych rekordów.tzn w arkuszu2 zaczyna sie od 1 a w arkuszu1 od np24. Zmontowałem taki kod ale coś nie działa.Możesz mi podpowiedzieć co jest źle Sub Przycisk1_Kliknięcie() Dim jest As Boolean Dim TabData() As Date Dim TabSp()...
To powinno pomóc: [url=http://www.goldenline.pl/grupy/Komp...
Propozycje kodu kopiującego hurtem cały blok w dwóch wariantach. Pierwszy wariant - kopiowanie formuł, drugi - kopiowanie komórek. Porównywałem szybkość działania i oba są znacznie szybsze od pierwotnego, natomiast porównanie między nimi zależy od wielkości bloków. U mnie przy małych blokach komórek (ok. 10 wierszy) szybszy był wariant 1., a przy większych...
Czy dyski w tej obudowie nie powinny być jako macierz RAID 1? To powinno przyspieszyć pracę i automatycznie uniemożliwić manualne kopiowanie pomiędzy fizycznymi dyskami. Aktualizowałeś firmware?
[url=https://websetnet.net/pl/how-to-ren... nazwy folderu użytkownika
Ramu jest 128, a oprócz dysków CDRW, więc jest problem z osobnym podłączeniem.
Najlepiej zrób tak: Utwórz nowa bibliotekę w nowym projekcie lub jako osobny plik i to właśnie do niej kopiuj komponenty z innych bibliotek - aby utworzyć jedną własną - być może komunikat ten wystepuje dlatego że biblioteki producentow są zabezpieczone przed edycją i nie masz praw ingerowania w nich w celu dodawania nowych komponentów, usuwania istniejących...
nie nie chodzi mi o 25 MB/s, czyli tyler ile gdzies ten dysk powinnien miec, a rzeczywiscie idzie jakby szedl 25 mb/s... ale w czym tkwi problem , spojrzcie na konfig i powiedzcie czy stare 120 nie chodzily lepij ?
Wedlug statyskyk ponizej wszystko wyglada OK, obydwa dyski byly zdefragmentowane przy pomocy PerfectDisk 8.0 Z dysku samsung: *** DiskCheckup V3.1 Build: 1000 Report *** SysInfo DLL Version: SysInfo v1.0 Build: 1014 Time of export: 17:58:33 14-jul-2011 Device information: Device ID: 0 Interface: ATA Device Capacity: 476937 MB Serial Number: S20BJ9CZ503141...
Tak jak kolega napisał. To są dane teoretyczne uzyskane w idealnych warunkach. Idę o zakład, że pod linuxem prędkość była by jeszcze inna. Poza tym telfon może ma moduł BT o takich parametrach, lecz nie jest powiedziane, że reszta sprzętu "wypusci" plik z taką szybkością. A antywirus na pewno skanuje te pliki, lecz to na pewno nie jest jego wina. W...
No właśnie takie rozwiązanie jest zbyt proste To może coś (przynajmniej na oko) mniej prostego (ExecuteExcel4Makro) [url=http://www.elektroda.pl/rtvforum/to...
Witam, Dziękuje. Na przykładzie to kopiowanie jest w OB1 to co Pan napisał post wyżej? Tak. A co do programu to nie znam tego języka: FOR i =1 TO N DO. W jakim to języku? ST na szybko ;) Receptura to np. Skład proporcji składników do produkcji batonika? Tak. Ale można byłoby to zastąpić kilkoma lub więcej markerami.? Rozwiń myśl. Pozdrawiam,
Mam trzy otwarte okna, czyli okno projektów, schemat i płytka. Położenie plików ze schematami nie grało roli w wersji pod Windows, zaznaczoną część schematu można było włożyć do schowka i wkleić zawartość do otwieranego w następnym kroku schematu. --- Temat rozwiązałem, po prostu nie zorientowałem się, że w nowej wersji Eagle wreszcie nieco dopracowali...
Kopiowany wiersz nie będzie pasował w nagłówki. Musiałoby być (w kodzie arkusza "101-183") coś takiego Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2:P50")... Is Nothing And LCase(Target.Value) = "x" Then wrsZrd = Target.Row nazwaArk = Cells(1, Target.Column)...
2 przewody z silnika to zasilanie i masa pozostałe 2 odpowiadają za obroty z reguły jest nimi regulowana oporność (potencjometr + opór)( oporność jest podłączona między tymi dwoma przewodami)zmiana prędkości odbywa sie poprzez przełączenie na inną oporność i pewnie masz cos uszkodzone w tej podstawowej oporności dlatego idzie ci na max obrotach i może...
Witam, otóż pojawił się kolejny problem z dyskiem, a mianowicie kopiowanie gry Metro Exodus z dysku crucial mx 500 na dysk goodram jest piekielnie powolne. Wacha się ono od 250 MB/s do 0KB/s a średnia prędkość kopiowania wynosi 20-40 MB/s. Co może być powodem? https://obrazki.elektroda.pl/1735812000_... https://obrazki.elektroda.pl/3839012700_...
Czy można do routera podpiąć dysk zewnętrzny USB 3,5 cała i jak z prędkością takiego rozwiązania chodzi np o oglądanie filmów i kopiowanie plików. Jeśli router ma taką opcję to można. Musisz zajrzeć w specyfikację routera, jakimi protokołami dane udostępnia. Najpopularniejszy jest dysk sieciowy, czyli widzisz pod jakąś literką w komputerze dysk. Ale...
Posiadam komputer z dyskiem SATA. Niedawno dałem go na gwarancji bo padła płyta główna. Oddali mi go przed świętami z nową płytą i powiedzieli bym zrobił sobie reinstalacje windy. Uruchamiając komputer z dyskietki startowej i w wierszu poleceń wpisuje coś takiego: A:\>C: pokazuje mi, że nie ma w ogóle takiej partycji i reszty partycji również... Natomiast...
Moj kolega Grzegorz ma 100% racje , ale jezeli masz problemy z STL to mozesz to jeszcze prosciej zrobic w LAD uzywajac funkcje MOVE , tylko musisz pamietac o zgodnosci typu zmiennych , ewentulanie odznaczyc sobie w Stepie sprawdzanie zgodnosci typow . Standardowo jest zaznaczona co bardzo utrudnia czasami zycie Pozdrawiam
Czytam to już n-ty raz i... Nie napiszę jak to zrozumiałem, bo (znowu) forumowicze będą mieli ubaw ;) Znalazłem tylko oprogramowaną kolumnę "J" w arkuszu "Przyjęcie próbek" i kopiowanie. Natomiast plik "Kopiuj-Ściskanie" zawiera w "Arkusz1" jakby wzorzec dla arkusza wynikowego, który przecież już istnieje. A może w nim będą wyniki (liczby w wielu wierszach)...
kopiowanie danych między makro kopiowanie między arkuszami kopiowanie danych między komputerami
naprawa touareg vaillant awaria palnika ładowania scania akumulator
schemat vivaro zagłuszacz sygnału
Kod P0000 w Peugeot - brak aktywnych błędów Punkt masowy prawych przednich drzwi Passat B5 1.9 TDI kombi 90KM