ActiveSheet.Replace ",", ""
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...
W kolumnie D nie widzę w ogóle Z. Po analizie jak to działa stwierdzam, że: 1) Chciałem usuwać te pliki hurtem, żeby było szybciej, ale okazuje się, że to za dużo i jednym poleceniem odwołującym się do tablicy z nazwami tego się nie da zrobić. Widocznie jest jakieś ograniczenie, którego nie znam. Wobec tego trzeba usuwać pojedynczo. Dopisałem nową procedurę...
W zasadzie mozna to zrobić na trzy sposoby, mowa jest o drukowaniu arkusza bez "niechcianych" wierszy. 1. uzyć narzędzia Aparat fotograficzny 2. zastosować Grupy i konspekty 3. ukrywać wiersze niechciane Pozdrówka
Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
Delete" na klawiaturze spowodowałoby usunięcie całego wiersza "3". To ma tylko usuwać pojedynczą komórkę? no chyba że o to chodzi (1 to kolumna A) [syntax=vbscript]Sub usun() With ActiveCell If .Column = 1 Then .EntireRow.Delete End With End Sub[/syntax]
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...
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ą...
Ja tylko zasugeruje że najlepiej by było wszystkie kolumny połaczyć i wtedy usuwać duplikat. Czyli jak dobrze rozumuje: test.Add lista(i, 1) & lista(i, 2) & lista(i, 3) & lista(i, 4), CStr(lista(i, 1)) & CStr(lista(i, 2)) & CStr(lista(i, 3)) & CStr(lista(i, 4))...
Poza tym arkusz (sheets) nie ma w visible "opcji" True. Oczywiście ma :) Właściwość Visible obiektu może przyjąć wartość True, False. Tu raczej podejrzewam błąd w nazwie (1004), lub włączoną ochronę skoroszytu (struktura). Spróbuj marcinj12 . Wstawianie nowego: Można wykorzystać zdarzenie 'Private Sub Workbook_NewSheet(ByVal Sh As Object)'. Wyłączyć...
Oj, bo nie doczytałem. Chcesz usuwać dane z H,I,J,K, zostawiając formułę w L. To wykorzystaj SelectionChange w kolumnie P, gdzie widać tekst "Dodaj". [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 16 And Target.Value = "DODAJ" Then MsgBox Target.Row End If End Sub[/syntax]
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...
... Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy ma m filtrowanie z przycisku, to VBA wyrzuca błąd iż arkusz jest chroniony A czy w kodzie vba jest gdzieś taka linia (?): True , to po zablokowaniu arkusza dana czynność jest dozwolona. Tam gdzie jest False , jest ona zabroniona. ......
Przeanalizuj ten fragment (2 arkusze) tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption = wynik Else Label1.Caption = "Nie znaleziono."...
Chciałabym zaznaczyć wszystkie wiersze, które są widoczne i są niepuste pod wzgledem wartości. Probowałam z tą formułą, ale nie działa ActiveSheet.Range("J2:J100000").SpecialC... xlVisible & xlTextValues).EntireRow.Delete Chodzi o to, że gdy zaznaczam tylko widoczne komórki i kasuję te wiersze, to tracę wszystkie formyły i listy...
Ale to będzie 'pomógł' ? :)
Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...
O tym wiem, po prostu dodałem edytowany kod nad którym pracuje. I czasem tą linie o której mowa trzeba było usuwać inaczej też nie działało
Na bieżącym zaznaczeniu komórki w kol. A i dalej po usunięciu danych z tej komórki mają się automatycznie usuwać dane z kol. BCDE w tym samym wierszu. Natomiast dla bardziej skomplikownej wersji chciałbym aby to działało tylko w ostatnim wierszu z danymi w tym arkuszu.
(...) Error Resume Next Set pf = pt.PivotFields(pfName) On Error GoTo 0 ' Sprawdź, czy pole "Tydzień" jest obecne w obszarze kolumn If pf Is Nothing Then ' Dodaj pole "Tydzień" do obszaru kolumn Set pf = pt.PivotFields.Add(pfName, xlColumnField) End If End Sub Dzień dobry, Twój obecny kod jest zaprojektowany tak, że spróbuje dodać pole "Tydzień"...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
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...
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...
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ę...
W takiej pętli najlepiej usuwać wiersze od końca, coś takiego: [syntax=vbscript]ost_w = Cells(Rows.Count, "A").End(xlUp).Row For w = ost_w To 2 Step -1 If Cells(w, "A").Value = szukany_numer Then Rows(w).Delete shift:=xlUp End If Next w ost_w = Cells(Rows.Count, "A").End(xlUp).Row Cells(ost_w + 1, "A").Value = "nowa wartość na końcu..."[/syntax]
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
Jeżeli używasz Excela >=2007 to możesz użyć narzędzia "usuń duplikaty" [syntax=vb]Sub zz() Dim lLstRw& Dim iLstCol% Dim rRng As Range With Application .ScreenUpdating = False End With iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row Set rRng = Range(Cells(1, i), Cells(lLstRw, 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...
Zrób taką formułę, która sprawdzi ci czy w pierwszej kolumnie jest liczba całkowita, jeśli tak to skopiuje dane z kolumn X,Y1 i Y2 do nowego arkusza lub nawet w następne puste kolumny. A dalej to już sobie poradzisz.
makrem[syntax=vb]Sub usunDupKol() tRow = 3 While Cells(tRow, 1) <> "" For c = Cells(tRow, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Application.CountIf(Rows(tRow), Cells(tRow, c)) > 1 Then Cells(tRow, c).Delete xlToLeft End If Next tRow = tRow + 1 Wend End Sub [/syntax]
Zawsze można usuwać ;) No to skoro się boisz, że zabraknie miejsca to Crucial MX500 500GB.
To może zamiast pętelkować sprawdzając każdą komórkę z zakresu czy jej wartość jest w tablicy lokalizacji i ewentualnie usuwać dany wiersz, zrobić coś innego. Wyfiltrować z bazy do nowego arkusza wiersze nie zawierające tych lokalizacji czy to przy pomocy filtra zaawansowanego czy przez MSQuery albo ADO.
usuwanie wierszy z tabeli przy powtarzającej się wartości
Trzeba to przy zapisywaniu do formatu excela zdefiniować.
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...
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
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?
jak próbuję przypisać osobę do zadania To dziwne. U mnie działa poprawnie. Jedynie dodałem teraz obsługę błędu przy usuwaniu osoby.
Jeśli chcesz wysłać tylko jeden arkusz, np. "Raport", zaleca się zrobienie jego kopię, zamiast usuwać niepotrzebne.[syntax=vb]Worksheets("Rapo... ActiveWorkbook.SaveAs "C:\wersje robocze\" & Date & ".xls" ActiveWorkbook.SendMail Adresaci, "PROBA wysylki" [/syntax]
Raz zmapowany dysk powinien pozostać, trzeba by go usuwać ręcznie. Na każdym komputerze trzeba to zrobić. Spróbuj na razie na jednym, nic nie kosztuje. Może być tak, że serwer FTP jest trochę niestandardowy i nie da się.
Witam Wszystkich Serdecznie, Jest to mój pierwszy post na elektroda więc proszę o wyrozumiałość. Opis sytuacji: 1. Pracuje na excelu i tworzę DashBoarda związnego z urlopami. 2. W danym excelu jest wyświetlana lista osób oraz kto ile ma urlopów; 3. Wyświetlany excel zaciąga dane z innego pliku za pomocą Query; 4. Tabela Query wyświetla wszystkie daty...
tak dobrze? [syntax=text] ="<Variations><Variation><...
Dzięki za wszystkie odpowiedzi. Mam jeszcze jedno pytanie. Jak usuwać przedmioty z listbox i excela? Chce zrobić tak żeby przy wybraniu przedmiotu i kliknięci w guzik wybrany przedmiot usunoł się
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...
ale wchodząc w daną lokalizację możesz plik usunąć przez exploratora? Czy możesz tworzyć pliki ale usuwać już nie? Dodano po 29 napisz jaki system operacyjny
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...
Witam Załączam screeny z monitorów zasobów, jakie programy mam zainstalowane i mam nadzieję że udzielicie mi podpowiedzi których powinienem się pozbyć. Dodam też że ostatnio Word i Excel nieoczekiwanie się wyłączają i wyskakuję brak odpowiedzi oraz już 2 razy wyświetliło mi się niebieskie okno i komputer się zresetował. Coś czuję że będzie potrzebny...
Myślę że się da :) Funkcja użytkownika może wykonywać dowolny kod VBA, zrób sobie taką funkcję i zobaczysz że działa: Public Function myFunc() MsgBox "test" End Function Może się łączyć z bazą danych, pokazywać formę, usuwać pliki z dysku ;) czy co sobie zażyczysz... Pytanie po co robić coś takiego jako funkcję, nie makro uruchamiane...
nie wiem jak pociągnąć temat aby wrzucił to co mam potwierdzony w main do baza Ale Ty kolego "kręcisz" i kombinujesz :cunning: muszą być dwa pliki. Plik baza jest plikiem który posiada wszystkie wpisy (z potwierdzeniem OK i bez). Ja do tej pory robiłem filtrowanie w pliku baza które wiersze nie maja potwierdzenia i wrzucałem je do pliku Main aby wiedzieć...
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ć...
Dzień dobry, Przygotowałem, a raczej zaadaptowałem na podstawie opisanych przykładów kod pod swój arkusz excela. Mam 2 problemy: 1. Potrzebuję w arkuszu "material cost" z którego pobierane są dane dopisywać pozycje - w związku z tym potrzebuję aby combo odświeżało sobie dane przy otwarciu (lub jakiś trigger do odświerzania po wpisaniu nowych danych)...
excel usuwać excel usuwać wiersz usuwać wiersz excel
nawigacji becker diagnostyka kondensatora wymiana grzałki
baofeng potencjometr reduktor szumu
Enestar – kalibracja baterii do laptopa, jak wykonać poprawnie Przekaźnik wycieraczek w Renault Thalia - lokalizacja i działanie
