Ad4.Wykorzystałbym to że można w pętli przekręcać akumulator na siebie i kopiować jego wartość na port P3.Wcześniej ustawić P3 w stan wysoki i wpisać odpowiednią wartość do A.
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...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Co do daty, to rozumiem, bo tam elementem formuły jest DZIŚ(), które jutro będzie miało inną wartość, a Ty chcesz zachować zapis pierwotny. Natomiast w kolumnach A i C nie widzę takich elementów dynamicznych, więc nadal nie wiem po co te odwołania cykliczne. Zakładam, że nie są potrzebne. Działanie Excela nie zawsze jest przewidywalne. Dużo czasu zajęło...
Witam, Nagłówek nie jest kopiowany, jedynie dane. Najlepiej w kodzie po utworzeniu nowego arkusza przekopiuj go tak: wsSheet.Range("A1:C1"&... Destination:=wbBook.Sheets(CStr&... a żeby nie kopiować danych od pierwszego wiersza, zmień w kodzie wartość początkową zmiennej wiersz...
Na pewno uszkodzony dysk powinien być podpięty bezpośrednio. Ja kopiowałem oba dyski podpinając do stacjonarnego PC. Jeszcze nie miałem okazji kopiować na dysk podłączony przez eSATA, więc pewien nie jestem. Co do atrybutu 188 to masz wartość 19, a nie 100, co też świadczy o problemach z komunikacją i rozłączaniu się dysku w trakcie pracy, stąd może...
Dobrze by było jak te formuły miały charakter stały, uwzględniając np. zmianę dnia w tygodniu (ponieważ inaczej rozlicza się godziny w dzień roboczy, a inaczej w święto). Zrób dodatkową kolumnę, którą będziesz wyróżniał dzień wolny/sobota-niedziela/święto od normalnego dnia pracy. Wtedy wartość z tej kolumny ta może posłużyć za warunek do zmiany sposobu...
191 G-Sense_Error_Rate 0x0032 100 100 000 Old_age Always - 17916 Wartość 17k punktów oznacza, że dysk nie miał lekkiego życia (np upadek podczas pracy) 5 Reallocated_Sector_Ct 0x0033 100 100 050 Pre-fail Always - 1976 A to oznacza, że prawie 2000 sektorów na nim jest fizycznie uszkodzonych i że dysk kwalifikuje się do wymiany. Co prawda dziwią mnie...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
U mnie (Katowice) z DCF77 nie ma problemu, oczywiście zdarza się, że przez jakiś czas nie działa, ale przecież nie musi - wystarczy że złapie sygnał od czasu do czasu. Z tego co zauważyłem, to strasznie przeszkadza w odbiorze DCF77 komputer. Kiedy miałem zasilane układy przez USB to generalnie był problem, gdy je zasilałem osobno - z sieci lub z baterii...
jakieś sugestie dotyczące utrzymania go jak najdłużej przy życiu ? Nie da się, nienaprawialne uszkodzenia powierzchni. Krytyczny stan dysku zaczęło Ci wyświetlać bo liczba realokowanych sektorów - fizycznych uszkodzeń powierzchni , wzrosła na tyle, że wartość przeliczona spadła poniżej wartości progowej dopuszczalnej dla tego atrybutu krytycznego....
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
Zobacz przykład z załącznika...
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce w...
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
Może mi ktoś wytłumaczyć dlaczego jest tak że mając: Na dekoderze C+ siła sygnały jest na maxa (zielony pasek do końca) A na oprogramowaniu załączonym do karty sygnał na poziomie 55-70% W większości przypadków jest to tylko pomiar napięcia ARW w głowicy. Różnice poza różnymi układami głowic wynikają często po prostu z jakości dopasowanie impedancji...
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" & Linia).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False,...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
ActiveSheet.Range("A2:E300").Copy Destination:=.Cells(LastRow + 1, 1) Podmień na [syntax=vbscript] ActiveSheet.Range("A2:E300").Copy .Cells(LastRow + 1, 1).PasteSpecial xlValues Application.CutCopyMode = False[/syntax]
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
Tylko już .xlsm
Zrobiłeś wg przykładu z pomocy? BLKMOV przyjmuje parametr typu ANY, a nie tylko numer bazy. Numer bazy podajesz jako jedno z pól struktury.
https://obrazki.elektroda.pl/9847851500_... Witajcie moi drodzy Przedstawię tutaj szczegółowy opis wykonania bezgłośnego, energooszczędnego serwera plików opartego na Banana PI M1+ i dysku SSD podłączonego poprzez SATA. Pokazany tutaj serwer w finalnej wersji (480GB+60GB na SD) zrobiłem kosztem około 500 zł (200 zł Banana Pi + 270...
W załączniku.
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Sheets("DATA ENTRY " & s)
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
https://obrazki.elektroda.pl/9290552300_... Witajcie moi drodzy. Zapraszam na kolejną część mojego tutoriala PIC18F2550 i kompilatora SDCC . W tej części poznamy sterownik wyświetlacza LED MM5450, połączymy go z PIC18F2550 i napiszemy od 0 implementację ich komunikacji. Docelowo użyjemy MM5450 do wysterowania wyświetlacza LED 5 na...
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Dzień dobry, Opis dość nieprecyzyjny, nie wiadomo czy listy są tej samej długości, gdzie miałyby być kopiowane po wpisaniu nazwy, i gdzie ta nazwa ma być. Spróbuję coś napisać ogólnie. To rozwiązanie dotyczy Excela w którym pracuję na co dzień, myślę że w OpenOffice można stosować podobne rozwiązania. Jeśli kolumny mają nagłówki dogodnie byłoby nadać...
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Czekamy aż zrezygnujesz z prowizji...
Drogi kolego, nie atakuję cię osobiście. Merytorycznie krytykuję pogląd jakoby była to konstrukcja "prawie profesjonalna". Nie jest. Kontrola procesu ładowania jest uproszczona i niedokładna, chińskie ładowarki z Lidla i ich kuzyni robią to lepiej, nawet jeśli jakość produkcji pozostawia wiele do życzenia. Czasy kiedy "ciężka elektronika" oznaczała...
W Polskim miksie jest znacznie więcej PV niż w Danii więc po co mamy walić tyle wiatraków co oni? Nie mamy ich kopiować 1:1 ale naśladować rozwiazania które sie sprawdzają, tylko tyle i jak widzę aż tyle bo brniemy coraz głębiej w drogie i nieelastyczne EJ. Duńczycy, jak rozumiem Twój wzorzec, korzystają z tego co mają. PV nie działa w nocy, kolejny...
W tym zdaniu to naprawdę nie wiem o co Ci chodzi. I jakoś się nie dzxiwię. Zamiast przeczytać uważnie fragment zawierający cytowane zdanie, wydzieliłeś je z kontekstu i w takiej formie faktycznie jest zgodne z tym co Piszesz. Natomiast (nie wiem czy muszę tłumaczyć, uważam, że mam do czynienia z osobą inteligentną) to zdanie jakie cytowałeś odnosi...
Witam, Czy jest sposób na kopiowanie tylko samych wartości komórek w excel-u (przez przeciąganie), tz. aby do komórki docelowej kopiowane była wartość z komórki kopiowanej ale formatowanie (kolor, obramowanie,itd.) pozostawało bez zmian w docelowej komórce ? pozdrawiam.
http://obrazki.elektroda.net/73_11934106... Chciałbym zaprezentować konstrukcję jednogodzinnej ładowarki przystosowanej do ładowania akumulatorków NiMH oraz NiCd 1,2V o rozmiarach HR6/AA i HR03/AAA. Ładowarka posiada dwa oddzielne kanały, dzięki którym możemy ładować jednocześnie dwa różne akumulatorki lub po niewielkich przeróbkach cztery...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Gdybyś opisał całe zagadnienie, to pewnie znalazłoby się lepsze rozwiązanie całości, ale to o co konkretnie pytasz można zapisać tak: [syntax=vbscript]Range("A2").Value = Range("A1").Value[/syntax]
Z tym przeciąganiem to jest dość skomplikowane, bo w takim przypadku obszar selekcji jest większy niż obszar zmian. Trzeba to dopasować. Poza tym przy przeciąganiu najpierw jest kopiowanie, a potem selekcja, w związku z tym przy takiej metodzie rejestracji zmian, jaką tu przyjęto wynik wygląda tak, że wartość poprzednia jest taka sama jak bieżąca. Zatem...
(at)mariomario chyba masz rację z tym, że nie ma sensu upakowywać bit co do bitu. Trochę z tym przesadzam z przyzwyczajenia, bo robiłem/robię systemy gdzie walczę o każdy bit itd. Jakby oferować binarne API pomiarów to można by po prostu kopiować z pamięci do odpowiedzi GET odczyty bez zamiany ich na tekst ASCII. W ten sposób uniknęlibyśmy wielu sprintf...
Pytanie podstawowe: czy potrzebujesz kopiować tylko wartości, czy też formaty? Bo w tej chwili to, co robi to makro, to kopiuje wartości "aa" z kolumny A do C, co jest raczej średnio przydatne - równie dobrze można tą wartość tam wpisywać...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Dzięki PRL za pomoc! Już jest prawie dobrze. Jest tylko jeszcze jeden mankament. Otóż jeżeli np. w wierszu G2 mam wartość 5 to makro kopiuje wiersz 2 pięć razy a powinno kopiować 4 razy. Ilość skopiowanych wierszy razem z tym, który pozostaje powinna być taka jak wartość w komórce w kolumnie G jeszcze przed uruchomieniem makra. Czyli suma wierszy po...
[syntax=vbscript]Sub Handlowcy() Sheets("Dane").Select ow = Cells(Rows.Count, "E").End(xlUp).Row For x = 2 To ow For y = 2 To Sheets.Count If Cells(x, "F") = Sheets(y).Name Then nw = Sheets(y).Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(x, "E").Copy Sheets(y).Cells(nw, "A") Cells(x, "G").Copy Sheets(y).Cells(nw, "B") End If Next Next End Sub [/syntax]...
Witaj Zamiast tego Rows(1).Copy Destination:=Rows(ost_wiersz) wpisz Rows(ost_wiersz) = Rows(1).Value Dodano po 2 z wiersza „A” "A" to jest kolumna
Niestety, nie bardzo mi oto chodziło. Otóż mam plik: Zeszyt2, w którym podaje się dane wejściowe w jednej komórce, następnie wykonywane jest w tym pliku skomplikowane działanie i wynik wyświetlany jest w drugiej komórce. Takich danych wejściowych mam dużo, ale wynik jest wykonywany tylko z danymi z jednej komórki i podawany też tylko w jednej. Działanie...
To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym...
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]
Ja bym tak to zrobil Dim Tekst As String For i = 2 To Worksheets.Count Tekst = Tekst & Worksheets(i).Cells(1, 1).Text Next i Worksheets(1).Cells(1, 1).Value = Tekst
Oczywiście chodzi o makro w Ecxel Ma zacząć w miejscu zaznaczenia. Sprawdzić jaka jest wartość w komórce (np 5) i kopiować tą wartość w dół, aż dojdzie do nowej już istniejącej wartości (np 10) i nową wartość kopiować w dół aż do kolejnej.. Może zakończyć na komórce z hasłem "stop"
Witam serdecznie. Bardzo proszę o radę jak mogę zmniejszyć jakość filmów DVD bez utraty jakości? Przypomniałem sobie ostatnio że film z mojego wesela jest tylko w jednej kopii na płytach DVD... Film z 2005 roku więc stwierdziłem że przekopuje sobie to dla bezpieczeństwa na laptopa a później dyski z kopią zapasową. Jestem na etapie kopiowania na laptopa...
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
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.
Witam, Od dłuższego czasu szukam możliwości rozwiązania mojej zagwozdki i nie mogę jej znieść. Potrzebuje makro które będzie kopiować zawartość komórki np A1 z arkusza 1(kwota) do innej komórki w arkuszu 2 tylko ze jeżeli w komórce A1 znajduje się wartość ujemna to aby była ona kopiowana bez minusa a jeżeli wartość jest dodatnia to aby ona kopiowana...
Do elementu wskazywanego przez "nazwa" kopiujesz wartość lokalnej zmiennej "info", która nie istnieje po wyjściu z tej funkcji. Musiałbyś zadbać o odpowiedni bufor wskazywany przez "nazwa" i kopiować ZAWARTOŚĆ (całą, odpowiednią funkcją). Teraz to jest generalnie bardzo źle <: 4\/3!!
Witam! Potrzebuję pomocy z odpowiednim zaprogramowaniem makra. Opisuję dokładnie czego potrzebuję - mam w pliku 2 arkusze : "m-ki" gdzie w kolumnie A mam kolejno wypisane materiały a w kolumnie B do każdego materiału mam przypisany index "karta wadliwe" jest to karta finalna, do której chciałbym aby po podwójnym kliknięciu w wartość z komórki A w karcie...
chciałabym przekopiować te wartości z 2 arkusza do 1 w miejsca w których powinny być Proponuję wypróbować taki kod :spoko: : [syntax=vbscript]Sub Uzup() For i = 1 To 10 If Sheets(1).Cells(i, 1) <> Sheets(2).Cells(i, 1) And Sheets(1).Cells(i, 2) <> Sheets(2).Cells(i, 2) Then Sheets(2).Activate Sheets(2).Range("A" & i, "B" & i).Select...
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
Dzięki za odpowiedź, Jeżeli nie o wycieki pamięci chodzi to o nadpisanie niedozwolonych obszarów (np poza zadeklarowaną wielkość tablicy, sprawdziłem celowo do char tab 2. funkcja strtok2() może zwrócić null, więc instrukcja if(ptr Wygeneruje wtedy wyjątek - na pewno? Cel był taki, że jeżeli jest coś pod adresem ptr to ma kopiować a inaczej nic nie...
Mam nadzieję że opisałem to w sposób zrozumiały. Niestety, nie bardzo. Podstawą w takim przypadku jest załącznik pokazujący układ danych. To co napisałeś jest niespójne i nie wiadomo jak chcesz tego używać. I po co angażować VBA do takiej prostej sprawy? A jeśli już o VBA mowa, to w swoim kodzie niepotrzebnie bierzesz number1 i number2 w cudzysłowy....
Samsung CLX-3305 w Dlaczego drukarka nie pamięta ostatnich ustawień. Za każdym razem jak chcę kopiować dokumenty muszę ustawiać wartość w menu -układ - normalny. Po wyłączeniu zasilania to ustawienie znika i pojawia się 2 strony na arkusz. I tak za każdym razem po wyłączeniu zasilania. Czy to jest (2 strony na arkusz) ustawienie domyślne? Dzieje się...
To mój pierwszy post na elektrodzie także witam wszystkich :) Słuchajcie, szukałem rozwiązania mojego problemu w odmętach internetu, niestety ze względu na moją niedostateczną wiedzę nie jestem w stanie dostosować przykładu, który znalazłem (prób było wiele) :/ Chciałbym kopiować wartość wskazanej komórki do kolejnej pustej komórki w kolumnie innego...
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Witam, potrzebuję makro do Excela w VBA. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to ciężki temat, gdyż jestem nowy w programowaniu i tak jakbym potrafił napisać na kopiowanie komórek makro tak w tym wypadku jest to troche trudniejsze i nie potrafie...
Ludziska. Skoro dodatkowy licznik programowy Wam się nie podoba, to trzeba kopiować wartość licznika sprzętowego do zmiennej i porównywać (mniejsze, większe) z tablicą wypełnień. Cały "PWM" wtedy należy przenieść do pętli głównej. Oczywiście Prescaler = 1 nie jest najlepszym rozwiązaniem w takim wypadku. Jeśli nie jest potrzebna dokładna synchronizacja...
Witam, potrzebuję makro do Excela w VBA. Łamie sobie głowę, żeby to napisać i może ktoś umiałby to poskładać w sposób logiczny w makro. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to troche ciężki temat :| Program ma kopiować komórki J2:J, K2:K, L2:L...
ldi yl, low(RAM) ldi yh, high(RAM) załadujesz adres. teraz jak masz juz w Y adres mozesz kopiować wartość na przykład do r16: ld r16,Y a jezeli zmienna ram jest 2 bajtowa to : ld r16,Y ldd r17,Y+1 tylko musisz sie dowiedziec czy młodszy bajt jest pod niższym adresem czy na odwrót( kiedyś to wiedziałem :)).zapis realizujesz przez st std. Y to rejestr...
Nawiązując do tematu: https://www.elektroda.pl/rtvforum/topic3... Chciałbym, aby kod pobierał zadaną przeze mnie nazwę pliku lub folderu, szukał jej w folderach i podfolderach ze źródła. Na podstawie powyższego tematu wiem w jaki sposób się czytać nazwy folderów/podfolderów/plików. Poniżej przedstawiam kod do tego: Dodano po 4 Bardzo przepraszam...
Witam, mam następujący problem. Mam arkusz Zakupy Vat. Do niego dodałem kolumnę z wartościami (in jak inwestycje itd). Zastanawiam się czy za pomocą funkcji wyszukaj pionowo uda mi się rozpoznać komórkę z wartością in i skopiować cały wiersz do kolejnego arkuszu o nazwie Inwestycje. Czy to już trzeba będzie pisać makro? Najłatwiej będzie mi opisać mój...
Napisałem krótki kod w VBA, który tworzy mi historię edytowania każdej komórki z danego zakresu w komentarzu. Pokazuje też, kto wprowadził zmiany wraz z datą. Wszystko ładnie działa, tylko musi to być bardziej - że tak powiem - idiotoodporne :) ...i z tym mam problem, tzn.: 1. Jak już komentarz automatycznie się stworzy, to nie może być możliwości usunięcia...
KodIT dlaczego nie próbować odzyskiwać? Dysk nie ma szans na pełne zmartwychwstanie a wartość mają tylko dane. Po odczytaniu SMART przecież mu się nie polepszy :) Nawet by zrobić posektorową kopie cały dysk będzie musiał być przejechany. SMART go oczywiście nie uzdrowi ale może coś powiedzieć o kondycji dysku. Program typu Recuva, o którym piszesz...
Zapisujemy materiał filmowy dla archiwizacji z dwóch powodów: dla potomnych lub jednorazowego, późniejszego obejrzenia i po obejrzeniu - skasowaniu. Pełna archiwizacja wymaga użycia dysków twardych, do jednorazowego oglądnięcia wystarcza pamięć Flash USB. Zapis DVD był stosowany krótko w rejestratorach kamer ochrony, nigdy w profesjonalnej archiwizacji,...
Witam. cnd.. optymalizacji Chodzi za mną od dłuższego czasu taki pomysł, żeby zamiast kopiować wartość rekordu ze zmiennej tymczasowej do innej zmienne np. w tabeli array procedure AdresyPamieci_Zamien (_ObszSour, _ObszDest: PObsz); var Adr_ObszSour, Adr_ObszDest: Pointer; begin // Adr_ObszSour:= _ObszSour; Adr_ObszDest:= _ObszDest;...
Mam problem aby zrobić jako makro kopiowanie do dowolnej komórki wartosci z komórki formatowanej jako data i z funkcją DZIŚ. Chodzi o to że w pliku potrzebuje wstawić w jedną kolumnę (kol. C) aktualną datę (ale jeśli zrobiłbym z funkcji dziś to codziennie ta data by się aktualizowała dlatego chodzi mi tylko o wartość formuły). Zrobilem komórkę z funkcją...
Założenie było takie, żeby kopiował wszystkie wiersze w których w kolumnie F była wartość "tak" ale w takiej formie kopiuje wszystko niezależnie od "<>". Założenie było w miarę dobre. Z realizacją trochę gorzej. Makro działa tak jak je napisałeś tj. porównuje wartość komórki F1 z wartością zmiennej nazwanej przez Ciebie nie . Jeżeli chcesz aby...
Excel 2007 - działa i kopiuje wartości bezproblemowo - formuła =JEŻELI(A1;A1;B1) Czyżby błąd w MsOffice 2010? A może jakaś ukryta opcja?
Witam. Mój problem wygląda następująco: Posiadam zewnętrzny program w którym pojawia się okno zapisu. Chciałbym aby excel wklejał ze swojej kolumny wartość jednej komórki do okna zapisu i klikał ok aby zapisać plik następnie, kopiować kolejną komórkę i czekać aż otworzy się kolejne okno zapisu aby wkleić wartość (pętla) W tym zewnętrznym oknie mam największy...
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Witam Forum Panowie potrzebuje małej pomocy w VBA. Proszę o poradę potrzebuję kod aby aby sprawdzało ze w A1 =jeśli jakąś wartość, B1= jeśli jakąś wartość, C1 =jeśli jakąś wartość to D1 do D4 To kopiuje dane A1, B1, C1 oraz D1:D4 do nowego arkusza i tak w petli. Ma kopiować jeśli znajdzie dane w każdej z komórek a1,b,1,c1 oraz D1:D4, jeśli któraś z...
Sub ZSO() Application.ScreenUpdating = False Set a = ActiveWorkbook.Sheets(1) Set b = Workbooks.Open(ActiveWorkbook.Path & "\ZSO.xlsx") l = b.Sheets(1).Cells(Rows.Count, "ap").End(xlUp).Row + 1 b.Sheets(1).Cells(2, 12) = a.Range("C15"): l = l + 1 a.Range("B23:B52").Copy b.Sheets(1).Range("ap" & l) Application.ScreenUpdating = True End Sub Pozmieniałem...
W zasadzie można to zrobić zwykłą funkcją "JEŻELI". Jeżeli data nowsza od poprzedniej wpisz kolejną wartość do kolejnej komórki .... Chyba, że macie jakieś inne pomysły
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Próbujesz wklejać zbyt duży zakres danych w stosunku do posiadanego miejsca w arkuszu, tak mniej więcej działa twoje makro: http://filmy.elektroda.net/24_1502974789... ( odtwarza się na pewno w mpc-hc ) Wklejany zakres jest o min. 1 wiersz większy niż dostępne miejsce w arkuszu. Pytanie: Jaki właściwie zakres danych chcesz kopiować z jednej zakładki...
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...
Dysk jest uszkodzony. 4 tysiące realokowanych sektorów, do tego jeden niestabilny i uszkodzona taśma dysku. Wartość atrybutu zapewne już spadła ponizej wartości krytycznej. Trzeba jak najszybciej kopiować dane na sprawny dysk, ten już jest nie do naprawy.
w poziomie należy przetransponować (ADR.POŚR i NR.KOLUMNY()). Sprawdź... a możesz wytłumaczyć jaśniej co to znaczy zwłaszcza ten ADR A już mniej więcej wiem co to jest ten ADR ale z tego co się doczytałem to jeśli źródłowy skoroszyt nie jest otwarty, to funkcja ADR.POŚR zwraca wartość błędu #ADR!.
Dobry wieczór, Jeżeli makro działa poprawnie i jedynym problemem jest kopiowanie wartości, to powinno wystarczyć dopisanie w linijce po słowie PasteSpecial i spacji (pod koniec kodu) frazy [syntax=vb]Paste:=xlPasteValues[/syntax] Powodzenia.
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Bo 0,85mH masz dla wersji 4 Ohm, a łącząc równolegle 2x 15 ohm masz ok 8 ohm czyli podwajamy wartość cewki i wtedy będzie ok 1,5-1,8 mH.
ECC miało wartość 8. To coś zapodał FullScan1 Auto ECC to w ustawieniach programu znalazłem, i już sobie ustawiłem, natomiast jeśli chodzi o "Other AdjustPower: 500MA" to nie bardzo wiem co z tym zrobić. W programie nic takiego nie znalazłem. Dodano po 5 Po ostatnich radach PIDAR-a zapuściłem program jeszcze raz i pamięć odzyskała swoją pierwotną wielkość...
Witam! Mój dysk zewnętrzny (podpięty pod USB) kilka dni temu spowolnił. Wartości podczas kopiowania są mocno zróżnicowane - czasem przez większość czasu jest prędkość w normie (~80-100mb/s) i spada do ~10mb/s na samym końcu, czasem jest odwrotnie, a jeszcze innym razem nie chce się kopiować wcale (prędkość 0-1mb/s). Podłączałem go do laptopa oraz innych...
Bez montowania tej procedurki potrafię powiedzieć, że ona nic nie przenosi ani nie kopiuje. I przy tym trwał będę uparcie. Moim skromnym zdaniem wstawia ona stałą wartość (8 lub 16) do komórek arkusza 2 przesuniętych o offset 3,3 w stosunku do komórki modyfikowanej w arkuszu 1. Gdzie tu jest kopiowanie? Jeśli się mylę popraw mnie. A jeśli chodzi o trafianie...
kopiować wartość makro automatyczny kopiować wartość kopiować wkleić wartość
iskrzenie silnika odkurzacza wskazania termometru zewnętrznego podłączenie aparatu komputera
Podłączenie lampy ulicznej sodowej przez wyłącznik 230V Jak wymontować wyświetlacz kilometrów w Renault Megane II 1.6 2006
