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]
Problem może i prosty, ale niekoniecznie dla kogoś zupełnie zielonego w temacie baz danych... :) Access to baza danych, a z bazą danych pracuje się zupełnie inaczej, niż z arkuszami w VBA. Nie masz tam arkuszy, tylko tabele. Tabele składają się z kolumn i wierszy, zwanych też rekordami. Kolumna musi być danego typu - może przechowywać tylko np. wartości...
[syntax=vbscript]Sub KolumnaData() Application.ScreenUpdating = False d = [A1] mz = Columns("MZ").Column For x = mz To 2 Step -1 a = Cells(2, x) If a <> "" And a < d Then Columns(x).Delete Next Application.ScreenUpdating = True End Sub [/syntax]
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
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?...
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...
[syntax=vb]Sub zz() Dim iLstCl% Application.ScreenUpdating = False iLstCl = Cells(4, Columns.Count).End(xlToLeft).Column For i = iLstCl To 3 Step -1 If Cells(4, i).Value = 1 Or Cells(4, i).Value = 2 Then 'zamiast powyższego warunku przy takim nazewnictwie kolumn można dać poniższy warunek: 'If IsNumeric(Cells(4, i).Value) = True Then Columns(i).EntireColumn.Delete...
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...
Witam, Mam pytanie do bardziej doświadczonych kolegów o sposób/algorytm usuwania rekordów z bazy danych. Na przykładzie w pseudokodzie: w bazie ma dwie tabele, niech będzie że w jednej są daty logowania użytkownika, w drugiej dane samych użytkowników systemu: tab_logowania ( id: integer (Primary Key), data_logowania: date, id_uzytkownika:...
Nie pomijaj termistora - on ma swoje zadanie i nie należy go usuwać (zabezpiecza głośnik wysokotonowy przed zbyt dużym sygnałem - spaleniem). Płytka w drugiej kolumnie wygląda tak samo (przegrzany laminat pod rezystorem)? Spróbuj zmniejszyć odpowiednio położenie wszystkich suwaków na EQ. Być moze dajesz zbyt duży sygnał na końcówkę i ta się po prostu...
ogólnie oceniam na +3 gdyż widać łączenia kolumny z podłogą. Nie odpowiada mi również dywanik i wzorek na firance. Co to w ogóle za brednie :/ Takie posty powinno się usuwać (nic nie wnosi do tematu) albo przenieść do działu na wesoło. Kolego "młody elektronik" uważasz się za dobrego elektronika, wobec tego mówiąc że tworzysz tubę estradową rozumiem...
http://obrazki.elektroda.net/13_11519251... Głośniki Obudowa Mdf. Przód 32, tył 25, reszta 19mm. Sufit w kształcie walcowym skleiłem z pasków o przekroju trapezu o podstawach 10 i 11mm. Dodatkowo każde 3 sąsiednie paski pozbijałem gwoździkami. W narożach obudowy solidne beleczki sosnowe. Podłoga z możliwością odkręcenia. Wszędzie duuużo wikolu i...
Kondensator 10 Uf dałem do utylizacji.Bo Kolumna po co ma grać od 2 KHZ przy tym kondesatorku.Wszystko Super chodzi tak jak trzeba.To zabezpieczenie co podałem spisuje się świetnie i piezakowi nic nie jest.Mogę dodać za głośnik ma ogromny magnes cewkę 3 calową odlewany kosz i nawet bdb gra jak na głośnik nieznany mi bije na głowę alpharda hw1200.Alphard...
Np. takie makro: [syntax=vbscript]Public Sub PusteKomentarze() Dim i As Long Dim OstW As Long OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW If Not (Range("A" & i).Comment Is Nothing) Then If Range("A" & i).Comment.Text = "" Then Range("A" & i).ClearComments End If End If Next i End Sub [/syntax]
https://careerkarma.com/blog/css-hide-el...
Jeszcze jedno pytanie... nie wchodzi mi to bo powinno to wyglądać tak: |"tu coś tam napisane pomiędzy cudzysłowem jak widać"| a pierwsza jakby kolumna nie ma cudzysłowów czyli jest tak: |tu coś tam napisane pomiędzy tylko kreskami tak jak widać| http://obrazki.elektroda.pl/7570377500_1... dlatego, czy da się usunąć wszystko co jest napisane...
zależy mi żeby makro zawierało listę funduszy (kodów), które można powiększać o kolejne nowe lub odejmować niepotrzebne. Makro będzie miało za zadanie usuwać wszystkie fundusze/kody inne niż na liście. Czy ja dobrze rozumiem kolego "m4xon", że oczekujesz żeby na forum ktoś sporządził Ci listę funduszy unijnych ? :D A na poważnie to gdybyś zamiast pustego...
No właśnie rozpuszczalnikiem już próbowałem, ale myślałem, że ktoś zna lepszy sposób. Nitro wszystko weźmie, ale uwaga na opary. Miałem kiedyś tonsil TON 200 oklejone kocykiem kupiłem tu na elektrodzie, kocyk czy wykładzina gumowana zeszła spokojnie szybko ale został klej, posmarowałem nitro odczekałem aż wejdzie w reakcję z klejem i przecierałem szmatką,...
W załączniku podałem próbkę dokumentu z programu OpenOffice Calc, interesuje mnie kolumna "suma brutto", są tam różne wartości a po nich "PLN". Otóż problem polega na tym, że chciałbym się pozbyć-->usunąć to "PLN". Usuwać pokoleji ręcznie to męczarnia bo pozycji jest różnie ale od 100 do nawet 10.000 miesięcznie (zależy od miesiąca). Czy można to załatwić...
Trzeba poskładać wszystko i dopiero drukować. Coś w stylu a co to znaczy pagebr = 42 ??? skąd ta wartość??? i poco w szablonie usuwać resztę pustych wierszy???
Masz rację, mój pomysł był błędny. Najrozsądniejsze rozwiązanie jakie mi przychodzi do głowy to rozwiązanie "programowe", a nie SQL-owe. Załóż sobie nową tabelę, w której pole NUMER będzie unikalne, a potem przenieś dane z obecnej tabeli - ignorując błędy związane z "duplikatami". Tak będzie najprościej. Jedno pytanie - po co ci w takim razie klucz...
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))...
Hmm, bez makra... Pewnie da się kilkoma tablicowymi, ale aż takim orłem w funkcjach nie jestem ;) W załączniku wynik kombinacji z arkuszem pomocniczym. Trochę tam jeszcze nieporządek z funkcjami. No i listy zepsułem - myślałem, że ta tabelka to wynikowa ma być. Listę grubości wpisałem "na sztywno", a materiał... może tak właśnie będzie dobrze (można...
podczas wyboru pliku kliknę na przycisk "Anuluj" :cunning: Temu kto kliknie "Anuluj" trzeba ustanowić karę : wklejania ręcznego poszczególnych wartości do tabeli :please: A na poważnie to można wprowadzić kod obsługi błędu i przerywający makro np: [syntax=vbscript]Public Sub ImpCsv() Dim Monthly As String Dim aConn As Object On Error GoTo ErrMsg If...
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ą...
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=vbscript]Sub Kasuj() Dim k As Variant For Each k In Sheets("Arkusz1").Range("TerminyGORNIK") If k <= Date Then Sheets("Arkusz1").Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Aby usunąć wiele kolumn w VBA na podstawie nazw nagłówków, możesz użyć poniższego kodu. Ten kod przeszukuje wiersz nagłówka (w tym przypadku wiersz 1) i usuwa kolumny, które pasują do określonych nazw nagłówków. Sub UsunKolumny() Dim Naglowki As Variant Dim Naglowek As Variant Dim Kolumna As Range ' Określ nazwy nagłówków do usunięcia Naglowki = Array("Naglowek1",...
Witam, Prosiłbym o pomoc - potrzebuję makra usuwającego daną kolumnę w arkuszu jeśli posiada określony nagłówek. Nagłówek zawsze znajduje się w wierszu 1. Z góry dziękuję Pozdrawiam
Tak. Był błąd.
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ć.
To[syntax=vbscript]For Each Wks In ThisWorkbook.Sheets If Wks.Name <> "Źródło" Then Wks.Delete Next Wks[/syntax]wyrzuć
Jakoś dziwnie masz to zrobione, ale tak na szybko to podmień na [syntax=vbscript]Cells(j, t).Delete xlShiftUp[/syntax]
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...
Nie powinno nic szkodzic!
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
Aby zrobić "szóstki" na podobnej zasadzie jak "dwójki" excel by musiał mieć 13.983.816 wierszy (liczba wszystkich kombinacji). Niestety excel ma "tylko" 1.048.576 wierszy. Usuwając kolumny można jeszcze trochę zwiększyć, ale gdzie 1 milion do prawie 14 milionów. Co prawda można powielić to w kolumnach (14 razy 6 kolumn plus po jednej na datę wyniku)...
lub zmień na [syntax=vb]If Cells(i, "B").Text = 1 Then[/syntax]
Zaznaczyłem nakrętki o które pytasz (rzadko to jest przyczyna luzu).
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
W załączonym pliku możesz dodawać i usuwać kolumny (wyłączając kolumny 'czynnik1' i 'czynnik2'), a makro będzie poprawnie liczyć.
Witam, mam podobny problem. Potrzebuję usunąć ostatnie 4 z 7 kolumn w notatniku. Wierszy jest ok 12mln więc word, excel odpada bo są ograniczone do nieco ponad milion. Macie jakiś pomysł? Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki. Powoduje to bałagan na forum.
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
Zmieniłem trochę kod, ale w dalszym ciągu nie wiem jak zrobić żeby usuwało datę bieżącą jeśli w danym wierszu wszystkie komórki będą puste
Jak zlikwidować luz na kolumnie kierowniczej Renault Midlum 220?
Chciałabym żeby te kolumny były od siebie niezależne, obecnie tekst nie przechodzi na kolejną stronę a do drugiej kolumny :(
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.
Dziękuję, dokładnie o to mi chodziło. Na podobnej zasadzie zrobiłem usuwanie ostatniej kolumny. Mam jeszcze ostatnie pytanie, jak przy wklejaniu za każdym razem dodawać "-01"?
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...
makro usuwać kolumna automatyczny usuwać kolumna excel usuwać kamień
ustawienia toshiba podłączyć falownik silnik schemat otwieranie garaż pilot
ocieplenie stropu hitachi 32hb4t61
Zasilacz 6-pin PCIe a płyta główna ATX 24-pin – czy Gigabyte, Asus, MSI uruchomią się? Zasilacz 12-pin a płyta główna ATX 24-pin – kompatybilność, ATX12VO, Dell, HP, adaptery
