Ja tylko podpowiadam, bo czasami oczywiste rozwiązania wcale takie oczywiste nie są ;) http://obrazki.elektroda.pl/5260256600_1...
To proste, mam arkusz w którym dość często wprowadzam zmiany, ale w normalnym trybie w arkuszu działają różne makra które miedzy innymi ukrywają wedle potrzeby wiersze i kolumny. Kiedy potrzebuję wprowadzić w arkuszu zmiany to mam jeden przycisk którym w arkuszu odkrywam wszystkie wiersze i kolumny, ale w tej sytuacji muszę włączyć tryb projektowania...
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
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 Potrzebuje napisac makro, ktore skopiuje kolumne z arkusza A do arkusza B po napotkaniu okreslonego slowa np stop, koniec itp... w kolumnie A przerywa zaznaczanie i wkleja w inna kolumne wartosci do slowa stop, koniec... Nie ma znaczenia czy bedzie to ten sam arkusz czy inny. Potrafie zrobic makro, ktore bedzie zliczalo ilosc wierszy do skopiowania,...
Chcę napisać makro które będzie przenosiło dane o dynamicznej objętości (ilość wierszy i kolumn zmienna) z jednego arkusza do drugiego. W drugim arkuszu do przeniesionych danych chcę automatycznie ustawiać filtr dla wszystkich kolumn z danymi. Liczba kolumn będzie zmienna więc do określenia kolumn nie mogę użyć oznaczeń literowy. Problem mam z tym iż...
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
lanzul , teraz to już za bardzo kombinujesz ;-) Przecież załączony csv ma wyraźnie 3 kolumny z danymi, co nawet zaznaczała autorka wątku ... :-)
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
bozio891 W twoim arkuszu wystarczy zmienić zakres obowiązywania nazwy AktywnyWiersz z arkusza na cały skoroszyt (najprościej usunąć nazwę, przypisać ją ponownie ale zakres dać skoroszyt i odwołanie "=0") Zaznaczanie będzie działać w każdym arkuszu gdzie masz ustawione formatowanie warunkowe (październik i grudzień nie mają) :)
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
Dziekuje za propozycję jednak nie bardzo mi odpowiada to rozwiązanie bo mam już gotowy szablon pliku na którym pracuję z już gotowymi makrami. Większość makr uruchamiam jeszcze przed usunięciem wierszy i jest OK. Ale czasem zdarzy się że już po usunieciu potrzebuję uruchomić makro. W kodzie który podałeś musiałbym w takim razie zrobić kopie wszystkich...
Nie kumam tego podłączenia Toż to proste jak świński ogon :D Zaznaczasz swego Checkboxa (w trybie projektowania), klikasz we wstążce właściwości i w otwartej tabelce we wierszu LinkedCell wpisujesz adres bezwzględny komórki, gdzie będziesz miał wskazania stanu tego Checkboxa (PRAWDA|FAŁSZ) :please:
Wielkie dzięki. Udało się :) Makro wygląda tak [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "D:\Test\" plik = Dir(katalog & "*.xls")...
Hejka Mam następujący problem do rozwiązania : Potrzebuję pomocy w stworzeniu makra które będzie zaznaczało 10% występujących wierszy z arkusza, który został już wcześniej pofiltrowany i następnie te pozycje zakoloruje na jakiś kolor. Makro więc po kolei musi : określić ile wierszy występuje w arkuszu, obliczyć z tej liczby 10%, zaznaczyć te 10% wierszy...
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...
Hej. Jak dla mnie widzę tu tylko makro w Excelu. Niestety programista ze mnie kiepski, więc coś tam próbowałem wymyślić, jednak nie gwarantuję, że będzie działać idealnie. [syntax=vb]Sub Makro1() Const MaxR = 20 ' maksymalna ilość powtórzeń If ((Selection.Rows.Count < 2) Or (Selection.Columns.Count < 2)) Then MsgBox "Zaznacz obszar, na którym...
Witam, Napisałem makro, które z 3 podanych komórek szuka maksymalnej wartości w wierszu 1 i zaznacza kolorem. Chciałbym żeby to makro przeszukiwało wiersz po wierszu aż do 43 wiersza izaznaczało maks wartość w każdym kolejnym wierszu, czyli w wierszu 2 szukałoby po A2, D2, F1. [syntax=vb]Sub Color() Dim MaxValue Dim Cell As Range MaxValue = Application.WorksheetFunction.Max(Range(...
Skoro koniecznie chcesz makro to proszę bardzo: -psiak- - zaznaczasz obszar w kolumnie D w którym ma być wpisana formuła - w aktywnym wierszu wpisujesz formułę odejmowania - zatwierdzasz CTRL+ENTER
Witam, Proszę o pomoc, Potrzebuję makro w Arkuszu Google które usuwa lub ukrywa wiersz, w którym pole wyboru jest zaznaczone. W wierszach mam pole wyboru, zaznaczam niektóre z nich i wciskam button, który ukrywa lub usuwa zaznaczone wiersze. Fajnie jakby wyskoczył komunikat "czy na pewno chcesz ukryć/usunąć zaznaczone wiersze" Tabela jest w załaczonym...
(at)maciejgonet Dzięki wielkie za pomoc! Miałbym jeszcze tylko pytanie co do działania całego makra. Czy da się z niego wyeliminować zapisywanie w historii sytuacji kiedy ktoś dodaje nowy wiersz? Makro oczywiście wtedy działa tak jak powinno i zapisuje zmiany, czyli zapisuje np. 16000 pustych komórek które zostały dodane przez wstawienie nowego wiersza....
O to chodziło mi własnie. Za kazdym razem ten zakres który zaznacza powieksza mi o ilosc jaka chce wierszy. Dzięki wielkie :)
I jeszcze jedno – dlaczego w makro – kolory nie zaznacza wszystkich takich samych komórek tylko niektóre Dlaczego uważasz że nie zaznacza takich samych? Podaj przykład na twoich danych. Tylko że miej na uwadze że dla funkcji CountIf() każdy znak ma znaczenie. Nie tylko wielkość litery ale i ... a nawet zwłaszcza spacja. Jest różnica między...
o co Ci wkleiłem to jest autonomiczny programik. Wklejasz go w nowy moduł i możesz odpalić. wtedy zaznaczy Ci wszystkie niepuste komórki w kolumnie G. jeżeli chcesz, go umieścić w innej procedurze to możesz całość wkleić bez pierwszej i ostatniej linijki. Czyli najpierw odpalam ten Twój kod, a potem uruchamiam moje makro, tak? Zakładasz filtr i chcesz,...
Chcę usprawnić sobie pracę, dlatego pomyślałem o makro. 1) zaznaczam 2 lub więcej komórek w kolumnie A (dla przykładu A14 i A15). 2) klikam scal i wyśrodkuj 3) zaznaczam tyle samo komórek w kolumnie B, C i D (oczywiście zaczynam od tego samego wiersza co w pkt 1, czyli idąc za przykładem wiersz nr 14 i 15) 4) czyszczę komórki z obramowania (w arkuszu,...
a jak napisać makro które zaznaczałoby te 24godzinne zakresy? i po skopiowaniu przechodziłoby do następnych 24godzinnego zakresu?
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
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.
żeby ilość zaznaczanych wierszy pobierana była z tabeli 2 Z tekstu makra wynika, że usunąć wierszy z tabeli 2 Jeśli można dołączyć przykład pliku, makro powinno wiedzieć co najmniej nazwy arkuszy lub ich kolejność.
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?
:) 8-) Bez przesady. 8-) to ułamek mojej wiedzy 8-) :) Nie no ... oszukuje :) Na poważnie: Miło że Ci się podoba ale kod makra nie jest zbyt ambitny. Może ktoś zrealizuje to prościej ale niestety mam kocioł w pracy i muszę się "wyłączyć". (ostatecznie pomagać wieczorami) W załączeniu poprawki. Zapomniałem wspomnieć Arkusz "Zlecenia" ma się tak nazywać...
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
Choćby notepad++. Masz tam możliwość zaznaczania konkretnych kolumn i wierszy (ze wciśniętym lewym altem), lub pisania/nagrywania/edytowania odpowiednich makr.
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...
Bardzo szybko robi się to ręcznie. Filtr, zaznaczasz, Ctrl+c, Ctrl+v (możesz nawet nagrać makro i je wykorzystać). Klasycznie: w pętli + instrukcja warunkowa (If) oraz licznik wiersza zakresu docelowego.
Sądzę, że chodzi o ten warunek: If Cells(i, "B").Value = "" Then Jak daję If Cells(i, "B").Value = "10" Then to dla wiersza o tej wartości w komórce działa (może użyj .text ?) Po drugie nagrane makra z regóły trzeba uprościć wywalacąc .select (bo po co zaznaczać?) W tm przypadku : Rows(i).EntireRow.Hidden = True
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
(at)Lanzul Zaznaczanie do kopiowania/przenoszenia/itp. bez używania tzw. zmiennych. Jesteś zwolennikiem spiskowej tendencji nie używania tzw. zmiennych? Może to jakaś programistyczna klątwa... Mnie uczono, że wielokrotne wywoływanie funkcji obniża wydajność kodu.
WItam DZIĘKI DZIĘKI SERDECZNE ZA WSZYSTKO - jeszcze tylko jedno pytanko na koniec. Kolumnę E , F przeciągnąłem do 300 - bo tyle mam wierszy po zaktualizowaniu swojej bazy - oczywiście modyfikując odpowiednio formułę w makro zmieniłem zakres do 300 wszystko pięknie działa filtruje jak należy - tylko wyników w tych moich dodatkowych wierszach nie zaznacza...
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...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...
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...
https://obrazki.elektroda.pl/2598050500_... Witajcie, chciałabym napisać makro, które będzie łączyć komórki tak jak zrobiłam to ręcznie w przypadku E01 i E02. Z pomocą formuł wypełniają mi się pewne komórki, a następnie komórki zawierające jakiś tekst kolorują się na wybrane kolory. Ostatnim etapem jest złączenie ich w jedną całość...
Witam, Zwracam się z prośbą o pomoc w następującej sprawie, otóż potrzebuję usunąć dane, które znajdują się poza zakresem wydruku. Czy można to wykonać z poziomu Excela czy jest makro? Mam kilka arkuszy i chodzi o to aby nie zaznaczać kolumn i wierszy z poza zakresu wydruku i wówczas usuwać zbędne dane. Z góry dziękuję za pomoc
Witam, Ponawiam prośbę o pomoc w napisaniu tego makra. Poniżej zamieszczam kawałek kodu, który zaznacza w wierszu wszystkie wypełnione komórki poza kolumną H, pozostaje napisać pętle, która by w przypadku wypełnienia wiersza poza kolumnę H automatycznie wstawiła nowy wiersz i przeniosła do niego tą zawartość itd. [syntax=vb][/syntax] Sub zaznacz_przenieś()...
Dzięki za odpowiedź ale.. chodziło mi o coś innego: Np. mam kolejno w wierszu (niezależnie czy to wiersz 10 czy 50) : B A ‘ Aktywna komórka A B B C ‘ Koniec zaznaczania A A C C Ustawiam się na pierwszej komórce A, włączam makro i chcę żeby zaznaczyło mi komórki od A (w dół) do danego słowa - w tym wypadku np. do C. *Czyli zaznacza wiersze...
Przetestuj poniższy kod (ilość kolumn do sprawdzenia jest brana na podstawie ilości zapełnionych komórek w wierszu 1). [syntax=vb]Sub pokoloruj_1v2() Dim lLstRw& Dim iLstCol% Dim rRng As Range Dim rTmpRng As Range iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row On Error Resume Next...
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
(at)PRL już tłumaczę 1. W arkusz BAZA wklejam dane. 2. Uruchamiam makro 2.1 Makro ma zadanie sprawdzić kolejność liczb 2.2 Jeżeli znajdzie brakującą liczbę/liczby to wstawia w ten arkusz "BAZA" nowy wiersz/wiersze i w ten nowy wiersz/wiersze wstawia brakującą liczbę/liczby i zaznacza na kolor zielony 2.3 wstawione liczby przenosi do arkusza"brakujące"...
Nie pochodzi z formatowania warunkowego. Wcześniej mam napisane makro, które zaznacza mi na kolor czerwony duplikaty oraz na kolor żółty puste pola w całym arkuszu danych. Teraz zadanko polega na tym, aby sprawdziło zaznaczone obszary kolorem wypisało w postaci tekstu w kolumnie wyznaczonej np: K tylko musi być po wierszach :) To makro które wstawiłem...
zaznaczanie wierszy makro zaznaczanie zaznaczanie zakresu wierszy
drukarka laserowa papier cienki kalkulator liczba zespolić dioda power mrugać niebieski
drzwi balkonowe epson ecotank l3151
Awaria czujnika położenia wału Iveco Cursor 13 - przyczyny Awaria okablowania czujnika położenia wału w Iveco Astra Cursor 13
