Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Zaznaczanie i kopiowanie dynamicznego zakresu kolumn A w treści piszesz o wierszach ... Jednak proszę o pomoc w modyfikacji tego kodu aby spełniał warunki opisane powyżej Załączyłeś ... dopiero później ... Udało mi się znaleźć i zmodyfikować kod, który zaznacza zakres tabeli Kod, który załączyłeś tyczy się zupełnie czegoś innego ... (at)Prot zamiast...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Witam, Tak worksheet to to samo co ws - dzięki za zwrócenie uwagi, po prostu po czasie dopisywałem ten fragment i jakoś pominąłem, że ws został juz określony przez DIM. W załączniku wrzucam plik, po ściągnięciu trzeba zmienić rozszerzenie z *.jpg na *.xlsm - wyskakiwał błąd poczas dodawania pliku z roszerzeniem excela, że nie można załączać plików z...
Zakres zaznaczasz od pierwszej do ostatniej komórki czyli od A1 do kolumna,ostatni wiersz.
Stostując taki sposób deklaracji zmiennych zmienną wiersz masz zadeklarowaną jako Variant, a zmienną i jako Integer. Do operacji na nieciągłym zakresie możesz użyć [url=http://msdn.microsoft.com/en-us/lib... Union Twój kod można skrócić do poniższej postaci, nie trzeba zaznaczać komórek i przeskakiwać pomiędzy...
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Co ma wspólnego makro do zaznaczania aktywnego wiersza z funkcją, której nagłówek pokazujesz? Jak i do czego używasz tej funkcji? Zaznaczanie aktywnego wiersza masz zrobione formatowaniem warunkowym z formułą: [syntax=text]=KOMÓRKA("ROW")=WIERSZ()[/s... z tym są dwa. Pierwszy - należy właściwie zaznaczyć zakres komórek, w którym to formatowanie...
Nie zauważyłem by autor pytania prosił koniecznie o formułę. Owszem wspomniał, że: "Wiadomo jest to jedna formuła", ale nie wiemy czy kurczowo zamierza trzymać się formuł, bo jest (jak np: ja) entuzjastą Excel'a, aczkolwiek dopiero "raczkującym", czy być może jest to dla Niego rodzaj testu, zadania (ze szkoły, studiów, pracy - niepotrzebne skreślić)....
Spróbuj formatowania warunkowego wg takiego wzoru: [syntax=text]=WIERSZ()>PODAJ.POZYCJĘ(PRA... komórek do sformatowania musisz sobie zaznaczyć definiując formatowanie. Formuła formatowania jest zapisana z punktu widzenia pierwszej komórki obszaru formatowania, zakres wierszy w formule musi być zgodny z tym, jaki obszar...
Może tak ,pozmieniaj tylko zakresy: [syntax=vbscript]Sub kolor() Dim i As Integer For i = 1 To 10 If Cells(i, 1) = "" Then Cells(i, 1).Offset(0, 1).Interior.Color = RGB(255, 255, 0) Else Cells(i, 1).Offset(0, 1).Interior.ColorIndex = xlNone End If Next End Sub[/syntax]
Dzień dobry, Proszę spróbować z taką formułą w formatowaniu warunkowym: [syntax=text]=JEŻELI(MOD(WIERSZ(A1);2);A... Puste komórki w zakresie są traktowane jak zera. Teksty są "większe" od liczb, więc zawsze będą zaznaczane, gdy wystąpią w parze z liczbą. Gdyby miało być inaczej, trzeba zmienić formułę....
ale musi to jeszcze odwracać te procedurę Poniższy kod działa w zakresie wierszy od 42 do 305 [syntax=vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim w As Long Dim zakres As String zakres = "42:305" If Not Intersect(Target, Range(zakres)) Is Nothing Then '... 'jakieś instrukcje, która mają 'zadziałać w zakresie wierszy od 42 do...
witam, mam problem z makrem. Męczę się meczę i nic :/// Chcę, żeby makro zaznaczało kolumnę, sortowało ją rosnąco Np: a a a b b b b c c ... a następnie podawało mi zapisywało mi zmienne w ten sposób, żeby każda ze zmiennych definiowała pierwszy wiersz, w którym jest "wartość", a następnie ostatni wiersz, który zawiera wartość "a" i tak ze wszystkimi...
Ale jeżeli chcesz zaznaczyć całe wiersze możesz zastosować "tekstowe połączenie": p = 20 k = 25 c = CStr(p) + ":" + CStr(k) I wtedy: Rows(c).Select lub (tak jak chciałeś Range(c).Select Albo wogóle bez zmiennej c Range(CStr(p) + ":" + CStr(k)).Select Przyznam że chwile szukałem gotowej funkcji ale znalazłem tylko zaznaczanie paru wierszy na raz (nie...
Hmmm... nie wiem jak to zrobić inaczej [syntax=vb] Sub bombon() Dim zakr10 As Range 'definujeme zakres, ktore zawiera 10 pierwszych bombonierek, kolumny od F do O Set zakr10 = ThisWorkbook.Sheets("Bombonierki").Range... 'wierszy w zakresie r = 2 'zacziname od 2 wiersza, zmienna r je numer wiersza While Cells(r, 1) <> vbNullString 'tak...
Hej Chodzi mi o wszystkie pełne wiersze poniżej i wklejenie tego zakresu o wiersz wyżej. Kod trochę zmieniłam na swoje potrzeby i obecnie wygląda jak poniżej, zaznacza i kopiuje 1000 wierszy (tu wolałabym żeby zaznaczał wszystkie pełne) po pierwszym pustym ale brakuje mi wklejania skopiowanego zakresu o wiersz wyżej. Sub usuniecie() Application.ScreenUpdating...
Witam wszystkich, mam formularz a na nim listbox (1) i pola txt (2). Z założenia w listboxie ma być zaznaczony wiersz, w którym tekst z 1 kolumny = sumie wartości pól tekstowych. https://obrazki.elektroda.pl/7428190600_... Metoda _AfterUpdate pola txt zawiera: Zlecenie_lista.ListCount< Zlecenie_lista.Recordset.RecordCount +1 To oznacza,...
Przetestuj [syntax=vb]Sub y() Dim rRng As Range 'definicja przetwarzanego zakresu Set rRng = Range(Cells(7, 3), Cells(19, 15)) 'wpisanie wartości z nagłówków kolumn 'najpierw formuły odnoszące się do wiersza 4 rRng.SpecialCells(xlCellTypeConstants).F... = "=R4C" 'wklejenie jako wartości For Each cl In rRng.SpecialCells(xlCellTypeFormulas) cl.Value...
Witam wszystkich, Codziennie wypełniam raport aktywności dziennej - mieszczący się w jednym arkuszu. W kolumnach mam rodzaj aktywności dziennej np. wykonane telefony lub spotkania, natomiast w wierszach datę kiedy został wykonany np. tel. oraz imię i nazwisko osoby do której został wykonany dany telefon. Każdą aktywność zaznaczam kolorem a wszystko...
Ok to muszę odszukać ta zamiana ręczna. Tak po wstawieuniu nowego wiersza będzie pusta komórka bez formuły to makrem myślałem o tym by zaznaczać komórkę A5 i w dół tak jak zaproponowałem. Zastanawia mnie najbardziej jak stworzyć kod by usuwalo mi wiersz jak cały zakres jest pusty. Bo teraz usuwa tylko wtedy jak coś w jakimś wierszu zakresu jest to usuwa...
nie działa niestety Dodano po 6 Cells(2, 4) = Application.WorksheetFunction.Average(Ra... 5), Cells(2, ost_kolumna))) Wpisałem bez kropek i działa. Tylko, że to jest wartość, a ja miałem zrobione tak, że kopiowało mi funkcje do ostatniego wiersza, a teraz to już nie działa
(at)dt1 Jak dla mnie to porady na forum ELEKTRODA odnośnie Excela VBA nie powinny mieć miejsca. Jest to w pewny sposób wykorzystywanie umiejętności informatycznych ludzi, którzy kiedyś musieli nauczyć się od zera VBA, a teraz maja podawać kawę na ławę zatrudnionym pseudo informatykom pracującym w biurze i przeważnie na posadach państwowych lub w dużych...
Dobry wieczór, Problem można rozwiązać również wykorzystując procedurę Konsolidacji w grupie Dane. Kursor należy umieścić w lewym górnym rogu tabelki wynikowej. Tabelka powinna zawierać tylko nagłówki. Kolumna z numerami części powinna być pusta. Wybierany polecenie Dane/Konsoliduj i wskazujemy kolejno tabelki z Arkusza2 jako zakresy do konsolidacji....
To nie bardzo rozumiem w czym problem, zaznaczyć kolumnę D, w zakresie w jakim będą dane (teraz lub w przyszłości), wpisać formułę dla pierwszego wiersza z danymi, np. =b4+c4, jeżeli tym pierwszym wierszem jest wiersz o numerze 4 i nacisnąć Ctrl+Enter (przytrzymując Ctrl, nacisnąć Enter). I to wszystko. W Excelu 2007 i następnych można również zadeklarować...
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
a jak napisać makro które zaznaczałoby te 24godzinne zakresy? i po skopiowaniu przechodziłoby do następnych 24godzinnego zakresu?
Cześć, Macie pomysł jak wyciągnąć numery wierszy z zakresu nieciągłego, wybieranego myszą + ctrl? Chodzi o sytuację, gdy zaznaczamy np komórkę B1, D5 i F8 i chcę pobrać numery wierszy, by wyciągnąć dane z komórek w kolumnie A z odpowiadającymi wierszami. Najprościej działa zaznaczanie danych w kolumnie A i wklejenie w docelowym miejscu ale metoda ta...
Maćku, Dzięki za głos, dostałem już odpowiedź z innego źródła ale przeklejam tutaj dla potomnych CYTAT: Przekopiuj kategorie do usunięcia do nowego arkusza w pliku z klientami (powiedzmy, że jest to Arkusz2 zakres A1:A300) W kolejnej wolnej kolumnie w bazie klientów powiedzmy, że jest to D w D1 wpisz "do usunięcia" Zakładam, że kolumna z kategorią to...
Witam. W jaki sposób można makrem, zaznaczyć komórki obok wypełnionych? Dokładnie chodzi o to, że w kolumnie B, mam jakieś dane (mogą być też puste komórki między wypełnionymi) i chciałbym, aby makro zaznaczyło w kolumnie C, cały zakres, od wiersza 2 do ostatniego, który jest wypełniony w kolumnie B.
niby działa ale zeby zobaczyć wynik trzeba zaznaczyc komorke. Ja to widzę tak: zaznacz zakres do ostatniej pełnej, potem dodaj i pokaz i wypełnij wynikiem do ostatniej pełnej / względnie ostatniego pełnego wiersza. any ideas?
W tym przypadku wystarczy takie prościutkie makro: [syntax=vb]With Range("B15:C17") 'zakres do sortowania .Interior.Color = xlNone 'czyścimy stary kolor tła .Sort key1:=.Cells(1, 2), order1:=xlDescending, Header:=xlNo 'sortujemy po drugiej kolumnie majejąco .Rows("1:1").Interior.Color = 65535 'ustawiamy kolor pierwszego wiersza w sortowanym zakresie...
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
Problem rozwiązano za pomocą niniejszego kodu. Informacje na ten temat zamieściłem w poście tytułowym. [syntax=vbscript] Sub wykres1() Dim rng As Range, cell As Range Dim lRow As Long, i As Long Dim ws As Worksheet Dim Obj As ChartObject '> Zmiana nazwy zeszytu, na którym chcemy pracować, dla mnie wersja angielska więc po angielsku, w celu uniknięcia...
Witajcie Szukam sposobu by skanując produkt, zaznaczyć komórkę w odpowiednim rzędzie i kolumnie. Rozkład jest taki: A1 - zeskanowany numer z "Numer porządkowy" (A4:A10) B1 - zeskanowana waga C1 - ilość tabel F1 - wierszu z porównanego kodu (A1 z zeskanowanym) Schemat przebiega tak: zaznaczam komórkę (np: A1) -> skanuje (wkleja skan) w zaznaczoną komórkę...
Mam obszar o czterech kolumnach (A:D) i zmiennej ilości wierszy; w kolejnych iteracjach komórki wypełniane są nowymi danymi, więc liczba wierszy w kolumnach się zmienia. Każda z kolumn lub nawet dwie kolumny jednocześnie może w danej iteracji zawierać same puste komórki. Problem jest taki, że gdy korzystam z CurrentRegion a jedna lub więcej kolumn zawiera...
Można wykorzystać skróty klawiszowe. Załóżmy taką sytuację: W kolumnie B ciąg jakiś danych, w C3 formuła do skopiowania http://obrazki.elektroda.pl/3064735200_1... Podręcznikowo: chwytasz za uchwyt C3 i przeciągasz w dół. Na skróty: 1. Klik w B3 2. Ctrl+strzałka w dół (przechodzę do ostatniej niepustej) 3. Strzałka w prawo (przejście do kolumny...
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Chodzi o to że skoro nie jesteś w stanie dopasować działający kod do swoich potrzeb to musisz bardzo precyzyjnie wyjaśnić jak to ma działać, np: - po naciśnięciu przycisku - po naciśnięciu kombinacji klawiszy - po zmianie jakieś komórki - jeszcze jakoś Oraz na jakim obszarze ma to się dziać - zawsze A1:A3 na bierzącym arkuszu - zawsze A1:A3 na arkuszu...
Sposobów może być wiele, bo to dość typowe zadanie. Nie napisałeś, która wersja Excela, a to może być istotne, jeśli chodzi o szczegóły. Przykładowe rozwiązanie w załączniku. Formuła: [syntax=text]=INDEKS(C2:G5;;B1-2)[/synta... nowym Excelu (2021, 365) będzie to formuła rozlana - wpisujesz do pierwszej komórki, czyli do B2, zatwierdzasz Enter i otrzymujesz...
Użyłem Select Case, żeby nie zapisać pół strony instrukcją IfThenElse. Teraz jaśniej? Dobra, już tłumaczę. 1. Takie (zgodne z VB) a nie inne pole kombi, bo zdarzenie "Przy zmianie" reaguje tylko na zmianę wartości. Gdybyś chciał wpisać te same oceny raz za razem, to zmiana by nie nastąpiła. Należało użyć innego zdarzenia, o które kombi formularza jest...
A czy gdzieś napisałeś, że to ma działać w Excelu 2021? Nie piszesz też, czy może być VBA. Bez tych nowych funkcji i bez VBA, to zrobić to automatycznie będzie trudno. Mogę zaproponować taki półautomat w 3 etapach. Najpierw łączymy dane w dwa ciągi tekstowe za pomocą wybranego separatora. Ja zastosowałem średnik. [syntax=text]=POŁĄCZ.TEKSTY(";";;B1:E14)...
1. #N/D! - da się wyeliminować przez dodanie na zewnątrz formuły JEŻELI.ND albo JEŻELI.BŁĄD. Obie działają podobnie do funkcji JEŻELI, więc nie powinieneś mieć z nimi kłopotów 2. Da radę przeszukać kilka arkuszy jednocześnie - wystarczy w zakresie podać adresy zakresów w poszczególnych arkuszach rozdzielone średnikami, np. Arkusz1!C1:C3;Arkusz2!B1:B3,...
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...
Witam, Jestem zupełnie nowa w temacie VBA i wrzucono mnie od razu na gęłboką wodę. Mam do napisania aplikację sortującą bazę danych. Ale po kolei: na chwilę obecną potrzebuję makro które będzie wyszukiwało wartość tekstowa w 1 wierszu i jeśli ją znajdzie ustawi tam aktywną komórkę po czym wstawi 4 puste kolumny na prawo od niej. pózniej muszę wypełnić...
Witam Widzę że jest zainteresowanie więc na szybko opis. Gdyby pojawiło się hasło do otwarica pliku to : marcin W załączniku plik na którym pracuje. Postaram się opisać o co konkretnie mi chodzi. W arkuszu „Słupy” mam trzy tabele: – Tabela Nr1 (zakres KOLUMN A:Z) - Tabela Nr2 (zakres kolumn AB:AZ) - Tabela Nr3 (zakres kolumn BC:EI)...
adams jestem zielony jeszcze jeśli chodzi o VBA gdzie dokładnie dopisać wykrzacza tzn mając to VBA w innym zakresie komórek wypełniałem serię danych i makro się chciało debugowac nie rozumiem czemu skoro nie używałem listy rozwijalnej. skopiowałem to makro chcąc usunąć problem drugiej listy rozwijalnej która miała być pusta w przypadku kiedy nastąpiły...
Witam Chciałbym Was bardzo prosić o pomoc w napisaniu algorytm/sposobu, który wydaję się w miarę logiczny i prosty do wykonania…Szukałem rozwiązania jednak nie mogę znaleźć nic podobnego. Poza tym moją wiedza z zakresu VBA jest chyba zbyt skromna. Dane, którymi muszę się zając to kilkaset wierszy wpisów w tabeli. Dane źródłowe wyglądają jak w...
Witam serdecznie Buduje makro (pisze to za duże słowo) które ma pomoc przy generowaniu co-tygodniowego raportu. Dane wpisywane są kolejno w wierszach wraz z data i godzina (format: dd/mm/rrrr gg/mm/ss) w kolumnie C Szukam rozwiązania które przefiltruje zawratość kolumny C pozostawiajać tylko wiersze zapisane w określonym czasie Daty graniczne są wprowadzane...
Mam problem z takim zadaniem, może ktoś pomoże. Zaznaczam, że kombinowałem, jednak chyba nie jestem na tyle biegłyy :) Mam trzyy kolumny 9788374804486 NOCNY PATROL-M.OP/MAG1 9788374804486 NOCNY PATROL-M.OP/MAG1 9788374804486 NOCNY PATROL-M.OP/MAG1 9788374804486 NOCNY PATROL-M.OP/MAG1 9788374804486 NOCNY PATROL-M.OP/MAG1 9788380752276 NOCNY STALKER/OP[.MK./FILIA1...
zaznacza wiersz makro zaznacza wiersz usuwać wiersz zakres
passat tylna klapa podłączyć domofon kolor radio traci dzwiek
baofeng częstotliwości warszawa częstotliwość warszawa
Brak ssania w odkurzaczu Karcher WD 5 - możliwe przyczyny Kodowanie sterownika Renault Master 2007 - narzędzia i procedury