Ciężko zrozumieć o co chodzi. Najprościej możesz kopiować formatowanie warunkowe poprzez kopiuj i wklej formatowanie. Działa bezproblemowo jeśli formatowanie warunkowe nie używa adresów komórek np. większe od to zrób czerwone. Jeśli korzystasz z adresów komórek to musisz pamiętać, aby tam gdzie wklejasz dane docelowe znajdowały się w tych samych kolumnach...
Miałeś w regule formatowania adres z $, czyli bezwzględny. Powinien być względny D2, ewentualnie $D2, ale przed 2 nie może być $. Można kopiować formatowanie, można od razu ustawić cały zakres, ale regułę piszemy dla pierwszej komórki.
W prosty sposób można tylko w dodatkowej kolumnie D, w której byłby wyliczany postęp jako ułamek. W kolumnach B i C można to zrobić, ale trzeba dla każdej komórki podać osobną formułę, bo przy definiowaniu tego typu formatowania nie można używać adresów względnych, zatem nie można skutecznie kopiować komórek sformatowanych tak, aby każdy wiersz był...
Podałeś zdecydowanie za mało informacji. Jeśli Twoje dane robocze liczą ok. 10 tys. wierszy, to przykład powinien obejmować ok. 50 wierszy w reprezentatywnym układzie. Należy to pokazać w załączonym pliku wraz z oczekiwanym wynikiem. Z przykładu, który pokazałeś nie wynika m.in. 1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być...
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...
Makro w Twoim pliku jest b.dobrze zaszyfrowane. No, może tylko mi nie udało się odszyfrować ;) Żeby nie tracić czasu napisałem od nowa (module2). Wszystko oparłem o w/w funkcję 'Find' Zrozumiałem, że pkt2. w kolejnych miesiącach dotyczy sprawdzania poprzedniego i tak zrobiłem. Sprawdź (nie testowałem wiele), w razie czego dostosuj do własnych potrzeb....
przydział w grupie A jest zawsze tekst, natomiast w grupie B są zawsze liczbowe? Porównaj D3 - G3, D6 - G6, etc. Bardzo pożądane jednego typu(tekst 109a)
Formuła działa idealnie. Dzięki I jeszcze jedno pytanie, czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli?
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...
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...
Bez VBA się raczej nie obędzie. Są co najmniej dwa wyjścia (w pętli): 1. Filtrowanie i wydruk po każdej zmianie parametrów 2. Arkusz tymczasowy (czyszczenie, kopiowanie warunkowe, wydruk) Które wydajniejsze? Stawiam na Nr.1
Naprzemienne kolory zrealizujesz formatowaniem warunkowym. Formuła: =MOD(WIERSZ();2)=1 Co rozumiesz pod pojęciem A po kolejnym użyciu nie kopiowało nagłówka tabeli tylko wstawiało wyszukane rekordy Z nagłówkiem nie ma problemu, wystarczy sprawdzić czy jest i kopiować warunkowo (gdy nie ma). Natomiast nic nie wiadomo co to za "wyszukane rekordy".
Mogę podać przykład ale wtedy rozwiążę zadanie za ciebie. Na marginesie dla 100000 nie może być "do uzgodnienia" tylko ma być procent bo nie przejdzie. Jeżeli chcesz po twojemu zostawić procent rabatu w kolumnie c to: C15 wpisz =jeżeli(B15>=A11;B11;jeżeli(B15>=A10;B10... i tak dalej Jeżeli ma być tylko kwota rabatu ( ja tak rozumiem zadanie 2 - ale mogę...
Witajcie, Sprawa wydaje się niby banalna, ale niestety nie mogę sobie poradzić. Chcę zrobić za jednym razem za pomocą formatowania warunkowego porównanie wielu cen znajdujących się w wielu wierszach dla dwóch firm. Udaje się zrobić formatowanie najpierw dla jednego wiersza i potem skopiować formatowanie za pomocą malarza formatów do pozostałych wierszy....
Dane będą brane z innego arkusza, natomiast dane z tego arkusza mają być kopiowane do arkusza w wordzie, i to ma być kopiowane w ten sposób że to co zostało oznaczone jako ☑ i było np. w kolumnie b w excelu oznaczone jako uprawnienia będzie kopiowane do worda w w miejscu gdzie na górze będzie pisać uprawnienia
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
kopiowanie warunkowe wierszy Excel
Zrobiłem bez makr. Może ktoś Ci przerobi na makro. Łącze do formantu w komórce bieżącej, formatowanie niestandardowe ukrywające wpis ;;; formatowanie warunkowe określające kolor. Niestety łącza nie dają się kopiować, bo są zawsze adresami absolutnymi, nawet jeśli się je zapisze bez dolarów.
A czy możesz podać informację - jakie to formatowanie warunkowe stosujesz w tym arkuszu :?: Z Twoim kodem :!: przy formatowaniu warunkowym wg wartości - w Office 2016 - rezultat jest poprawny :?: 1012083
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....
Interesuje Cię rozwiązanie formułami (tu z kolumną pomocniczą) http://obrazki.elektroda.pl/3664512400_1... czy makro (kopiowanie warunkowe w pętli)?
No, ale tak zaprogramowałeś (polecenie GoTo) ;) Powinno być (schemat) wewnątrz pętli -wyłączenie obsługi błędów (on error resume next) - przy każdym kroku -wyszukiwanie -sprawdzenie stanu i warunkowe kopiowanie (If err=0 then ... ) Włączenie za pętlą (On error goto 0) lub (książkowo) [syntax=vb]Sub Porownaj() Sheets("Arkusz2").Select ow = Cells(Rows.Count,...
Chodzi o to, że Marshal robił i nadal robi cenione wśród gitarzystów wzmacniacze, no i użytkownik "warunkowo odblokowany" sugeruje, by kopiować najlepszych, a nie tych drugich.
Cześć, Potrzebuję waszej pomocy :( Przeszperałem już forum i widziałem, że pojawiło się już kilka pytań o kopiowanie warunkowe, niestety to dopiero początek mojej przygody z VBA i nie potrafię dostosować kodu do swoich potrzeb. Chciałbym, żeby po przyciśnięciu przycisku "Archive" makro przeszukało arkusz i wycięło te wiersze, które w kolumnie W mają...
A gdybyś zamknął wszystko w instrukcji warunkowej? Np [syntax=vbscript]If WorksheetFunction.CountIf(wb.Sheets(1).R... "#N/A") > 0 Then tutaj filtrowanie i kopiowanie End If[/syntax]
komórki podświetlają się na czerwono nie tylko te po zmianach :cunning: Przecież wyraźnie pisałem: Jeśli interesuje Cię sporządzanie tylko ukrytej kopii wszystkich edycji w arkuszu Rob - to usuń formatowanie warunkowe , usuń kod Workbook_BeforeClose i wymień kod w arkuszu Rob Przy ukrytej archiwizacji wszystkich edycji - traci sens porównywanie tabeli...
sumowanie warunkowe
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
A może jest jakiś sposób na automatyczne kpiowanie komórki A2 do D2 pod warunkiem że B2 jest puste. Jeżeli w B3 jest coś wstawione to komórka A3 nie powinna byc kopiowana
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ć...
Rzuciłem okiem i dalej pozostaję w domysłach. Czy dane w kolumnie A od wiersza 1 do wiersza FinalRow są ciągłe (nie zawierają pustych komórek)? Jeśli tak, to skopiuj cały zdefiniowany zakres do arkusza docelowego. Jak znaleźć pierwszą wolną, opisywane było setki razy na forum w kilku(nastu) wariantach. Jeśli nie, to sprawdzaj i kopiuj wiersz po wierszu....
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...
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...
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
1. Jeśli nie kopiujesz formatów komórek, to metodę copy-paste zastąp prostym przypisaniem. 2. Można wszystko zmieścić w jednej pętli. Gdyby jeszcze wystarczyła jedna instrukcja warunkowa... było by dwa razy szybciej.
Makro można modyfikować na tysiąc sposobów. Póki nie rozwiążesz "zagwozdek"... kicha ;) Ale jak już pisałem: od czegoś trzeba zacząć. W załączniku makro (na prostych pętlach, bez regExponent i innych dopalaczy). Celowo starałem się uprościć kosztem wydajności, abyś mógł samodzielnie modyfikować. Na razie sprawdza po imię & nazwisko oraz warunkowo kopiuje...
Że się wtrącę ;) Jedynie co może być cięższe to masowa implementacja tego rozwiązania. Klikanie każdej komórki osobno i ustawianie trzech warunków dla każdej trochę czasu Ci zajmie. A to dlaczego? 1. Można ustawić formatowanie warunkowe dla kolumny, wiersza, zakresu. Kluczowy jest znak/i "$" w odpowiednim miejscu w formule. Przykłady można znaleźć na...
Argument "tblList" to nazwa zakresu w tej "drugiej" tabeli? Po drugie: dlaczego tak komplikujesz? Jeśli funkcja arkuszowa to (pojedyncze) CountIf . Ale prościej byłoby wykorzystać Range.Find i jeśli błąd, to znaczy że nie ma... Hmm, patrząc na na to SUMA(SUMA.JEŻELI * Coś_Tam)), nie jestem pewien czy dobrze rozumiem. Na pewno chodzi o warunkowe przenoszenie/kopiowanie?
Hmm, najprościej wstawić dodatkowy licznik i warunkowe dodawanie: https://obrazki.elektroda.pl/9899514800_...
Tak, wiem, ale chodzi mi o to aby dało się to robić opcją kopiuj, wklej. Bo przy opcji kiedy będę miał po 20 klientów dziennie to zmieniać każdą pozycję to będzie makabra... Prędzej ręcznie to zakoloruję... Da rade to tak zrobić, aby działało w opcji kopiuj wklej? Kiedy Próbowałem usunąć $ żeby zmieniał po kopiowaniu wartości sam to przestaje działać...
Wystarczą (prawie) makra nagrane rejestratorem. Wyłącz obsługę błędów (On Error Resume Next) Wstaw linię otwierania pliku xxx-xx (nazwę podstaw ze zmiennej lub z komórki) Dalej już warunkowo (If Err>0 Then) -otwórz plik WZÓR -zapisz jako xxx-xx we właściwym folderze. Ot i wszystko... Jeśli plik istnieje, zostanie otwarty. Jeśli nie, zadziała instrukcja...
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Od tego trzeba było zacząć. Nie obrażaj się, nic tym nie wskórasz ;) Uczulonych na myślenie przybywa ostatnio lawinowo, więc proszę nie dziwić się mojej reakcji. Teraz należy określić właściwe podejście. Ja to widzę tak (najprościej chyba): -bierzemy pierwszy nagłówek arkusza wynikowego (pętla) -odszukujemy takie same w arkuszach źródłowych (Find lub...
On Error Resume Next w = Target.Row k = Target.Column If k = 10 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2 Rows(a & ":" & b).Select Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove Rows(w & ":" & w).Select Selection.Copy Rows(a & ":" & b).Select ActiveSheet.Paste Application.CutCopyMode = False MsgBox "Uzupełnij...
tak. Chodzi o to żeby do tego obszaru nie kopiował mi nikt niczego z np: przeglądarki internetowej wraz z formatami i psuł formatowanie warunkowe. Dlatego przewiduje dwie możliwość albo blokada na ten obszar albo wklejanie jako tekst. W innym obszarze posiadam komórki z formułami które kopiuje okresowo dlatego nie chciał bym blokady na cały arkusz.
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
1. Najprościej wyłączyć obsługę błędów For Each element in kolekcja . Np [syntax=vb]zakres = Array([a2], [c3], [d5]) For Each kom In zakres If kom = "" Then kom.Value = "-" Next[/syntax]
Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...
kopiować warunkowe zakres excel warunkowe kopiować zakres połączenie warunkowe
transformator praca równoległa dziura ekran ładowania renault
Wymiana termopar w płycie gazowej Whirlpool AKT/NB Igła do wkładki Shure M44MB - zamienniki i charakterystyka
