Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
Spróbuj: [syntax=vbnet]Sub d() Application.ScreenUpdating = False For Each s In ThisWorkbook.Sheets s.Cells.FormatConditions.Delete Next s Application.ScreenUpdating = True End Sub[/syntax]
[syntax=vbscript]Sub Kasuj() Dim k As Variant For Each k In Sheets("Arkusz1").Range("TerminyGORNIK") If k <= Date Then Sheets("Arkusz1").Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Dołącz przykladowy plik
Witam, Szukam makra, do excela, które będzie przeszukiwało daną kolumnę i usuwało podane frazy z komórek np. faktura vat. Znalazłem coś takiego: Proszę pamiętać o używaniu znaczników code . Proszę poprawić błędy w poście. - arnoldziq
Witam Często muszę usuwać odfiltrowane wiersze w których znajduje się tez grafika. Znalazłem gotowe makro które działa dość szybko i usuwa je, jednak robi to bez grafiki. Dodam tylko że we właściwościach znajdujących się w pliku zdjęć mam zaznaczoną opcję "Przenoś i zmieniaj rozmiar razem z komórką". Czy da się zmodyfikować to aby razem z tymi odfiltrowanymi...
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Jak już chcesz usuwać wiersze z zakresu, to wykonaj pętlę od ostatniej zapisanej do pierwszej komórki - mniej problemów. Po drugie: te selecty to są zupełnie niepotrzebne. To makro może być w następującej postaci: [syntax=vb]Sub usun() Dim lLstRw As Long 'ustalenie ostatniej zapisanej komórki w kolumnie A lLstRw = Cells(Rows.Count, 1).End(xlUp).Row...
Z Accessem miałem styczność tylko raz i z tego co pamiętam, to nie pozwala usuwać wierszy, tzn. zostawia je puste, tworzy wiersz o nowej numeracji i tworzy się bałagan, a ja będę przekopiowywał, przenosił i kombinował na wiele sposobów, excel jest do tego łatwiejszy. Proszę jeszcze raz o pomoc w excelu;p No dobrze, sprawdzę to w domu, bo w pracy mam...
Czy te arkusze z imionami masz już stworzone, czy chcesz je tworzyć dynamicznie? Zakładając, że było by to makro - czy ma ono każdorazowo usuwać wszystkie istniejące arkusze z imionami i je odtwarzać ponownie?
Witam Wszystkich Serdecznie, Jest to mój pierwszy post na elektroda więc proszę o wyrozumiałość. Opis sytuacji: 1. Pracuje na excelu i tworzę DashBoarda związnego z urlopami. 2. W danym excelu jest wyświetlana lista osób oraz kto ile ma urlopów; 3. Wyświetlany excel zaciąga dane z innego pliku za pomocą Query; 4. Tabela Query wyświetla wszystkie daty...
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Dzięki za wyjaśnienie JRV , robiłem podobny błąd w innych przypadkach. Mam prośbę, mógłbyś zaproponować rozwiązanie dla poniższej sytuacji. Mianowicie mam w jednym arkuszu dużą liczbę nazw, które będę chciał później pogrupować, w tym celu chciałbym aby makro zmieniało nazwy na podstawie bazy w drugim arkuszu (załączyłem przykład o co mi chodzi), próbowałem...
To wersja makro, które wrzuciłem dokładnie to robi. Po przemieleniu Twoich przykładowych danych pozostało dokładnie 100 wierszy, z czego zostały tylko wiersze z "invoice" w opisie a także wiersze z kwotą 5.00 niezależnie od reszty opisu.
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
Myślę że się da :) Funkcja użytkownika może wykonywać dowolny kod VBA, zrób sobie taką funkcję i zobaczysz że działa: Public Function myFunc() MsgBox "test" End Function Może się łączyć z bazą danych, pokazywać formę, usuwać pliki z dysku ;) czy co sobie zażyczysz... Pytanie po co robić coś takiego jako funkcję, nie makro uruchamiane...
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
odwołania i łacza sa nie ważne potrzebuję stworzyć menu do etykiet tj. nr pps wpisuję tj. wybieram etykietę , następnie wybiaram pania hania ania ( pojawia sie numer na etykiecie tej przypisany do tej pani , no i oczywiscie chciałbym moc edytować etykiety dodamać usuwać zmieniac dane , no i oczywiście makro do drukarki takie aby przy otwarciu etykiet...
Tak mam 7 kryteriów. Kryteria są dynamiczne i dlatego muszę usuwać filtr. Pętlę zostawiłem żeby móc dodać kolejne kryteria rozłączne. Kopiowane jest do kryterium filtra a następnie z niego usuwane. Mam duży plik, przygotuję kolejny mniejszy i wtedy go prześlę - jeszcze zamierzam to uogólnić żeby było makro na cały skoroszyt i odwoływało się do ActiveWorksheet....
A nie możesz wyniki przenieść na drugi arkusz? Wtedy tylko zmieniasz formułę: =LEWY(Arkusz1!A1;2) =PRAWY(Arkusz1!A1;DŁ(Arkusz1!A1&... Czy musisz na tym samym arkuszu kategorycznie pozostać? EDIT: Zrobiłem specjalnie dla Ciebie makro ;) [syntax=vb]Sub Prostokąt1_Kliknięcie() koniec = Range("A1").End(xlDown).Row Application.ScreenUpdating...
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
Witam, poszukuje makra które w przypadku gdy wartość w kolumnie e=0 usunie komorki z kolum a-e w danym wierszu i przesunie dane do góry byłabym wdzięczna za pomoc
Dzień dobry, Proszę o pomoc w zmodyfikowaniu makra. W arkuszu Dane w zakresie F10:F500 wpisywane są ręcznie dane, które wykorzystywane są w innych arkuszach pliku. Do kasowania wpisanych danych jest używane proste makro jak niżej: Sheets("Dane").Select Range("F10:F500").... Selection.ClearContents Range("F10").Select...
Cześć, potrzebuję szybkiej porady jak stworzyć makro w VBA, rozzrysowałam sobie schemat 2 torowy z pętli, ale nie mam pojęcia jak przkesształcić go na ten język.... Dodano po 5 mam tabelę gdzie dane są wielkości 7x100 w przedziale i20:o119 i tam będę wpisywać różne rzeczy, chciałabym, żeby puste komórki, które pominę, same się uzupełniły wpisując np....
Witam, uruchomiłem w arkuszu makro, które po wpisaniu wartości w kolumnach 5,6,7,8 wpisuje automatycznie Datę w kolumnie "B" i Godzinę w kolumnie "C": Private Sub WorkSheet_Change(ByVal Target As Range) Dim i As Integer i = Target.Row If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then If Target.Cells <> a...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Witam, Poniższe makro filtruje dane z zakresu dynamicznego "Operacje" i unikalne wartości umieszcza w zakresie dynamicznym "OperacjeSorted". Problem w tym, że w tej postaci, makro "odpala", lecz filtrowanie nie działa. Natomiast to samo makro, zapisane jako "Macro1()", uruchomione z ręki - działa OK. -- Private Sub Worksheet_Change(ByVal Target As Range)...
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
Witam Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Witam, Nagrałem makro w którym wyszukiwane są dane z innego pliku za pomocy funkcji wyszukaj pionowo. Podczas nagrywania funkcja znalazła dane i wstawiła do innego pliku, po zapisania makra i ponownym uruchomieniu formuła zwraca zupełnie inne wartości. Może ktoś sprawdzić kod i powiedzieć co jest źle? Poniżej przesyłam kod: [syntax=vb]Windows("1.xls").Activate...
Witam, chcę stworzyć makro które po wprowadzeniu zmiany wartości w komórce np. c4 będzie automatycznie usuwać wartość komórki D4 czyli przesunięcie o 1 kolumnę . Makro ma działać tylko po zmianie wartości w komórkach (c4:c35) nie aktywuje się przy innych komórkach. stworzyłem coś takiego ale nie działa proszę o pomoc. [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
Witam, mam makro sprawdzające wiersze w arkuszu Excel. Działa dobrze, jednak chciałbym aby jednym przyciskiem, który mam na Arkuszu1 program sprawdził wiersze w arkuszach w zakresie "Arkusz4:Arkusz36". Teraz muszę wklejać przycisk w każdym arkuszu, żeby zadziałało. Oto moje Makro: Sub przelicz() Const max As Integer = 36 Dim i As Integer i = 26 Rows("26:36").Select...
Hej Chcialbym napisac makro ktore z 22 arkuszy jakie mam (kazdy ma inna nazwe) usunely mi sie wszystkie ktore w komorce c7 maja pusta wartosc tzn nie ma tam nic. napisalem cos takiego For arkusz = 2 To 22 If Range("c7") = "" Then ActiveWindow.SelectedSheets.Delete End If arkusz = arkusz + 1 Next ... ale nie dziala tak jakbym chcial. Dacie jakas podpowiedz??
Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...
Witam , mam problem . Otóż tworze proste makro robiące w arkuszu numer 1 , 3 wykresy i jeden wiersz ktory jest iloczynem 2 komórek , no i wszystko ładnie wychodzi , tylko ze kiedy to samo makro chce zastosowac do arkusza numer 2 to niestety nie dziala , poniewaz robi te same czynności w arkuszu numer 1 , pytanie brzmi , jak makro zrobione w arkuszu...
jak próbuję przypisać osobę do zadania To dziwne. U mnie działa poprawnie. Jedynie dodałem teraz obsługę błędu przy usuwaniu osoby.
To całkiem inne zagadnienie, wogóle nie związane z tematem i bardzo prościutkie [np. za pomocą wyszukaj.pionowo()] ale załóż własny temat. (bo jak między innymi podziękujesz za pomoc???)
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Nie jest całkowicie skrot, reprezentuje nazwę obiektu w skoroszycie, Np for each bbb in ActiveWorkbook.Sheets 'colection sheet in workbook bbb .Cells(1,1)="Witaj" next
Musisz na początek znaleźć jakiś wyróżnik wierszy do usunięcia. Co one mają innego niż cała reszta. Potem wystarczy tylko to wykorzystać. Od tego co zauważysz będzie zależał algorytm i kod makra. Wiersze często najwygodniej usuwać od końca, tak może (nie zawsze musi) być łatwiej.
Potrzebuję czegoś cgyba podobnego, ale jednak nie mogę dopasować... Potrzebuję makro, które usunie mi wszystkie wiersze nie zawierające w kolumnie K słowa "bio" ... Pomożecie? W tej kolumnie są ciągi znaków i super jakby makro szukało tylko słowa "bio", a nie np. " bio grafia" czy "przedsię bio rstwo" Wydzieliłem jako nowy temat z https://www.elektroda.pl/rtvforum/topic3...
Trzeba lecieć od dołu: [syntax=vbscript]Sub KasujWiersze() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 1 Step -1 If Cells(x, 1) = "DELETE" Then Rows(x).Delete Next End Sub [/syntax]
Spróbuj na początku Twojego makra do usuwania danych wyłączyć zdarzenia arkusza [syntax=vbscript]Application.EnableEvent... = False[/syntax] a na końcu makra ponownie je włączyć [syntax=vbscript]Application.EnableEvent... = True[/syntax]
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
Jeśli masz Excel 2010 lub nowszego można to zrobić przez Power query bez makra
Dziękuję za odpowiedz. Dobrze kolega zrozumiał. Jak jest zero to odejmnij. Jak nie ma zera to dodaj zero. Tak sama z druga wartością. Juz tlumacze sens. Codziennie dostaje raporty w których występują wartości z zerem lub bez zera. Żeby makro moglo uzupełnić dane(wartości duplikujące) to musze miec dane jednakowe. Jak nie mam jednakowych danych to musze...
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
Wynik w formacie programu Excel?
Powstały dwa programy w Excelu które obsługują magazyn
W załączniku plik z przyciskiem wstawiania nowego wiersza. Natomiast gdybyś usuwał wiele wierszy z zaznaczenia pamiętaj, że pola wyboru z tych wierszy ułożą się w stosik jeden na drugim. I dlatego, podejrzewam, tyle ich się nazbierało. Można dorobić makro usuwania Np ostatniego wiersza, ale to ew. później. Wyłączam komputer, idzie nowa burza...
Witajcie. Jest taka sprawa. Mam nowy arkusz do ktorego kopiuja się indeksy produktów z takiego prostego konfiguratora ktory stworzylem. Indeksy kopiuja sie do kolumny A, i niektóre się powtarzają. Jak napisa makro które zliczy i wyswietli nr indeksu + obok ile razy się powtorzyl, kasujac wszystkie powtorzenia. I tak dla wszystkich indeksow - lista +...
Dzięki za pomoc!!!
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Wrzuć to makro, uzupełnimy...
A Excel w ogóle poradzi sobie z rysowaniem wykresu / obliczaniem makra w tak krótkim okresie czasu? Masz 333 próbki na sekundę, ok. 20000 na minutę. Zrobiłem z ciekawości wykres na 20000 wartości i rysuje się ok. 0,1s bez wykonywania makra. Ja nie widzę żeby on mógł się odrysować w ciągu 0,003s. Ale jak chcesz spróbuj w arkuszu z danymi podpiąć makron...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
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
excel makro przycisk usuwać excel makro usuwać wiersz excel makro usuwać komórka
zbiornik paliwa sprinter zepsuty matryca laptop automatyczne skanowanie
bateria parkside styki radio makita
Pralka Beko: Migające linie na wyświetlaczu i brak wyłączenia Odbiór radia w VW Golf 5 1.9 TDI z GPS - przyczyny szumów
