[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...
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...
Makro działa bez zarzutu. Dziękuję za pomoc. Temat do zamknięcia.
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 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]
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...
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
Notepad++ Makra > Rozpocznij nagrywanie > (tu wykonujesz sekwencje operacji na jednej linii z przejściem do następnej) > Zakończ nagrywanie Makra > Uruchom Makro wielokrotnie Zaznaczasz "Wykonaj do końca pliku" i klikasz "Uruchom"
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...
[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]
Np. takie makro: [syntax=vbscript]Public Sub PusteKomentarze() Dim i As Long Dim OstW As Long OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW If Not (Range("A" & i).Comment Is Nothing) Then If Range("A" & i).Comment.Text = "" Then Range("A" & i).ClearComments End If End If Next i End Sub [/syntax]
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
Witam, Potrzebuje napisać makro, ktore bedzie mialo dwie pętle. Pierwsza pobierać nazwy z nagłówka kolumn, kopiować je, przechodzic do nastepnego arkusza, tam druga pętla bedzię szukała wartośc pobranej z pierwszego arkusza, czyli nazwy kolumny. jesli znajdzie taką samą nazwe kolumny to kopiuje nagłówek z całą zawartością kolumny i wkleja ją do pierwszego...
To[syntax=vbscript]For Each Wks In ThisWorkbook.Sheets If Wks.Name <> "Źródło" Then Wks.Delete Next Wks[/syntax]wyrzuć
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ć
Rzeczywiście - trzeba od dołu - Mój błąd :) Tylko w tym powyższym kodzie szuka po kolumnie "A" a powinien po "P", czyli cells(x,16) :)
Cześć, potrzebuję stworzyć makro które będzie usuwało kolumny po nazwie nagłówka. Liczba kolumn w arkuszu może się zmieniać ale nazwy kolumn będą te same. Dodaję przykładowy plik w którym chciałbym usunąć kolumny o nazwie "warunek" i "licznik". Myślałem o takim kodzie ale może można zrobić coś prostszego? Nie za bardzo też wiem jak poprawnie tym sposobem...
Cześć Potrzebuje pomocy przy zrobieniu makra, nie wiem jaki zrobić warunek przy usuwaniu filtrowania. Powiedzmy, że w jednym szablonie mam kilka kolumn do których mam już zrobione marka z moimi przeliczeniami i dodanym filtrem. Chciałbym, aby przed zrobieniem mojego makra był coś w stylu: Jeżeli jest zafiltrowana kolumna, to usuwa zafiltrowane kolumny...
Makro super tylko w tym przypadku zostawiło mi tylko kwoty z "5.00". Usuwa tylko w przypadku, gdy: 2. W kolumnie A nie ma kwoty "5.00" Jeśli w kolumnie A jest kwota 5.00 to pozostawi nietknięty wiersz niezależnie od całej reszty. Jeśli ma być inaczej to musisz lekko przeredagować warunki. Załóżmy, że sa możliwe 4 sytuacje. 1) kwota inna niż 5.00 oraz...
W załączonym pliku możesz dodawać i usuwać kolumny (wyłączając kolumny 'czynnik1' i 'czynnik2'), a makro będzie poprawnie liczyć.
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...
No to jak w końcu wygląda to w realu? Bo makro "samo" sobie znajdzie, jeśli będzie "wiedziało" czego szukać. Jak nie będzie danych w kolumnie A, to należy wskazać o którą kolumnę chodzi.
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]
Wynik w formacie programu Excel?
Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
niech kopiuje tylko kolumnę D i E. bo to co jest w kolumnie D i E bedzie usuwane :)
W kolumnie D nie widzę w ogóle Z. Po analizie jak to działa stwierdzam, że: 1) Chciałem usuwać te pliki hurtem, żeby było szybciej, ale okazuje się, że to za dużo i jednym poleceniem odwołującym się do tablicy z nazwami tego się nie da zrobić. Widocznie jest jakieś ograniczenie, którego nie znam. Wobec tego trzeba usuwać pojedynczo. Dopisałem nową procedurę...
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
To jeszcze wymaga doprecyzowania. Co jeżeli w kolumnie F jest pusto a w E coś jest, albo odwrotnie? Może chodzi ci o usuwanie całych wierszy? Niezależnie od odpowiedzi użyj metody Delete. W pierwszym przypadku z obiektu Range z odpowiednią do potrzeb wartością Shift, w drugim Rows. Obiekt powinien wskazywać właściwy element do usunięcia. Zalecane jest...
Ja tylko zasugeruje że najlepiej by było wszystkie kolumny połaczyć i wtedy usuwać duplikat. Czyli jak dobrze rozumuje: test.Add lista(i, 1) & lista(i, 2) & lista(i, 3) & lista(i, 4), CStr(lista(i, 1)) & CStr(lista(i, 2)) & CStr(lista(i, 3)) & CStr(lista(i, 4))...
Hej porztrzebuje stworzyc dwa makra pierwsze zaznaczające wszystkie pola wyboru w kolumnie A (w każdym polu żeby był ptaszek) a drugie usuwające wszystkie zaznaczenia z pól wyboru - prosiłbym o pomoc :)
Hmm, bez makra... Pewnie da się kilkoma tablicowymi, ale aż takim orłem w funkcjach nie jestem ;) W załączniku wynik kombinacji z arkuszem pomocniczym. Trochę tam jeszcze nieporządek z funkcjami. No i listy zepsułem - myślałem, że ta tabelka to wynikowa ma być. Listę grubości wpisałem "na sztywno", a materiał... może tak właśnie będzie dobrze (można...
A nie wystarczyło by nagrać makro, które kopiuje wszystkie te kolumny do jednej i usuwa duplikaty?:>
Witam Forumowiczów, mam problem z napisaniem makro, które może usuwać powtarzalne sekwencje w trzech kolumnach i jednocześnie zostawiając tę jedną sekwencję unikatową. Np. wygląda to tak, kolumny ABC i poziomo wiersze. Jeden raz się powtarza sekwencja 123, którą należy usunąć. 123 456 789 123 147 258 369 Proszę o pomoc.
Witam, czy ktoś byłby w stanie pomóc napisać makro, które wyszuka w kolumnie wszystkie komórki o określonej wartości z komórki B2 i usunie wiersze z tymi wartościami?
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Rozumiem że na google masz bana? ad 1. usuwa zbędne spacje ad 2. usuwa " OR " po ostatniej wartości.
Jest sposób, aby excel usuwał duplikaty, poza komórkami z rekordem "Użytkownik"? :cunning: :?: Wiele :please: - makro, formuły, kolumny pomocnicze, filtrowanie itd. Załącz przykładowy plik (z fikcyjnymi danymi ale z rzeczywistym układem) to będzie można coś zaproponować. :D
Och, aż tak skomplikowane toto nie jest ;) [syntax=vbscript]'przykład dla kopiowania w tym samym arkuszu z 1-szej do 11-tej Columns(11).ClearContents 'czyścimy dane w kolumnie docelowej Do While Cells(w, 1) <> "" temp = Split(Cells(w, 1), "||") For i = 0 To UBound(temp) If InStr(temp(i), "SAP") > 1 Then Cells(w, 11) = Cells(w, 11) & temp(i)...
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
Próbowałem w ten sposób to obejść, ale zawsze mam DEBUG na drugiej linii makra. Chyba, że zmienię błąd w komórkach na dowolne litery, cyfry itp. Wówczas makro działa jak powinno.
Generalnie na przyszłość, unikaj scaleń, bo z nimi dużo kłopotów. Ewentualnie stosuj scalenia na samym końcu, jak wszystkie dane i formuły są już w arkuszu. Tymczasem napisałem Ci makro, które usuwa scalenia z obszaru formuł, wstawia formuły do wszystkich komórek, a na końcu przywraca scalenia kopiując je z kolumny 'lp' z tabelki po lewej stronie. W...
Kolumny "M, N" obsluguja pierwsze makro cmb1 ktore sluzy do znalezienia osob ktore nie wykonaly zadnej tranzakcji w ciagu roku (na podstawie numeru karty klienta I daty z arkusza "Klient", a nastepnie usuwa te konta po czym wszystkie dane z kolumn "M,N" sa usuwane rowniez) Kolumny "P,Q,R" obsluguja drugie makro cmb2 ktore sluzy do utworzenia archiwum...
no nie właśnie musi być to zrobione makrem i usuwanie błędów i porównanie cen tak w excelu to ja też umiem
Makro działa, ale jest mały problem, gdyż mam jeszcze makro usuwające dane z kilku kolumn w tym kolumny L i jeśli na nie kliknę, to wyskakuje mi błąd i przenosi do tej linii: http://obrazki.elektroda.pl/8196404100_1... http://obrazki.elektroda.pl/5598693100_1...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Witam, potrzebuje napisać makro, które przeniesie wszystkie dane z wyjątkiem pierwszego wiersza do pliku CSV w tym samym katalogu. Kłopot w tym, że w niektórych komórkach mogą znajdować się średniki (;) co sprawia że obecne makro którego używam wydziela mi z takich komórek nową kolumnę w pliku CSV. Czy jest sposób by komórka zawierająca średnik nie...
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Witam. Szukam makra, do excela, które będzie przeszukiwało cały wiersz numer 1, w celu znalezienia wartości np.: MSISDN oraz KOD SPRZEDAWCY I kiedy znajdzie taki wpis - usunie całą kolumnę "MSISDN" oraz "KOD SPRZEDAWCY" wraz z wartościami i danymi, które znajdują się poniżej tej komórki. Dodam, że tych niepotrzebnych wartości jest około 11, a sama oryginalna...
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...
makro usuwać usuwać kolumna makro kolumna
sortowanie programów dekoder zapłon wyłącznik działa obrotomierz mazda
17mb97 telefunken tester rezonatorów kwarcowych
Sufit podwieszany płyta 30x60x25 cm - zastosowania i właściwości Dwukrotna wymiana kompresora w lodówce - czy mogę żądać wymiany sprzętu?
