Witam, Ja uzyl bym formatowania warunkowego, do tego moze formuly: LICZ.JEŻELI lub SUMA.JEŻELI z warunkiem "zakres komorek" >0 poz Olgierd
W dużym skrócie ... 1. ... dwa zakresy danych ... 2. ... na podstawie wartości z jednego zakresu ... wyszukać wartość w drugim zakresie ... 3. ... jeżeli makro znajdzie ... wartość to zostawia ją bez zmian ... 4. ... jeżeli natomiast wartości w zakresie jest brak to usuwa cały wiersz zakresu 1, 2 i 3 - raczej jasne ... ale 4 ... ? Który wiersz zakresu...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
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 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...
Było. Poszukaj w archiwalnych tematach. [syntax=vbscript]Sub UsunWiersze() For x = 100 To 49 Step -1 a = Cells(x, "B") If a <> "" And a = 0 Then Rows(x).EntireRow.Delete Next End Sub[/syntax]
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
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")
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...
Dodając kolejne wiersze, zawartość komórek przy odwołaniu bezwzględnymi jest stała i zaciąga dane które ma zaciągać, ale już komórki z owymi formułami ulegają przemieszczeniu. Nie widzę tu nic niezwykłego. Możesz dokładniej wyjaśnić? Lub napisz co chciałbyś osiągnąć. Może jakiś plik z przykładem.
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!!!
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....
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...
A skąd biorą się wiersze i jak są przypisane? Jeśli z zakresu, to usuń komórkę z zakresu...
Takie czyszczenie w pętli nie jest zbyt efektywne: lepiej od razu wyczyścić cały zakres, jak już, to możesz przecież napisać: Sporządził: , sprawdził, czy jest on większy niż 17, a jeżeli tak, usunął: Set arkO , jeżeli tego nie używasz - w zupełności wystarczy wrzucić nazwę tego arkusza bezpośrednio do With.
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...
Sprawdziłem czemu się wiesza przy tej pętli program, bo usuwa wiersze wszystkie puste do samego końca arkusza. Trzeba by zakres ograniczyć do np 200 wierszy i będzie ok. W którym miejscu i jak to ograniczenie zrobić???
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....
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
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...
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, mam następujący problem. Potrzebuję makro, które ukryje wszystkie wiersze w aktywnym arkuszu dla których w kolumnach D:AD wartości równe są zero. Przy czym nie chce żeby usuwało wiersze z pustymi komórkami. Będe wdzięczna za pomoc. Markiza
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:...
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...
I nie masz się co dziwić. Warunek zakończenia pętli i instrukcji If masz taki sam... Przemyśl zastosowanie pętli For Each kom in Range(zakres) , wydaje się bardziej zasadne w Twoim przypadku. Tu, w konstrukcji warunków dla instrukcji If, można zastosować przesunięcie kom.Offset(wiersze,kolumny) .
... 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...
Hej Chodzi mi o wszystkie pełne wiersze poniżej i wklejenie tego zakresu o wiersz wyżej. Kod trochę zmieniłam na swoje potrzeby i obecnie wygląda jak poniżej, zaznacza i kopiuje 1000 wierszy (tu wolałabym żeby zaznaczał wszystkie pełne) po pierwszym pustym ale brakuje mi wklejania skopiowanego zakresu o wiersz wyżej. Sub usuniecie() Application.ScreenUpdating...
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...
"DataChart" Jeszcze nie zaglądałem do załącznika, ale dlaczego właściwie w "Sheets("DataChart")" usuwasz dane tylko z jednej kolumny ".Columns(1)" skoro końcówka kodu sugeruje, że może ich być więcej (?) - zmienna "counter": Dodano po 1 Dane kopiuję z pliku sam do arkusza, zapisywane są w pliku tekstowym na karcie SD na mierniku. Nie importuje calego...
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.
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)...
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ę...
: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...
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, 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...
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 mam takie pytanie : mam sieć a wniej kompy z adresami 192.168.1.x 255.255.255.0 i musze teraz na każdym z nich dodać po kolejnym adresie ale z zakresu 10.105.45.x 255.255.255.0 i GW 10.105.45.1 jest może jakies polecenie w wierszu aby tylko dopisac kolejny adres a nie usuwać / modyfikować już istniejący?
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...
Proszę nie usuwać tematu, wyjaśnię co i jak bo w tym przypadku sprawa nie jest prosta - pomiary są skopane. Zaraz edytuję i dodam właściwą odpowiedź. Dodano po 12 Po kolei. Każda ćwiartka tego wykresu dotyczy różnych par parametrów. Przykładowo górna prawa ćwiartka to wykres zmian prądu Ic w stosunku do napięcia Ice. Rysujesz 2 osobne przebiegi na jednym...
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...
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ą...
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...
Popatrz, jak działa ta pętla np. dla pierwszego "i": jeżeli Twoja wartość będzie na końcu zakresu "y", to najpierw wiersz "i" usuniesz 119x, a dopiero na końcu przerwiesz pętlę... Bez sensu, prawda? Zamiast tego możesz wprowadzić następującą poprawkę: [syntax=vb]Private Sub CommandButton1_Click() Dim zakres As Variant, i As Integer, y As Variant, wier...
Co ma wspólnego makro do zaznaczania aktywnego wiersza z funkcją, której nagłówek pokazujesz? Jak i do czego używasz tej funkcji? Zaznaczanie aktywnego wiersza masz zrobione formatowaniem warunkowym z formułą: [syntax=text]=KOMÓRKA("ROW")=WIERSZ()[/s... z tym są dwa. Pierwszy - należy właściwie zaznaczyć zakres komórek, w którym to formatowanie...
Tak myślę że kolega nie wie co oznacza błąd 13. Ale do rzeczy. Rozumiem że kolega chce za jednym zamachem usunąć wszystkie puste wiersze we wszystkich otwartych arkuszach skoroszytu. Jeżeli tak to, skad procedura ma wiedzieć ile arkuszy jest otwarte w danej sesji? Jeżeli używam zmienne to trzeba , dla przyzwoitości je zadeklarować, a jak już to trzeba...
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...
Wielkie dzięki za odzew Sub del() Dim i As Integer For i = 1 To 5000 Step -1 'wpisałem zakres wierszy jakie są brane pod uwagę If Range("A" & i).Value = Range("B2") Then 'baza danych do przeszukiwania znajduje się w kolumnie "A" Rows(i).Delete 'w tym miejscu makro ma problem End If Next i End Sub O co może chodzić?
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...
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...
[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,...
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...
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem,...
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, Mam w OpenCalc'u w kolumnie A 700.000 słów. Wiem, że "unikalnych" mam 130.000 Usuwam zbędne duplikaty przez Dane-Filtry-Filtr standardowy i: http://obrazki.elektroda.pl/1411104200_1... W odpowiedzi dostaję 16.000 wierszy, a wiem , że ma ich być 130.000 Zauważyłem, że Calc filtruje mi dane w mniejszym zakresie mimo, iż w tabelce...
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...
takiego założenie nie wykonałem. nie potrafie zrobić już początku :P czyli automatycznego makra po uzupełnieniu danych. Kombinowałem z makrem które się tworzy na podstawie tabeli przestawnej jednak autofiltr nie działa tak jak powinien. W jaki sposób mogę podczas makra usuwać zawartość nie potrzebnych wierszy. Próbowałem poprzez uruchamianie auto filtra...
Ja metodami prób i błędów zrobiłem taki kod, [syntax=vbscript]Sub test() Dim ilosc As Long Dim txt As String Dim zakres As String Dim w As long 'rozbija na dwie kolumny numer ( numer + całość w nawiasie - daje niepotrzebny komunikat o zmianie wartości w 2 kolumnie) Range("D2:D13").Select Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("D2"),...
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...
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...
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
p.s. Dzień dobry Panie Macieju, miło Pana widzieć, 01 lutego mi pan pomógł, to jest dalsza część sprawy. Tak, zgadza się, nazwa arkusza to liczba, niestety nie mogę tego zmienić bo nazwa arkusza czyli liczba zaczyna się od ,np. 104,105,120,147,148 itd. Ta liczba oznacza nr kontraktu. Wiem, że może to w przyszłości generować problemy. Sprawa wygląda...
Witam ! Nie ukrywam, że jestem początkującym, samouczącym się użytkownikiem VBA. Pojęcie mam raczej znikome (więc z góry przepraszam, jeśli błąd będzie tak trywialny, że aż rażący w oczy). Utknąłem na etapie pisania makra, które ma za zadanie wyczyścić wszystkie komórki w tabeli (tabela określona na podstawie zakresu kolumn + aż do ostatniego wiersza...
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...
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...
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...
Słuszna uwaga :-) Już się poprawiam i załączam makro: Private Sub Worksheet_Change(ByVal Target As Range) Dim ZakresHist As Range, Wiersz As Long, Kolumna As Long, KomPusta As Range Dim ArkHist As Worksheet On Error GoTo Koniec Application.ScreenUpdating = False Wiersz = Target.Row Kolumna = Target.Column If Kolumna = 4 And Target.Value = "x" Then Set...
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...
W momencie wpisywania danych od góry kolumny funkcja ukrywa kolumnę za każdym wpisanym znakiem :cunning: :?: Testowałem wpisywanie od góry i od dołu po jednej komórce - kod działa zgodnie z założeniami :ok: - podejrzewam, że takie nieprzewidziane działanie wynika z niedokładnego dostosowania do potrzeb :cry: - trzeba dostosować kontrolowany zakres...
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,...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
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...
Dziękuję. Niestety nie działa jeszcze tak jak potrzebuję ;/ Pozmieniałem trochę zakresy danych, ale jest kilka rzeczy do zrobienia. 1. Podczas kopiowania z "Spis końcówek lotów" do "Złomowanie" makro wkleja dane tak jak leci, a powinno wpisywać w pierwszy wolny wiersz od B3 do nieskończoności tak na prawdę tylko ZŁOM. W tej chwili usuwa mi również dane,...
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...
To od tego zacznij - główną "bolączką" tego makra jest to, że wstawiasz kilkanaście kolumn formuł na 600.000 wierszy - to się musi długo liczyć... Na początku skróć zakres do niezbędnego minimum: poleceniem [syntax=vb]ost_w = Cells(Rows.Count, 1).End(xlUp).Row[/syntax]ustalisz sobie w aktywnym arkuszu ostatni numer wiersza (ważne, żeby przedtem zdjąć...
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)...
Witam, Mam problem - otóż próbuję stworzyć makro które wykonuje mi tabelę i wykres przestawny dla zmiennych danych źródłowych które znajdują się w innym arkuszu. W innym arkuszu mają być generowane wykresy przestawne - jeden po drugim. Jeden wykres przestawny mi się generuje ale teraz poszukuję kodu który automatycznie wynajdzie mi powiedzmy 5 wolną...
Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
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
Witam Poszukuje wsparcia w utworzeniu odpowiedniego makra. Posiadam dwa skoroszyty. W pierwszym "A" znajduje się arkusz z tabelą w którą chcę z automatu wprowadzać dane. Jedna cześć danych będzie narzucona i automatycznie wpisywana przez narzucony schemat w makro Druga cześć danych będzie kopiowana z tego samego skoroszytu " A" , tylko z innych komórek...
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...
http://obrazki.elektroda.pl/8856166800_1... Opisane poniżej urządzenie powstało w oparciu o układ z Rosyjskiego Radio 8/2007. Można go rzeczywiście można nazwać uniwersalnym, ponieważ mierzy on napięcie prądu stałego, częstotliwości, pojemność, indukcyjność cewek, sprawdza rezonatory kwarcowe, oraz wysyła impulsy o poziomie sygnału...
Dokładnie, tak to jest jak się polega na automacie. Jak wszystko skopiowałeś to w DMDE zaznacz ostatnią partycję (podst. nieznana) i podstawową na końcu dysku w zakresie sektorów: pierwszy sektor -> 929 875 968 ostatni sektor -> 976 773 119 i pod Windows sformatuj na NTFS. Przekopiuj tam wszystko z powrotem, powinno wejść (partycja ~ 22,36 GiB). Skopiuj...
najprościej wgrać plik do pamięci na przykład do tablicy, a potem wylosować liczbe z zakresu <0, wielkosc_tablicy). problem z tablicą jest taki że trzeba znać jej rozmiar przed stworzeniem tablicy (logiczne). dlatego albo przelecisz cały plik i policzysz linijki albo w pierwszym wierszu linijki znajdzie się jej wielkość. innym pomysłem(łatwiejszym)...
Dzień dobry, Próbowałem analizować te dane i niestety niewiele z nich wynika. Rozrzut wyników jest duży, punkty pomiarowe - choć jest ich sporo - nie zostały optymalnie rozplanowane. W efekcie trudno na podstawie tych danych o ułożenie wzoru, który mógłby być podstawą rzetelnej prognozy. Przy dużym rozrzucie danych próbuje się opisać je możliwie najprostszymi...
(at)ElektrodaBot // Napisz Menu z Rc5 #include #include LiquidCrystal lcd(19, 18, 17, 16, 15, 14); #define LED 0 #define TSOP_PIN 3 RC5 rc5(TSOP_PIN); // command== 16 - dodaj // command== 17 - odemnij // command== 59 - enter, przejć do następnej części MENU // Menu_1--- Menu_2---Menu_3--- Menu_1 ...... Menu1 if command==16 liczba_1++; if command==17...
Zmień nazwę 1-go arkusza na "Brudnopis" A1 i B1 traktuję jako nagłówki, czyli dane zaczynają się do 2-go wiersza Otwórz Edytor VB i w kod arkusza 'Arkusz3' wklej Private Sub Worksheet_Activate() Range("A1") = "Kod" Range("B1") = "Nazwa" Application.ScreenUpdating = False IleWierszy = Worksheets(1).Range("A1...
Oczywiście, że manipuluje. Ale nie tylko internet, gazety telewizja, reklamy, artykuły sponsorowane, powietrze w paczkach chipsów etc. Nawet komentarze w internecie są manipulowane bo są firmy które zarabiają na pisaniu głupot i peanów, czy negatywnych opinii o konkurencji a inne na usuwaniu negatywnych komentarzy dot. np. produktów. I tak zabawa trwa...
Dziękuję za wszystkie opinie! Odpowiedź miałem przygotowaną już 2 lata temu, ale chciałem, jak najwięcej zrealizować z przesłanych uwag. Niektóre rzeczy udało się zrealizować, większość ciągle czeka. Dłużej nie będę czekał z publikacją odpowiedzi na opinie. Poniżej przedstawiam bardzo długi post, starający się ustosunkować do Waszych uwag. Temat odblokuję...
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...
W załączeniu Twój plik przerobiony. Jak chcesz go użyć jak jest to wklej twoje dane do arkusza dane i syntetyka. Odpalenie makra Ctrl + Shift + t. Albo wejdź do VBA (lewy Alt + F11) i Pierwsze makro. Kod powinien się wykonać szybko. Można z powodzeniem użyć do naprawdę dużych ilości wierszy w tabelach źródłowych. Kod: (nazwy modułów kodu arkuszy zmienione...
https://obrazki.elektroda.pl/8440835000_... Jak to się stało? Posiadam dostęp do konta bankowego, w sumie sam je założyłem, jednak nie jest ono na moje dane, to jakiś inny mężczyzna. Jestem zabawny, pulpit posiada dwie ikony: kosz(wiadomo) i nad nim folder ,,zlew". W zlewie trzymam pliki .txt z rekordami login::pass do różnych kont:...
Witam , Wracam do tematu . Zegar skończony i przetestowany . Podziękowania dla autora za pomoc . Kilka krótkich filmów z pracy zegara wykonane telefonem . https://filmy.elektroda.pl/11_1551555088... https://filmy.elektroda.pl/90_1551555174... https://filmy.elektroda.pl/15_1551555225... https://filmy.elektroda.pl/89_1551555287... Jedna z dwóch gier...
Macro dziala tak ze ma mguzik w pliku X, Nciskam go i Macro łączy się z plikiem źródłowym Y. Macro pobiera potrzebne dane i tworzy TEMP Sheet gdzie wkleja pobrane dane w formie tabelek miesięcznych. Następnie w Temp Sheet manipuluje danymi, przestawia kolumny, zmienia nazwy nagłowkow itd. Potem copiuje tak zmienione dane i wkleja do Sheet Ostatecznego...
https://obrazki.elektroda.pl/1170500100_... Pawilon RISC-V na targach Embedded World 2022 pokazał szereg udoskonaleń, od pierwszego procesora graficznego opartego na RISC-V po nowy zestaw rozwojowy o otwartym kodzie źródłowym. Targi Embedded World 2022 stały się miejscem, w którym można było zapoznać się z najnowszymi osiągnięciami...
Cześć, potrzebuje napisać makro VBA w Excelu które: - będzie otwierać wszystkie pliki *.xlsx w katalogu w którym znajduje się uruchamiany plik skoroszytu (ew. będzie można wskazać kilkanaście plików w oknie wyboru) - z każdego pliku zostanie skopiowany zakres $$ i doklejony do arkusza "zaimportowane" w pliku w którym jest makro - po zaimportowaniu wszystkich...
Niestety nie znam sie na programowaniu a moje poszukiwania nie dały spodziewanego efektu. Mam dość spory plik, w którym w kolumnie G mam nazwy które się powtarzają. Chciałabym przenieść unikatowe rekordy do kolumny M. Niestety zakres nie dotyczy całej kolumny, bo dane są w układzie co 10 wierszy kolejny zakres. Udało mi się znaleźć procedurę usuwania...
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...
Poszukuje programistow ktorzy napisza mi pare programow w c#, oczywiscie zaplace za nie, cena jest do ustalenia. Nie sa to programy na zaliczenie, potrzebuje je na uzytek wlasny. Po zapoznaniu sie ze specyfikacjami poprosze osoby zainteresowane o wyslanie swojej ceny + czasu jaki potrzebuje na program (nie jest to zaden deadline wiec nie mam wygorowanych...
usuwa wiersz excel usuwa wiersz wiersz excel usuwa wiersz
vs100 marshall przeciążenie pompa pamięć tomtom
philips poziomy pasek philips poziomy pasek
Passat B6 2.0 TDI - Check Engine i przerywanie silnika Przekaźniki w skrzynce bezpiecznikowej Fiat Ducato 2.3 Multijet 2012