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]
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...
[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]
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.
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...
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...
Witaj [syntax=vb]Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub[/syntax]
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
Dołącz przykladowy plik
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???)
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...
Witam serdecznie Na początku zaznaczam, że jestem na początku swojej drogi z makrami w Ecxcel'u. Potrzebuje napisać makro, które które automatycznie usunie z całego arkusza rekordy z opisem kolumn w środku pliku, tzn pozostawi nagłówek na początku, ale tylko jeden. Załóżmy dla bezpieczeństwa, że liczba rekordów pomiędzy nagłówkami nie jest stała. Dlatego...
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...
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...
Wynik w formacie programu Excel?
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 +...
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
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.
Wrzuć to makro, uzupełnimy...
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...
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Szczytem wygody dla pomagających byłoby, gdybyś załączył arkusz z przykładem zawierającym to makro
[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]
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?
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ć
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...
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...
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
niech kopiuje tylko kolumnę D i E. bo to co jest w kolumnie D i E bedzie usuwane :)
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...
Jeśli ktoś ma jakiś rozwiązanie chętnie wysłucham :) Ja mam takie copy - paste nagraj makro :)
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.
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
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....
Rozumiem że na google masz bana? ad 1. usuwa zbędne spacje ad 2. usuwa " OR " po ostatniej wartości.
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Do makra można przypisać skrót klawiaturowy, ale nie może to być ani "'" ani F9 tylko konstrukcja typu Ctrl+Shift+A Można też uruchamiać makro za pomocą przycisku lub przypisać je do kliknięcia w obraz lub kształt.
Witam, Bardzo proszę o pomoc, potrzebuję zrobić makro, które skopiuje z arkusza "wydruk" komórki z kolumny C (numer księgowy) i przeniesie je do arkusza "Zobowiązania" do kolumny F (numer księgowy), ale posegreguje wpisy zgodnie z kolumnami "numer faktury". W obu arkuszach są te same dane w wierszach ale w innej kolejności, w arkuszu wydruk nadawane...
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)...
A nie wystarczyło by nagrać makro, które kopiuje wszystkie te kolumny do jednej i usuwa duplikaty?:>
Tutaj masz usuwanie ostatnich znaków od końca lub znaków początkowych: http://office.microsoft.com/pl-pl/excel-... Rozdziel sobie na godziny i minuty osobno
Działa ale też nie do końca tak jak trzeba - nie przenosi szerokości komórek i formatowania warunkowego. Ale spox poradziłem sobie w inny sposób. Na bazie poprzedniej procedury nagrałem sobie makro, które usuwa zbędne wiersze i zmienia nazwę arkusz i pozamiatane. Jeszcze raz wielkie dzięki za pomoc.
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?
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą.
Spróbuj [syntax=vb]Sub Usundane() ' ' Usundane Makro ' Makro zarejestrowane 2012-05-22, autor XYZ ' If MsgBox("Czy na pewno chcesz usunąć dane osobowe z tej tabeli? Pamiętaj, że stracisz je bezpowrotnie!!!", vbOKCancel + vbCritical + vbDefaultButton2, "UWAGA! Usuwanie danych") = vbOK Then Range("C11:AC50").ClearContents End If End Sub[/syntax]
Po analizie Twojego nowego załącznika spróbuje coś podpowiedzieć więcej. Wprawdzie autor postu nie odpowiada na szczegółowe pytania - ale "słowo się rzekło - kobyłka u płota" :D Plik przeanalizowałem i wg mnie takie funkcjonalności jakie opisywał m4xon zależy mi żeby makro zawierało listę funduszy (kodów), które można powiększać o kolejne nowe lub...
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
Nie działa, siedzę godzinę, analizuję i nie wiem o co chodzi. Ścieżka dopasowana dobrze, makro uruchamia się (otwiera klas itd.) ale nie usuwa powtarzających się wierszy.
W przykładowym arkuszu: 1. Usuń "Przycisk 339" (jest wysoki na 1pkt.) Najprościej zaznacz widoczny przycisk i przesuwaj się tabulatorem. 2. Podmień makro, tu dobrze kombinujesz :) (porównaj sobie z tym co jest. Przyda się na przyszłość), ale trzeba szukać 4 elementów. [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count...
Jeśli masz Excel 2010 lub nowszego można to zrobić przez Power query bez makra
Do tego nie jest potrzebna znajomość VBA. Excel ma funkcję blokowania komórek - zaznaczamy komórki do zablokowania, blokujemy i włączamy ochronę arkusza. W momencie włączenia ochrony Excel zapyta o hasło. Trzeba sobie włączyć widoczność paska narzędzi "ochrona" Tak zgadzam się z tobą ale problem polega na tym że mam makro co usuwa filtry i nie działa.ono...
Masz literówkę, powinno być: "delete". Dla ukrywania nagraj sobie makro i podstaw, zamiast delete, polecenie nagrane przez rejestrator (ciąg po selection).
Proponuję po numerze działki, po komunikacie typu, np.: a) Dodawanie - "Wpisz nr działki poniżej której ma zostać dodany wiersz" b) Usuwanie - "Podaj nr wiersza, który ma zostać usunięty" Nr działki podawałbym przy każdej uprawie w jej obrębie, po co "dziurawe" dane ?
Np dla kolumn A:C On Error Resume Next 'nie zatrzymuje się na pustych i słowach For k = 1 To 3 For w = 1 To ActiveSheet.UsedRange.Rows.Count Cells(w, k) = Replace(Trim(Cells(w, k)), ".", "") * 1 Next Next Dla pewności dodałem usuwanie spacji gdyby się jakieś zaplątały...
trafiłeś idealnie dzięki a ja jeszcze gafę strzeliłem bo na samym początku żeby usuwało duplikaty z kolumny A, ale żeby i usunęło również te dane z kolumny B (usuwamy duplikaty np. A2 zostanie usunięte i B2) a potem dopiero to co napisałeś
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Staram się... OK, nagrałem sobie makro, usunąłem co niepotrzebne, dodałem co niezbędne i wyszło coś takiego Znalazłem taki kod ale nie wiem jak go pod siebie przerobić Nie mam pojęcia czy zakres dla procedury zdarzeniowej (określony argumentem: "Me.ListObjects("Lista1").Range.Columns(... ma u Ciebie zastosowanie, czy nie. Może bierzemy się za przerabianie...
Witam, Mam problem który może mi rozwiązać tylko makro, otrzymałem excel z danymi w którym mam w jednej kolumnie nazwy odbiorców w kolejnych dane sprzedażowe. Problem polega na tym że zawsze pierwszy wiersz dla danego odbiorcy jest sumą wszystkich pozostałych (taki wiersz sumujący sprzedaż dla danego klienta). Potrzebuje makro które automatycznie usunie...
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,...
Dzięki za pomoc!!!
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?...
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Powstały dwa programy w Excelu które obsługują magazyn
Witam, Mam problem z zadaniem na liczbę pozycyjną. Po usunięciu zawartości komórki ciąg zostaje przeliczony i następuje nadanie nowej numeracji. Naszym zadaniem jest taka modyfikacja formuły, aby pusta komórka znikała (czyli pozostałe komórki były podnoszone o jedną pozycję w górę). W internecie jest kilka rozwiązań, ale jest w nich wykorzystane makro,...
Właśnie przed chwilą dostałem odpowiedź z innego źródła. Poniższy kod rozwiązuje sprawę i usuwa wszystkie makra :) [syntax=vbscript]Sub DeleteAllMacros() 'Excel vba to delete all macros in new workbook. Dim otmp As Object With ActiveWorkbook.VBProject For Each otmp In .VBComponents If otmp.Type=100 Then otmp.CodeModule.DeleteLines 1, otmp.CodeModule.CountOfLines...
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
Swój problem rozwiązałem rejestratorem makr. Uruchamiamy Filtruj z zakładki Dane, i usuwamy zaznaczenie "Puste" Przechodzimy do drukowania, w którym zaznaczamy ilość kopii i czy mają być sortowane czy nie . I drukujemy. Usuwamy filtrowanie. Zatrzymujemy rejestrator makr. I mamy makro filtrowania i drukowania. Powodzenie tym, którzy rozwiązują ten problem....
Dziala :) wielkie dzieki za pomoc Dodano po 2 Jeszcze jedno pytanie :) Czy jest mozliwosc aby edytowac makro usuwajace wybrane wiersze aby usuwalo rowniez te same wiersze tylko w drugim arkuszu tego pliku tzn. teraz usuwa w aktualnie otwartym Arkuszu 1 i chcialbym zebym usuwalo jednoczesnie to samo w Arkuszu 2 i zeby nie przenosilo mnie do Arkusza 2
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...
Sub ZamienNaHiperlink() Dim komorka As Range Dim nazwaPliku As String Dim sciezka As String Set komorka = ActiveCell If IsEmpty(komorka.Value) Then MsgBox "Aktywna komórka jest pusta.", vbExclamation Exit Sub End If nazwaPliku = Trim(CStr(komorka.Value)) ' Buduje pełną ścieżkę z podwójnymi ukośnikami sciezka = "file:///D:\as\" & nazwaPliku &...
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...
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...
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]
Namotałeś. [syntax=vbscript]Sub CzyscDane2() d = Weekday(Date) If d = vbSaturday Or d = vbSunday Or Swieto(Date) Then MsgBox ("Mamy weekend! Dane usuną się tylko w dzień roboczy") Exit Sub End If i = MsgBox("Czy na pewno chcesz usunąć dane z tej tabeli? " & _ "Pamiętaj, że stracisz je bezpowrotnie!!!" _ , vbOKCancel + vbExclamation + vbDefaultButton2,...
Jakoś dziwnie to robisz ten 'plik główny.xls' w nim jest to makro? [syntax=vbscript]Sub usuwanie() Dim plik As Workbook Set plik = Workbooks(Sheets("dane").Range("W4").Val... plik.Close End Sub[/syntax]
super! dodałem i wszystko działa jak należy!! Miałem tylko problem z usuwaniem pustych wierszy... napisalem makro kasujące gdy jakieś pole jest puste... działa ale bardzo długo przelicza.... Poniżej makro: Sub Kasuj() For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).Delete shift:=x1Up End If Next End Sub...
Pomimo dość dziwacznego kodu, jak przystało na laika ;) makro działa... Linia[syntax=vb]Range(Selection, Selection.End(xlToRight)).Select[/syntax... zaznaczenie komórek wiersza do pierwszej "dziury" (Ctrl+Shift+strzałka w prawo) i stąd pozostające wartości. Proponuję małą przeróbkę (koniecznie przeanalizuj!) [syntax=vb]Private Sub cmbdeletpass_Click()...
Witam, Próbuję napisać makro do poniższej tabeli (numerom porządkowym przypisane są dwa wiersze), takie aby w momencie kiedy data wpisana przy danym numerze porządkowym jest o 30 dni starsza od daty aktualnej, automatycznie usuwało zawartość dwóch ostatnich komórek z danego rzędu (zaznaczone na zielono), niestety moje umiejętności pozwalają tylko na...
Witam! To mój pierwszy post w tej części forum. Natrafiłem na problem, znalazłem rozwiązanie, może komuś to się przyda. Zarejestrowałem proste makro, które w pierwszej części (tylko ta jest istotna) miało u dołu tabeli, ale przed wierszem podsumowania tworzyć dodatkowy wiersz będący kopią jednego z wierszy powyżej. Wydawało się, że sprawa jest prosta,...
Witam! Jeśli praca będzie sie powtarzała dość często to może wartałoby napisać krótkie makro: OD początku zaznaczenia DO końca zaznaczenia rób { Jeżeli wartość komórki z zaznaczonego przedziału jest mniejsza od 0 to ukryj wiersz w którym znajduje się niechciana komórka (Selection.EntireRow.Hidden = True) } Mógłbym coś napisać ale teraz naprawdę nie...
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...
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...
Prosiłem o plik Excela, a nie o obrazek. Pytałem, jak to ma działać? Czy to makro ma reagować każdorazowo jak zmieni się kolor (rozumiem, że sprawdzana ma być kolumna C), czy ma być wywoływane okresowo (np. przyciskiem) i ma sprawdzać całą kolumnę pod kątem pokolorowanych duplikatów? Czy może wystąpić taka sytuacja, że jakiś wpis ma już kolor i ten...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
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...
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...
Co chcę uzyskać 1.w arkuszy tabelk_b2 wypełniam dane poza polami zaznaczonymi na zółto 2.naciskam przycisk wstaw b2 3.wyskakuje okienko 4.wypełniam pola naciskam ok. wstawia wpisany text w arkusza b2 (pola na żólto w tej chwili) i jednocześnie po naciśnieciu ok copiuje(to jest makro) do arkusza naklejki. 5.analogicznie z wstaw F 6.jeszcze przycisk "usuń...
Zapewne to przykład jakiegoś większego projektu i widzę że masz trochę pojęcia o makrach (co prawda jak okroiłeś przykład to nie działa ono prawidłowo ... ale to juz o czymś świadczy) Więc np stwórz makro które przy dodawaniu kolumny w nazwą "Wynik" będzie zmieniać zdefiniowany obecnie zakres =SPT!$G$4:$G$1000 o nazwie "Wynik" na nowy zakres. Analogicznie...
Super! Makro działa tak jak sobie założyłem, okazuje się jednak że mam problem z analizą tak zebranych danych. Ładuje do 100 plików na raz każdy ma nawet kilkaset linijek i analiza jest utrudniona przez to że każdy jest w osobnym arkuszu, wcześniej tego nie przewidziałem... Co trzeba by przerobić żeby pliki txt ładowało wszystkie do jednego arkusza...
Czy masz pełen dostęp do tej sieci jako administrator, (czyli tworzenie, modyfikowanie,usuwanie itp) Nie, uprawnienia administratora mają tylko informatycy. Sprawdź sobie jeszcze tak nie używając makra, tylko manualnie czy możesz skopiować arkusz i wkleić za następnym. (włącz sobie jeszcze nagrywanie makr i zobacz czy zarejestruję tą operację) Mogę...
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...
Witam Potrzebuje pomocy przy napisaniu makra excel W kolumnie M mam 10 typów wartości liczbowych powtarzających się, pomieszanych. Chciał bym aby makro znalozło wiersze w kolumnie M zaierające wartości 1224, 1228 i 1232 Po czym usunęło całe wiersze, czyli wszystkie dane we wszystkich kolumnach w tym wierszu który zawiera te liczby. Ale tak było nie...
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Nie bardzo rozumiem, po co ta cała zabawa z zerami, zamianą na puste, usuwaniem komentarzy. Po co wyświetlać zera gdy brak danych? Po co w ogóle tworzyć te komentarze z zerami? Poza tym ostatnia część kodu (usuwanie komentarzy) w ogóle by nie zadziałała, bo komórki z komentarzami były puste, a funkcja End uwzględnia zawartość komórki, a nie komentarze....
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...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
usuwanie wierszy makro excel excel makro usuwanie wierszy excel makro usuwanie komórek
wentylator skraplacza latarka życia kwarc overtonowy
czujnik położenia wałka rozrządu objawy czujnik położenia wałka rozrządu objawy
Wyskakujące biegi szosowe w Ursus 1201 - przyczyny i rozwiązania Karta SIM działa w innym telefonie, ale nie w moim - co robić?