Jeżeli dobrze rozumiem to czas dostawy dotyczy wszystkich paczek w danym tygodniu. Jeżeli tak to dokładasz wiersz tydzień przyjazdu który jest sumą wiersza tydzień i czas dostawy . Wtedy za pomocą suma.jeżeli() otrzymasz wynik dostaw w każdym tygodniu. https://obrazki.elektroda.pl/2450138800_...
Na ten moment przy moich danych mail powinien wysłać się do 2 osób, a wysyła się 1 mail. Set OtlMail = OtlApp.CreateItem(0) Nie działa bo masz poza pętlą. Zmień [syntax=vbscript]With OtlMail [/syntax] na [syntax=vbscript]With OtlApp.CreateItem(0)[/syntax]
Jesli naprosto usunuc - tak, a jesli zamiast 2 MsgBox If odp=vbYes ??
Coś przesadziłeś, dlaczego jest warunek?
I cisza się zrobiła... No dobra, wypiłem kawę i wyszło mi coś takiego: Edit: A makro w innym pliku. Jednak późno już... Załącznik podmieniłem
W złych miejscach nawiasy. Ma być tak: [syntax=text]=SUMA.ILOCZYNÓW(([przykład1...
Opis jest niezbyt jasny. Czy chcesz wypełniać puste komórki w kolumnie H tekstem z kolumny I, czy chcesz w innej kolumnie np. J uzyskać efekt połączenia kolumn H i I (po weryfikacji). Jeśli to pierwsze, to raczej nie formułą tylko makrem. Jeśli to drugie, to możesz użyć formuł. Ale nie takich jak próbowałeś. Nie można używać symbolu zastępczego gwiazdki...
Wyskakuje gdzie? Po zatwierdzeniu formuły? W takim razie formuła ma błąd, trzeba ją zapisać poprawnie. Zacznij od jakiegoś innego arkusza, napisz coś z raz zagnieżdżoną funkcją jeżeli() dla zrozumienia mechanizmu działania takiego wpisu.
Ech, pomyliły mi się te plusy z minusami :) Trzeba zamienić warunki pętli.
Witam, Mam za zadanie zrobić na zajęcia coś takiego, jak kalkulator rat kredytu. Mój problem polega na tym, że każda rata musi być wypisywana oddzielnie w kolumnie. Nie wiem jak to mam zrobić, bo jeśli ktoś np. wybierze kredyt na 2 lata, to musi wypisać raty w 24 komórkach. Wydaje mi się, że nie da się tego zrobić bez programowania w excelu, a moja...
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
Potrzebuję zsumować komórki zaznaczone na kolorowo (fiolet, który jest uzupełniany ręcznie) w zależności od wartości, która znajduje się w kolumnie "B" (warunek: większe od 5). Wystarczy w funkcji sumującej zmienić warunek :spoko: (stosownie do Twojego zrzutu gdzie sumujesz wartości z kolumny C :!: ) na: [syntax=vbscript]If indRefColor = cellCurrent.Interior.Color...
Zastosuj formułę z iloczynem (and), po spełnieniu obu warunków wykona funkcję jeżeli.
Wklej w komórkę J5 formułę: =JEŻELI(T5="!";"WSTRZYMAJ";JEŻELI(S5="kl... zrezygnował";"REZYGNACJA";JEŻELI(M5="";"... MONTAŻU";JEŻELI(M5<DZIŚ();"PO TERMINIE";JEŻELI(M5-DZIŚ()<=10;"WYKON... SERWIS";"JESZCZE CZAS")))))
Chyba najprościej zastosować formatowanie warunkowe i jako regułę wpisać =suma(A:C) a jako warunek: "nierówne"
Nie wiem jak to będzie "po nowemu", ale po staremu[syntax=text]=SUMA.ILOCZYNÓW((ROK...
Żeby wykonywać jakiekolwiek obliczenia trzeba najpierw upewnić się, czy to co masz to są faktycznie daty i czas rozpoznawane przez Excela, czy też są to teksty z wyglądu przypominające daty. W tym drugim przypadku należy dokonać przekształcenia. To czy są same daty, czy daty z godziną to nie ma zasadniczego znaczenia. Data bez godziny będzie interpretowana...
[syntax=vbscript] wi = wi + 10 And wj = wj + 10[/syntax] - naprawdę nie wiesz co czynisz. na samym początku dodaj: [syntax=vbscript] addi = Array(10, -20, 25, 0) addj = Array(10, 25, -20, 0)[/syntax] zaś wewnątrz pętli: [syntax=vbscript]vv=2*(Cells(k, i).Value="K")+(Cells(k, i).Value="K") wi=wi+addi[vv]; wi=wj+addj[vv];[/syntax] to wszystko zasapi twój...
Byc moze to angielska wersje Excel. Wtedy w warunku formatowania zastap 'adres' na 'address'
[syntax=vb]Sub koko() For Each c In Sheets("ZLECENIA").UsedRange.Columns(1).... c.Interior.Color = IIf(Sheets("MAGAZYN").Columns(1).Find(c) Is Nothing, vbRed, vbGreen) Next End Sub [/syntax]
Zakładam, że ta tabela TCOne będzie się rozrastała i zmieniała :D , więc proponuję ewentualnie się od niej uniezależnić i poprzez "nazwane funkcje" uprościć tą formułę przeciąganą w kolumnie A :idea: - tak jak na zrzucie :spoko: 1045128 Zmiana oznaczeń (XXX - AAA itd.) można zrealizować poprzez zagnieżdżenie formuły JEŻELI() - 1045149
Efekt dwóch formatów warunkowych jak na zrzucie: 925001 można uzyskać poprzez zastosowanie formatowania opartego na stosownych formułach :idea: całość rozwiązania w załączonym pliku :spoko: 925002
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
Cześć Jeśli Nr maszyny jest liczbą, to można go podstawić jako argument 'ile kolumn' funkcji PRZESUNIĘCIE. A jako argument 'ile wierszy', pozycję w kolumnie A (nazwa wyrobu).
Dzień dobry, Należało załączyć przykładowy plik do testowania. W tekście jest błąd składniowy "Is Numeric" powinno być jednym słowem. Ponadto wewnętrzny warunek pętli nie może być nigdy spełniony, bo gdy komórka jest pusta, to funkcja IsNumeric zwraca True, a tu jest koniunkcja warunków. Pozdrowienia.
Da się: http://obrazki.elektroda.pl/8027992500_1...
[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...
Czy ma ktoś jakiś pomysł na formułę która zautomatyzuje poszukiwania? Proszę o pomoc. W załączeniu Excel Rozważyłbym przeprojektowanie tej tabelki albo skorzystanie z tabelki przestawnej. Ale ok. Potraktowałem to jako challenge - powstała jednolinijkowa formułka ;) Zasada działania: iloczyn logiczny ze sprawdzenia miesiąca z dniem daje nam dzień albo...
ale funkcje tablicowe to już "wyższa" matematyka excela Jaaaasne. :D :D I kto to pisze. To ja, zgodnie z tym co mam napisane nad tym brzydkim ryjem po lewej mogę używać takich zwrotów, a nie wirtuoz Excela. Ale żeby temat trochę uprościć to zamiast tablicówki można użyć zwykłej: =suma.iloczynów((zakres1="a...
[url=https://www.youtube.com/watch?v=ywS... coś znajdziesz.
[syntax=vbscript]Function WlasnafunkcjaWstawBranze(D As Integer, E As Integer) As String If D = 1 And E = 1 Then WlasnafunkcjaWstawBranze = D & "," & E End Function[/syntax]
Jeśli dobrze zrozumiałem chodzi Ci o coś takiego? =JEŻELI(B1="*";A1;0)+J...
Jeśli wynik nie zgadza się, spróbuj pokombinować z funkcjami tekstowymi. Np http://obrazki.elektroda.pl/3805960600_1... Usuwane są spacje w obu kolumnach oraz sprawdzanie wartości "przekonwertowanych" do małych liter (wtedy wielkość liter nie ma znaczenia) [syntax=text]=SUMA.ILOCZYNÓW((USUŃ.ZBĘDN...
Chciałabym mieć możliwość sprawdzenia funkcją Nie do końca rozumiem co koleżanka chce sprawdzać ? Jeśli to jest tabela importowana i chodzi o sprawdzenie tylko braku "dubletów" numeracji dla danego typu ? To można to zrealizować funkcją - tak jak na zrzucie ;-) 1202325 Jak widać na zrzucie tą samą funkcje można wykorzystać do oznaczania błędów poprzez...
Przyglądam się od 10 minut tym tabelkom i nie wiem czy tak ułomny jestem czy co, ale za Chiny nie mogę zrozumieć co chcesz wykazać w L2 i M2. np dla drużyny A co powinno być w komórce "wynik jako gospodarz"? Zaznaczę (tak mniemam) że drużyna A była 4 razy gospodarzem. ... Minęło kolejne 10 minut i chyba już rozumiem co chcesz osiągnąć ale to się tak...
Już był podobny temat: http://www.elektroda.pl/rtvforum/topic11... Możesz użyć więcej niż 1 warunków formatowania warunkowego.
Może być takie proste rozwiązanie bez VBA - patrz załącznik. W komórce B1 jest zwykła lista rozwijana kontroli poprawności. Dane można wpisać wprost do okienka kontrolki. W komórkach B2:B3 definiujemy kontrolę poprawności z listą zdefiniowaną za pomocą formuły nazwanej (w Menedżerze nazw). Zestaw odpowiedzi musi być zakresem w arkuszu. Jeśli są to te...
Witaj Trochę wątpliwości. Dlaczego jest to tak ważne, aby bez makr?
Najprościej dla pojedynczego dnia zrobić to tak: =JEŻELI(B4<2000;100;JEŻELI(B4<1000... Chyba że uwzględnić że dla B4<=0 i >=20000 na być wartość 0 wówczas: =JEŻELI(B4>0;JEŻELI(B4<2000;100;JE... Co do zmienności B4, różne dni czerwca...
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
W formatowaniu warunkowym zastosuj taki mniej więcej ciąg myślowy: jeżeli dziś >= data_wpisana +80 to koloruj na czerwono Osobno w jakiejś tam kolumnie (przyjmijmy, że jest to komórka G4) wpisujesz normalny warunek: jeżeli dziś >= data wpisana to G4="ŹLE" w przeciwnym razie G4="OK" Wystarczy to podstawić do funkcji, celowo zostawiam Ci odrobinkę pracy...
chciałbym zeby wybierało tylko wiersze spełniające pewne warunk Jak zwał, tak zwał. Ale wyobraźmy sobie, że "wybierało" dzieje się w tej linii [syntax=vb]Print #1, kol1 & ";" & kol2; ";" & kol3; ";" & kol4; ";" & kol5; ";"[/syntax](wcześniej jest przypisanie). Wystarczy więc, tę jedną linijkę "owarunkować" [syntax=vb]if warunek then Print #1, kol1...
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,...
no to suma warunków =SUMA.WARUNKÓW(E1:E9;C1:C9;"=kierownik1"...
http://obrazki.elektroda.pl/9151570700_1... Staw kursor w tabelu 'Propozycja zniżki ważna od 15 styczeń 2015.' a patrz ceny w wiersze formul, ulamkowe. Dodano po 11 wynik powinien wynosić: 73 EUR + 178 EUR = 251 EUR Znaczy to ze od 1 do 50 kg zniżki nie ma ??
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...
Witaj. Sprawdź: =JEŻELI(A1<2;"Brak promocji";JEŻELI(A1>4,5;&quo... wyróżnienie";"Otrzymał promocję")) Oczywiście zamiast A1 podstaw swoją komórkę. Dodano po 16 Kolegi drugą formułę można poprawić na coś takiego: =ZŁĄCZ.TEKSTY(JEŻELI(J3>4,5;&... wyróżnienie";"");JEŻE...
Funkcja taka to: "=JEŻELI(B4<50;B4+0,35*B4;JEŻELI(B4&l... zamiast 'B4' wstaw sobie komórkę w której masz daną
Dla starszych wersji Excela: [syntax=text]=JEŻELI(SUMA.ILOCZYNÓW((A:A...
A co z tym Jak to co, warunek.
Nie wspominałeś że może taka sytuacja zaistnieć więc funkcja tego nie sprawdza. Ale i to się da załatwić dodatkowym oraz() Tylko że w takim przypadku zadam dodatkowe pytanie czy przykładowo n5 ma date 20140101 i perc jest 1 ale inna n5 ma date 20140101 i perc 1 też jest błędem jako dubel ? Bo wtedy wykażemy warunkami że błędem jest już sam dubel - bez...
Wartość komórki mniejsza/większa niż ="DZIŚ" A tak próbowałeś bo powinno zadziałać: Wartość komórki mniejsza/większa niż =DZIŚ() Oczywiście wprowadź jeszcze do warunku jakiś format.
[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("K1") <> "" Then Me.Save Else If Range("A1") > 0 Then MsgBox "Komórka K musi być wypełniona przed zamknięciem dokumentu!" Cancel = True Else MsgBox "OK, komórka K wygląda na poprawnie wypełnioną Smile" Me.Save End If End If End Sub [/syntax]
po wybraniu rodzaju np pszenicy ... i segregowało mi to w rozbiciu na pszenica, żyto, pszenżyto. Nie jestem rolnikiem :D nie znam się na zbożach, ale powyższe założenia wydają mi się nielogiczne :cry: Twoja "czerwona" tabela - to w zasadzie zlepek 3 tabel dla poszczególnych zbóż - dlatego konieczne było utworzenie 3 formuł (sumujących ilości wg określonych...
tak może: =JEŻELI(C1<=175;(JEŻELI(C... niskiego wzrostu";"Osoba średniego wzrostu"));"Osoba wysoka") zmien Sobie C1 na dowolną
Dla Excela 2007 i powyżej: Formatowanie warunkowe -> Nowa reguła-> Użyj formuły do określenia komórek, które należy sformatować. W okienku formuły wpisujesz warunek "=ORAZ($A$2=1;$B$2="") i dalej ustawiasz format komórki Dla pozostałych komórek ustawiasz warunki format podobnie.
Na pewno funkcją, jaką należy zastosować jest LICZ.WARUNKI. Jeśli z pierwszą częścią nie powinno być większych problemów, to z drugą... Spróbuj: [syntax=text]=LICZ.JEŻELI(A!C1:C24;"B")-... auta")[/syntax]Przy takich nazwach arkuszy, Excel "traci orientację" (patrz apostrofy) ;) kryteria2 równie dobrze będzie...
Witam, Mając wykonany printscreen obrazku, z pozycji komórki, w której ma być wklejony, uruchamiam makro, które: - blokuje współczynnik proporcji - wstawia mi obrazek automatycznie pomniejszony do wysokości 2,5 cm - zmienia właściwości obrazu na "przenoś i zmniejszaj rozmiar wraz z komórkami". Już parę dni męczę temat i nie potrafię dopisać warunku,...
Należy połączyć funkcję UNIKATOWE z funkcją FILTRUJ: [syntax=text]=UNIKATOWE(FILTRUJ(C3:C10;H... Tylko to może być niejednoznaczne, bo ta sama osoba raz może być z "x" a innym razem nie. Ta formuła działa w ten sposób, że najpierw pomija wiersze z "x", a potem szuka unikatów wśród pozostałych osób.
Przetestuj następującą formułę: [syntax=txt]=JEŻELI(G5>0;SUMA.JEŻELI($G$...
[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]
Jeśli bez makr, to można wspomóc się wierszami pomocniczymi. W moim przykładzie 2-ma. Formuły, poza 1-szym wierszem, są "kopiowalne". Warunek: posortowane kolumny A:B
Zarówno używając funkcji ILOCZYN (warunkowo z funkcją JEŻELI), jak i w przypadku funkcji BD.ILOCZYN można podać zakres z zapasem. Puste komórki nie przeszkadzają. Tak przynajmniej jest w Excelu. W arkuszach Google nie sprawdzałem. W przypadku funkcji ILOCZYN formułę trzeba zatwierdzać tablicowo, chyba że masz najnowszego Excela 365. W przypadku funkcji...
Poczytaj o zagnieżdżeniu warunków.
przerzucam kolejne strony książki Walkenbacha Hmmm, czyżby zapomniał wspomnieć o pętlach? ;) Przeanalizuj (w założeniu brak dubli w Arkusz2), dostosuj do własnych potrzeb [syntax=vb]Sub Mania() Dim ws As Long, wDel As Long ws = 1 With Sheets("Arkusz1") Do While .Cells(ws, 1) <> "" On Error Resume Next wDel = Sheets("Arkusz2").Columns(5).Find(what:=...
Witam Sprawdź czy tak układ ci pasuje [syntax=vbnet]Sub kopia() With Sheets("Check") For x = 4 To .Cells(Rows.Count, "P").End(xlUp).Row If Trim(.Cells(x, "P")) = "yes" Then ost = Sheets(.Cells(x, "D").Value).Range("A" & Rows.Count).End(xlUp).Row + 1 .Cells(x, "P").EntireRow.Copy Sheets(.Cells(x, "D").Value).Range("A" & ost & ":A" & ost + 1) End If Next...
A datę zamieniłeś na godzinę formułą GODZINA() czy zmieniłeś tylko format wyświetlania danych. Bo jeśli tylko format to formułę musisz dać w warunku.
Witam Kwerenda do bazy danych na serwere, pod warunkiem
Najprościej jednak makrem: Edit 11:22 zmieniłem załącznik (byczek się wkradł)
Dzięki wielkie o to chodziło Dodano po 1 Problem rozwiązany przez Maciej Gonet za pomocą sumy warunków
Może coś takiego: =JEŻELI(H2="TAK";D2*E2-E2;... Zamiast ostatnich pustych "" możesz umieścić formułę wykonywaną jeśli nie jest wpisane ani TAK, ani NIE. Ewentualnie w cudzysłowiu tekst, który wystąpi zamiast formuły w takim przypadku.
Ale to zwróci ci, czy cały numer jest parzysty. A jeśli kolega ma (np. poprzez funkcję LEWY) wydzielone poszczególne cyfry do osobnych komórek, to IMO sumę parzystych cyfr najprościej zrobić tak: =LICZ.JEŻELI(A1:J1; 2)*2+LICZ.JEŻELI(A1:J1; 4)*4+LICZ.JEŻELI(A1:J1; 6)*6+LICZ.JEŻELI(A1:J1; 8)*8 Gdzie kolumny...
To da się zrobić nawet za pomocą suma(). http://obrazki.elektroda.pl/9193961000_1... Pochrzaniłem zakresy sumowania dla środy - nie zwracaj uwagi na liczby .
Dalej jest źle bo nie to spakowałeś ale już stworzyłem sam. Na razie bez makro ale dodałem kolumnę pomocnicza D (Jak masz dane to prawy klawisz myszy na literę kolumny D i "Wstaw"
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
=JEŻELI(B1=1;A1;0)
Moze tak? =JEŻELI(A1<2;"wew";JEŻELI(A1<6;"sr...
[url=https://www.youtube.com/watch?v=NAc...
Daj załącznik. Chyba zapomniałeś o kolejności warunków.
Dlaczego 88 się nie łapie do warunku?
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]
Trzeba wrzucić to w pętlę. Jak znajdzie robi warunek PRAWDA Jak nie znajdzie to w warunku FAŁSZ wyświetla Msgbox i kończy działanie
Jeśli dobrze rozumiem, to tak:
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...
Jakiś mainframe
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Aaa rozumiem a możesz mi napisać tam gdzie jest to 0 jaki wpisales warunek??
Głównym celem była by możliwość edycji komórek po wyszukaniu dwóch warunków.
to w tym samym rzędzie i w innej kolumnie również kolorowało mi tło tym samym kolorem używać ten sam warunek formatowania jak dla kolumny X
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]
firma z przypisanym kodem z kolumny A kod_2 nie ma znaczenia? Dodano po 43 [syntax=vb]Sub kokos() Dim bs As Range, bd As Range, bt As Range Dim rs&, re&, rd& Set bs = Sheets(1).Range("A:J").Cells Set bd = Sheets(2).Range("A:D").Cells re = bd(Rows.Count, 1).End(xlUp).Row + 1 Range(bd.Rows(2), bd.Rows(re)).Delete bs.Sort key1:=bs(1, 3), key2:=bs(1,...
Ale ja nie chcę niczego sumować, ani filtrować. Dla każdej pozycji muszę wpisać odpowiadającą jej ilość sztuk - zgodnie z podanymi przeze mnie w pierwszym poście warunkami.
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
=JEŻELI(A5>30;JEŻELI(A5<60;"TAK";"... Powinno zadziałać ze sprawdzeniem warunków.
Ta częścią z całości lepiej jako przykład w Excel, bo na zdjęcia nie są widoczne formatowanie warunki
Czy ja wiem. Na takich "wielkich" arkuszach chyba wszystko szybko działa :) Wystarczy zamienić nazwiska na odwołania do komórek i nazwać zakres żeby było mniej pisania i można ciągnąć w dół do woli.
Witam. Cos w tym stylu?
To dołóż warunek "jeżeli"
excel warunek excel obliczać warunek warunek excel formuła
montaż bariery podczerwieni monitor uszkodzić inwerter przekaźnik skoda schemat
pe1091 v28a001434b1 pe1091 v28a001434b1
Pralka pobiera mało wody do prania - przyczyny i rozwiązania Dobór różnicówki do kabla 5x10 YKYżo