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ę...
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."...
Ale to będzie 'pomógł' ? :)
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))...
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]
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.
Trzeba to przy zapisywaniu do formatu excela zdefiniować.
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
usuwanie wierszy z tabeli przy powtarzającej się wartości
tak dobrze? [syntax=text] ="<Variations><Variation><...
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.
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]
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
Trzeba lecieć od dołu: [syntax=vbscript]Sub KasujWiersze() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 1 Step -1 If Cells(x, 1) = "DELETE" Then Rows(x).Delete Next End Sub [/syntax]
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
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...
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]
Najprościej? Połączyć arkusze (jako źródła tabelek) w Access i już z poziomu Access'a można sobie widokami (kwerendami) porobić co się chce - włącznie z szukaniem duplikatów. Rzeźbienie tego w Excelu to będzie więcej roboty (np. z tym szukaniem duplikatów).
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
(...) 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ń"...
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]
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?...
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...
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...
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...
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ę...
Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
Spróbuj: [syntax=vbnet]Sub d() Application.ScreenUpdating = False For Each s In ThisWorkbook.Sheets s.Cells.FormatConditions.Delete Next s Application.ScreenUpdating = True End Sub[/syntax]
Dołącz przykladowy plik
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.
Zawsze można usuwać ;) No to skoro się boisz, że zabraknie miejsca to Crucial MX500 500GB.
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...
Czasami wystawiam dodatkowe rachunki na wzorach, które nie są w excelu Jeśli te dodatkowe rachunki są również numerowane (jednolita numeracja :?: ) to proponuję zrobić pomocniczą ewidencję w Excelu i w formule MAX() ująć zakres rachunków "arkuszowych" i tej ewidencji :idea: :D
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?
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...
Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
usuwać excel excel usuwać wiersz usuwać wiersz excel
diagnostyka kondensatora berlingo radio fabryczne tl494 schemat wzmacniacz
baofeng potencjometr reduktor szumu
Instrukcja obsługi falownika Easun 6,2 kW Mercedes-Benz C200 W204 2010 135kW – sterownik SIM271, VGS/EGS, lokalizacja i numery OEM
