[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]
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.)
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...
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...
Ja również dziękuje.
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)
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?
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...
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...
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...
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!!!
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...
Wrzuć to makro, uzupełnimy...
dałem radę sam po kilku miesiącach
dawno to już powinno być w bazie danych
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...
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 :/
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]
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
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]
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.
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Jest to możliwe, sytuacji że po wprowadzeniu pracownika w zakresie "oblOblozenie", usuwa (Edycja zakresu "oblOblozenie" )?
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,...
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...
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.
Lepiej zrobić oddzielny arkusz dla danych tabeli przestawnej i ponownie skopiuj dane, które chcesz zamiast usuwania kolumn, które tabeli przestawnej pamięta się już w pamięci podręcznej
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...
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
Jeśli chodzi o proste usuwanie zduplikowanych danych: http://office.microsoft.com/pl-pl/excel/... Nieco trudniej będzie usunąć wiersze na podstawie powtórzeń w pojedynczej kolumnie.
jeżeli po wybraniu innej komórki przycisk listy znika, to jest to lista wartości. Usuwa się ją z menu Poprawność danych poprzez ustawienie poprawności danych w komórce na "Dowolna wartość" Chyba, że arkusz ma makra i formatka pole listy jest wywoływana z kodu.
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]
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...
Jeśli chodzi zabezpieczenie komórki przed edycją, to można to zrobić za pomocą poprawności danych, ale jest to bardzo niedoskonałe. Sposób polega na wyborze wariantu "niestandardowe" i wpisaniu w miejscu formuły FAŁSZ. W takim przypadku każda próba edycji komórki spowoduje komunikat ostrzegawczy. Niestety możliwe jest skasowanie zawartości komórki klawiszem...
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)...
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...
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ą...
NA przykładzie Excela 2003 (ale w nowszych też raczej zadziała) W pasku narzędzi "Formularze" wybieramy "Pole Kombi" We właściwościach pola kombi podajemy dwie rzeczy: - zakres wejściowy = lista z inicjałami. Mogą to być pola R3 do R8 w Twoim arkuszu - łącze danych = komórka, która będzie wyświetlać wybraną pozycję (ale będzie wyświetlać jej numer kolejny)...
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...
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ą...
Być może ktoś jest w stanie pomóc Rozumiem, że masz tajne dane i dlatego nie załączyłeś żadnego przykładowego pliku :cunning: Jeśli tak to proponuję otworzyć wyszukiwarkę elektrody, wpisać np. "vba kopiowanie danych" :idea: - i wybrać sobie najbliższe do Twoich założeń rozwiązanie :D
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
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
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]
Mam plik excel-a w którym są dwa arkusze. Musze usunąć całe wiersze z arkusza1 na podstawie arkusza2 W arkuszu 1 w kolumnie A są przykładowe dane. W arkuszu 2 też w kolumnie A jest zakres danych który musi być usunięty z arkusza1 (wyszukać, zaznaczyć cały wiersz i usunąć go z arkusza1). Jeśli w arkuszu 2 np. kolumna A26 jest 801262 to w arkuszu 1 w...
Zrobiłem coś takiego i dalej nic, a co gorsza nawet nie ma żadnego błędu a baza msql dalej nie posortowana. Proszę dodarcie coś mądrego co tu może być nie tak. Połączenie z bazą działa na 100% bo dodaję i usuwam rekordy Nie gorączkuj się, nie wiem jak sprostać Twojemu wyzwaniu dodania czegoś mądrego, ale szczerze mówiąc "problem" jest tak prozaiczny,...
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
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...
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?
Funkcja USUŃ.ZBĘDNE.ODSTĘPY usuwa tylko zwykłe spacje (o kodzie 32), tymczasem łączone dane mogą zawierać również tzw. twarde spacje (o kodzie 160), które nie są usuwane. Być może to jest ten przypadek. Trzeba sprawdzić na próbce danych, jakie są kody tych spacji.
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.
W kolumnach L,N,O,P masz "normalne" formuły, które odwołują się tylko do danych z bieżącego wiersza. Takie formuły można kopiować bez ingerencji w inne formuły. Excel nie ma problemu z ich kopiowaniem. Jeśli chodzi o formuły z kolumn A i C, to one zawierają odwołania do innych wierszy i przy wstawianiu wierszy (a także usuwaniu) Excel nie wie, do czego...
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,...
Jakoś nie ogarniam bo nieznam podstawowych założeń i proritetów jakie autor zakłada. Najlepiej narysować "drewko" które zawierać będzie w/g autora potrzebne bazy , z wyrysowanymi graficznie połączeniami pomiędzy czynnościami ,wprowadzania, usuwania, przenoszenia, zwrotów, reklamacji, nowych zamówień itp.
Czy poza myśleniem o tabeli przestawnej próbowałeś ja wykonać? Dlaczego to "nic nie daje"? Można stworzyć sobie szablon z pustym arkuszem o takim samym układzie na dane i tabelą przestawną z tych danych. Potem tylko kopiujesz dane z pliku do tego arkusza, odświeżasz tabelę przestawną która je sumuje, a zsumowane dane z powrotem możesz przekleić do pliku...
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...
Celem operacji jest "obróbka" w Excel-u pliku bazowego z większą ilością najczęściej używanych pozycji kosztorysowych, następnie zapisywanie tego pliku (po wprowadzonych zmianach) właśnie jako Dane XML i otwieranie w Zuzi. "Obróbka" polegałaby głównie na usuwaniu zbędnych pozycji i pozostawianiu tych potrzebnych. A dlatego w Excelu chciałbym to robić,...
produkcję 20sto osobową ogarniam z pozycji wielopoziomowego excela, którego też sam stworzyłem, działa świetnie, pracownicy nie mają problemów z obsługą, ja nie mam problemów z nadzorowaniem produkcji i terminowością, ale nastał czas na optymalizację magazynu, o czym również wspomniałem wcześniej ma to być proste i funkcjonalne... No więc, obsługa...
Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...
Zasugeruję znowu rozwiązanie Access'owe. Raport okresowy, generowany na podstawie danych z formularza. Wybór daty od-do lub ostatni tydzień lub od początku miesiąca, tygodnia, itp. Dałbym możliwość wyboru asortymentu. Domyślnie cały, ale gdybyś chciał sprawdzić ile wynosi sprzedaż tylko Np towaru o kodzie P11, powinna być taka możliwość. Nie widzę potrzeby...
https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article...
Problem może i prosty, ale niekoniecznie dla kogoś zupełnie zielonego w temacie baz danych... :) Access to baza danych, a z bazą danych pracuje się zupełnie inaczej, niż z arkuszami w VBA. Nie masz tam arkuszy, tylko tabele. Tabele składają się z kolumn i wierszy, zwanych też rekordami. Kolumna musi być danego typu - może przechowywać tylko np. wartości...
Witam, Mam następujący problem. Muszę eksportować dane z pliku zamieszczonego poniżej do arkusza Excel. Wymóg jest taki żeby w pierwszej kolumnie znajdowało się 8 znaków łącznie ze spacjami, kolejne kolumny to już dowolny ciąg liczb. I tak dla komórki A1 powinno być [_ _ _ _ _ _ 25] - 8 znaków łącznie ze spacjami (znak _ oznacza spacje a nawias kwadratowy...
Tu masz ciastko[syntax=vb]Sub popraw_nazwe() Dim nazw As Range Set nazw = Sheets("baza").Range("A:B") With Sheets("tabela") For r = 2 To Application.CountA(.Range("A:A")) zla = .Cells(r, "A") If Application.CountIf(nazw, zla) = 0 Then dobra = InputBox(zla & " nie zostal odnaleziony" _ & vbCr & " w bazie danych", "Wpisz odpowiednia wartosc", "USD") r...
MAGJA123 , nie wysiliłeś się na ten przykład. W zasadzie on niewiele wyjaśnia. Istotne jest czy dane, które chcesz usunąć występują po tych, które chcesz pozostawić czy nie zawsze. Jeśli nie zawsze, to dane trzeba najpierw posortować tak, żeby dane które mają zostać były pierwsze. Powinno wystarczyć zwykłe sortowanie, bo ono pozostawia puste komórki...
Dobry wieczór, Do tego trzeba zaangażować Visual Basic, bo w samym Excelu są ograniczone możliwości sterowania treścią komentarzy. W załączniku jest propozycja rozwiązania, ale musi Pan ją zaadaptować do swoich potrzeb. Jeśli danych jest dużo trzeba zastanowić się nad optymalizacją, bo działanie może być powolne. Podstawą rozwiązania jest procedura...
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",...
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...
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
Zakładając, że kody są unikatowe, dlaczego powielać? Ponieważ towary się powtarzają w wierszach, różniąc się ceną produktu. Czyli dla jednego kodu mogą być różne ceny w tym samym arkuszu. Autorka ma porównać towary z cenami ale nie określiła czy z jedną cena czy z wszystkimi cenami na dany produkt. Skasowanie dubli jedynie po kodzie towarów może usunąć...
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...
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...
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....
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...
Teoretycznie można coś tam w zdarzeniu Worksheet_Change pokombinować, ale w praktyce to raczej trudne do zrealizowania - zawsze można wyłączyć makra albo usunąć cały arkusz. Najlepiej w takim wypadku zablokować plik i jego strukturę i przygotować go tak, żeby użytkownik mógł wykonywać tylko dopuszczone akcje, np. wprowadzać dane tylko w wyznaczone pola...
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...
Nie będę ukrywał - za trudne jak na mój poziom w tej kwestii. Dziękuję za pomoc bo to znaczącą przyczynia się do zwiększania wiedzy, która ciągle jest mała. A co trzeba jeszcze zmienić w pliku oprócz usunięcia kodu:[syntax=vbscript] If Range("A6") <> "" Then Range("A6:L" & wsWyn.UsedRange.Rows.Count).ClearContent... 'usuwamy stare dane [/syntax]...
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...
czy jest to realne, żeby Excel obrobił takie dane w ten sposób. W mojej ocenie nie powinno być żadnego problemu w przygotowaniu odpowiedniego makra importu np z wykorzystaniem wyrażeń regularnych :-) W załączeniu plik z przykładowym makrem RegEx do usuwania znaków "nieliczbowych" W zależności od wersji Twojego Excela można zapewne wykorzystać tu zapytania...
Niepokoją mnie takie teksty "Stale się rozrasta w dół". A jak dojdzie do końca arkusza to co? Kupimy nową wersję Excela? Czy rzeczywiście takie są potrzeby? Czy nie warto już teraz pomyśleć o jakiejś retencji/archiwizacji? Praktyka pokazuje (wejście RODO) jak trudne to zadanie gdy już nazbiera się dużo danych przy braku polityki retencji. Ludzie się...
Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 zaw_pliku = Input$(LOF(1), #1) Close #1 [/syntax] lub [syntax=vba]...
... po dodaniu tego kod zaczyna bardzo długo pracować ... Nie obserwuję tego na "prostych" danych, ale spróbuj może w ten sposób: [syntax=vbscript]Option Explicit Sub Czysc_Wszystko_2() Dim czas As Single: czas = Timer If MsgBox("Wyczyścić wszystkie formularze 'Dniówek'?", vbQuestion + vbYesNo, "Potwierdź") = vbNo Then Exit Sub Dim i As Integer, w...
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...
Moje rozwiązanie: Zaimportuj wszystko do jednej tabeli - dodając dodatkową kolumnę - numer/nazwa tabeli czyli byłoby takie kolumny rok , mc, dzien, godzina, wartosc, numer_lub_nazwa_tabeli Oczywiście wtedy wiersze (jeśli chodzi o date/godzine) powtarzały by się , ale różniły by się conajmniej numerem tabeli oraz (ale niekoniecznie) wartością. Potem...
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.
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...
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...
Jedno to pomysł jak ma taka baza wyglądać, w czym ma być wykonana. Drugie to pozyskanie danych i uzupełnienie nimi bazy. Jeśli nigdy czegoś takiego nie robiłeś no to masz pewien problem. Excel - z danymi to jakaś tam baza jest, potem może posłużyć do uzupełnienia innego systemu bazodanowego danymi z niego pozyskanymi. Jeśli to ma być baza z interfejsem...
A pisałem że to jeszcze nie koniec. :) Co do zmian pozycji magazynowych to nie do końca przekonany jestem czy da się to prosto przełożyć. O ile z edycją i zmianą nie powinno być kłopotu o tyle z usunięciem nie do końca. W Ankiecie by lista była "ładna" wykorzystuje sortowanie więc usuwanie zrealizowałem właściwie tak samo jak wprowadzenie zmian, tylko...
Witam, pierwszy raz piszę na forum i proszę o wyrozumiałość. Proszę o pomoc w dwóch problemach. 1. Chciałbym w excel ponumerować wiersze takim ciągiem 11112222333344445555 itd. ale liczba dla kolejnej komórki w kolumnie nie ma się powtarzać tylko 4 razy ale aż 32. Chciałbym tak wypełnić arkusz składający się z co najmniej 50tyś. wierszy. W jaki najprostszy...
Ten kod teraz usuwa wszystko nawet zakres :/
Hej, Twój arkusz działa idealnie, a mimo że przekopiowałem go 1:1, z wyjątkiem zakresów danych no i nazw poszczególnych arkuszy, to mój nie działa jak powinien. Problem robi najprawdopodobniej formuła : =JEŻELI.BŁĄD(INDEKS(Arkusz1!$C$3... Która u mnie...
Witam, Jak stworzyć rozwijalną listę, w której zamiast danych będą do wyboru kolory. W kolumnie E jest 5 przykładowych kolorów, którymi chciałbym oznaczyć litery w kolumnie C za pomocą rozwijalnej listy, bez usuwania danych w tych komórkach. Po prostu lista zmienia tło komórki. Ktoś zna rozwiązanie tego problemu? https://obrazki.elektroda.pl/6082193700_...
Postanowiłem rozbudować Arkusz dodając filtrowanie Arkusz o nazwie " Filtrowanie" - filtruje zezwolenia z arkusza Awizacje. Od B3:K3 są zaprogramowane tytuły gdzie po ich kliknięciu można filtrować dane od A do ze lub odwrotnie. od B4:K4 są zrobione komórki do wyszukiwania nazw w danej kolumnie która je filetuje zgodnie z podaną nazwa. W ten sposób...
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...
Dzień dobry wszystkim forumowiczom. Bardzo proszę o pomoc z prostym ale przerastającym moje (mam nadzieję, że niedługo) możliwości dotyczące tworzenie makr w VBA. W załączniku tabela, której dotyczy problem. Chciałbym, aby z tabeli pierwszej, której pozycje zaczynają się w komórce C8 do C14 i tutaj mogą być dodawane ręcznie pozycje. Np może być, że...
Dzięki za odpowiedź. Twój opis jest najszybszy ale stały nie zmienia się w raz ze zmianą danych w tabelach i nie uwzględnia listy jednokrotnego wyboru ale może wprowadziłem Ciebie w błąd źle opisując mój problem. Wyjaśnię go bardziej dokładnie: Lista rozwijana bez powtórzeń (jednokrotnego wyboru) – Każdą pozycję na liście mogę wybrać tylko jednokrotnie...
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,...
Jest jeszcze inny sposób, ale przykład niejasny, nie bardzo wiadomo ile tych danych będzie i która wersja Excela. Idea jest taka: 1) umieścić w komórce w kolumnie B odwołanie do zakresu z kolumny A, np. [syntax=text]=A1:A11[/syntax] 2) nacisnąć klawisz F9, żeby zamienić odwołanie na stałą tablicową. Otrzymamy wynik w postaci [syntax=text]={liczba;liczba;...}...
excel usuwanie usuwanie excel usuwanie danych dysku
cordoba pompa paliwa blokada klawiatury panasonic schematy laptopów poszukiwane
Czerwony kwadracik z kłódką w pralce Samsung WW8NK6 Powland 60A MPPT - Opis i Funkcje Regulatora Ładowania