[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]
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...
Na stronie https://support.microsoft.com/pl-pl/help... masz przykład makra uruchamiającego się po edycji komórki Do tego dodaj tylko sprawdzanie wartości aktualnej komórki oraz zerowanie pozostałych (Cells(ActiveCell.Row, "B").ClearContents, itd.)
Mam pytanie dotyczące Excela. Na ten problem natknąłem się na teście umiejętności z excela starając się o pracę i chciałbym wiedzieć na przyszłość. Dokładnie nie pamiętam zadania ale chodziło o coś takiego: W arkuszu 1 była spora tabela z kolumnami: ID, odział, przychody, zysk etc. W arkuszu 2 było w jednej kolumnie kilkanaście numerów ID. W zadaniu...
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
Ta formuła wyszła dość ciężka, może ktoś wymyśli jakieś uproszczenie. Przez wprowadzenie nazw można by było skrócić zapis, ale czas przeliczania się nie zmieni. W bloku dotyczącym dnia 27.04.2020 formuły zawierają odwołania do danych z kolumny F. Te formuły można kopiować w ramach tego bloku. Gdyby chcieć utworzyć z tego nowy blok, należałoby jedną...
czy jest możliwość wklepywania danych w arkusz 1 ,a zbieranie danych w arkuszu 2 Nie. W ten sposób to tylko przy zastosowaniu formularza. Pracy na 1-2 godzinki i potem jeszcze kilka (dni) na testowanie, korekty i usuwanie błędów. Ale tak nawiasem pisząc: W czym różnica? Wybierasz nazwisko, dusisz guzik i możesz pracować. Jeżeli chcesz podejrzeć cały...
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...
Zakładam, że Jan Kowalski to ta sama osoba, ale dane mogą pochodzić z różnych okresów (tutaj to nie ma znaczenia aż takiego). Mi chodzi o to, aby dane nie zostały utracone, tzn. w jednym wierszu Jan Kowalski ma podane stanowisko a w drugim już nie ma, zatem usuwając jeden wiersz tracę pewne informacje, a ta funkcja usuń duplikaty nie scali wierszy w...
dałem radę sam po kilku miesiącach
dawno to już powinno być w bazie danych
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Witam, mam problem, a mianowicie chciałem stworzyć funkcje która pozwoliła by mi dodawać wartości wprowadzone w arkuszu ' zestawienie miesięczne' do innych arkuszy ' zestawienie roczne' z podziałem na hurtownie bez usuwanie wcześniej już wprowadzonych danych. Tu pojawił sie duży problem gdy zmienię datę w 1 arkuszu usuwa dane w arkuszach ' zestawienie...
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
wszystkie do jednego arkusza o nazwie np.DANE Co ma być z pobranych danych przed? żeby każda liczba miała 3 miejsca po przecinku Ponieważ arkusz jest jedna i ta sama(DANE). format odpowiednych kolumn raz ręcznie. Dodano po 14 Jak ustawić żeby liczby zawsze były wyświetlane bez minusów? Wyświetlane bez minusów lub zapisane w arkuszy VBA Excel ma wiele...
Niestety nie mam pojęcia o pisaniu w VBA i jedyne co mogę dostosować w Twoim boskim kodzie, to go brzydko nie mówiąc, zepsuć :) Myślałem, coś jak usuwanie z lewej, ale nie mogę sobie poradzić z formułą na usuwanie z prawej :/
Można spróbować wykorzystać do tego Power Query (od Excela 2010): [url=https://support.office.com/pl-pl/ar... danych z wielu źródeł danych
Mam bardzo dużą ilość danych liczbowych (ponad 3mln wierszy). Czy jest sposób na to, żeby: 1. Excel wczytywał sobie tylko na przykład co dziesiąty, setny, czy n-ty wiersz? 2. W notatniku usunąć na przykład co drugi wiersz.
Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę Do realizacji takich zadań możesz wykorzystać albo metodę filtrowania (jeśli da się wyciąć nagłówki i stopki :cry: ), albo metodę wyrażeń regularnych :idea: vide: https://www.elektroda.pl/rtvforum/viewto... Wszystko zależy od struktury tych danych...
Dalej nie do końca jasne. Z tego, co Pani napisała rozumiem, że lista będzie tworzona każdego dnia od początku, czyli nie chodzi o usuwanie pojedynczych pozycji z listy, tylko całej listy. Wydaje mi się, że ta lista zachowuje się prawidłowo po usunięciu wszystkich pozycji, kłopoty są tylko gdy Pani będzie chciała usunąć coś ze środka listy, pozostawiając...
Spróbuje wyjasnic jeszcze raz o co mi chodzi. Dodaje dwa pliki z excela(jeden z makrem drugi bez). Mam dużo większą ilość danych niż w przykladowych plikach i większy rozrzut wartości zakończonych gwiazdką(*). Potrzebuje pozbyć się gwiazdek do czego stworzyłem proste makro. Po jego wykonaniu gwiazdki znikają, lecz formatowanie tych komórek pozostaje...
Nie jest to tak bardzo zakręcone ;) poniżej wstawiłem wycinek danych które mam, chodzi mi o to bym mógł arkusz nr 1 uzupełnić danymi z arkusza 2. Problem jest w tym że pozycje nie pokrywają się w 100 % tylko około 70 %. Nie mogę wyszeregować alfabetycznie i uzupełnić bo jak wspomniałem dane się nie pokrywają. Pozycji jest ponad 2000 więc ręczne wyszukiwanie...
Import obu tabel do Access, utworzenie kwerendy z relacja, 5 minut i masz gotowy wynik. Inna opcja to power query w samym Excelu także 5 minut plus jakieś 40 minut na poszukanie i zapoznanie z powyższymi propozycjami. Dzięki za podpowiedź, ale plik ma być również dla innych użytkowników, którzy będą sami importować do niego dane (i będą to użytkownicy...
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...
Jeszcze jeden pomysł mi przyszedł z rana :). Pozwoli na usuwanie wierszy z arkusza1 nie niszcząc odwołań i spełni twoje oczekiwania. Wykorzystaj funkcję Adres() i adr.pośr() W funkcji adres() tworzysz adres za pomocą liczb: ADRES(nr_wiersza ;nr_kolumny ;typ_adresu;a1;tekst_arkusz) A za pomocą ADR.POŚR(adres_tekst;a1) odwołasz się bezpośrednio do danych...
Jeżeli nie ma dużo wierszy (problemy z wydajnością), to sprawdzi się to prościutkie rozwiązanie, podpięte np. do procedury Workbook_open: Private Sub Workbook_Open() On Error GoTo myErr Set wslista = ThisWorkbook.Worksheets("LISTA&... Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error Resume...
Witam po przerwie, czas definitywnie zamknąć temat. Trochę czasu potrzebowałem na to aby zgłębić tajniki VBA i dokończyć mój pomysł na "tip top". Dzięki pomocy Marka i kol. PRL połknąłem bakcyla i się trochę podszkoliłem. Dopieściłem trochę kod wyjściowy aby tabelki końcowe ładnie wyglądały i aby dodać paski danych żeby zobrazować postęp wykonania....
Witam, Czy istnieje jakiś sposób na usunięcie serii wersów w jednakowych odstępach? Poniżej jest część kodu z excela: 3 kolumny i ok 7000 wersów. Chciałbym zrobić z tego wykres z jedną osią X i dwoma osiami Y (wiem jak to zrobić :) ) po obu stronach wykresu. Ale problem pojawia sie z tak dużą ilością danych i za każdym razem, kiedy próbuje wykonać drugą...
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
Usuń: [syntax=vb]Cells.Select Selection.ClearContents[/syntax] i zmień [syntax=vb]y = 2[/syntax] na [syntax=vb]y = Worksheets("Scanlijst22").Range("E" & Rows.Count).End(xlUp).Row + 1[/syntax]
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
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...
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]
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
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?
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...
Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka i Wieczorek :cunning: :?: Przydałaby się legenda do tych tabel kodowych :D - bo nie wiem jak to rozumieć, że pracownik A7 129 z lokalizacji Bogdanka pracuje w pewnym okresie w Wieliczce, ten sam pracownik z lokalizacji Wieliczka jest na L4 , oraz...
Użyj funkcji ADR.POŚR np. [syntax=text]=ILE.NIEPUSTYCH(ADR.POŚR("C... Funkcja ADR.POŚR ma argument tekstowy, więc nie podlega on modyfikacji. Koniec zakresu może być adresem zwykłym, jeśli chcemy, by nadążał za dodawaniem/usuwaniem wierszy. Zasadą jest ilustracja problemu załącznikiem z układem danych!!!
Dobry wieczór, Proszę sprawdzić, czy o to chodziło. Procedura reaguje na wpisanie małego "x" w kolumnie L. Zarówno skasowanie tego wpisu, jak i wpisanie tam czegokolwiek innego usuwa datę i przekreślenie. Pozdrowienia.
Musisz utworzyć plik Excela, w którym będziesz odnotowywał numery wszystkich rachunków wystawionych w Wordzie :idea: :D A potem możesz sobie zestawić dane i ustalić ostatni numer wystawionych rachunków np. tak jak na zrzucie :spoko: 1073332
Tu dodałem jeszcze usuwanie wiersza z pewnymi zabezpieczeniami edit: Teraz mi przyszło że zamiast przycisku edytuj kod z pod tego przycisku można umieścić na podwójnym kliknieciu w listbox (na danym wierszu) wtedy dane się zczytają do okienek edycyjnych. Podmieniłem załącznik
Wrzuć to makro, uzupełnimy...
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
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]
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.
Plik *.RAR ląduje na poczcie e-mail. Muszę go zapisać na dysku, rozpakować (plik *.CSV) - otworzyć plik, przerobić dane (formatowanie, usuwanie niepotrzebnych kolumn) zapisać jako *.CSV - o odpowiednim kodowaniu i zapisać na dysku FTP. Jeśli korzystasz z poczty przez outlooka to wszystkie te rzeczy, można nawet w excel vba zrobić.
Niżej masz przykład zastosowania formuły o której pisałem. W kolumnie czwartej skopiowałem kolumnę trzecią ale poprzez (prawy klawisz myszy) "wklej specjalnie" - wartości. Nie sortowałem jeszcze danych ale w "moim" przypadku powinienem zaznaczyć wszystkie dane i wybrać z menu "Dane" - Sortuj... ustawić wg czwartej kolumny czyli "D". Po czymś takim ustawią...
To, co rzuca się w oczy i to bez okularów oraz zaglądania do załączników ;) Brakuje precyzyjnych odwołań. Np [syntax=vbscript]'usuwa puste wiersze ow = ThisWorkbook.Sheets("OdczytaneDyski").Ce... "A").End(xlUp).Row For c = ow To 1 Step -1 If Cells(c, 1) = "" Or Left(Cells(c, 1), 3) = "Cap" Then Rows(c).Delete Next [/syntax]i nie wiadomo,...
excel usuwanie usuwanie excel usuwanie danych dysku
option table samsung termet komin centralny zamek niedziała pilot
moduł inteligentnego odłączona klema
Wymiana bezpiecznika termicznego w ekspresie do kawy Skoda Octavia R 2020 - Niedziałające Klucze
