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ć.
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]
Ja również dziękuje.
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]
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
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))...
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...
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.
tak dobrze? [syntax=text] ="<Variations><Variation><...
[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]
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]
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).
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]
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
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...
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ć.
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
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:...
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...
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ą...
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.
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...
https://obrazki.elektroda.pl/8016750800_... W ustawieniach pola "Id" wybierz "Brak"
W excelu mam sformatowane komórki na tekstowe, w których zapisałem ciąg cyfr ze spacjami. Muszę usunąć spacje. Zastosowałem znajdź/zamień ale zmienia mi to zapis tekstu z: 021020 1025 1000 0090 3027 3156; na : 2,10201E+24. Jaką formułę zastosować, aby usunąć spacje bez zmiany tekstu (cyfr) na: 02102010251000009030273156 Dodano po 21 W excelu mam sformatowane...
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.)
Cześć, Mam następujący problem. Pobieram dane z Accessa, które ograniczam parametrem. Parametr ten jest pobierany z komórki excela. Wszystko jest ok, jeśli dane wyrzucam do excela w postaci tabeli. Natomiast jeśli dane wyrzucam w postaci tabeli przestawnej parametr który zadałem (ścieżka do komórki) dziwnym przypadkiem znika po zamknięciu pliku excela....
Witam, problem polega na tym, że posiadam dwa spore pliki w programie excell 64 Mb i 66 Mb. W każdym z plików, w każdym z wierszy znajdują się w osobnych komórkach NAZWA i szereg odpowiadających im wartości liczbowych. W jednym pliku mam 27 tys. wierszy na 102 kolumny, w drugim podobnie, przy czym niektóre nazwy w obrębie danego pliku się powtarzają,...
Mam w excelu 2003 arkusz w którym są nazwiska a kolejnej kolumnie dane liczbowe. W jaki sposób przenieść do kolejnego arkusza te nazwiska przy których liczba jest większa od zera? Tak aby jeden wiersz pod drugim pokazały się nazwiska z niezerową wartością? Proszę o jakieś pomysły?
Witajcie. Być może prosta sprawa, ale poległem. Dostałem plik, w którym nie jestem w stanie zmienić rozmiaru skoroszytu (rozszerzyć go na pełny ekran). Zawartość arkusza nie jest istotna (nawet usunąłem). Chodzi mi tylko o zmianę rozmiaru. W jaki sposób to odblokować?
Cześć. Mam następujący problem: pracuję na bazie danych w excelu, robię rozkłady, generuję wykresy itp, wszystko jest ok. Problem pojawia się, gdy próbuję wysłać mój plik do kogoś innego - excel zmienia formatowanie wartości na wykresach (np. z 50,00% na 050%). Ciekawostka jest taka, że jeżeli ta sama osoba wyśle ten sam plik z powrotem do mnie, to...
Od dłuższego czasu mam problem z MS Excel 2007. Po pierwsze, chciał bym wyłączyć automatyczne kończenie wyrazów. Wszystkich. Wszystkie słowniki itp. Chciał bym także by Excel nie wstawiał automatycznie takich jak PLN, ZŁ itp. do wpisywanych liczb! Nie umiem tego wyłączyć i już mnie nerwica wykańcza. Problem w tym iż np. w kolumnie A2 mam wpisane 123,45...
Mam dwie prośby i byłbym wdzieczny za pomoc :) 1. W kolumnie L oraz X wpisywane są ręcznie wartości i np. jeśli w komórce L6 mamy wpisaną jakąś wartość ( 2 ) a w komórkach J6 i K6 (komórki przynależne do L6 ) są zera, to aby zamieniało automatycznie wartość z komórki L6 na 0 Jeśli w komórkach np. J5 i K5 są wartości inne niż 0 , to w komórce L5 wpisana...
Witam. Mam problem ze zwracaniem wartości komórki w Excelu. Tzn. zwraca poprawnie, ale pomija "entery", wszystkie wartości są w jednym ciągu. Możecie jakoś poradzić? Np. Komórka 1: Jan Kowalski; Pacanów 300; tel.123456; A wartośc w zwróconej komórce: Jan Kowalski;Pacanów 300;tel.123456; Macie jakieś pomysły?
Mam następujący problem, tworzę serie formularzy zajmujących pi razy drzwi po 15-20 wierszy (jest ich ok 8tys). Mój kłopot polega na tym, że dane do nich mam w osobnym arkuszu excel w typowych exelowych tabelkach (czyt kolejny wiersz, kolejne dane). Jakiej formuły muszę użyć, aby po przeciągnięciu/skopiowaniu kolejnego dużego formularza excel odwołał...
Witam, po raz kolejny dziś stanąłem przed ścianą. Mam problem z danymi które ściąga mi makro z kwerendą. W liczbach jest kropka oddzielająca całości od dziesiętnych co uniemożliwia mi ich obróbkę. Wymyśliłem sobie coś takiego co załączyłem poniżej. A więc kwerenda wrzuca mi dane w zakres komórek A2:C20 ja to kopiuję niżej i po skopiowaniu zamieniam...
Witam Mam problem z plikiem w excelu. Po otwarciu i próbie wprowadzenia innych wartości w komórkach niż te które się tam znajdują program zmienia mi widok i cały plik się rozjeżdża tak jak na drugim zdjęciu. Zdjęcie numer jeden przedstawia normalny widok. https://obrazki.elektroda.pl/3242057700_... https://obrazki.elektroda.pl/9345943500_...
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...
Witam, mam problem. Chciałabym aby kolor komórek zmieniał się na szary w zakresie od 2 wiersza do pierwszego większego od 1. Chodzi o to że mam plik w którym w kolumnie są wpisane poszczególne zadania jakie ma zrobić pracownik. Jeśli je zrobi wpisuje 1 jeśli nie to wpisuje 0. Na wysokości IXOwego wiersza wpisuje numer zlecenia którego to dotyczy. I...
Witam, mam pewien problem i potrzebuje pomocy. Zrobiłem w Excelu dość rozbudowany program i wszystko fajnie działało. Działał na około 3500 wierszach. Przypadkiem wprowadziłem w jednej kolumnie formule która wpisała się we wszystkie 1048576 wierszy. Niestety zapisałem ta zmianę. Oczywiście później wykasowałem ta formule z tej kolumny ale arkusz rozciągną...
Cześć! Napotkałem na pewną przeszkodę w tworzeniu pliku Excel (2007), może ktoś z was ma pomysł jak ją obejść? Działanie pliku Plik sciąga dane z dwóch raportów i tworzy z nich jeden raport. Pierwszy raport zawiera informację o ilościach produktów które przyjadą do sklepu, a drugi zawiera informacje o wszystkich produktach - np. jaka jest ich cena....
jak zrobic odwołanie do komórki z tekstem w innym arkuszu ? mam arkusz2 i w nim liste nazwisk i che aby w arkuszu arkusz1 pojawialy mi sie nazwiska gdy bede je dopisywal do arkuszu2 ( takis cos ala =arkusz2!a1) niestey mi nie dziala bo gdy w a1 nie mam nnazwiska wpisanego wtedy mi w arkuszu1 daje 0 a niepowinno być nic wpisane?
Jeśli tylko podpowiecie mi jak to zrobić. Nie chce przyjmować ode mnie plików o rozszerzeniu .xslm😟
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Jeśli masz Excel 2010 lub nowszego można to zrobić przez Power query bez makra
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...
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...
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...
dałem radę sam po kilku miesiącach
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...
Najlepiej to plik przykładowy(txt), może to wszystko można zrobić innymi metody
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...
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 :(
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...
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]
dopiero zapisywanie 3 minutowe uświadomiło mi problem Dlatego też może okazać się, że usuwanie działa, ale trwa bardzo długo i wydaje się, że nie usuwa.
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....
usuwanie wierszy z tabeli przy powtarzającej się wartości
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]
excel usuwanie usuwanie spacji excel excel usuwanie tekstu
iskrzy mikrofala saeco ekspres młynek szafa łóżko
stacja kontroli pojazdów pilot bramy zasięg
Przerwa wymiany danych na CAN bus w rowerze elektrycznym O-ringi do pompy paliwa 4B0919051E Audi A6
