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...
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...
[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...
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...
:))) 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...
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...
[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) <>...
zapisać warunek liczy warunek asembler warunek
zmywarka bosch śmigło zamienić wyświetlacz raspberry instrukcja
wentylator sufitowy wentylator sufitowy schemat
Wycofanie LM1083 przez Texas Instruments: Przyczyny i Alternatywy Jak zwiększyć amperaż w obwodzie elektrycznym?
