Hej, Jestem totalnym excelowym laikiem i pisze w zapewne większości prócz mnie banalnej sprawie. Temat klaruje się następująco: 1 plik to baza danych klientów która ma kilkadziesiąt tysięcy pozycji z kolumnami: Nazwa firmy/Kategoria/e-mail 2 plik to wylistowane kategorie na podstawie chciałbym usunąć wierze w pliku nr. 1 - po prostu zbędne pozycje Podsumowując:...
Ogólnie myślałem o tym aby komenda brzmiała mniej więcej tak: Sprawdź od a1 do a2000 jeśli zawiera dane z zakresu 1-1000 - ok Jeśli inne (null lub tekst) - del cały wiersz
Witam, Ja uzyl bym formatowania warunkowego, do tego moze formuly: LICZ.JEŻELI lub SUMA.JEŻELI z warunkiem "zakres komorek" >0 poz Olgierd
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!!!
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...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
: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...
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.
witam, mam dane liczbowe w 5 kolumnach (każda po 35 tys. wierszy). ponieważ wrzucając wszystko na wykres komputer strasznie zwalnia, najpierw chciałbym uśrednić każde 100 kolejnych wierszy i potem z tych uśrednionych wyników (350) narysować wykres. dodatkowo chciałbym uśrednić przebieg wykresu czyli przedstawić go w formie obwiedni sygnału. przykładowy...
Witam, jak mogę w załączonym skoroszycie określić (zawęzić) zakres ukrywania wierszy (np. od 1 wiersza do 500). W chwili obecnej "poruszając" się aktywną komórką w kolumnie A - działa idealnie, natomiast "poruszając" się w wierszu 2 - strasznie długo wykonuję zakrywanie ze względu na brak ograniczenia zakresu wierszy. Pozdrawiam: Keszybz
Witam Panowie Mam zakres danych w 8miu kolumnach po np. 40ci wierszy. Potrzebuję zrobić wykres z zakresu 4ta i 8ma kolumna od 13go do 22go wiersza (10 wierszy). Wszystko jest ok, do czasu aktualizacji zakresu danych, aktualizacja wykonywana jest przez makro. Wykres natomiast zmienia sobie zakres danych na inny. Ja potrzebuję zawsze ten sam. Nie mam...
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ą...
Sub NPV() ' ' ' stopa = InputBox("Podaj stopę.") Range("D2").Select ActiveCell.FormulaR1C1 = "=-R2C2+NPV(" & stopa & ", R2C3:RC3)" Range("D2").Select Selection.AutoFill Destination:=Range("D2:... Type:=xlFillDefault Range("C3").End(xl...
Witam. W programie Excel staram się stworzyć listy dynamiczne. Wszystko hula dla pierwszego wiersza. Przy przeciąganiu do kolejnego wiersza przestaje działać. Rozumiem, ze odnoszenie do komórek już się nie zgadza. I jak teraz zrobić, żeby móc przy przeciąganiu zmieniać zakres dla Listy w poszczególnych komórkach. Pozdrawiam.
Mam taka oto formule: =SUM(X5:X260) Chcialbym zastapic sama liczbe 260 (bez X), wynikiem kalkulacji z 'Named Range = Liczba_Wierszy '. Liczba_Wierszy to dynamicznie zmieniajacy sie zakres Czyli cos takiego jak =SUM(X5:XLiczba_Wierszy) Oczywiscie to powyzsze nie dziala... bawilem sie chwile kilkoma funkcjami, ale bez skutku... b]SUM(INDIRECT("X5"&":Z"&Liczba_Wierszy)...
Witam Sprawdziłem posty do początku roku 2007 i nie znalazłem odpowiedzi na to pytanie, a mianowicie. Posiadam Excel 2003 EN i nie mam pojęcia jak odwrócić komórki tzn... 1 2 3 4 5 6 7 8 9 A Chciałbym abym miał odwrotnie, chciałbym wywrócić je na lewą stronę. 9 8 7 6 5 4 3 2 1 Tyle, że jest więcej wierszy. Wierszy jest ok 12 a kolumn ok 1000 Będę wdzięczny...
No właśnie muszę zrobić tak, żeby nagłówek i stopka tabeli (czyli pierwszy i ostatni wiersz w arkuszu) przy przewijaniu były zawsze widoczne. Meczę się z tym już kilka godzin i nie potrafie nic takiego wymyślić. Za wszystkie sugestie bardzo dziękuję pozdro
Witam! Mam makro, które mi obrabia dane z tabeli przestawnej i wyświetla je jako kolumny i wiersze (przyrost danych jest jako kolejny wiersz). Pytanie brzmi. Jak napisać makro, które zmieni mi zakres danych wykresu kołowego na jeden wiersz w dół? Np. Dziś jest tak: ActiveChart.PlotArea.Select ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1)....
Kochani, chcę zablokować arkusz przed edycją dla 3 użytkowników, każdy ma mieć dostęp do innych kolumn w tym konkretnym jednym arkuszu. Pola do edycji dla użytkownika nr 1 zaczynają się od $C$5 do $O$1048576. Uruchamiam narzędzie Zezwalanie użytkownikom na edycję zakresów, daję nowy podaję powyższy zakres. I działa to rozwiązanie do momentu w którym...
Nie mogę edytowac tabeli w poniższym pliku, tam jak widzicie jest poz. nr 1 zawiera ona przykładowy opis, ale wiersz jest zbyt wąski i na wydruku nie widać wszystkiego, może ktoś pomóc?
Mam problem jak w temacie, mianowicie: dzielenie sumy wierszy przez liczbę wierszy w których występuje wartość (w arkuszu Excel). Jak wyliczyć średnią dla kolumny sumującej wiersze odnoszące się do jednego miana np cena zł za daną jednostkę np. 1 ha? Chodzi mi o to, żeby suma dzielona była przez taką liczbę wierszy w jakiej występuje wartość w zł, a...
Witam, jest taka sytuacja. Chcę przeciągnąć pare wierszy do do dołu, ale zmienia mi się nie ta wartość, która powinna. Oto jak wygląda sytuacja: Jest jeden arkusz główny, w którym są komórki, którym przypisane są wartości z innych arkuszy. Wygląda to tak np. Komórka A1 - =arkusz2!K15 Komórka B1 - =arkusz2!P63 W jaki sposób przeciągnąć komórkę A1 do...
Witam! W jednym pliku excela mam stworzony raport który pobiera dane z innych plików (pozycje w tych plikach są identyczne, różni się jedynie data, adres, odpowiedź - jeżeli stwierdzamy nieprawidłowość zaznaczamy X). Problem w tym że raport główny nie wychwytuje mi wszystkich pytań z tych plików np. są pytania nr 21, 22, 24, 27, 28 itd. Po przerzuceniu...
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...
Zamiast y = y + last_row2 wks.Rows(x).Cut wkb.Rows(y) wpisz wks.Rows(x).Cut wkb.Rows( last_row2) last_row2 = last_row2 + 1 Dodano po 53 usuwanie wierszy w drugim arkuszu zbędne
A skąd biorą się wiersze i jak są przypisane? Jeśli z zakresu, to usuń komórkę z zakresu...
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
Tak, trzeba tylko znaleźć ostatni niepusty wiersz ("dziurę"). W przykładzie sortowanie wg kolumny A zakresu "A2:Hw", gdzie "w" to ostatnia niepusta komórka w kolumnie A, "jadąc" od góry. w = Range("A2").End(xl... Range(Cells(2, 1), Cells(w, 8)).Sort Key1:=Range("A2")
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...
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....
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
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
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
Ech... Spróbuj czegoś takiego: [syntax=vbscript]Sub Dzialaj() Dim ark As Worksheet, temp As Worksheet Dim i As Integer Application.ScreenUpdating = False Set ark = Sheets("Arkusz1") For i = 2 To ark.Range("B65536").End(xlUp).Row If Not czyistnieje(Left(ark.Cells(i, 2), 31)) Then Sheets.Add Set temp = ActiveSheet temp.Move After:=Sheets(Sheets.Count)...
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...
Z nazwami nie wyjdzie, bo przy każdym dodaj/usuń zmienią się tak czy inaczej. Niestety przy tego typu kontrolkach indeksy też zmieniają się przy usuwaniu. Poza tym usuwasz zawsze drugą "ramkę" od góry, bez względu na ich ilość. Tak ma być? Czy nie powinna być ostatnia? Po mojemu: trzeba sprawdzać w pętli położenie kontrolki i wybrać te dwie, których...
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...
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...
Witam. W jaki sposób określać zakres działania makra (chcę aby zakres adaptował sie do ewentualnie wstawianych/usuwanych wierszy)? Nie umiem pisać kodu. Zawsze nagrywam makro ale wtedy zakres jest zapisany jako konkretne adresy komórek i po dodaniu lub usunięciu wierszy zakres pracy działania makra nie jest właściwy. Przykład: 1 Mam sformatowaną komórkę...
Dzień dobry. Starałem się napisać makro, które porównuje zawartość komórek C1:C100 arkusza Arkusz1 z zawartością komórek A1:A120 arkusza Arkusz2. W przypadku, gdy nie znajdzie danej wartości, nastąpi usunięcie bieżącego wiersza z arkusza Arkusz1. Tak więc efektem działania ma być pozostanie w arkuszu Arkusz1 wierszy, w których w kolumnie C znajdują...
A tak się zapytam, wbudowana funkcja usuń duplikaty ? Co w przypadku powiedzmy Jana Kowalskiego co ma psa Azora, i Jana Kowalskiego co ma psa Bobika ? To ten sam Jan Kowalski ? Zakres sprawdzania duplikatów ustawiasz jak chcesz , czy to ma się odwołać do jednej kolumny czy do np. wszystkich . Usuwanie duplikatów leci dość szybko.
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...
Przepraszam będę dołączał. Niestety nie działa. Kiedy zaznaczam jakąś komórkę w zakresie Excel automatycznie zaznacza jak na rysunku cały zakres danych w kolumnie B, przy tworzeniu tabeli. Podobnie jest jak usuwam dane w A nie zmniejsza jej automatycznie. Według mnie on dotyczące tworzenia tabeli powinien brać z kolumny A czyli ostatniego zapisanego...
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...
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...
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...
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...
Ja się podepne pod temat, tylko z nieco inną sprawą. Mam zakresy liczb: 1-10 "bardzo bardzo źle" 11-19 "bardzo źle" 20-29 "źle" 30-39 "średnio" 40-49 " lepiej" 50-59 "dobrze" 60-69 "bardzo dobrze" 70-79 "bardzo bardzo dobrze" Czy istnieje metoda aby po wpisaniu liczby z zakresu 1-79, funkcja nadała komórce odpowiedni komentarz? Kombinowałem z funkcją...
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Ok to muszę odszukać ta zamiana ręczna. Tak po wstawieuniu nowego wiersza będzie pusta komórka bez formuły to makrem myślałem o tym by zaznaczać komórkę A5 i w dół tak jak zaproponowałem. Zastanawia mnie najbardziej jak stworzyć kod by usuwalo mi wiersz jak cały zakres jest pusty. Bo teraz usuwa tylko wtedy jak coś w jakimś wierszu zakresu jest to usuwa...
Ad.1 i 2 Najprościej: nazwij je przy tworzeniu Np dla pierwszego wykresy dodaj na końcu Wykres_01.Name = "Wykres1" wtedy: Sheets(Zak).Shapes("Wykres1").delete Ad.3 Przy Workbook.Open wywołaj makra usuwania i tworzenia. Jeśli będą nazwane (pkt.1), nie będzie trzeba nawet pętli, instrukcji warunkowej, itp. Ad.4 Array z nazwami i pętla. Zakresy masz po...
Spróbuj wybrać dla pętli "Do Until" inną kolumnę (np. nr 1, jeśli taka w ogóle istnieje) do sprawdzania ciągłości wpisów (dla tej kolumny wpisy muszą być ciągłe). Na tę chwilę jest bowiem tak, że wtóruje ona warunkowi w "If" dla tej samej kolumny (nr 2) i działa do pierwszego wystapienia pustego wiersza, na którym się zatrzymuje i ów warunek w "If"...
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...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
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...
[syntax=vb]Option Compare Text 'male i duze litery to jedno Sub popraw_nazwe() Dim nazw As Range Set nazw = Sheets("baza").Range("A2:A4") ' zakres dla trzech walut With Sheets("tabela") For r = 2 To Application.CountA(.Range("A:A")) For i = 1 To nazw.Count 'do ile walut If .Cells(r, "A") Like nazw(i) & "*" Then 'jak zaczyna sie na nazwe waluty .Cells(r,...
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...
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete End If Next s[/syntax] 2. Do swojego projektu wstaw moduł (Insert->Module)...
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,...
Mam skoroszyt excela w którym w poszczególnych arkuszach (każdy miesiąc ma osobny arkusz) przechowywane są dane o pracownikach i jak pracowali w danym miesiącu. Czasem pracownik w ciągu miesiąca pracuje na kilku punktach pracy czyli zmienia lokalizacje. Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka...
Witam Mam tabelę w excelu 2000: Zaczyna się od 6 wiersza i kolumny B (6 wiersz to nagłówki tabeli). W kolumnie C wpisywane są daty (w formacie RRRR-MM-DD). Chciałbym aby po wpisaniu dat w komórkach: C3 i C4 (i zatwierdzeniu w obojętnie jaki sposób, np. po wciśnięciu przycisku filtruj umieszczonym obok) tabela została przefiltrowana według podanego zakresu...
oki działa źle sobie przekopiowałem :P sorry trzeba by tu troche zmienić licznik = 0 With Sheets("Arkusz1") For Each kom In .Range("D1:D5") If kom.Text = "0" Then ' i właśnie tutaj chyba powinno być Selection.ClearContents, że jeśli jest tam 0 to usuwa treść licznik = licznik + 1 End If i = i + 1 Next End With ale nie wychodzi :( Dodano po 25 już nawet...
Prośba o sprawdzenie kodu. Kod składa się z 5 "oddzielnych" programów, które pojedynczo (1 z nich zostawiam, a resztę zakomentuję) działają. Problem pojawia się, gdy chcę go uruchomić jako całość. W 60% przypadkach coś nie działa. Program wykona się cały bez errorów, ale 1) często wczytuje dane, a potem nie usuwa pustych wierszy 2) źle porównuje obie...
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...
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
usuwanie zakresu wierszy usuwanie wierszy zakresu excel usuwanie wierszy
dodge światła jazda kierowca pilot uniwersalny instrukcja
diagbox peugeot problemy diagbox
Analiza prądu w obwodzie z R1, R2, r1 i źródłami 6V, 12V Dlaczego lampy solarne włączają się podczas deszczu?