[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...
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)
Panel sterowania -> Kopia zapasowa / Przywracanie systemu. tam to wyłączysz.
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
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...
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...
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...
wiem zobaczymy po formacie jak to będzie działać hehe
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...
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,...
No i zapomniałeś napisać o programach antywirusowaych - czy coś działa w tle ?
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...
[url=https://websetnet.net/pl/how-to-ren... nazwy folderu użytkownika
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...
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...
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?
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 ?
Excel - automatyczne przepisywanie danych z jednego arkusza do drugiego. Witam, potrzebuję pomocy w programie Excel. Posiadam dane w Arkuszu 1 i potrzebuję, aby po kliknięciu danego klienta, z automatu skopiowały się do drugiego arkusza wybrane dane, jak nr zlecenia, umowy, adres, transport. AI: Jaka wersja programu Excel jest używana? Excel Office...
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...
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,
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...
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...
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_...
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...
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...
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)...
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
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
kopiowanie danych między kopiowanie danych między arkuszami makro kopiowanie między arkuszami
samsung firmware updater schemat bagaznika mocne radio samochodowe
schemat wzmacniacza technics dopasowanie mocowe
Buderus Logamatic: Migające lampki i ciemny wyświetlacz - przyczyny i rozwiązania Kiedy wyłączyć ASC w samochodzie? Okoliczności i zalecenia
