Powinno działać.
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]
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...
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))...
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.
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
Trzeba to przy zapisywaniu do formatu excela zdefiniować.
tak dobrze? [syntax=text] ="<Variations><Variation><...
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]
Na stronie https://support.microsoft.com/pl-pl/help... masz przykład makra uruchamiającego się po edycji komórki Do tego dodaj tylko sprawdzanie wartości aktualnej komórki oraz zerowanie pozostałych (Cells(ActiveCell.Row, "B").ClearContents, itd.)
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
Musisz utworzyć plik Excela, w którym będziesz odnotowywał numery wszystkich rachunków wystawionych w Wordzie :idea: :D A potem możesz sobie zestawić dane i ustalić ostatni numer wystawionych rachunków np. tak jak na zrzucie :spoko: 1073332
[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]
Witam 'Application.OnKey ' np. w kodzie arkusza (można w workbook open) [syntax=vbscript]Private Sub Worksheet_Activate() Application.OnKey "{del}", "usun" End Sub[/syntax] w module [syntax=vbscript]Sub usun() ActiveCell.EntireRow.Delete End Sub[/syntax]
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
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
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...
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...
Co setny zostaje. [syntax=vbscript]Sub co_sto() i = 1 Do While Cells(i, 1) <> "" Rows(i).Resize(99).Delete i = i + 1 Loop End Sub[/syntax]
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
W przykładowym arkuszu: 1. Usuń "Przycisk 339" (jest wysoki na 1pkt.) Najprościej zaznacz widoczny przycisk i przesuwaj się tabulatorem. 2. Podmień makro, tu dobrze kombinujesz :) (porównaj sobie z tym co jest. Przyda się na przyszłość), ale trzeba szukać 4 elementów. [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count...
Plik *.RAR ląduje na poczcie e-mail. Muszę go zapisać na dysku, rozpakować (plik *.CSV) - otworzyć plik, przerobić dane (formatowanie, usuwanie niepotrzebnych kolumn) zapisać jako *.CSV - o odpowiednim kodowaniu i zapisać na dysku FTP. Jeśli korzystasz z poczty przez outlooka to wszystkie te rzeczy, można nawet w excel vba zrobić.
https://obrazki.elektroda.pl/8016750800_... W ustawieniach pola "Id" wybierz "Brak"
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.
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
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...
Jeśli masz Excel 2010 lub nowszego można to zrobić przez Power query bez makra
Wejdź w Windows Update i zainstaluj wszystkie ważne aktualizacje. Sprawdź błędy urządzeń w Menadżer Urządzeń. Zaktualizuj sterowniki, wstaw screena z Menadżera Urządzeń. Wejdź w "mój komputer" i wykonaj oczyszczanie dysku: https://www.komputronik.pl/informacje/ja... W oknie z kroku 1 można też kliknąć „Oczyść pliki...
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ą...
czy jest możliwość wklepywania danych w arkusz 1 ,a zbieranie danych w arkuszu 2 Nie. W ten sposób to tylko przy zastosowaniu formularza. Pracy na 1-2 godzinki i potem jeszcze kilka (dni) na testowanie, korekty i usuwanie błędów. Ale tak nawiasem pisząc: W czym różnica? Wybierasz nazwisko, dusisz guzik i możesz pracować. Jeżeli chcesz podejrzeć cały...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Zakładam, że Jan Kowalski to ta sama osoba, ale dane mogą pochodzić z różnych okresów (tutaj to nie ma znaczenia aż takiego). Mi chodzi o to, aby dane nie zostały utracone, tzn. w jednym wierszu Jan Kowalski ma podane stanowisko a w drugim już nie ma, zatem usuwając jeden wiersz tracę pewne informacje, a ta funkcja usuń duplikaty nie scali wierszy w...
Jeśli tylko podpowiecie mi jak to zrobić. Nie chce przyjmować ode mnie plików o rozszerzeniu .xslm😟
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:...
Najlepiej to plik przykładowy(txt), może to wszystko można zrobić innymi metody
abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
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...
usuwanie wierszy z tabeli przy powtarzającej się wartości
Witam, dzięki uprzejmości użytkownika JRV i cbrman mam taki oto programik (zalacznik). niestety wykrzacza sie. czy ktoś mógłby go poprawić? chodzi w nim o to aby z wklejanej tabelki z odczytanymi danymi wyłuskać trzy kolumny. programik ma: 1. usunąć wersy z 0 w pierwszej kolumnie 2. poprawić . na , 3. zmienić wszystkie dane na liczby 4. usunąć zbedne...
no własnie to nie takie proste bo całość musi być w takim samym układzie sformatowana, te same kolumny nazwy arkusza itd bo idzie jako plik wsadowy do programu - cąły plik jest bardziej rozbudowany i kolumny są do kolumny BT - wczesniej myślałem o przestawnej ale to mi nic nie daje :(
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]
Hej, Mam problem z sortowaniem i usuwaniem duplikatów w czasie rzeczywistym. W załączniku znajduje się lista przykładowych detali, z podobnych lub takich samych materiałów. Chciałbym aby excel automatycznie generował mi listę potrzebnych materiałów, bez duplikatów i prezentował to w miarę czytelnej formie. W załączniku jest to bardziej czytelnie wyjaśnione....
Witaj [syntax=vb]Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub[/syntax]
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Tutaj masz usuwanie ostatnich znaków od końca lub znaków początkowych: http://office.microsoft.com/pl-pl/excel-... Rozdziel sobie na godziny i minuty osobno
usuwanie excel usuwanie spacji excel excel usuwanie tekstu
pioneer stroić modem alcatel onetouch rozebrać obiektyw
podłączenie kuchenki gazowej schemat spawarka kemppi
Zamienniki dla układu DM0265RB w zasilaczach SMPS Sending Power On Command Over HTTP for IoT Devices
