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ć...
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....
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...
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,...
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
W załączeniu przykład z funkcjami Wprowadziłem dodatkowe "zabezpieczenie" w postaci tego że każda lista musi się kończyć słowem KONIEC. Jeżeli tak nie jest to znaczy że jest więcej "poleconych" niż skopiowanych w dół wierszy z formułą wyszukującą. Wtedy trzeba "złapać" trzy ostatnie komórki i skopiować w dół. -------------- No tak, kolega adamas mnie...
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?
kopiowanie warunkowe wierszy Excel
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)
Ustawiłem w arkuszu Excela formułę formatowania warunkowego, która zmienia na czerwony kolor czcionki (w komórce G2), jeśli jej wartość jest mniejsza niż wartość komórki F2. Działa. Chciałbym skopiować następnie formatowanie warunkowe, do kolejnych wierszy zgodnie z zasadą jeżeli Gx > Fx to formatuj. Kopiowanie zarówno malarzem formatów, jak i opcją...
Reguła formatowania warunkowego jest taka I to jest przyczyna Twojego nieszczęścia :cry: Stosujesz mechanizm tworzenia załącznika html poprzez kopiowanie obszaru rng do pliku tymczasowego :!: Jeśli zatem kryteria formatowania warunkowego umieszczone są poza tym obszarem - to w pliku tymczasowym warunki dotyczące tego obszaru są puste :idea: :D Jeśli...
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...
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...
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
Potrzebuje takiej formuły w exelu. Chodzi o kopiowanie miedzy arkuszami. Problem polega na tym że nie moge znalśc formuły aby kopiowała z Arkusza1 do Arkusza2 tylko wiersze gdzie w kolumnie A jest wartośc a w kolumnie C jest puste pole. Np wiersz nr 1, 4, 7, 8 i 10 powinien byc skopiowany do Arkusza2, a wiersze nr 2, 3, 5, 6 i 9 nie powinny byc kopiowane.
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...
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".
A jakie to ma znaczenie? 1+1=2 a 1+0+0+1+0=2 Ale jak się uprzeć: SUMA.JEŻELI(zakres;">0";[zakres]) Jeśli chodzi o kolory, to z pewnością masz jakieś kryteria. Zastosuj formatowanie warunkowe i tej samej formuły użyj w SUMA.JEŻELI.
Tak jak Pan zrobił jest super, ale oczywiście mam problem (pamiętając żeby kopiowana tabela była w tej samej kolumnie i wierszu parzystym) żeby po skopiowaniu do mojego arkusza wyskakuje błąd "nie można używać odwołań do innych arkuszy lub skoroszytów dla kryteriów Formatowania warunkowego". a muszę zmienić odwołania do komórek gdzie jest rok i miesiąc...
Podam ci teorię bo inaczej się nie nauczysz (adres bezwzględny). Znak $ w adresie zatrzymuje "zmianę" numeracji wiersza lub kolumny lub obu podczas kopiowania. Przykład 1. W komórce jest napisane =A$10 jeżeli będę kopiował w bok zmieniać się będzie tylko litera kolumny adresu. Prawdę mówiąc kopiując taki przykład tylko w prawo czy lewo nie trzeba "zatrzymywać"...
Dziękuję za odzew ;) z przykrością muszę stwierdzić że nie do konca o to chodziło, zależy mi na NIE kopiowaniu całej tabeli tylko samego tekstu. Warto zauważyć ze w exccelu (patrz zdjęcie) w całym wierszu czcionka jest tak samo sformatowana (podkreślenie lub pogrubienie). Mój dotychczasowy program ma pętelki które powodują przejścia przez wszystkie...
W arkuszu dane jest u góry komórka w której będzie możliwość wprowadzenia miesiąca, w dane wiersz milionowy jest tabela z całymi danymi ,z których przy wyborze miesiąca będzie obszar całego miesiąca kopiowany do arkusza "sheet2". Jak już wszystko będzie oki działać, to sobie dam w vb żeby ukryć te wiersze, żeby nikt nie widział że one tam są, ale żeby...
czy ta petala wpisuje w postaci listy "wynik" wiecej nizeli z jednego CheckBox'u Nie, bo napisałeś: aby sprawdzila czy jest zaznaczonay TYLKO jeden CheckBox Ta pętla jest rozbudową tej z początku wątku, tyle że na końcu doszedł potrójny warunek if. Po przeleceniu wszystkich checkboxów w zmiennej i masz ilość zaznaczonych przez użytkownika checkboxów,...
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...
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....
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.
Interesuje Cię rozwiązanie formułami (tu z kolumną pomocniczą) http://obrazki.elektroda.pl/3664512400_1... czy makro (kopiowanie warunkowe w pętli)?
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]
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ą...
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.
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...
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...
sumowanie warunkowe
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ć...
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...
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...
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
Hmm, najprościej wstawić dodatkowy licznik i warunkowe dodawanie: https://obrazki.elektroda.pl/9899514800_...
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...
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ł...
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...
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...
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?
Ż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...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
Przy ostatniej instrukcji warunkowej (If Sheets(1).Cells(A, 7) = "Versand" Then) masz Exit Sub po Else. Może trzeba to usunąć. Nie ma danych w "Buchen", nie ma więc na czym przetestować...
Zainteresuj się funkcją FileDateTime [url=https://www.elektroda.pl/rtvforum/t... W pętli, w dodatkowej instrukcji warunkowej, sprawdzasz, czy datapliku > Date - ileDni gdzie liczba 'ileDni' decyduje o tym, czy plik są jeszcze "nowe".
kopiowanie wierszy warunkowe warunkowe kopiowanie wiersza makro kopiowanie warunkowe
schemat sprawdzenia tyrystora połowa pasek pralka buczy pracy
unitra klawesyn unitra klawesyn
Nożyce do żywopłotu jako nasadka na wiertarkę: zalety i wady ZUBR ZIE-40-1600 Soft Start Module PCB 8437-545204
