ale "Jelczan" prosił o makro Aaa, to najprościej oprogramować zdarzenie (co sugerował już kolega PRL ), Np [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:a100")) Is Nothing Then If Target = "" And Target.Offset(0, 1) <> "" Then Range(Target, Target.Offset(0, 10)).Interior.ColorIndex = 6...
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 ... :-)
Ja tylko podpowiadam, bo czasami oczywiste rozwiązania wcale takie oczywiste nie są ;) http://obrazki.elektroda.pl/5260256600_1...
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...
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...
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...
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...
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(...
Zawsze będą tylko te 3 komórki? Skąd te dane importujesz - jakaś kwerenda, makro, manualnie z pliku? Jak i kiedy chcesz to makro uruchamiać? Może wystarczy po prostu posortować po wartościach malejąco i zaznaczyć na żółto pierwszy wiersz /ew. zarejestrować makro z tego/?
otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...
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")...
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...
(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....
Zachowanie odniesien w samym checkboxem skutkuje tym ze przy kopiowaniu pojawia sie kilka takich samych checkboxów i jak jeden zaznaczysz, inne zaznaczają się również. Musze to wyeliminować
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...
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:
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...
a jak napisać makro które zaznaczałoby te 24godzinne zakresy? i po skopiowaniu przechodziłoby do następnych 24godzinnego zakresu?
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...
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...
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.
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...
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?
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ść...
Jestem pełna podziwu - piękna robota. Nie pomyślałabym, ze można ten kod napisać w taki sposób,a uwierz mi próbowałam wielu. Pierwsza faza - super. Jedyne co mogłabym zmienić to to, aby najpierw porównywał kolumny ABC( bo daty zmieniają się najczęściej, a ilości znacznie rzadziej)a póżniej daty i aby w kolumnie M w ark dane pojawiały się zmienione daty....
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 :)
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...
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,...
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...
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
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...
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)...
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...
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...
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...
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...
ż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ść.
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...
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...
Niestety kolego ale jesteś w błędzie. Nie szukam gotowego rozwiązania, ponieważ stworzyłem makro w bazowym skoroszycie, które uruchamia makro w innym skoroszycie i wycina z niego wiesze zmieniające się dynamicznie. Przygotowałem również formułę wkleja te wiersze znajdujące się w schowku do odpowiedniego miejsca w bazowym skoroszycie. Jednak nie mogę...
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...
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.
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...
Mam problem dotyczący excela. Piszę makro, które ma usprawnić przeszukiwanie dokumentu. Każdy wiersz to jeden rekord. W kolumnie F mam różne wpisy: książka, film, muzyka itp. Jeśli znajdzie w tej kolumnie wpis film to ma zaznaczyć z tego wiersza komórki A,B, E, ,H, I, J oraz Z(nie wszystkie informacje są mi potrzebne i skopiować do innego dokumentu....
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...
Widzę, że zadałem dość skomplikowane pytanie. :/ Wie może ktoś, jak zrobić chociaż ten krok ze zmianą zawartości komórki "I"? W sensie zaznaczam sobie te komórki, a makro kopiuje mi do pierwszej zaznaczonej komórki, zawartość pozostałych (zaznaczonych), wstawiając pomiędzy "+". Nigdzie nie mogę znaleźć jak to zrobić. :(
Witam, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
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...
Witam, mój problem polega na tym, że muszę napisać makro, które: Będzie zliczało ilość rekordów w tabeli A oraz między kolumną "cena" i "podatek" wstawiło kolumnę "kurs" z odpowiednią ilością wierszy (identyczną dla całej tabeli A). Mój pomysł wyglądał tak: Chciałam odnaleźć w arkuszu komórkę o wartości "podatek", odnaleźć komórkę o wartości "klasa...
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, 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...
Cześć, obecnie przygotowuję finalną wersję makro na potrzeby pracy, jednakże napotkałem pewien problem. Otóż potrzebuje aby dzięki VBA kolorowały się wiersze na podstawie dwóch komórek. Problem jest taki, iż ilość danych jest spora (różnorodność wierszy), zmienia się ilość wierszy oraz danych, a samo makro musi kolorować co drugi obszar (wierszami),...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
(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"...
witam, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
Witam, Staram się napisać makro, które zlicza ilość rekordów w przedziale od (B2:B2000) Zaznacza formułę w wierszach A2 i kopiuje ją do zakresu A3:A(wynik z liczenia +1) Nieudolnie napisałem coś takiego, ale nie wiem jak ustawić zakres odwołując się do wyniku z operacji liczenia... PS. Docelowo formuły będą się kopiować z kilku "zakresów" np. Range("D2:E2")...
(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...
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...
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,...
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
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
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...
(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.
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ż...
Witam! Potrzebuję pomocy bardziej zaawansowanych użytkowników. W skoroszycie „Plik1” mam takie makro: [syntax=vbscript] Sub przeniesienie() Worksheets("arkusz1").Select path = "C:\Users\Martyna\Desktop\najnajnowsze\P... Set fileName = Workbooks.Open(path) For wiersz = 2 To 5000 sheetName = Range("M" & wiersz) If sheetName <>...
Witam Przejrzałem chyba wszystkie poradniki w sieci, ale i tak nie umiem tego pojąc, więc proszę jeszcze raz o pomoc mam http://obrazki.elektroda.pl/9883262400_1... i muszę znależc pionowo i poziomo ciąg liczb np 35, 6, 19, 3, 22, 11, 1 i chciałbym żeby zaznaczyć je na jakiś kolor, ale bardzo istotna jest kolejność tych liczb, i żeby...
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Witam i przypominam się w temacie mam jeszcze pytania otóż chciałem by moje makro po uruchomieniu: - zaznaczało od komórki H9 wszystkie uzupełnione wiersze w dół a następnie w lewo po czym kopiowało je i dodawało je do tabeli w nowym arkuszu, przy czym rozpoczynało dodawanie od pierwszego nie uzupełnionego wiersza w nowym arkuszu: nw = Sheets("DANE...
Witam, potrzebuje makro, które przefiltruje mi numery kierunkowe w danej kolumnie, aby nie musiał za każdym razem po wciśnięciu filtra zaznaczać, np. numery kierunkowe: 12,1,16,17,18, etc., przy bazie rzędu 30000, a nawet 300000 wierszy i wybieranie dzień w dzień, jest to bardzo męczące. Nie znam się na makrach,ani na VB. Czy da się tak zrobić? ma ktoś...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Witam! Potrzebuję pomocy przy kopiowaniu danych wyfiltrowanych. A dokładnie jest tak: jest tabela z danymi, z autofiltrem. Po zastosowaniu filtra (wybraniu kilku kryteriów w kilku kolumnach) mam widoczne np. 10 wierszy. Jak w automatyczny sposób skopiować te wyfiltrowane 10 wierszy do innego arkusza? Chodzi mi oczywiście o to, żeby nie robić tego tak,...
Próbowałem w ten sposób zrobić makro. W zeszycie 2 zaznaczam to co mnie interesuje następnie kopiuje do ostatniego filtrowanego wiersza w zeszycie 1, tylko coś mi to nie wychodzi mógłby ktoś zerknąć? Poniżej kod: (powstały w oparciu o to co udało mi się wyszukać jeżeli bardzo źle to wygląda proszę o wyrozumiałość :)) Range("A1:H4").Select Application.CutCopyMode...
automatycznie drukować mi wybrane strony wybranego arkusza po czym będzie zaznaczać następną komórkę w wybranej kolumnie i będzie drukować te same strony :crazyeyes: Załącz przykładowy plik z opisem: wyboru strony, wyboru arkusza i wyboru kolumny, oraz co to znaczy "te same strony" :cunning: Plik w załączeniu. Chodzi mi oto aby w karcie "Do wypełnienia"...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Jest kilka sposobów, których tu można użyć. Podam 2 warianty bez użycia makr. Jeśli problem występuje często, to można również użyć makra. Moja propozycja: 1) Zaznaczamy drugą kolumnę (kol.B) na wysokość danych. 2) Do komórki w pierwszym wierszu (B1) wpisujemy formułę: ="1|"&A1 3) Przytrzymując Ctrl naciskamy Enter. Wariant 1: 4) Kopiujemy kolumnę przez...
Poprawiłem trochę kod aktualizacji. Unieazleżniłem go bardziej od dodawania nowych arkuszy (chodzi o czyszczenie i autorozszerzanie) Ponieważ wiersz pierwszy jest inny w każdym z arkuszy trzeba było zrobić też trochę innych poprawek. Z wiersz + 2 też się trochę nie zrozumieliśmy, ale już wszystko działa. Zaznaczam że umowy E/2121... i podobne wylądują...
Ja to widzę tak: jeżeli wartości w komórkach w wierszu B są takie same to wtedy zaznacz (kopiuj) komórki z wiersza wyżej (jeżeli w wierszu B ilość komórek, które maja takie same wartości wynosi 3 - tak jak w tym wypadku to w wierszu wyżej ma zaznaczać dokładnie tą samą ilość komorek) - dlatego lecę po kolumnach. Następnie po kopiowaniu chciałam odpowiednio...
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...
Super! Wszystko działa! Tylko mam jeszcze dwa małe problemy. Pliki, na których pracuję są eksportowane ze strony, i mają pewne wady. W miejscu Rodzaj kontraktu zamiast pustego pola jest spacja. Kod: [syntax=vb]Sub koloruj() For i = Range("A65526").End(xlUp).Row To 2 Step -1 If Cells(i, 5) <> "" Then Rows(i).Interior.ColorIndex = 15 ElseIf Cells(i,...
Panowie, Potrzebuję pilną pomoc z następującą kwestią. Mam dwie karty, w Arkuszu1 ustawiam automatycznie filtr na wartości równe 0 lub "Blanks" w kolumnie V i chciałbym aby makro automatycznie skopiowało wszystkie wiersze do Arkusz2. Póki co korzystam z wariantu [syntax=vbscript] Range("A1:AH60000").Select Selection.Copy Range("A1").Select Sheets("Price...
Moderowany przez Marek_Skalski: Kolego, Twoje pytanie nie jest bezpośrednio związane z pytanie Autora tematu. Z tego powodu sugeruję wydzielenie tematu do nowego wątku. 3.1.19. Nie wysyłaj wiadomości w tematach archiwalnych, jeśli jest to kolejne pytanie, w szczególności inne niż osoby pytającej. Z racji szacunku do pytającego załóż własny temat. Możesz...
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 -...
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ę...
Wydaje mi się, że lepiej będzie jak "załapiesz" o co chodzi. Pierwotna wersja pętli For Each kom In Selection If Left(kom.Address, 2) = "$G" Then If kom.Value = 1 And kom.Offset(0, 1).Value = "tak" Then ActiveSheet.Rows(kom.Row).Copy Sheets(1).Rows(ostWrs) ostWrs = ostWrs + 1 End If End If...
Hej, jest to mój pierwszy post na tym forum, dlatego z góry przepraszam za ewentualne błędy. Generalnie od niedawna uczę się pracować z VBA i obecnie staram się napisać program, który porówna dane z dwóch tabel ( liczba kolumn to zawsze od A DO AD), liczba wierszy zmienna. Chciałabym, żeby moje makro porównywało dane z tych tabel, a następnie usunęło...
Raczej koledze chodzi o te np. 2 najprościej zaznacz kol b i tekst jako kolumny i zakończ clubs, rozwiązania faktycznie działa, a czy istnieje możliwość aby dane wklejane do kolumn A i B w momencie wklejania automatycznie wykonywały "tekst jako kolumny" i zamieniały wartości tekstowe na liczbowe aby działo się to automatycznie bez konieczności zaznaczania...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
nie rozumię tych funkcji podaj pozycje i index ! konkretnie =PODAJ.POZYCJĘ(N1;{dane!B:B;0)} wiadomo tyczy się n1 dalej dotyczy arkusza dane no i tu B:B;0 ! =PODAJ.POZYCJĘ(B4;dane!B:B;0) to samo =INDEKS(dane!C:AG;$B$3;WIERSZ()-5) tu zrozumiale do momentu WIERSZ()-5) problem jest w tym ze tam gdzie zmieniasz system zmianowy N1 chcę aby jednocześnie zaznaczało...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
ok udało mi się napisać coś takiego: [code][syntax=vbscript] Sub tl() Dim thisWb As Workbook Set thisWb = ActiveWorkbook Columns("A:G").Copy Workbooks.Add With Range("A1") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False...
dziękuje za odpowiedź. Jeśli dobrze zrozumiałem to co Pan napisał to z drugiego makra zrezygnowałbym. Myśl moja jest taka. Wybieram miesiąc jaki mnie interesuje np. wrzesień. Kolorami zaznaczają się dni wolne na kalendarzu oraz na wierszach gdzie są osoby - to wzsystko działa. Jak to zostanie wybrane to myśl jest taka (może być makrem) żeby właśnie...
Witam, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W arkuszu Arkusz1 jest całość artykułów widniejących w systemie ( ok. 40 tys ). Do arkusza Arkusz2 będę wklejał dane artykułów, które będę kontrolował pod kątem jakości. Plik powinien szukać identycznych artykułów w kolumnie D w arkuszu Arkusz2 z tymi z arkusza...
Witam Wszystkich Poszukuję rozwiązanie na temat makra. Mam skoroszyt z kilkoma arkuszami. Ilość danych na tych arkuszach jest uzależniona od pierwszej strony, gdzie zaznaczam czy dotyczy czy nie. Problem pojawia się, gdy przyjdzie mi wydrukować dane ze wszystkich arkuszy ze wszystkimi informacjami. Przypisane makro działa bardzo dobrze drukuje mi wszystkie...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q...
++++++++++++++++++++++++++++++++++++++++... EDIT : PROBLEM ROZWIĄZANY, ROZWIĄZANIE ZAMIEŚCIŁEM NA DOLE TEGO WPISU ++++++++++++++++++++++++++++++++++++++++... Witam, Szanowni koledzy, proszę o pomoc w napisaniu makra, w którym z całej kolumny E zostaną wybrane wartości z zakresu pomiędzy wartościami w komórkach T2 i U2,...
Proste Makro pięknie działa, ale po przypisaniu do wydarzenia arkusza,chyba się zapętla,(nie mogę dojść dlaczego?)Kombinowałem już na wiele sposobów [syntax=vbnet]Sub przeliczAZ() ' ' przeliczAZ Makro ' ' Application.ScreenUpdating = False Sheets("wplaty A-Z").Activate Sheets("wplaty A-Z").Range("A2:H6002").Select Selection.Clear Sheets("wpłatyH").Visible...
Dziękuje ThomasGP tak wlaśnie o to mi chodziło tylko że jak uruchamiam to mi błąd pojawia sie o treści: Run-time error '5': Invalid procedure call or argument , w kodzie zaznacza wiersz: Cells(i, 2) = Right(Cells(i, 1), Len(Cells(i, 1)) - 3) i nie wiem o co w tym chodzi? Czy jakaś zmienna musi być zadeklarowana czy co? Na marginesie to VBA to fajna...
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): http://obrazki.elektroda.pl/6793685500_1... a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Cześć, Dopiero odkryłem możliwość importu danych do Excela ze strony www. Robię to przez automat Dane > Import ze strony WWW > zaznaczam odpowiednią tabelkę. Problem w tym, że ta tabelka pobiera najnowsze dane ze skryptu .jsp (taki też jest adres strony), na czym się jeszcze nie znam niestety. Efekt jest taki, że pobrana tabela ma nagłówki i wiersze,...
makro zaznacza zaznacza zakres wiersz wiersz makro
bascom input bajty rezystor objętościowy bosch prania płukania
fotowoltaika instalacja fotowoltaika instalacja
Przekaźnik 30 w Ford Galaxy WGR 2.3 - funkcje i rola Resetowanie pralki Bosch VarioPerfect 7 - instrukcja krok po kroku