Na przykład, wersja prosta Nie należy ręcznie usuwać dane. To makro zrobi sam po zmianie daty w komórce B1
Przy odświeżaniu pliku potrzebuję aby wykres ten został usunięty. W jego miejsce makro tworzy nowy w oparciu o aktualne dane. Jeśli wykres jest tego samego typu i nie zmienia się układ danych, tylko dochodzą nowe, to po co usuwać wykres ? Wystarczy "rozszerzyć" zakres danych dla wykresu już istniejącego ... ? : / ?
zależy mi żeby makro zawierało listę funduszy (kodów), które można powiększać o kolejne nowe lub odejmować niepotrzebne. Makro będzie miało za zadanie usuwać wszystkie fundusze/kody inne niż na liście. Czy ja dobrze rozumiem kolego "m4xon", że oczekujesz żeby na forum ktoś sporządził Ci listę funduszy unijnych ? :D A na poważnie to gdybyś zamiast pustego...
Poradnik dla początkujących, ale jedyne czego w nim brakuje to opisu jak z konfigurować środowisko do pisania na rejestrach. W sumie to masz już środowisko i tak naprawdę nic nie musisz konfigurować aby programować używając rejestrów. W CubeIDE masz przynajmniej pewność, że wszystkie pliki CMSIS są aktualne. Jak zrobić projekt bez HAL: 1. Wygenetuj...
[syntax=vb]Sub usunAE() Dim bs As Range, r&, i& Set bs = Range("A:E") r = bs(Rows.Count, 5).End(xlUp).Row For i = r To 1 Step -1 If bs(i, 5) = 0 Then bs.Rows(i).Delete Next End Sub [/syntax]
[syntax=vb]Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Arkusz1" And ws.Name <> "Arkusz2" Then ws.Range("A5:C71").ClearContents End If Next ws Application.ScreenUpdating = True[/syntax]
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]
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...
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...
Przy czym dane muszą być dokładnie tak przygotowane jak podałeś wyżej, wystarczy gdzieś dodana spacja itp. i nie wyłapie numerów :) [syntax=vbscript]Sub elka() For i = Cells(Rows.Count, "I").End(xlUp).Row To 1 Step -1 b = InStr(Cells(i, 9), "Nr faktury:") + 12 c = InStr(Cells(i, 9), ", Kwota VAT:") - b Cells(i, 9) = Mid(Cells(i, 9), b, c) Next i End...
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...
hej, makro, którego używam: działa poprawnie, ale tylko dla arkusza danego. Chodzi mi o makro, które będzie usuwać wszystkie wiersze w całym skoroszycie. makro umieść w module a nie w arkuszu
Dołącz przykladowy plik
Na przykład w ten sposób: [syntax=vb]nr = "FK002301" ret = "" cut_flag = True For i = 1 To Len(nr) c = Mid(nr, i, 1) If Not IsNumeric(c) Then ret = ret & c Else If c > 0 Then cut_flag = False ret = ret & c End If If c = 0 And Not cut_flag Then ret = ret & c End If End If Next i MsgBox ret[/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]
Jesli dane jest w kolumnie 1, wtedy [syntax=vb]For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If (r Mod 3) <> 0 Then Rows(r).Delete Next [/syntax]
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...
W załączonym pliku możesz dodawać i usuwać kolumny (wyłączając kolumny 'czynnik1' i 'czynnik2'), a makro będzie poprawnie liczyć.
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.
Twoje makro dział bardzo fajnie i skutecznie, tylko to podawanie numeru tabeli komplikuje sprawę, bo nigdy nie będę wiedział, w której tabeli są te wyrazy. Każdy raport jest inny i zawiera dużo tych tabelek. One zajmują dużo miejsca, a nie mogę ich wyrzucić z raportu i muszę je usuwać po jego wygenerowaniu. Dzięki temu skraca się on czasami o kilka...
Kolega lanzul pomógł mi rozwiązać problem z usuwaniem wiersza tabeli, w którym jest konkretny wyraz. https://www.elektroda.pl/rtvforum/viewto... Tych wyrazów jest znacznie więcej, dla których potrzebuję usuwać te wiersze. Dlatego potrzebuję zbudować pętlę, która będzie brać kolejne wyrazy z jakiejś listy i będzie wykonywać to...
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...
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...
a następnie usunęło duplikaty na podstawie wartości z kolumny F Usuwać chcesz całe wiersze w obu tabelach, czy tylko w jednej tabeli komórkę z kolumny F :?: :D Proszę przygotować przykładowy plik z przykładowymi danymi (żeby zrozumieć logikę Twoich przekształceń) i załączyć na forum
[syntax=vb]Sub zz() Dim iLstCl% Application.ScreenUpdating = False iLstCl = Cells(4, Columns.Count).End(xlToLeft).Column For i = iLstCl To 3 Step -1 If Cells(4, i).Value = 1 Or Cells(4, i).Value = 2 Then 'zamiast powyższego warunku przy takim nazewnictwie kolumn można dać poniższy warunek: 'If IsNumeric(Cells(4, i).Value) = True Then Columns(i).EntireColumn.Delete...
Powinno być ScreenUpdating, a nie DisplayAlerts. Poza tym niepotrzebne są te selekcje. Wystarczy: [syntax=text]Rows(281).Delete Shift:=xlUp 'usuwa 281 wiersz [/syntax]
Witam, Jestem początkującym w VBA. Potrzebuje pomocy w jednym temacie: Chciałbym uzyskac takie makro że jak zaznacze np zakres komórek A6:B11 to chciałbym tylko w tych miejscach zwiekszyc liczbe wierszy i za pomoca wpisania konkretnej liczby wierszy (InputBox). Ważne dla mnie by dodanie wiersza synchronizowane było z okienkiem w kolumnie B tzn: zeby...
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?...
[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]
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
Chyba jakoś tak: Private Sub CommandButton1_Click() x = 3 While Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value <> "" If Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value = Worksheets("Kalibracja-Naprawy&... Then Worksheets("Przyrządy...
[syntax=vbscript]Sub KolumnaData() Application.ScreenUpdating = False d = [A1] mz = Columns("MZ").Column For x = mz To 2 Step -1 a = Cells(2, x) If a <> "" And a < d Then Columns(x).Delete Next Application.ScreenUpdating = True End Sub [/syntax]
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
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...
Podmień kod makra na poniższy i potestuj [syntax=vbscript] Sub nastepny() Application.ScreenUpdating = False ActiveSheet.Copy after:=ActiveSheet With ActiveSheet num = Mid(.Name, 3, 2) .Range("g4") = "z T-" & num num = Format(Val(num + 1), "00") .Name = "T-" & num ow = .Cells(Rows.Count, 1).End(xlUp).Row .Range("l2") = .Range("l2").Value + 7...
Cześć, Zrobiłem makro, które ma usuwać wiersze, jeśli w komórce F występuje fragment tekstu, np 'AAA' lub 'BBB'. Makro działa, ale jeśli dwie komórki w wierszach pod rząd są takie same to makro je omija. Zastosowałem funkcję 'offset', ale to nie pomogło. Ma ktoś jakiś pomysł jak to naprawić? Sub usuwanie_wierszy() Range("A1").Activate wiersz = 2 Do...
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?
W pliku ~framework-arduinoespressif8266\tools\sd... Faktycznie makro jest rozwijane do ... niczego :) Być może dla jakiś przyszłych celów zostało zdefiniowane i będzie później zmieniona jego definicja. Jeszcze dodam że te pliki podczas kompilacji są ze sobą powiązane, bowiem po zakomentowaniu #define IP_SET_TYPE_VAL(ipaddr,...
Witam, Jak widać po problemie jestem początkujący w programowaniu VBA. Dlatego chciałem prosić o małą pomoc. Potrzebuje napisać makro w którym jedną z czynności będzie sprawdzenie czy wartości w kolumnie C (od C2) są równe wartościom w kolumnie D (od D2). Jeżeli tak się dzieje wówczas makro powinno usuwać cały wiersz. Jednym słowem jeśli C1 = D1 then...
Spróbuj zamienić Rows(i).Hidden = True na Rows(i).Delete = True I przetestuj na kopii dokumentu... Powinno być: Rows(i).Delete Przy czym po usunięciu wiersza indeks 'i' nie powinien być zmieniany
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...
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...
Może tak: Sub del() Dim i As Integer For i = 100 To 3 Step -1 'ile wierszy będzie sprawdzanych If Range("B" & i).Value = Range("B2") Then Rows(i).Delete End If Next i End Sub
Niekoniecznie :) Zaznacz kolumnę (kolumny) które chcesz ukryć, prawym->Ukryj (nie musisz nic blokować). Następnie nałóż ochronę, nie zaznaczając opcji FORMATOWANIE KOLUMN. Wtedy nie będzie można jej odkryć. możesz też pobawić się z ochroną skoroszytu (Narzędzia->Ochrona->Skoroszyt). jak zablokujesz strukturę i okna, to np. nie będzie można zmieniać...
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...
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...
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, Proszę o pomoc przy kodzie VBA którym chcę usuwać wiersze, gdzie w kolumnie np. "B" znajduje się "1". Niestety przy wyszukiwaniu przy pomocy formuły "znajdź" pojawiają się błędy w komórkach - #ARG!. Niestety poniższe makro nie radzi sobie z tym i wyrzuca błąd w drugiej linii. Proszę o pomoc w obejściu tego. Wrzucam makro oraz plik z przykładem....
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...
makro usuwać wiersz makro usuwać kolumna makro usuwać duplikat
mruga starcie eagle ścieżek zaprogramowanie pilota thomson
ocieplenie stropu hitachi 32hb4t61
DTA114ES – tranzystor PNP z rezystorami 10kΩ, SOT-323, parametry, zamienniki Znaczenie trzykrotnego wycia syreny w systemach alarmowych
