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. Mam pytanie o możliwość usunięcia całego wiersza klikając na klawiaturę. Chodzi mi dokładnie o taką funkcję VBA: jak zaznaczę jakąś komórkę, np. "I3" w arkuszu to po kliknięciu na przycisk "Delete" na klawiaturze spowodowałoby usunięcie całego wiersza "3". Czy jest taka możliwość?
Wpisywałeś w google "excel usuwanie pustych wierszy" ? :) Zresztą to co zaproponował adamas_nt robi dokładnie to, co chcesz.
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
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.
Witam W załączniku excel. Mam pytanie jak usunąć duplikaty wierszy jednocześnie przenosząc dane. Chodzi o to, że mam dwa wiersze postaci: 1Nazwa 1Adres 1s1tak 1Nazwa 1Adres 1s1 tak a chce uzyskać: 1Nazwa 1Adres 1s1taktak Potrafię usuwać samu duplikaty jeśli wiersze są takie same. Pytanie jak usunąć i przenieść dane z takiego duplikatu.
Niestety w Accesie pracowałam ostatnio w czasach liceum i niewiele na ten temat pamiętam... To się robi z głównego menu, dosłownie kilka intuicyjnych kroków. Jest Internet, kursy na Youtube - wpisz tylko: access import excel file i swójnumer wersji accesa. a jeśli chodzi o funkcję WYSZUKAJ.PIONOWO, to nie usunie mi ona wierszy, które nie występują...
Witam, Jestem początkujący i potrzebuje pomocy. Chciałbym ukryć puste wiersze za pomocą VBA. Znalazłem taki kod ale do usuwania, próbowałem go przerobić ale mi nie wychodzi. Bardzo proszę o pomoc. [syntax=vb]Sub usuwanie_pustych_wierszy() For i = Cells(65536, "A").End(xlUp).Row To 2 Step -1 If Cells(i, "B").Value = "" Then Rows(i).delate shift:=xlUp...
Witam serdecznie wszystkich, Chciałbym was uprzejmie prosić o pomoc w stworzeniu następującego makra. Jeżeli scalona komórka (składająca się z kolumn D:I) zawiera tekst "brak" to Macro usuwa ten wiersz oraz 2 wiersze powyżej i 11 wierszy poniżej. Z tym, że: - słowo "brak" jest wynikiem wpisanej formuły (nie wiem czy to ma znaczenie). W załączniku przykładowy...
Ale do tego nie trzeba makra. Jest przecież narzędzie Znajdź z opcją Znajdź wszystko (w opcjach zaznaczyć wartości). Po znalezieniu wszystkiego na dole okienka będzie lista znalezionych komórek. Można je zaznaczyć wszystkie z Shiftem lub pojedynczo z Ctrl i jak już są zaznaczone, zamknąć okno wyszukiwania i nacisnąć klawisz Delete. Wszystkie zaznaczone...
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.
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...
Cześć, Wykorzystałem poniższy działający kod makro z Excela, ale potrzebuje go przenieść do makra w Google Docs, App Script. W skrócie skrypt porównuje kolumnę F w arkuszu Zamowienia z kolumną A w arkuszu Urzadzenia . Jeśli wystąpi w tych kolumnach ten sam numer to usuwa cały wiersz zawierający ten numer ale tylko w arkuszu Urzadzenia . [syntax=vb]Sub...
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...
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...
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...
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...
Witam Mam w załączniku arkusz exela z przyciskiem który usuwa puste wiersze w "Arkusz1" sugerując się kolumną "A". Jak mam zrobić żeby ten sam przycisk usuwał mi to samo tylko że w "Arkusz2". Bardzo proszę o pomoc
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...
Mam jeszcze jedno pytanie czy da się do makra które wklejam poniżej a służy do usuwania nieodfiltowanych wierszy, dodać opcje żeby usuwane wraz z nieodfiltrowanymi wierszami były też znajdujące się w tych komórkach grafiki? W każdej z tych grafik mam zaznaczoną opcję: "przenoś i zmieniaj rozmiar wraz z komórkami" ale nic to nie daje i grafiki, pomimo...
Witam. Mam do poprawienia i wydrukowania pewien arkusz excela. Dokument składa się oczywiście z wielu wierszy, niestety pewne wiersze są do pominięcia bądź trwałego usunięcia (wydruk arkusza na papierze nie ma zawierać tych wierszy, jak również nie mają one być sumowane). Wiersze które są do usunięcia zawierają komórkę z ujemną zawartością liczbową....
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...
Witam, ja mam nieco inny problem, mianowicie w obszarze arkusza o nazwie "LISTA" w ostatniej kolumnie "AO" wpisuję "X" jako pozycja zrealizowana. Chciałbym aby przy ponownym odświeżeniu pliku, bądź też otwarciu, wszystkie pozycje odznaczone w tej kolumnie "X" em były usunięte bez problemu dla funkcjonowania całej tabeli, która jest źródłem dla tabeli...
Mam problem z usunięciem danych z całego wiersza wskazując treść tylko jednej komórki z tego wiersza Np: w kolumnie "A" zaczynając od 3 wiersza są kolejno liczby od 1 do 1000 w "B" są numery (lecz nie kolejno) pięcio cyfrowe i w D jakieś informacje tekstowe. Chciałbym aby po wpisaniu numeru pięcio cyfrowego do komórki "D1" makro przeszukało Range ("B3:B1000")...
To nie idąc na łatwiznę, w ramach nauki, algorytm powinien wyglądać następująco: • ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E • w pętli przechodzisz poszczególne wiersze w kolumnie E porównując czy wartość w komórce jest zgodna z szukanym wzorcem np. "WSTRZYMANY" • jeżeli nie jest...
Witam. Proszę o podpowiedź, jak usunąć wiersz w listboxie. Próbuje poniższym kodem:[syntax=vb]Private Sub ListBox1_Click() Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex) End Sub[/syntax] Wiersz co prawda się usuwa, ale wyskakuje błąd.
Witam. Potrzebuję makro, które usunie mi cały wiersz z pliku na podstawie danych zawartych w innym pliku. Oto mały opis jak wygląda sytuacja: W pliku nr 1 mam trzy kolumny z danymi A, B, C. Potrzebuję, żeby makro na podstawie wartości z kolumny C przeszukiwało kolumnę C w pliku nr 2 i jeżeli danej wartości nie znajdzie, w pliku nr 2 kasowało wiersz...
Przepraszam, przez roztargnienie trochę namieszałem. Wartości muszą być takie same w kolumnach od "B" do "F" oraz "H" oraz "K". W kolumnie "A" jest liczba porządkowa (czyli nieważna w tym przypadku), a w kolumnie "G" - liczba sztuk na komplet, co w liście produkcyjnej jest również mało znaczące. Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich?...
Cześć, Poniżej napisałem kod odnośnie kasowania całego wiersza w Excelu za pomocą przycisku. Nie wiem dlaczego, ale wartości wprowadzone po przez user form do różnych komórek w wierszu pozostają w tych komórkach, mimo że kod powinien wyczyścić wszystkie komórki. Czy ktoś może mi napisać jak zmodyfikować ten kod, aby na pewno wyczyścił cały wiersz? [syntax=vb]Private...
Bo tu chyba nie chodzi o usuwanie wierszy. W E2010 wystarczy usunąć dane i ewentualne formatowanie z komórek oraz wcisnąć "zapisz" i "niepotrzebne" wiersze znikają.
OK, faktycznie działa. Skoro więc zarzucamy temat makra, i korzystamy z konsoli to jeszcze jedna sprawa: czy jest szansa żeby w składni polecenia łączącego pliki w całość zawrzeć warunek, który będzie pomijał ostatni wiersz każdego pliku CSV. W plikach źródłowych ostatni wiersz jest podsumowaniem, które nie jest mi potrzebne i które również trzeba ręcznie...
Witam, męczę się z jedną rzeczą w vba. Muszę przelecieć wszystkie wiersze ( od dołu ). W każdym wierszu kolejna pętla sprawdza każdą komórkę z warunkiem. Warunek jest taki, że jeśli w pętli napotka wiersz, w którym w żadnej komórce nie będzie koloru, to ma go usunąć. If cell.Interior.ColorIndex <> -4142 Then założyłem, że ma to być taki warunek....
Witam serdecznie. Potrzebuję prostego makra, które za jednym zamachem usunęłoby wiersze pod dwoma warunkami: Usuwa tylko w przypadku, gdy: 1. W kolumnie G w opisie nie ma słowa "invoice". Uprzedzam, że są tam też inne słowa i liczby 2. W kolumnie A nie ma kwoty "5.00" Niestety nie za bardzo wiem jak zaprzeczyć IF. Z góry dziękuję za pomoc.
Cześć, potrzebuję zablokować możliwość usuwania raz wpisanych wierszy i kolumn. Gdy używam opcję 'Chroń arkusz' z zaznaczeniem wszystkich opcji dla użytkownika poza 'usuwanie kolumn/wierszy' to blokuje mi możliwość jakiejkolwiek edycji którejkolwiek z komórek, czy to pustej czy z danymi. Wiem, że trzeba w opcji 'Formatuj komórki' w zakładce 'Ochrona"...
Moje skrypty są troche słabe, coś tam znalazłem w necie, troche poprzerabiałem i nawet działa, nie działa natomiast usuwanie wiersza jeżeli w kolumnie A mam coś takiego: "05-lut-2016 17:23 Start Template Page 3" z tego wszystkiego zawsze w zawartości stałe są Start, Template i Page, reszta oczywiście zmienia się według daty i numeru strony, sam wiersz...
Arkusz z danymi, ponad 100tys. wierszy, ponad 50 kolumn. Chodzi o pozbycie się duplikatów z zachowaniem unikatowych danych. Np. Robię dodatkową kolumnę poprzez połączenie imię, nazwisko, firma, szereguję A-Z następnie zaznaczam formatowanie warunkowe i oznaczam duplikaty, następnie filtruję po kolorze (co przy tej ilości danych pewnie potrwa którąś...
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.
Witam. Mój problem wygląda następująco: Dostaje plik excela w którym są dane z kilku plików pdf. Dane wyglądają następująco: Nagłówek - kilka linijek Dane - tabela numerowana od 1 do różnie czasem do 100 czasem ponad 1000 pozycji. Stopka - kilka linijek Nagłówek itd. Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę, natomiast...
Witam. Chciałbym za pomocą Visual Basic .Net przeszukać plik Excela i jeśli w kolumnie załóżmy od B2 do B200 będzie pusta komórka to, żeby za pomocą VB.Net skasować cały wiersz. Jest to możliwe???Proszę o pomoc Dodano po 20 Znalazłem coś takiego jak poniżej na zdjęciu tylko że napisane w VBA. Działą tak ja bym chciał czyli przeszukuje kolumnę B i jeśli...
Witam, poszukuję makra, które usunie wiersz jak znajdzie w nim w kolumnie P słowo "DELETE". Takich wierszy jest kilka. Z góry dzięki za pomoc. Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki (w dodatku archiwalne). RADU23
Jak w kodzie VBA zrobić procedurę usuwającą dane w dowolnym wierszu z kolumn C,D,E po wyczyszczeniu danych z komórki w kolumnie A ? Dla pojedyńczego wiersza działa taki kod Sub Makro1() Range("A2").Select Selection.ClearContents Range("B2:D2").Sel... Selection.ClearContents End Sub Jak zrobić to dla dowolnego...
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...
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
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,...
Hej, szukam podpowiedzi jak wykonać w tabeli excelowskiej pewną rzecz: - mam trzy kolumny: 1. numer faktury 2. przedmiot sprzedaży 3. firma kupująca; czyli dla danej faktury mogę mieć jeden wiersz - jeśli sprzedaż dotyczyła tylko jednego produktu, lub wiele wierszy, jeśli sprzedaż dotyczyła kilku produktów (wtedy w kolumnie 2 będą różne dane ale w kolumnach...
Cześć! Makra miałem na uczelni jakieś 5 lat temu, więc potrzebuję pomocy.. Chodzi o to, że w jednym arkuszu mam wypisane daty z opisem (A,B,C itd.), które potem makrem automatycznie uzupełniają się w tabeli "DO SKOPIOWANIA". W drugim arkuszu kopiuję ręcznie całą tabelkę z pierwszego arkusza i usuwam puste wiersze. Czy istnieje możliwość aby makra robiły...
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po wstawieniu konkretnego słowa nie działa próbowałem też...
Czy można je blokować do edycji po wpisaniu danych lub odblokować jeżeli zajdzie taka potrzeba. Z tym pierwszym to żaden problem, wystarczy wykorzystać zdarzenie Worksheet_Change . Natomiast jak chcesz zrealizować odblokowanie? CheckBox w każdym wierszu? Trochę proszenie się o kłopoty. Chyba, że wszyscy solennie przyrzekną: "Nie będę usuwał wierszy"....
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...
Dzięki wielkie. Imię dodaje tylko do pierwszego wiersza z danego skoroszytu. Ale najważniejsza jest prędkość. Zrobię testy i zaprezentuje wyniki:) Czas na wyniki testu:ść Ilość plików: 142 stare makro: 1. wczytywanie z formularzy: 35sek 2. Dodawanie: 1min 2sek Nowe makro: 1. wczytanie plus dodanie 20sek :D Podsumowanie: Podczas używania starego makra...
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ą.
witam, mam pewien problem, w kolumnie G mam podaną firmę, w kolumnie K model, w kolumnie I kolor - mało istotne, w kolumnie J - ilość sztuk chciałbym, żeby funkcja zliczała mi ilość sztuk produktu danej firmy i modelu, ignorując kolor, postawiając zapis jako jeden wiersz (usuwa wszystkie wiersze z kolorami) nie mam pomysłu na funkcję sumowania ilości...
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
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...
ponownie dziękuję za pomoc :) Mam jeszcze pytanie, czy korzystając ze sprawdzania poprawności danych jest jakiś sposób, żeby nie pozwalał zostawiać pustych pół. Chodzi o to, że jak inne komórki w wierszu są puste to komórka w kolumnie H też może być pusta, ale jeżeli inne komórki w wierszu są wypełnione, to komórka w kolumnie H nie może być pusta i...
Nie jestem pewny czy o to chodzi ale może jednak: [url=]Link]Link
Jest super, a powiedz mi jak zrobić taki samo makro "dodaj dodaj wiersz" tak aby na raz dokładało 5 wierszy Chciałbym dać jeszcze przycisk do usuwania wierszy jak doda się za dużo
Żebyśmy się zrozumieli. Nie wiele potrafię, to jest fakt niezaprzeczalny :) Poza tym makro czyszczące dane z bloku pierwszego jest celowo przypisane tylko do pierwszego bloku ponieważ: Tych bloków/tabel w praktyce będzie wiele.. 20, nawet 40. Czyszczenie każdego z nich byłoby karkołomnym. W rzeczywistości działa to tak: Wypełniam pierwszy blok danymi,...
Witam, Chciałbym ułatwić sobie pracę w excelu i wpadłem na pomysł aby stworzyć coś na wzór automatycznego wyszukiwania interesujących mnie pozycji i przenoszenie np do oddzielnego arkusza lub usuwanie zbędnych komórek. Co dokładnie robię ? Musze przygotowywać refaktury dla drugiej firmy tym samym muszę pobrać załącznik w excelu gdzie mam wszystkie pozycje...
Tabela przestawna - arkusz w załączeniu. ID jako wiersze. Dane jako wartości (maximum z) Oczywiście tabela będzie posortowana źle, bo po ID1 będzie ID10, a nie ID2 - ale tak to już jest z sortowaniem literko-cyferek.
Strasznie ogólnie zadane pytanie. Może być wiele sposobów ale by odpowiedzieć tak ogólnie to: Uzależnić początek drugiego zakresu od końca pierwszego zakresu. Np zamiast Range stosować Cells (Choć Range też można przecież parametryzować) Można używać Row i dodawać lub usuwać wiersze. Nie wiem tak do końca o co ci chodzi - musisz dokładniej opisać przypadek...
Otwórz oba pliki. W pliku1 użyj funkcji "PODAJ.POZYCJĘ" wskazując na odpowiednią kolumnę pliku2. Wszędzie gdzie funkcja zwróci wartość liczbową (różną od "#N/D") znaczy że tekst występuje w pliku2 i wiersz można usunąć.
Dziekuję bardzo za odpowiedź i W sumie to masz rację. Brakowało mi obiektywnego spojrzenia na ten cały bałagan. A gdyby to makro usuwało identyczne wiersze( wystepujące w obu arkuszach) z arkusza forecast, a zmiany ilości w danych datach zaznaczało na jakis kolor? a druga opcja- a gdyby wszystkie zmiany w odniesieniu do arkusza 2. kopiowało do trzeciego...
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....
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.
Wariant z blokowaniem zakresu komórek przy otwieraniu i zamykaniu zeszytu. 1. Na wszelki wypadek w procedurze 'Private Sub WorkSheet_Change(ByVal Target As Range)', w danym arkuszu, zmienić deklarację zmiennej z 'Dim i As Integer ' na 'Dim i As Long ' 2. W module 'ThisWorkbook' wkleić kod: 885619
Problem rozwiązany dodałam do kodu 3 Application.ScreenUpdating = True Set Skonsolidowany = Worksheets.Add() Plik = Dir(Folder & "*.xls") Do Until Len(Plik) = 0 Licznik = Licznik + 1 Application.StatusBar = "Konsolidacja pliku nr " & Licznik Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Sheets(1) iRows = Sheets(1).UsedRange.Rows.Count...
Nie pokazałeś w pliku przykładowym spodziewanego wyniku, ale mam nadzieję, że o to chodziło. W mojej propozycji makra wykorzystuję na zmianę formatowanie warunkowe i filtrowanie, a następnie usuwam wyfiltrowane wiersze, aby w końcu uzyskać efekt, o którym pisałeś. [syntax=vbnet]Sub Duplikaty() Application.ScreenUpdating = False Sheets("Arkusz1").Copy...
Witam. Mam następujący problem. Posiadam Excela 2007. W arkuszu mam pełno danych (wszystkie są w tabeli A) cały arkusz ma około 170 tyś wierszy z różnymi danymi. Potrzebuję pozbyć się wszystkich duplikatów, jednak nie mogę, ponieważ znaczną część danych jest po przecinku i Excel nie potrafi ich wykryć, a wygląda to tak: A2: dane1,dane2,dane3 A3: dane1,dane3...
Witam, W pracy wyciągam raport w Excelu zawierający 35 kolumn (A-AI) i zmienną liczbę wierszy. Stworzyłam plik w Excelu do analizy tych danych, tak więc jedna zakładka zawiera wklejone dane a kilka innych tabele i wykresy przestawne zrobione na ich podstawie. Ponieważ nie wszystkie kolumny z raportu są mi potrzebne, stworzyłam makro które: -usuwa duplikaty...
:D :D :D Wiem że autor jest już "zadowolony" ale Jako laik zapytam ... ja też za kolegą zapytam: jak zmusić excela do usunięcia zbędnych wierszy i kolumn by ich nie było wcale [zaznaczam że nie chcę ich ukrywać]. A że już nie jestem takim laikiem jak kolega walek33 :D to wiem, że istnieje coś takiego jak "obszar roboczy" który można zapisać [.xlw] ale...
Function zapas(tydz, wiersz) Application.Volatile 'Excel 2k7 'Application.Volatile = True 'Excel 2k 'trochę tu latania po arkuszu :) 'szukam wiersza zawierającego tekst wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row 'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka zKol = tydz - Range("C5")...
W Excelu nie ma sensu deklarować obiektu typu "Excel.Application". Wystarczy "Open". Próba nałożenia filtru na jeden wiersz zakończy się błędem, dlatego należałoby określić ostatni w tabeli. Pamiętaj o usuwaniu zmiennych obiektowych z pamięci. Spróbuj[syntax=vb]Private Sub CommandButton1_Click() Dim xl As Workbook Set xl = Workbooks.Open("C:\Documents...
W zakładce "Pracownicy" wkleiłem ten kod ale nic się nie dzieje Dodano po 16 A jeśli chodzi o formułę "=wiersz()" to on działa ale pokazuje aktualny wiersz w jakim znajduje się formuła i przeciągnięcie jej w dół pokazuje mi co drugą cyfrę bo komórki są spajane po dwie, a ja chcę żeby pokazało od cyfry 1 niezależnie w jaki wierszu znajduje się formuła...
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym przykładzie jest to Arkusz1 o nazwie Arkusz 1 i jak...
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...
Zastosowałem tą formułe do kolumny L, ale niestety z marnym skutkiem ;/ :?: Co to niby znaczy ? Formuła zmieniła sposób działania arkusza :D :?: Czy makro w ogóle nie ruszyło, czy tylko nie spełnia Twoich oczekiwań :?: Hej, przepraszam nie doprecyzowałem. Otóż w tej chwili poniższe makro wkleja wszystko tak jak oczekuję w pozostałe akrusze natomiast...
Powinno pomóc: Niestety nie pomaga. Komunikat pojawia się wtedy, gdy makro pobiera dane z pliku w którym jest trochę większa liczba wierszy. Nie wiem dokładnie jaka jest ta granica (załóżmy że 5 wierszy), ale jeśli plik zawiera jeden, dwa, lub trzy wiersze, wtedy komunikat się nie pojawia. Zawartość schowka to wszystkie dane z pliku z którego makro...
Hmm, spróbowałbym z jakimś arkuszem tymczasowym. Kopiujesz do niego tabelkę, sprawdzasz ile zostało wierszy do końca strony i jeśli wystarczająco, kopiujesz pod spód. I tak dalej aż ilość_wierszy_tabelki>pustych_w_arkuszu. Drukujesz tymczasowy i na końcu go usuwasz.
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...
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, niestety nie potrafię znaleźć jakiejś odpowiedzi. Potrzebuję podzielić jeden arkusz z kilkoma kolumnami i nagłówkiem na ileś tam plików wynikających z zadanego zakresu ilości wierszy. Może jaśniej - mam arkusz z 3000 wierszy i nagłówkiem. Jak napisać makro, aby stworzyło mi 15 plików z tym samym nagłówkiem i w każdym po 200 kolejnych wierszy...
Jakim kodem VBA zastąpić poniższe formuły ale tak aby formuły działały globalnie w całej kolumnie? Formuły są wstawione w komórkach kolumn 'K' do 'Q', zakresem wyszukanym są komórki z kolumny 'J' a zakres przeszukiwany jak w formule: Kolumna 'K': =JEŻELI(J6<>"";WYSZUKAJ.PIONOWO(J6... Kolumna 'L': =JEŻELI(J6<>"";WYSZUKAJ.PIONOWO(J6...
Witam serdecznie, mam problem dotyczący wklejania danych w postaci tekstu do Excela. Konkretnie, kiedy wklejam do Excela tekst skopiowany ze strony internetowej (kopiowane dane to opisy produktów) do konkretnej komórki odpowiadającej danemu produktowi, a w tekście są "twarde entery", każdy kolejny wiersz tekstu po takim enterze ląduje w następnej komórce...
Rozumiem to doskonale i naprawdę jestem wdzięczny za pomoc bo bardzo wciągnął mnie ten temat :) Do rzeczy. Grafik już ślicznie liczy godziny pracy, ma zdefiniowanych kilka grup pracowników i grupa przypisana do danego obiektu, wybrana w ark. "Sel" fajnie wyświetla się w głównym arkuszu. Teraz kłopot polega na tym, że listy pracowników mają różną długość,...
Te dane są eksportowane z programu, żadne sortowanie ani filtrowanie nie działa, dlatego jest problem. Zastosowałem metodę kopiowania samych wartości do nowego arkusza, a później w tym arkuszu usuwanie od dołu pustych wierszy. Nie jest to najszybsza metoda, ale nie znalazłem lepszego sposobu na to.
Nie napisałeś, z której kolumny ma usuwać. W przykładzie usuwa z kolumny "B". Jeśli ma być odwrotnie, to pozamieniaj w kodzie "A" z "B" lub wpisz swoje. Zakładam, że w kolumnach nie ma pustych wierszy. Próbuj na kopii... Sub UsunPowt() licznik = 0 For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row For j = 1 To Cells(Rows.Count,...
adamas_nt - niestety nadal nie działa sumowanie godzin w kolumnie I, po wpisaniu z palca godzin w kolumny H i J. Z tym, że nie chodzi mi o to podsumowanie łączne na samym dole, co załączyłeś na screenie, tylko sumowanie w oparciu o każdy wiersz przyporządkowany do kolumny I. Np. wpiszę z palca 8:00 w kolumnę H3, więc chciałbym, żeby mi się pojawiała...
Hej, chciałbym zmienić wiersz "Range("A66:N66" & i + 1).ListObject.ListRows.Add AlwaysInsert:=True" tak, aby zamiast A66:N66 podać nazwę nagłówka tabeli. Niestety nie mogę odwoływać się do konkretnych komórek ponieważ powyżej utworzonej tabeli użytkownik ma możliwość dodawania i usuwania wierszy. Private Sub CommandButton1_Click() Dim i As Integer i...
Nie rozumiem dlaczego chcesz uzależniać zakres formatowania ilością wypełnionych wierszy. Zwykle formatuje się maksymalny, przeznaczony do pracy obszar. Jeśli jednak się uprzeć [syntax=vb]'FORMATOWANIE WARUNKOWE Range("AB:AB").FormatConditions.Delete wrs = Cells(Rows.Count, "AB").End(xlUp).Row Range("AB3:AB" & wrs).FormatConditions.Add Type:=xlExpression,...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
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!!!
Sortować możesz wg kilku poziomów tak, żeby nie "gubić" rekordów. Nie napisałeś tylko co z wierszami, w których ilość jest zerowa (pusta). Dalej nie wiemy czy to oznacza, że produkcja trwała dwa dni (Rys.2 wiersz 2,3) czy to, że w danym dniu (wrs.3) nic nie wyprodukowano... Pozostaje pytanie: Chcesz scalać wiersze, usuwać te z pustą ilością, czy sortować...
Witam, Zwracam się z prośbą o pomoc w następującej sprawie, otóż potrzebuję usunąć dane, które znajdują się poza zakresem wydruku. Czy można to wykonać z poziomu Excela czy jest makro? Mam kilka arkuszy i chodzi o to aby nie zaznaczać kolumn i wierszy z poza zakresu wydruku i wówczas usuwać zbędne dane. Z góry dziękuję za pomoc
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Witajcie:) Przygotowałem narzędzie, które wykonuje takie kluczowe kroki (tworząc plik płaski): 1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako...
Dzięki temu, nie usuwając pliku a dopisując do niego wiersze można stworzyć swego rodzaju spis poszukiwanych pingów. Jedna sugestia z mojej strony. Opóźnienie należałoby dobierać doświadczalnie w zależności od osiągów sprzętowych. Czasami trwa to naprawdę długo. Dodane po chwili Działanie polecenia ping można przyspieszyć dodając po ping.exe "-n 1"....
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...