Dane - Filter nie dziala ?
Odpal takie makro [syntax=vb]Sub koko() r = 2 While Cells(r, 1) <> "" If Cells(r, 1) = Cells(r + 1, 1) Then Cells(r, 2) = Cells(r, 2) & vbLf & Cells(r + 1, 2) Rows(r + 1).Delete r = r - 1 End If r = r + 1 Wend End Sub [/syntax]
Nie zauważyłem by autor pytania prosił koniecznie o formułę. Owszem wspomniał, że: "Wiadomo jest to jedna formuła", ale nie wiemy czy kurczowo zamierza trzymać się formuł, bo jest (jak np: ja) entuzjastą Excel'a, aczkolwiek dopiero "raczkującym", czy być może jest to dla Niego rodzaj testu, zadania (ze szkoły, studiów, pracy - niepotrzebne skreślić)....
Zmodyfikuj ten kod np tak :spoko: : [syntax=vbscript]Sub filtr() a = Range("C3") b = Range("C4") i = 7 c = 0 Do While Cells(i, 3) <> "" If (Cells(i, 3) >= a) And (Cells(i, 3) <= b) Then Rows(i).EntireRow.Hidden = False c = c + 1 Else Rows(i).EntireRow.Hidden = True End If i = i + 1 Loop [A1] = c End Sub[/syntax]
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
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.
Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...
Tak jak myślałem z tym językiem. Tu są informacje od "Office" co należy "mieć" by pisać od prawej do lewej (arabski/hebrajski itp): [url=https://support.office.com/pl-pl/ar... _informacji
Jak uważasz, ale osobiście wolałbym mieć wszystko pod ręką, w jednym arkuszu. W załączniku "po mojemu" z blokadą zakresu. W innym przypadku: w A1 wpisz =PRODUKTY!A1 i rozciągnij na zadany zakres, a w opcjach wyłącz wyświetlanie zer.
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next 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...
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
usuwanie wierszy z tabeli przy powtarzającej się wartości
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Bez makra, wpisz numer do F1 - Druk
apollinaris , dałeś taki przykład, że trudno się zorientować jakiego wyniku oczekujesz. Czy czas w kol. C będzie zawsze taki sam tzn. 10:45, czy będzie zmienny i kolory mają być dopasowane proporcjonalnie? Jeśli zmienny to adres używany w formule musi zawierać nr wiersza bez znaku $. I zawsze piszemy formułę dla pierwszej komórki zakresu formatowania....
Jeżeli wprowadzisz odpowiednią kolumnę pomocniczą w arkuszu głównym :spoko: to pożądany efekt można uzyskać formułami jak na zrzucie 927750 Całość w załączniku. 927751
Jeśli piszesz, że nie znasz się na VBA, to dlaczego chcesz to robić w VBA? Przecież do tego wystarczy prosta formuła: [syntax=text]=LICZ.JEŻELI(D$1:D1;$D$1)[/... kopiujesz w dół jak daleko potrzeba. A żeby to zrobić w VBA należałoby opisać jak to dokładnie ma działać, czy jednorazowo, czy ma śledzić wpisywanie nowych danych i dodawać numerację...
Tak dobrze?
Jeśli dobrze zrozumiałem chodzi Ci o coś takiego? =JEŻELI(B1="*";A1;0)+J...
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 5 Then nw = Sheets("Logistyka").Cells(Rows.Count, "A").End(xlUp).Row + 1 If nw = 2 Then nw = 1 w = Target.Row Range(Cells(w, 1), Cells(w, 5)).Copy Sheets("Logistyka").Cells(nw, 1).PasteSpecial xlPasteValues End If End Sub [/syntax] Kod na tyle prosty,...
W załączniku, wartość z D41 jest przenoszona do AK1
Analogicznie [syntax=vb] For Each c In ActiveSheet.Range("C1:C22") ' przeszukiwanie If c = cc2.Value And Range("A" & c.Row)= cc1.Value Then wiersz = c.Row Exit For End If Next c [/syntax] Edit
Zerknij, czy o to Ci chodziło.
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
[url=https://www.youtube.com/watch?v=ywS... coś znajdziesz.
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
... JEŻELI(B9&C9&D9&E9&F9&am... ...
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
a nie odwrotnie? tam znak powinien być chyba "<", a nie ">" i wtedy suma by pokazywała pozycję :) trochę łopatologicznie ale grunt że chyba działa Nie, z ">" jest dobrze. Oczywiście masz kilka elementów do wyboru: kolejność wpisania porównywanych wartości, znak "<" czy ">" oraz wartości "1" i "0" czy "0" i "1", możesz zmienić dowolne...
Już w poprzednim wątku zwracałem uwagę, że dane mają być reprezentatywne. Tam nie było nic o tym, że numery bloków mogą się powtarzać i wobec tego w kodzie była wykorzystana zmiana numeru bloku w stosunku do poprzedniej. Teraz przyjąłem, że jeśli blok jest złożony z kilku elementów, to numeracja po / zaczyna się od 1. Trzeba te bloki jakoś rozróżniać....
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
...jak to przenieść aby ta druga kolumna wyświetlała się w arkuszu 2? Normalnie. Skopiuj pierwszą formułę i dodaj do nazw kolumny B:B nazwę arkusza. Na marginesie zaznaczam że aby to działało źródła jak i odwołania muszą być w tych samych wierszach.
Rzeczywiście - trzeba od dołu - Mój błąd :) Tylko w tym powyższym kodzie szuka po kolumnie "A" a powinien po "P", czyli cells(x,16) :)
Powinno działać.
Da się to zrobić w ten sposób: 1. wpisać dane kwota netto w kilka wierszy np od 2 do 5, 2. przeciągnąć formułę przeliczenia euro od wiersza 2 poza wiersz 5 o kilka (np 5) wierszy w dół. w miejscach gdzie nie było w wierszach danych kwot netto w kolumnie przeliczników pojawi się 0. 3. zaznaczyć obszar komórek z zerami i nacisnąć "del", nie poprzez usuń...
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 załączniku. Albo bez kolumny pomocniczej: [syntax=vbscript]Sub PozostawSkrajne() Application.ScreenUpdating = False ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 2 Step -1 f = False If Cells(x + 1, 1) = Cells(x, 1) Then f = True If Cells(x, 1) <> Cells(x - 1, 1) Then f = False If f Then Rows(x).Delete Next Application.ScreenUpdating...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
[syntax=text]=WIERSZ()&"/2011"[/syntax] i przeciągnij w dół. Jeśli kolumna ma nagłówek, dodaj odp liczbę. Np WIERSZ()+2 od trzeciego.
[syntax=vb]Sub numery() Dim wz As Worksheet, rs&, re&, i&, j& Dim bs As Range, bd As Range Set bs = ThisWorkbook.Sheets("baza").Range("B1:C1... 'platform, tara Set bd = ThisWorkbook.Sheets("start").Range("B1:C... 'wagony Set wz = ThisWorkbook.Sheets("wykaz_zdawczy") wz.Activate rs = 17 'wiersz poczatkowy re = wz.Cells.Find("podpis").Row...
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Witam, jest kilka rozwiazan jezeli hide nie wystarcza mozna uzyc skryptu w VB, uzyj wyszukiwarki: "how to limit visible cell in excel" Pozdrawiam
Ja również dziękuje.
Jeśli wynik nie zgadza się, spróbuj pokombinować z funkcjami tekstowymi. Np http://obrazki.elektroda.pl/3805960600_1... Usuwane są spacje w obu kolumnach oraz sprawdzanie wartości "przekonwertowanych" do małych liter (wtedy wielkość liter nie ma znaczenia) [syntax=text]=SUMA.ILOCZYNÓW((USUŃ.ZBĘDN...
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
To się baw. Sprawdzanie PESELa znajdziesz w sieci. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then If Target = "Tak" Then Range(Rows(13), Rows(14)).Hidden = True Else Range(Rows(13), Rows(14)).Hidden = False End If End If If Target.Address = "$C$15" Then If Target = "Tak" Then Range(Rows(16), Rows(17)).Hidden...
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
[syntax=vb]Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = ...[/syntax]
Poproś kogoś innego.
W przykładowym pliku pokazałeś już dane posortowane, więc nie zobaczysz tak łatwo efektu, chyba że sobie posortujesz odwrotnie. Sposób postępowania, który najprościej zastosować: Rozdzielić listy pustymi kolumnami. Wartości z listy wzorcowej ponumerować od 1 do N w dodanej kolumnie. Do listy sortowanej dołączyć kolumnę z wyliczonymi numerami wg listy...
[syntax=vbnet]Sub Kopiuj5() Application.ScreenUpdating = False Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row nw = ow + 1 For x = 2 To ow If Cells(x, "C") > 1 Then Range(Cells(x, "A"), Cells(x, "C")).Copy Range(Cells(nw, "A"), Cells(nw + 4, "C")).Select ActiveSheet.Paste Range(Cells(nw, "C"), Cells(nw + 4, "C")) = 1 nw = nw + 5 End...
W kodzie arkusza [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Target.Resize(, 2).Interior.Color = vbRed Sheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Resize(, 2).Offset(1) = Target.Resize(, 2).Value Cancel = True End If End Sub[/syntax]
Żaden kłopot. Jeśli chodzi o zera, to najprościej wyłączyć wyświetlanie w opcjach: http://obrazki.elektroda.pl/6240352000_1... W komórkach G34:G40 zrób podobnie jak w G41 =JEŻELI(SUMA(G2;G10;G18;G26)...
Opisane trochę niejasne, ale funkcja PODAJ.POZYCJĘ a INDEKS może pomóc
Pierwsza sobota przypada w okresie pomiędzy 1 a 7 dniem miesiąca. W tym okresie może być tylko jedna sobota i w tym okresie zawsze musi pojawić się sobota. Skoro masz już warunek na "sobotę" to dołóż drugi na dzień miesiąca < 8.
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
Akurat robiłem coś takiego do swojego projektu i mam kod pod ręką. Wklejasz go do arkusza, który ma obsługiwać "kolorowanie wiersza" po wpisaniu wybranego znaku (w moim wypadku: litery x do kolumny 1). Kod został rozbudowany o "dynamiczne" ustalanie zakresu kolumn do zaznaczenia (ost_col - ostatnia kolumna nagłówka), obsługę zarówno wpisania pojedynczej...
chciałbym zeby wybierało tylko wiersze spełniające pewne warunk Jak zwał, tak zwał. Ale wyobraźmy sobie, że "wybierało" dzieje się w tej linii [syntax=vb]Print #1, kol1 & ";" & kol2; ";" & kol3; ";" & kol4; ";" & kol5; ";"[/syntax](wcześniej jest przypisanie). Wystarczy więc, tę jedną linijkę "owarunkować" [syntax=vb]if warunek then Print #1, kol1...
x.Row
[syntax=vbscript]Cells(n, "B")[/syntax] [url=http://vb.amc24.pl/iso2/zmienne/typ...
Wbudowany filtr nie wystarczy?
Standardowo: INDEKS, gdzie argumentem jest wynik PODAJ.POZYCJĘ... Np w H2 (miasto)[syntax=text]=INDEKS(A:A;PODAJ.P...
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]
No cóż, drygu do formułek to takiego nie mam jak kolega Prot , natomiast makrem to tak, jak poniżej w pliku, no i takie zgrabne to to nie jest .. : / ... : ) ... 907466 Starałem się uwzględnić tutaj "stan nieustalony", tzn. sytuację kiedy " tak dostawy2 " może znajdować się albo pod " tak dostawy1 ", albo po przekątnej od niej. 907467 Poza tym, lepiej...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
To da się zrobić nawet za pomocą suma(). http://obrazki.elektroda.pl/9193961000_1... Pochrzaniłem zakresy sumowania dla środy - nie zwracaj uwagi na liczby .
to mi nic nie pomaga Oczywiście jeśli używany tylko w pogotowiu [syntax=vb]Private Sub ListBox1_Change() ListBox2.ListIndex = ListBox1.ListIndex End Sub [/syntax]
Wyszła mi taka formuła: [syntax=text]=ADR.POŚR("'[01 Par. -Styczeń 2017.xlsx]"&TEKST(WYSZUKAJ(100;B$7:B7);"... wykorzystuje liczby wpisane w kolumnie B. Wyniki muszą być wpisywane od siódmego wiersza. W kolumnie W jest formuła wyliczająca numer wiersza...
Użyj funkcji sumy.częściowe() (w argumencie funkcja zliczając np. ilość komórek liczbowych).
[syntax=vbscript]Sub Kopiuj() Set a = Sheets("Arkusz1") owa = a.Cells(Rows.Count, "B").End(xlUp).Row Sheets("Arkusz3").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 2 For x = 2 To ow s = Application.Match(Cells(x, 2), a.Range("B1:B" & owa), 0) If Not IsError(s) Then a.Rows(s).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub...
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Czy jest taka możliwość w Excelu 2010? Tak. Kolumna pomocnicza z max()+1 i formuła "na boku" z INDEKS(PODAJ POZYCJĘ Zobacz [url=http://www.elektroda.pl/rtvforum/to... załacznik #2
Każdy skaner ma w swoich ustawieniach opcję zakodowania "entera" po odczycie. Do każdego jest dołączona plastikowa karta lub odpowiednio przygotowana karta papierowa z kodami sterującymi i ustawieniowymi. Cała sprawa polega tylko i wyłącznie na zeskanowaniu odpowiedniego kodu z takich kart i gotowe.
W załączniku przykładowo formatowanie od trzeciego wiersza.
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
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
Przetestuj ten kod dla zdarzenia Worksheet_Change arkusza Form2. W komórce B4 arkusza Form2 wpisujesz jedynie numer rekordu do skopiowania. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim lLstRw& 'pierwszy wolny wiersz w arkuszu "baaza" Dim lLstRwBs& 'ostatni zapisany wiersz w arkuszu "zbaza1" Dim lFndRec& 'numer wiersza ze znalezionym...
dla przycisku tak daj takie samo makro tylko zamień True na False
[syntax=vb] If ostatniwiersz <> 24 Then MsgBox "W arkuszu jest " & ostatniwiersz & " wierszy" [/syntax]
Zrób sobie macro. https://obrazki.elektroda.pl/4879707900_...
Jeżeli CheckBox=True warunkowo ukrywa wiersze, =False odkrywa, to [syntax=vbscript] If CheckBox1 = True Then For i = 1 To lastRow If (StrComp(Cells(i, v_column).Value, "Scrap", vbTextCompare) = 0) Then Cells(i, v_column).EntireRow.Hidden = True End If Next i Else rows.EntireRow.Hidden = False End If[/syntax]
W załączniku przykład dwóch (tych łatwiejszych) metod. Trzecia, najszybsza, działałaby tylko z kalendarzem (tj. od 1-go do ostatniego dnia m-ca). Dla porównania (i nauki) zostawiłem nagrane makra w 'Module1'.
Sorki, zmyliło mnie "o identycznych 4 kolumnach" ;) Użyj dwóch kolumn pomocniczych np. E, gdzie formuła =A1&B1&C1&D1 i F =JEŻELI(LICZ.JEŻELI(E:E;A1&B... duplikat";"")
Jakoś nie widzę zastosowania makra do przenoszenia z Arkusz1 do Arkusz2 niepustych wierszy. Wygląda na to, że coś się zmieniło... Opisz wiec proszę co i jak ma być.
Kodem tak: [syntax=vbscript]Sub Kody() Sheets("Arkusz1").Select Set a = Sheets("Arkusz2") ow = Cells(Rows.Count, "A").End(xlUp).Row w = 1 For x = 1 To ow ok = Cells(x, Columns.Count).End(xlToLeft).Column For y = 2 To ok a.Cells(w, 1) = Cells(x, 1) a.Cells(w, 2) = Cells(x, y) w = w + 1 Next Next End Sub [/syntax]
Samo się wpisze...
W załączniku.
A zaznaczenie wierszy 2-5 a następnie menu Dane -> grupy i konspekt -> grupuj nie działa? P.S. UPS, spóźniłem się :/
Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]
Jeśli chodzi tylko o zaznaczenie duplikatów, a nie o manipulowanie wpisami można posłużyć się formatowaniem warunkowym. Trzeba tylko doprecyzować, gdzie są te dane do porównania. Czy one są w osobnych plikach (skoroszytach), czy w innych arkuszach tego samego skoroszytu? Założyłem, że to drugie. Gdyby to były osobne pliki, to najlepiej skopiować te...
firma z przypisanym kodem z kolumny A kod_2 nie ma znaczenia? Dodano po 43 [syntax=vb]Sub kokos() Dim bs As Range, bd As Range, bt As Range Dim rs&, re&, rd& Set bs = Sheets(1).Range("A:J").Cells Set bd = Sheets(2).Range("A:D").Cells re = bd(Rows.Count, 1).End(xlUp).Row + 1 Range(bd.Rows(2), bd.Rows(re)).Delete bs.Sort key1:=bs(1, 3), key2:=bs(1,...
Sprawdź załączony plik.
Moje rozwiązanie wyglądałoby jakoś tak: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-05-12, autor Darek ' ' Const S1 = 8 ' najmniejszy przedział Const S2 = 16 ' sredni przedzial Const S3 = 32 ' najwiekszy przedzial Const D1 = 3 ' tolerancja sredniej najmniejszego przedzialu Const D2 = 5 ' tolerancja sredniej sredniego przedzialu...
Było. Poszukaj w archiwalnych tematach. [syntax=vbscript]Sub UsunWiersze() For x = 100 To 49 Step -1 a = Cells(x, "B") If a <> "" And a = 0 Then Rows(x).EntireRow.Delete Next End Sub[/syntax]
ukrywanie wierszy excel wstawianie wierszy excel excel usuwanie wierszy
instalacja nowego dysku toshiba przegrywanie kaset kalibracja ekranu dotykowego
silnik zelmer schemat podłączenia connects2
Komunikat ER r i trójkąt z wykrzyknikiem w Junkers Zalewanie obwodu wodnego w Saeco PicoBaristo: przyczyny i rozwiązania