Pierwsza sprawa to na pewno wyrzuć funkcję Jeżeli() i pozostaw tylko warunki. Możesz zapisać go w jednej funkcji Oraz(). Druga sprawa to jak zostawisz wszędzie te $ to nie będziesz mógł łatwo kopiować formuły/warunku. Adres bezwzględny pozostaw tylko przy adresie S$4 =ORAZ(B3>5,0;B3<6,0;C3<S$4) Tak zapisany warunek wpisz do formatowania warunkowego...
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...
Dzień dobry, W Pana problemie są 3 warunki, więc trzeba użyć funkcji LICZ.WARUNKI, a nie LICZ.JEŻELI. Zakładam, że ma Pan Excela 2007 lub późniejszego. Jeśli nie, rozwiązanie musiałoby być "okrężną drogą" - proszę napisać jeśli to jest Pana przypadek. Formaty daty nie mają znaczenia, gdyż zapis w pamięci komputera jest taki sam, a to jest istotne dla...
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
może ktoś ma pomysł ? Daj kolego precyzyjniejszy opis (uzupełnij choćby nagłówki :D ), żeby można było się zorientować w jakim celu chcesz wielokrotnie kopiować poszczególne komórki :?: - z 62 wierszy chcesz uzyskać 254 wierszy w arkuszu 2 :?: :cry: Jeśli chcesz to robić formułami to na pewno nie przy użyciu funkcji Podaj.Pozycję(), która zwykle podaje...
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...
Witam Chciałem skopiować reguły formatowania warunkowego z jednej kolumny powiązanej z kilkoma innymi kolumnami w tym arkuszu do innego arkusza. Niestety wyskakuje mi komunikat że warunek jest dzielony przez zero. W 1 arkuszu takiego komunikatu nie ma. W 2 arkuszu chcę sumować tą kolumnę z podziałem na miesiące. Jak to skopiować żeby nie wyskakiwał...
Tauron kopiuje warunki przyłączenia i wszystkim wali w nich x5. Ale w odbiorach jeśli masz zaznaczone x4 to nic się nie czepiają ;)
Zerknij wpierw tutaj, czy cokolwiek by ci się nadało do adaptacji pod twoje potrzeby: https://www.elektroda.pl/rtvforum/topic3... https://www.elektroda.pl/rtvforum/topic3...
[syntax=vbscript]Sub Kopiuj() Set a = Sheets("Arkusz1") owa = a.Cells(Rows.Count, "B").End(xlUp).Row Sheets("Arkusz3").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 2 For x = 2 To ow s = Application.Match(Cells(x, 2), a.Range("B1:B" & owa), 0) If Not IsError(s) Then a.Rows(s).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub...
Dzień Dobry, zakładam temat bo w sieci to co znalazłem nie potrafiłem wykorzystać. W załączniku plik. Piszę makro, które będzie kopiowało mi z Arkusz2 do Arkusz1 wtedy, gdy będzie spełniony warunek. W Arkusz1 mam nazwy kontrahentów według wykazu alfabetycznego, w Arkusz2 są kontrahenci w różnej kolejności. Pętlą For w Arkusz1 schodzę po wierszach w...
witam mam problem a przyznam że makr/vba do tej pory nie używałem mam raporty które generują się codziennie, w zależności od miesiąca 30-31 raportów jeden raport składa się z 3 arkuszy, nazwy arkuszy są niezmienne, chciałbym automatycznie kopiować całą zawartość wierszy które w 2 kolumnach spełniają różne warunki. dodatkowa trudnosc jest taka ze 1 warunek...
Do While ... Loop jest niewłaściwym warunkiem. Pętla For Each ... Nex przeszuka wszystkie komórki zakresu, natomiast wybór komórki z tekstem 6-cio znakowym powinien nastąpić przez If ... End if.
Rozwiązałem ten błąd dodając warunek ... if(CopyFile==0) // <----------- a ja wczoraj widziałem czarownicę na miotle. Program nigdy nie wejdzie do tego warunku.
Oczywiście można marzyć, ale warunek był dość prosty: w komórce B1 mam formułę sumującą A1:A100
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...
Chcesz przelecieć po wszystkich arkuszach - do tego jest pętla For Each. Zakładam, że na każdym arkuszu oprócz arkusza, z którego uruchamiasz makro - chcesz wykonać jakąś akcję. Żeby nie wykonywać akcji na arkuszu z którego uruchamiasz makro, możesz wykorzystać warunek If jak w przykładzie.
Ok -rozumiem, chodzi o pieniądze. Nie zamierzam niczego kopiować na handel. Jeśli chodzi o dobre używane jakich szukać. Warunek to niska waga i gabaryty, głośnik 15" -noszę sam. Większość subbasów fabrycznych to 35kg i więcej.
Witam! Potrzebuję pomocy z poprawnym wstawieniem lub modyfikacją obecnego makra. Aktualne makro po aktywowaniu kopiuje wybrane wartości z kilku różnych kart w kolejności alfabetycznej kart, jeśli w kolumnie C jest konkretny dostawca. Teraz w załączonym pliku potrzebuję w ostatniej karcie "podział na kolory" wstawić (lub przekształcić obecne) makro,...
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
MB20 będzie równy 10. Zwróć uwagę ze czas cyklu w OB1 może sie zmieniać za każdym razem. Ok tutaj Gafa. Jak cykl 10ms to przerwań może się wykonać 10 więc tak jak Pan pisze. Przerwanie jest niezależne od czasu cyklu. I tak i nie. Może się udać sprawdzić warunek lub przed sprawdzeniem MB20>50 i już nie wychwycisz tego. Sprawdzenie musi być w bloku przerwania...
:))) Super - dzięki wygląda na to, że to działa !!! Jeszcze nie przetestowałem dokładnie bo muszę wyjść z domu ale chyba działa!!! Dzięki wielkie - tyle się z tym męczyłem a tu kilka minut i gotowe - DZIĘKUJĘ!!! Dodano po 3 NUNAK - Tobie też dziękuję - chyba twój sposób też będzie OK. Muszę to przemyśleć, który sposób będzie lepszy. Może łatwiej będzie...
[syntax=vb] Sub SzukajCiagu() Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("PrzeszukiwanyArkusz").Select While Cells(x, 1) <> "" y = 1 While Sheets("ListaSlow").Cells(y, 1) <> "" SzukaneSlowo = Sheets("ListaSlow").Cells(y, 1) If InStr(1, Cells(x, 5), SzukaneSlowo) > 0 Or InStr(1, Cells(x, 6), SzukaneSlowo)...
Witam, Mam dane w lewym górnym rogu i chcę by makro kopiowało mi tak dane jak te które są pośrodku arkusza (te na niebiesko). Czyli input=dane w lewym górnym rogu, output= dane na niebiesko. Ja to zrobiłem w 2 częściach (gdyż jest to urywek większego makro które chce stworzyć i robie je w kilku częściach by się nie pogubić:) ). Pierwsze makro sprawdza...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
To ja też zmodyfikuję.;) [syntax=vbscript]Sub Makro1() ow = Cells(Rows.Count, "H").End(xlUp).Row For x = 1 To ow If Cells(x, 8) = 0 Then Cells(x, 10).Cut Cells(x, 15) Next End Sub[/syntax]
Można i tak. kwestia tego czy łatwiej napisać w warunku filtra 1?121* czy tworzyć jakąś formułę i kopiować ją w dół. Przy filtrze dodanie jeszcze jednego znaku zapytania czy gwiazdki to moment np 1?1*1* a przy formule już trzeba trochę pomyśleć. Dlaczego sortowanie w kolumnach J, K i L powoduje wyświetlanie tylko tego co trzeba we wszystkich innych...
Do importu danych które do tej pory obrabialiśmy już dużo wcześniej nagrałem makro i wszystko działa. Dorobiłem do tego przycisk i jest OK. Teraz muszę nagrać kolejne makro, które zaimportuje plik wlasciciel.csv (plik zawsze będzie miał tą sama nazwę). Potem trzeba będzie do tego mara dopisać warunek żeby wykonało się pod warunkiem, że plik istnieje...
witam oczywiście że można zrobić coś takiego każdy symulator układów napisanych w vhdlu ma swój własny jezyk pisania skryptów do symulacji -- dodatkowo większość a moze i wszystkie (ale wszystkich nie znam) wspierają skrypty napisane w tcl-u i w takim skrypcie można napisać co się komu podoba i układ będzie działał tak jak się nam podoba czyli np. odczytujemy...
Nie polegaj tak szybko. no teraz już zgłupiałem, mam to dodać do całości , i bardzo bym cie prosił o materiały o linki bo chciałbym to zrozumieć a nie tylko kopiować kody Dodano po 2 no i walczę i walczę i nic ni wymyśliłem, wiem ze mam zrobić warunek dla kodu 109 tylko gdzie go wstawić , w które miejsce kodu
Można zrobić "czysty" plik z makrem. Kopiować go i potem dodawać dane. Innym sposobem jest export makra do jakiegoś pliku (a własciwie nie makra a całego modułu więc oddzielny moduł dla danego makra jeżeli nie chce się więcej kopiować) a potem jego import. Poniżej kod Workbooks("Zeszyt1.xls"...
Jest błąd, kilka minut Dodano po 6 Przepraszam za pomyłkę. Stałe. Pan będzie zastąpić innym 'c.Column <> 12 Then flag ' na 'c.Column < 11 Then flag '
Ok mam już coś takiego [syntax=vb]Private Sub CommandButton2_Click() Dim i As Integer For i = 3 To 12 Selection.NumberFormat = "General" Cells(i, 3) = "='" & Link(TextBox1.Text) & "[" & Nazwa(TextBox1.Text) & "]Input'!$C$" & i Next i For i = 14 To 287 If i <> 32 And i <> 33 And i <> 103 And i <> 104 And i...
Skoro więc sterowniki są na płycie to czemu przez pxe ich nie widzi? Dlatego, że wimboot ładuje tylko obraz boot.wim a nie całą zawartość płyty DVD (obrazu ISO) a sterowniki są gdzieś na płycie ale nie w obrazie boot.wim Dobra specjalnie sprawdziłem co i jak i już wiem jak odpalić instalację za pomocą wimboot :-) W skrócie chodzi o to aby: wystartować...
Masz rację tmf. Od pewnego czasu nie pracuję już z Xmega i zapomniałem, że jedynym rozsądnym SPI jest USART. A co do wystawiania SS, to nie jest do końca tak. Mam aplikację, w której Touch Panel nie pracuje w przerwaniach, tylko jest skanowany (X,Y,Z1,Z2) co 50ms i to leci z przerwania od licznika (SysTick). Z kolei karta pamięci zawierająca grafikę...
wszystkie transakcje z tego miesiąca. If Month(kom)=Sheets("Raport").Cells(1, 3) Then
Spróbuj to [syntax=vb] Sub Porzadkuj() x = InputBox("Podaj datu", "Data przyporziadkowania", Date) If Not IsDate(x) Then Exit Sub x = DateValue(x) Dim nazwy As Range, d As Range With Sheets("pivot") Set nazwy = .Rows(3) Set d = .Cells.Find(x, LookIn:=xlValues) If d Is Nothing Then Exit Sub Set d = d.EntireRow.Cells For Each sh In ThisWorkbook.Sheets...
[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Czy ma to znaczenie, że odpalam w LibreOffice? :cunning: No zasadnicze :idea: To tak jakbyś próbował czytać poezję w obcym języku (przy pomocy tłumacza z Google) :please: - VBA i Basic to dwa różne języki programistyczne i trzeba by makra odpowiednio skonwertować. Ani słowa nie było w pierwszym poście: z jakiego programu korzystasz ? :cry: jako załącznik...
Pozwala uzyskać kolejne liczby przy kopiowaniu formuły w dół. Tutaj jako argument funkcji DATA. W tym przypadku zmiana roku (w kolumnie A) zaktualizuje tabelkę. W Twoim arkuszu można jeszcze prościej. W pierwszej komórce wpisujesz datę (wg. ustawień systemowych): 1-1-2011, w drugiej: 1-2-2011, zaznaczasz obydwie i przeciągasz w dół...
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
Jeśli dobrze rozumiem, to tak:
Namotałeś z tym kodem. Skąd dokąd i co chcesz kopiować?
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
Witam jeśli poza zwartymi dwoma wejściami procesor "żyje" to można spróbować odczytać zawartość ... jeszcze tylko warunek że nie jest zabezpieczony przed kopiowaniem Pozdrawiam
Witam mam dwa arkusze - baza - są zawarte dane rozszerzone oraz PA- zbudowany na podstawie ark pierwszego z danymi uproszczonymi. i tak np. w arkuszu PA są w kolumnie B - nr boxów i należy skopiować z bazowego arkusza "service level" czyli albo INTP albo INTE. Czy jest jakaś formuła któraw pliku bazowym sprawdza jaki service level jest przy danym boxie...
Witam, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
O kurczę :) moj błąd !!!!! Chodziło o że jeśli są jakieś dane w A1, C1, D1 to je kopiuje do nowego arkusza plus E1:E4. i tak w pętli do następnych danych znalezionych w komórkach A,C,D + E cztery w dół
Witam! Jeżeli masz na obu komputerach Windows XP (legalne), zainteresuj się pakietem PowerToys Microsoftu - wśród kilku fajnych narzędzi znajdziesz SyncToy. Za pomocą tego programiku możesz ustalić różne warunki kopiowania plików - zmienione na kompie A, zmienione na B, na obu itd. itp. Adres strony masz [url=http://www.microsoft.com/windowsxp/...
natomiast nie wiem jak dokonać pakowania dbu(pack) finalnego usuwania rekordu PACK czy jest jakieś polecenie kopiujące rekordy spełniające warunek for trim(opis)='POLAND' do nowego pliku. Copy To nowy_p For trim(opis)='POLAND' W wyniku w/w polecenia powstanie plik nowy_p.dbf Pozdrawiam JK
Jeżeli to operacja jednorazowa to: w excelu 2003 i niżej : Zaznacz kolumnę z danymi. Menu Dane - Filtr ... - Filtr zaawansowany. Zaznaczasz kopiuj w inne miejsce. Okienko z warunkiem zostawiasz puste. W okienku celu ("Kopiuj do:") zaznacz pierwszą komórkę gdzie ma być wklejona lista. zaznacz "Tylko unikatowe rekordy" i wciśnij ok. w excelu 2007 i wyżej...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Bardzo pomocne będzie polecenie "Net use" Tu masz chyba wszystko co potrzeba: http://technet2.microsoft.com/windowsser... -- Z kopiowaniem to można rozwiązać inaczej. Każdy plik ma atrybut "Archiwalny" ustawiony albo zgaszony. Po utworzeniu lub modyfikacji dowolnego pliku, atrybut "Archiwalny"...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Witaj Sub ddd() Dim OstW As Long Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("Arkusz1") OstW = .Cells(Rows.Count, "F").End(xlUp).Row For Each kom In .Range("F4:F" & OstW) If kom.Value = "tak" Then Range("B" & kom.Row).Copy...
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
[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]
Lepiej opisz konkretne zadanie które ma ten arkusz wykonywać bo może to się da załatwić lepiej. Chodzi o wybranie jakichś konkretnych danych spełniających określony warunek? To można zrobić np. przy pomocy tabeli przestawnej.
Witam Was, napisałam takie makro: Sub copy() Dim r1 As Long, r2 As Long, r3 As Long, c1 As Long, licznik As Integer r1 = 2 r2 = 1 r3 = 12 c1 = 1 licznik = 1 Worksheets("Sheet2").Activate Do While Cells(r1, c1) <> "" If Cells(r1, c1) <> Cells(r1, c1 + 1) Then Range(Cells(r2, c1), Cells(r2, 1)).copy Range(Cells(12 + licznik, 1), Cells(13 +...
Kopiowanie gałek wymaga trochę praktyki, ale jeśli tylko jest oryginał to jest to zupełnie osiągalna technologia w warunkach amatorskich. Proszę wytężyć wzrok i wskazać oryginał. 1135006 Niedługo na [url=menuet-ukf.blogspot.com]blogu szczegółowy opis moich doświadczeń. Pozdrawiam, Wojciech
Tak, posektorowa kopia przywrócona na oryginalny dysk powinna go przywrócić do działania. Pod jednym jednak warunkiem - że nie została wykonana z poziomu systemu uruchomionego z kopiowanego dysku ;) Wiem że to żadna porada i jak najbardziej robiąc dla kogoś tak nie postępuję ale przy swoim sprzęcie robiłem tak i działało. Tu problem jest inny. Tylko...
Czyli odwrotnie (zmień operator w warunku pętli) niż [url=http://www.elektroda.pl/rtvforum/to... tym temacie
Coś pokręciłaś z tym hasłem. Odblokować trzeba ten arkusz, do którego dane będą kopiowane, czyli: [syntax=vbscript]Worksheets(2).Unprotect Password:="123"[/syntax]Potem analogicznie zablokować. Oczywiści można też z Activesheet pod warunkiem, że ten arkusz (docelowy) będzie aktywny. Arkusz źródłowy może być chroniony. Odblokowana musi być w nim tylko...
Zamiast tej linijki[syntax=vb]Wb.Sheets.Copy before:=ThisWorkbook.Sheets("makro")[/sy... pętlę For, z warunkowym kopiowaniem arkuszy. Warunkiem może być cells.find(what:="*") z wyłączoną obsługą błędów i jeśli Err=0, kopiujesz.
Pewnie da się to zrobić, ja natomiast wpadłem na inny pomysł. A może zrobisz "specjalną" wersję aplikacji, coś w deseń wersji demo z ilością uruchomień bądź czasową ważnością programu? Wystarczy prosty warunek w Form1, sprawdzający choćby datę. Mam nadzieję, że coś pomogłem :)
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...
To nie to. Testuję na wyselekcjonowanej grupie, więc warunek jest zawsze spełniony To po co ten warunek?
Wklej do modułu w przykładzie Sub kopiuj() koniec = Range("D1").End(xl... Range("D1:D" & koniec).AdvancedFilter Action:=xlFilterCopy, _ copytorange:=Columns("AA... Unique:=True Range("AA2:AA" & Range("AA1").End(x...
Można się posłużyć komórką pomocniczą i dodać warunek: [syntax=vbscript]Private Sub Workbook_Open() If [AA1] = "T" Then Call Odswiez End Sub [/syntax] Piszesz zdawkowo, więc zdawkowe propozycje Ci podaję.
Witam. Czy istnieje możliwość, w domowych warunkach, kopiowanie taśm magnetowidowych na komputer? Jeśli tak, to proszę o szczegółową instrukcję jak tego dokonać.
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
Ale jaki są twoje potrzeby? Piszesz co ma robić makro, ale ten zamieszczony kawałek tego nie robi. Nie kopiuje kolumny E, sprawdza wartość ">)", a nie zero. Jeżeli chcesz pomocy w napisaniu makra to trzeba wyjść od wymagań, jeżeli chodzi o poprawienie, to nie bardzo wiadomo jak to poprawić. Osobiście lubię kopiowanie poprzez: Sheets("działki").Cells(j,...
Kopiuj i wklej zakres kolumn jezeli spelniony jest warunek... Szukam pomocy w napisaniu macra tak aby kopiowalo i wklejalo wartosci w kolumnach do dnia z data wczorajsza
Kolega wyżej chyba już przerabiał kilka takich projektów i warunków typu "kopiuj wklej" . Poniżej foto warunków. https://obrazki.elektroda.pl/8466817700_... P.S. Czy nie powinno być zgodnie z warunkami zabezpieczenie 32A i nie 25A?
To dalej nie jest dobry kod. Co, wg Ciebie, sprawdza poniższy warunek? Zamiast zerować bufor, zapewne wystaczy poprawnie sprawdzać długość. Zwracając message przez wartość kopiujesz ją jeszcze raz.
Mam 3 arkusze w jednym skoroszycie. w każdym arkuszu około 15 kolumn i 150 wierszy. Porzebuję makro, które w przypadku wystąpienia w kolumnie C danego arkusza wartości "TAK" (może występować w różnych wierszach), zwróci mi i skopiuje do osobnego arkusza dane z wierszy kolumn od C do F. Jak to ugryźć?
A co z tym Jak to co, warunek.
Tak, jako formuły możesz użyć wartości z kolumny J Np: http://obrazki.elektroda.net/8_124780652... Formatowanie (wszystkie 3 warunki) ustawiasz na pierwszej komórce (K5) i przeciągasz/kopiujesz w dół. Natomiast obliczenie ilości dni (J5) lepiej wykonać formułą: =L5-DZIŚ() skopiowaną w dół. Komórkę B3 może ktoś wyczyścić...
Witam, Ja mam sieć wi-fi na odległość 500m i śmiga aż miło. Budynek 1 zawiera cerberusa pentagram i podkręconą antenę kierunkową 14 dBi - 80 zł http://www.dipol.com.pl/antena_atk-16-2_... Budynek 2 ma taką samą antenę podkręconą do Acces pointa W2204A - 100zł+antena 80zł http://www.dipol.com.pl/punkt_dostepowy_...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
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.
Może byc vacpompa itd . Wakuometr w węże itd. Pod warunkiem że nastawnik dobrze kopiuje sygnał.
Drugi przycisk powinien sortowac sprawy wedlug : kolumna O - run ( czyli te nieszczesne szuflady ) oraz D od najstarzych. ... I tu zaczynaja sie schody bo chcialbym przekopiowac tylko 15 pierwszych wierszy na sheet2 a to przy kazdej zmianie raportu daje mi wyniki niekoniecznie prawidlowe. Jeśli Twoje rozwiązanie lepiej :?: realizuje w/w założone warunki...
Chodzi o tę drugą pętlę? Wtedy Kod: vbscript Rozwiń Zaznacz wszystko Kopiuj do schowka If Cells(wiersz, 4) > 99 Then .Cells(wwrs, 4) = Cells(wiersz, 4) itd Raczej musi być przy tym warunku wiersz wpisany na stałe If Cells(128, 4) > 99, bo pętla rusza od 129 I tak zapytam autora po co te dwie pętle? i co jest w N? (nr wiersza czy nazwa arkusza chodzi...
Jak widać jest wolna amerykanka tyle że kopiować można legalnie , warunkiem jest to że budujesz urządzenie własne , ale spełniające tą samą funkcję . W taki sposób można podsłuchać transmisję , analizować , wyciągać co trzeba i robić swoje i to legalnie . Niestety część robi to na skróty kradnąc po prostu gotowy program i urządzenie ...
Jest to smart card. W zależności od tego ile posiadasz kluczy, tak głęboko możesz kopiować - zapewne posiadasz PIN i PIN2 - karta taka, np: SIM może posiadać dodatkowo PIN3 i PIN4 - bez nich nie skopiujesz ewentualnie wszystkich danych. Poza tym taka karta może posiadać zmodyfikowane oprogramowanie, które bez magicznych technik z wykorzystaniem wyrzucania...
Po krótkich próbach potwierdzam że rzeczywiście trzeba to zrozumieć. Względność jest zachowana kiedy "kopiujesz" format za pomocą malarza formatów (pędzel) natomiast przy zwykłym kopiowaniu "wstawia" znaki bezwzględne (choć tego nie widać). Jednak jest jeszcze jeden "mankament" jest pamiętany pierwszy warunek jaki został przyporządkowany danej komórce....
Po stronie kierowcy,nad lewa noga w konsoli. Bez pinu i odpowiedniego sprzętu nic nie zrobisz.Najlepiej robi to carprog bo zrobisz kopiuj/wklej pod warunkiem że numery na Uch bedą takie same.
Myślę że powinieneś zacząć od użycia narzędzia do sprawdzenia przepustowości sieci i dysków. Ja na Linuxie (a nie wiem co Qnap umożliwia) używam m.in. iptraf i iostat. Czy jak skopiujesz plik na urządzenie lokalne i z niego oglądasz, to nie skacze przy przesuwaniu linii czasu? Bo czasem same programy do oglądania wideo są marne. Cahce żeby działał,...
(at)brofran nie wiem czy to twa naiwność czy ignorancja ale może odpowiem Ci pytaniem na twoje... Czy jeżeli w twym posiadaniu byłoby urządzenie generujące więcej energii niż wkładana sprzedawałbyś pojedyncze egzemplarze (nie mając do tego realnych warunków narażając się na kopiowanie) czy starał się sprzedać cała technologie? Coś mi się wydaje że zadałem...
Najprościej i bez znajomości kodowania możesz to uzyskać kopiując powtarzalnie w ukrytej 4 znaki, np. A, B, C, D. Potem robisz warunek typu "jeżeli wartość z komórki w tym samym wierszu, ale w kolumnie ukrytej jest równa A, wstaw tutaj sobie np. 1: 1, 2: 2, 3: 3, 4: - ale jeżeli jest tam znak B, to inny ciąg i tak wszystkie 4 warunki w jednym wpisie....
... bo w mojej wersji (2000) nie ma czegoś takiego ... Jest. To ta ikonka z pędzelkiem w menu. Obie metody mogą być, jednak ja bym tu zastosował inne kopiowanie - pod warunkiem że arkusze (nie tabele) są takie same. Zaznaczasz cały arkusz (klikasz w szary kwadrat między kolumną A a wierszem 1 - narożnik arkusza) dajesz kopiuj, przełączasz się na inny...
AVE... 40-kanałowy analizator jest prosty: projektujesz ręcznie jeden kanał, a potem kopiuj/wklej... Co do testowania w domowych warunkach, to ty.ytka pokazał swego czasu [url=https://www.elektroda.pl/rtvforum/t... wzmacniacz słuchawkowy. Pomierzył go kartą dźwiękową. Taka metoda testowania jest "standardem" wśród konstruktorów DIY...
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
Ten silnik się nie nadaje. Potrzebujesz silnika z czterema wyprowadzeniami i z wbudowanym stabilizatorem obrotów. Dwa wyprowadzenia to zasilanie silnika, a dwa pozostałe służą do skokowej zmiany prędkości obrotowej silnika. Dostępne są silniki, spełniające te warunki, które są stosowane w magnetofonach kasetowych wyposażonych w tryb szybkiego kopiowania,...
Formatowanie warunkowe: Pierwszy warunek: D2 czerwone, jeśli data mniejsza od dzisiejszej. Podał Ci to już marek003 . Wpisujesz warunek:=JEŻELI(D2<=DZIŚ();PRAWDA;FAŁ... Drugi warunek: D2 zielone, jeśli data większa od dziś i mniejsza od dziś+60. Wpisujesz warunek:=JEŻELI(ORAZ(D2>=DZIŚ();D2<... Obie formuły wpisujesz dla...
warunek przyłączeniowy warunek informatyki warunek przedmiot
gniazdo karty pcmcia glowica laserowa telefon samsung wyświetlacz
styczniki iskra styczniki iskra
Pralka Candy błąd E22: woda wypuszczana, brak obrotów Candy pralkosuszarka – migająca czerwona dioda, kody błędów, diagnostyka, modele Smart/GrandÓ Vita/Alise
