[syntax=vb]ComboBox1.ListIndex[/syntax] Tylko że ListIndex zaczyna liczyć od 0 więc jeżeli chcesz poznać wiersz to : [syntax=vb]wiersz=ComboBox1.ListIndex+1[... Ale jeżeli listę pobierasz nie od pierwszego wiersza arkusza należy dodać liczbę wierszy od pierwszego do wiersza w którym zaczyna się początek listy czyli np: [syntax=vb]wiersz=ComboBox1.ListIndex+1....
Wystarczy pobrać który wiersz w kolejności z listbox'a zaznaczyłeś lstFiltr.ListIndex a jak widać wprowadzasz do boxa listę od drugiego wiersza (B2) więc mając na uwadze to że listbox "liczy" własne wiersze od 0 należy powiększyćwynik o 2 i już masz nr wiersza. nrWrs = lstFiltr.ListIndex +2
Po prostu trzeba zwiększyć daty. Funkcja WIERSZ(bez argumentu) zwraca numer wiersza.
Do tego służy funkcja ADR.POŚR, która zamienia adres podany w postaci tekstu na odwołanie, czyli: [syntax=text]ADR.POŚR("C" & WIERSZ())[/syntax]Ale mam wrażenie, że dążysz do swojego celu okrężną drogą. Lepiej opisałbyś cały problem od razu, a nie dzielił go na kawałki, bo po złożeniu tych kawałków w całość, to może się okazać mało efektywne.
Wrzuć spakowany, nie wszyscy ufają takim "przechowalniom". Albo wklej samą pętlę. W skrócie: Jeśli For-Next to nie ma problemu. Jeśli 'Do', to wstaw licznik. W obu przypadkach, gdy licznik osiągnie zadaną wartość =Range(tu adres komórki), wtedy Exit Sub.
No to tak: [syntax=vbscript]Sub petla() Dim k&, i& For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(k, 2).Value Like "Symb." Then i = i + 1 Cells(k, 2).Offset(0, -1).Value = i End If Next k End Sub[/syntax]
Bez makra, wpisz numer do F1 - Druk
Jeśli numeracja ma się zmieniać, to formuła może być np. =WIERSZ(A1)&"|"&A1 gdzie A1 jest adresem pierwszej komórki. Ale Pan nie napisał, że numer ma się zmieniać.
Cześć, Macie pomysł jak wyciągnąć numery wierszy z zakresu nieciągłego, wybieranego myszą + ctrl? Chodzi o sytuację, gdy zaznaczamy np komórkę B1, D5 i F8 i chcę pobrać numery wierszy, by wyciągnąć dane z komórek w kolumnie A z odpowiadającymi wierszami. Najprościej działa zaznaczanie danych w kolumnie A i wklejenie w docelowym miejscu ale metoda ta...
W załączniku.
Dla kolumny A: A1=1 reszta komórek w kolumnie funkcja: =JEŻELI(NIE(B2="");A1+1;"") EDIT: Oczywiście co do funkcji to dale komórek: A2 = JEŻELI(NIE(B2="");A1+1;"") A3 = JEŻELI(NIE(B3="");A2+1;"") A4 = JEŻELI(NIE(B4="");A3+1;"") A5 = JEŻELI(NIE(B5="");A4+1;"") itp. wystarczy wypełnić serią.
Następna lista musi zaczynać się od 43 wiersza. Czyli odwracając działanie w kodzie: (43+1) / 2 = 22 I trzeba zresetować LP przed następną pętlą[syntax=vb]elpe = 1 For w = 1 To 20 Cells(w * 2 - 1, 1) = elpe elpe = elpe + 1 Next elpe = 1 For w = 22 To 140 Cells(w * 2 - 1, 1) = elpe elpe = elpe + 1 Next[/syntax]
=JEŻELI(ILE.NIEPUSTYCH(B9:F9)=5;...
Popraw swoje formuły i będzie działać. Niezauważyłem tego wcześniej bo przyznam że w mojej przygodzie z excelem nie spotkałem się jeszcze nigdy z takim "błędem". Teoria: Jeżeli w komórke wpiszesz "2" to owszem widzisz dwójkę ale excel odczyta to jako tekst o znaku 2 a nie cyfrę dwa. (rozumiesz niuansik?) Dla excela "0" to tekst i nie jest tożsame z...
Nie zapisałem. Ale z obrazka wynika, że w D8 łączysz w ciąg rozdzielając spacjami: =" "&B8&" "&C8&" " koniecznie ze spacjami na początku i końcu. Inaczej znajdzie "1" w "11" itd. w E8 warunkowo dodajesz 1 do MAX: =JEŻELI(CZY.BŁĄD(ZNAJDŹ(&quo... "&G$8&" ";D8));"";MAX(...
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ę...
Witam, chciałbym ponumerować wiersze w excelu 2016 za pomocą formuły jak w załączonym pliku. W kolumnie A są wartości stałe - liczby porządkowe od 1 do 6, a w kolumnie B (zmienne) - liczba wierszy do ponumerowania. Efekt powinien być taki jak w kol. D. O ile wiem jak to zrobić w przypadku gdyby była tylko jedna liczba porządkowa to nie wiem jak w przypadku...
Szukam funkcji która by pobierała wartość z komórki i szukała numeru wiersza wyświetlając jego zawartość Funkcja [syntax=vb]=INDEKS(A:A;H8;1)[/syntax]?
Jeżeli numery są pisane bez spacji i w wierszu jest tylko 1 numer złożony z 26 cyfr, to można zastosować taką formułę tablicową: [syntax=text]=INDEKS(FRAGMENT.TEKSTU(B2;...
Hmm, u mnie dane są na jednym arkuszu. Chciałbym żeby z tej całej tabeli gdzie jest 450 wpisów po wpisaniu nr telefonu na arkuszu zostały jedynie wiersze z tym właśnie numerem.
Po pierwsze, nie sprawdzaj czy jest aktywna komórka w kolumnie "C" - jeśli ma być tam aktywna to ją uaktywnij bez sprawdzania, np. Application.WorksheetFunction.CountA(Col... , o ile kolumna jest ciągłą i nie zawiera przerw, to pierwszym wierszem z wolną komórką będzie o 1 większy niż zwróci to funkcja tzn. [syntax=vb]wiersz=Application.WorksheetF...
Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...
Jeszcze jeden wariant. Uwzględnia ostatnie (w sensie numeru wiersza, a nie daty) zamówienie każdego towaru. Zakładam, że wpisy w arkuszu 'Stany' będą unikatowe.
-wartosc w kolumnie "O" sie zmieni na "X" i od ktorej jest uzalezniony kolor - wiersz w ktorym to wystapi jest w zakresie od "A - U" Analogicznie, zmień [syntax=vb]ost_col = Range("IV1").End(xlToLeft).Column[/synta... na sztywno ustalony numer kolumny:[syntax=vb]ost_col = 21[/syntax]
Na samym wstępie zaznaczę, że jak na razie nie korzystamy z makr tylko z wbudowanych funkcji excela. Wydaje mi się że to co chcesz to właśnie razem z kolegą adamas_nt ci zaproponowaliśmy ostatnio. Sprostuje jedynie że nie trzeba stosować formuł tablicowych - ale to ci chyba i tak za dużo nie mówiło No chyba że dalej nie rozumiem. Na końcu (w prawo)...
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ć....
Zaznaczyć wiersze? Mam refleks... Tak jak pisze marek003 . Z tym, że stosując "&" VBA automatycznie zmieni Integer na String i wystarczy: p = 20 k = 25 Rows(p & ":" & k).select p.s. A'propos operatorów. Chociaż to nie jest duży błąd, ale lepiej trzymać się zasad. Operator "+" stosuje się w arytmetyce "&" w ciągach tekstowych. Gdy kod ma kilka(set) linijek,...
W C1 wpisz =JEŻELI(WIERSZ()=PODAJ.POZYC... i skopiuj/przeciągnij w dół. Gdyby warunkować jeszcze brak danych wtedy =JEŻELI(CZY.BŁĄD(JEŻELI(WIER...
Uzyj funkcji losującej numer wiersza w adresie i złącz 4 takie funkcje: [syntax=vb]=ADR.POŚR(ADRES(RANDBETWEEN(2...
Ale po co tak kombinować? Od tego są tabele przestawne ;)
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
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...
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...
Witam Mam w excelu 9 kolumn z jakimiś danymi. W pierwszym arkuszu w kolumnie E znajdują się numery produktów które się powtarzają w tej kolumnie. Chciałbym wpisując na drugim arkuszu w komórce A1 numer produktu (np. 1234) przeszukało mi w arkusz1 kolumne E czy jest tam to moje 1234 i skopiowało wszystkie wiersze do arkusz2. Mam coś takiego: [syntax=vb]...
1. Funkcja znajdz() zwroci 7, wiec podany przez Ciebie przyklad zwraca nic innego jak falsz i to rozwiazanie nie jest dla mnie odpowiednie. Chcialby sprawdzic czy istnieje ciag znakow z jakas litera na poczatku i zastanawia mnie dlaczego "*", ktora oznacza dowolny ciag znakow nie dziala w moim przypadku ? 2. Ten przyklad rowniez jest niepoprawny a...
Tych numerów jest kilkaset. Jeśli tak :cry: to konieczne może być dodanie na początku dwóch kolumn pomocniczych z "przeciągalnymi" formułami zliczającymi :idea: i wówczas będziesz formatował :D jak na zrzucie i w załączonym pliku :spoko: 1111274 1111275
Dobry wieczór jeszcze raz, Inny wariant rozwiązania z użyciem formuły tablicowej. Idea taka sama jak poprzednio, chodzi o znalezienie miejsca wystąpienia pierwszej litery w tekście. Dane jak poprzednio w kolumnie A. Umieszczamy kursor w kolumnie D w wierszu z danymi. Otwieramy Menedżer nazw (w Excelu 2003 Wstaw/Nazwa/Definiuj) i definiujemy formułę...
To jeszcze dołożę swoją propozycję z formułami. Założenie jest takie, że wszystkie pozycje w kolumnie C są numerowane. Jeśli tabela zaczyna się nie w wierszu drugim, a jakimś innym formuły wymagałyby dopasowania. Formuły są tablicowe jednokomórkowe.
Odpowiedź pozostaje ta sama. Liczby nie muszą być po kolei, RANDBETWEEN losujesz tylko numer wiersza w kolumnie A. Jeżeli umieścisz w niej te czasy, spośród których chcesz losować, to będziesz de facto "losował" czasy.
W [syntax=vbscript]w = Cells(Rows.Count, "A").End(xlUp).Row + 1[/syntax] masz numer wiersza kolejnej wolnej komórki w kolumnie A, użyj go np. [syntax=vbscript]Cells(w, "A").Value = Date[/syntax]
Dzięki za podpowiedzi:D
Uwagi: Set Drng = Arkusz1.Range("B6") Brak deklaracji tej zmiennej - inne są, jeśli w kodzie pojawi się instrukcja " Option Explicit " będzie błąd Oferta = Drng.End(xlDown).Offset(-1, 0).Value Będzie pobierać wartość nie z ostatniego wiersza "tabeli/kolumny", ale z przedostatniego - czy taki był zamysł ? Tabela = Split(Oferta, "/") Nr = CInt(Tabela(0))...
Proszę o plik excel tylko do formatów napisów i poprawnie utworzyć formułę. I raczej jeden wiersz z euro i jeden ze zlotim. zdjęcie pokazuje, jak to wygląda, ale czy ma numeru lub tekstu lub innego formatu można zobaczyć tylko w pliku. Nie sądzę, że to wielka tajemnica Dodano po 2 plik prawdopodobnie nie będzie czekać. Jeśli kolumna C:C jest tekst to...
Cześć. Być może da się bardziej elegancko, ale na szybkiego przychodzi mi coś takiego na myśl (załącznik). Krótkie wyjaśnienie: Kolumna A - liczby, z których wyciągam średnią. Metoda pierwsza: w kolumnie pomocniczej (C) mam liczby od 1 do 20, to jest kolejny numer grupy. W D1 mam ilość elementów przypadających na grupę. Wtedy pierwsza komórka (B1) może...
Za wybieranie rekordów odpowiada zapytanie SQL, w tym kodzie to fragment: Sql = "SELECT [ID klienta], SUM([Godzin]) FROM [Dane$] GROUP BY [ID klienta] ORDER BY [ID klienta]" Jeżeli chcesz dodać kolumnę o nazwie SIGN i grupować najpierw po ID klienta, a później po niej, napisz: Sql = "SELECT...
Wykorzystanie funkcji adres pośredni
Opis jest strasznie niejasny, czy chodzi o makro do Excel'a które zrobi tak: dla H1 - 1 dla H2 - 160 dla H3 - 320 dla H4 - 480 ??
Zaczne od tyłu: Wprowadziłem ci dwa "rozwiązania" active i inactive. Zwróć uwagę na różnice w formule (jaka wartość jest sprawdzana) i wybierz odpowiednią dla siebie. Dodałem wyszukiwanie nazwy z pierwszego arkusza za pomocą formuły "indeks" I najważniejsza rzecz: wstawiłem ci w formułę 1,03 (marża na sztywno a może uzależnić od innej komórki gdzie...
W każdej komórce tabeli w arkuszu2 w tych polach poza kolumną 1, wstawiasz funkcję szukącej tej samej wartości, co wprowadzasz w polu A, co w polu A, ale w arkuszu 1, i ta funkcja ma zwrócić ci numer wiersza np i, potem w tym polu wpisujesz: =Arkusz1!Bi, albo inne litery dla kolejnych pól. Jak znajdę czas to sam spróbuje ci to zrobić
Proszę przetestować, powrót do nowego wiersza po zeskanowaniu kodu z ramki.
Dokładnie tak: [syntax=vb]=ADR.POŚR(ADRES(KOMÓRKA("zawa... w D8 numer wiersza w D7 numer kolumny W komórce gdzie to wstawiłeś będziesz miał zawartość wskazanego (d8 wiersz, d7 kolumna) pola. Oczywiście możesz się "pobawić" parametrami tych funkcji. Pewnie można to uprościć ... ale to zostawiam innym :)
W E1 pozycja (wiersz) z bieżącym numerem faktury w Arkusz1, w E2 pozycja z następnym (dlatego potrzebny jest Nr kolejnej na zakończenie w Arkusz1). Na podstawie wartości z E1:E2 w kolumnie F lista Nr wierszy od-do dla indeksów od wiersza 11 (Arkusz2 pozycje faktury). Można z nich zrezygnować, ale formuły (w pozycjach faktury) zrobią się baaaardzo długaśne......
Poczytaj w pomocy o argumentach funkcji. W drugim przypadku wyszukujesz w wierszach a nie w kolumnach. Można zastosować bardzo podobną funkcję do poprzedniej WYSZUKAJ.POZIOMO, stosując kolumnę pomocniczą do określenia numeru wiersza (trzeci argument). W G3 (celowo dwa wiersze więcej, żeby nie dodawać, bo dane są od trzeciego wiersza tablicy) =PODAJ.POZYCJĘ(F3;K$2:K$6).....
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...
No cóż, opis nie jest bardzo czytelny, ale jeśli taki miał być efekt: https://obrazki.elektroda.pl/4588789900_... to kod, który to zrealizuje może wyglądać następująco: [syntax=vbscript] Sub FZ() r = 1 'kolejny sprawdzany wiersz (row) rstart = 0 'numer pierwszego w serii wiersza do którego wklejam wartości, jednocześnie numer wiersza...
http://obrazki.elektroda.pl/5959999300_1... Zmień zakres, edytując formułę. Zwróć uwagę na brak "$" przed numerem wiersza. Ot cała tajemnica ;)
Przecinek a średnik to właśnie różnica wersji. Funkcja podająca pozycję w tabeli Podaj.pozycję(Szukana wartość ; przeszukiwana tabela; typ porównania 0 lub 1)[ jak 1/prawda to musi być kolejność rosnąca i zwraca pozycję liczby równej lub o "krok" mniejszej jeżeli 0 fałsz szuka dokładnie tego samego jak szukana wartość jeżeli nie znajdzie...
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...
Lecisz w pętli po wierszach (1..52) i dla każdego sprawdź czy są dane w komórkach np. w sposób zalecany przez M$. If WorksheetFunction.CountA(Range("B" & i & ":L" & i) > 0 Then KopiujWiersz Kopiowanie znanego obszaru ("Ai:Li") możesz zrobić na wiele sposobów, tylko musisz pamiętać numer wiersza, do którego kopiujesz.
Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na powrót w wymaganym formacie. Jak przedmówca wspomniał...
Zacznij od procedury, która skonwertuje twój numer (literę + liczbę) na wartość. Potem ustalenie początku i końca pętli, i iteracja w niej po wybranych wierszach. W niej następuje porównanie spodziewanej wartości z bieżąca. Jest - przejdź do następnego wiersza, nie ma - komunikat. Wszystko da się zrobić. :)
Cześć. Sprawdź, czy takie coś Ci pasuje: [syntax=vbscript]Sub Rep() Const RFrom = "A1" Const RTo = "H1" Const Src = 3138 Dim x As Long For x = Range(RFrom).Column To Range(RTo).Column Columns(x).Replace what:="#", replacement:=Cells(Src, x).Value, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False...
Super - to mi bardzo pomogło. Tyle, że pojawiła się kolejna przeszkoda. Mianowice niektóre nazwy miejscowości są 2-częsciowe. Np. Wola Niedolicka 245 Wtedy reguła odseparowania numeru domu od nazwy miejscowości się gubi :) Chciałbym zaznaczyć, że lista ma ponad 5000 wierszy dlatego nie chce tego robić z ręki
Wyobraź sobie tabelę, w wierszach poszczególne elementy tworzące koszty, w kolumnach ich różne warianty. Załóżmy, że masz 5 kolumn z wariantami i do nich (obok) kolumnę z podanym wybranym numerem wariantu (1-5). W każdym wierszu możesz wpisać numer wybranego wariantu. Pole logiczne powinno sprawdzić, co tam jest wpisane i odpowiednio podliczyć koszty....
Jeśli chodzi o pkt 3 to udało mi się w arkuszu "niepraw" w wierszach kolumn B-E wstawić taką formułę: =JEŻELI(kontrole!$H4="TAK";kont... dalszym ciągu nie mogę sobie poradzić z usunięciem odstępów pomiędzy wierszem 4 i 7 w arkuszu "niepraw". Pomóżcie, jak zrobić, żeby w kol. H w arkuszu "kontrole" w sytuacji zaznaczenia opcji "TAK", excel...
Witaj. Jak domyślam się, samo przeniesienie odpowiednich pytań i odpowiedzi do drugiego arkusza nie jest problemem, większym problemem jest pozbycie się pustych linii z najprostszego możliwego rozwiązania. Do tematu można podejść na dwa sposoby, za pomocą makr, albo za pomocą odpowiednich formuł. W przypadku bardziej skomplikowanego problemu makra pewnie...
A nie można było zmieścić w jednym wierszu? :) Poważnie: wpisz w G3 i skopiuj w dół =JEŻELI(B3="";INDEKS(A...
Kolego, przerabialiśmy to wczoraj, adams_nt w #5 o tym pisał dzisiaj i znowu ten sam problem?? Rozwiązanie to samo: ustalasz ostatni wiersz w kolumnie E, która jest pusta: [syntax=vb]ost = Range("E10000").End(xlUp).Row + 2[/syntax] (nie wiem czemu dodajesz 2 nie 1...). Użyj G albo H.
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
Dzięki, działa. Fakt że podaje o jeden więcej numer wiersza, czyli zamiast 7 to podaje 8 ale to nie problem :) Dzięki jeszcze raz
Dzień dobry, To można rozwiązać różnymi sposobami, zależy do czego te liczby mają dalej służyć - czy mają tylko tak wyglądać, czy mają stanowić dane do dalszych obliczeń. Standardowo przy wypełnianiu komórek zmienia się ostatnia liczba, więc efekt jest taki jak Pan obserwuje. Jeżeli liczby te mają tylko tak wyglądać można zastosować format niestandardowy...
Dopisałem informowanie w MsgBox o numerach identyfikatorów usuniętych wierszy: [syntax=vb] Sub Mania() Dim ws As Long, wDel As Long Dim usuniete As String ws = 1 usuniete = "" With Sheets("Arkusz1") Do While .Cells(ws, 1) <> "" On Error Resume Next wDel = Sheets("Arkusz2").Columns(5).Find(what:=... 1), lookat:=xlWhole).Row If Err = 0 Then...
Da się, oczywiście. W pole imię (C6) wpisujesz =WYSZUKAJ.PIONOWO($C$5;$A$11:$E$... analogicznie w kolejne zmieniając nr kolumny. Można także pominąć znak $ - służy on "wygodzie" bo można po prostu formułę przeciągnąć w dół i poza numerem kolumny, który sam się będzie zwiększał o 1 pozostałe parametry zostaną zablokowane. Trzeba tylko...
Załącz przykładowy plik i wyjaśnij jak chcesz z tego korzystać. Co da Ci numer pozycji, jak nie wiesz do którego arkusza się odnosi? Funkcja MAX może obsługiwać wiele arkuszy, ale funkcja PODAJ.POZYCJĘ nie tylko, że nie obsługuje wielu arkuszy, ale nawet w jednym arkuszu może sprawdzić tylko 1 wiersz lub jedną kolumnę.
W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...
Chyba już rozumiem. Zrób tak: bezpośrednio w komórce w arkuszu drugim zapisz całą formułę z arkusza pierwszego odpowiednio "dolarkując" przed numerem wiersza: =Arkusz1!Q$124*5+3 ale w tej formule nie masz odniesienia do danych z arkusza 2, więc tak naprawdę to całe obliczenia musisz zawrzeć w tej jednej komórce w drugim arkuszu. Wg mnie cala formuła...
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
Witam serdecznie, Nie wiem czy wpisuję swoje pytanie we właściwym miejscu ale mam problem dotyczący następującego zagadnienia: Posiadam w Excel'u bazę 100 000 wierszy. W kolumnie A występują wartości importowane z zewnętrznych źródeł, w kolumnie B tylko w przypadku spełnienia właściwych kryteriów pojawia się dla wybranych wierszy słowo "OK". Właściwy...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Proste, w kodzie Cells(i, j).Value = Chr(39) + CStr(Cells(i, j).Value) zamiast "i" wpisać 24 Cells(24, j).Value = Chr(39) + CStr(Cells(24, j).Value) Pozostaje drobny szczegół "i" - pierwszy parametr jest właśnie numerem wiersza, a "j" - drugi parametr to numer kolumny.
Sposobów może być wiele, bo to dość typowe zadanie. Nie napisałeś, która wersja Excela, a to może być istotne, jeśli chodzi o szczegóły. Przykładowe rozwiązanie w załączniku. Formuła: [syntax=text]=INDEKS(C2:G5;;B1-2)[/synta... nowym Excelu (2021, 365) będzie to formuła rozlana - wpisujesz do pierwszej komórki, czyli do B2, zatwierdzasz Enter i otrzymujesz...
Nie wyjaśniłeś, co z tymi numerami działek w różnych miejscowościach. Wobec tego zakładam, że numer działki określa ją jednoznacznie i miejscowość nie jest istotna. Jeśli tak, to rodzaj tytułu prawnego można określić za pomocą funkcji WYSZUKAJ.PIONOWO w jej najbardziej typowym wariancie użycia: [syntax=text]=WYSZUKAJ.PIONOWO(C2;Dane_1...
To samo robiący kod, tyle że krótszy. [syntax=vbscript]Sub Drukowanie() i = InputBox("Numer wiersza") Set a = ActiveSheet Set b = Workbooks.Open(Environ("userprofile") & "\Desktop\Zeszyt2.xlsm") w = 2 For k = 1 To 5 a.Cells(i, k).Copy b.Sheets(1).Cells(w, k + 1) w = w + 1 Next ActiveSheet.PrintOut b.Close True End Sub [/syntax] Wklejam tutaj kod bo...
Gdyby nie było pewności, czy żółte komórki są co trzecia, ale byłaby pewność, że interesuje nas tylko jeden kolor i mamy Excela w wersji 2007+, czyli plik .xlsx (nie wiem czy załącznik w formacie .xls oznacza, że ma to być używane w Excelu 2003-?), to można odfiltrować komórki według koloru i do tych żółtych zastosować funkcję SUMY.CZĘŚCIOWE. Jak w...
Zrobiłem niewielką formułę w excelu, mam nadzieję, że Ci pomoże: =FRAGMENT.TEKSTU(A1;SZUKAJ.TEKST("???-??... Formułka znajduje gdziekolwiek w tekście ciąg ???-??? i traktuje go jako początek numeru telefonu a potem wycina do najbliższego przecinka. Możesz łatwo to zmodyfikować...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Dzień dobry, Przypuszczalnie to się da zrobić w Excelu, tylko nie wiadomo, co dokładnie ma być w tych komórkach - jaki numer ma być w komórkach D166 i M166 i jak to ma być powiązane z zakresem E175:E290? Czy komórki D166 i M166 mają zliczać wartości niezerowe w zakresie E175:E290, czy je sumować, czy tylko sprawdzać, czy jest jakaś wartość niezerowa?...
Witam. Owszem jest to do zrobienia...mało z tego całkiem prosto :D... Zacząć nalezy od makra, które tworzy nowy arkusz...nastepnie wklejane są dane i numer...nastepnie wydruk arkusza o numerze [ilosc arkuszy]...nastepnie zamkniecie arkusza o tym samym numerze... a wszystko w pętli aż do natrafienia na pusty wiersz - bez danych
=LICZ.JEŻELI(G3:G54;FRAGMENT.TEKSTU(G3:G... ";G3:G54)-1;1)="a") Macie jakiś pomysł jak to rozwiązać? To już za późna pora żeby ćwiczyć takie wygibasy. Ale przeanalizuj powoli wewnętrzne funkcje (Fragment.tekstu() i Znajdź() ). Czy doprawdy działają one z tablicami jako argument :?: Jeśliby tak było to ile wystąpień tego warunku wskazywane by...
Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...
Coś mi się zdaje że kolega chce dokonać niemożliwego (zakładając że użyje jeno sortowania). Jeśli posortuje wg nazwisk a następnie wg daty umowy będzie miał w pierwszej kolumnie ludzi posortowanych alfabetycznie a w drugich daty rosnąco ale tylko dla każdego z kolejnych ludzi. Jak się zmieni nazwisko, sortowanie zaczyna się od początku, tylko dla rekordów...
Witam. Mam Dwa arkusze z numerami telefonów i z danymi abonentów. Obydwa arkusze są bardzo podobne, ale liczba wierszy (czyli numerów) jest różna a powinna być taka sama i numery telefonów powinny być takie same. Proszę was o pomoc w jaki sposób odszukać numery których brakuje w arkuszu w którym jest mniej wierszy?
Tak, kody w kolumnie c są numerami do wylosowania. Tak, w kolumnie d mają się pojawiać tylko 0 lub 1, ale tylko w tych wierszach, które są uzupełnione numerem w kolumnie c. Docelowo będę chciał za pomocą formatowania warunkowego podświetlać wylosowane numery. Pracuję z Excel 2016, niestety ta formuła u mnie nie działa.
Przy tak rozbudowanym arkuszu Excel nie będzie działać błyskawicznie. Excel jest programem uniwersalnym, ma różne "wodotryski", które zabierają czas. W tym przypadku pole tekstowe trochę spowalnia, bo ono "jest gotowe" po naciśnięciu każdego klawisza. Gdyby dane wprowadzać do komórki, filtr zaczynałby działać dopiero po 'Enter', więc byłoby szybciej...
Myślę że do twoich celów odpowiednia będzie wbudowana funkcja wyszukaj.pionowo. Ma ona 4 argumenty - pierwszy to wartość szukana, druga to tabela zawierająca dane (może mieć wiele kolumn). Tabela musi mieć w pierwszej kolumnie wiersz w którym będziemy szukać wartości podanej w pierwszej kolumnie. Funkcja znajdzie tą wartość i zwróci z wybrane dane z...
Hmm, ciekawe. Zdawało się, że LICZ.JEŻELI tablicowa załatwi sprawę, ale nieee... Dodałem wiersz pomocniczy z numerami dni tygodnia. Zakres dla LICZ.JEŻELI musi kończyć się w kolumnie odpowiadającej ostatniemu dniu miesiąca. Moja próba w załączniku. Dla 2011 działa prosta formuła =JEŻELI(LUB(DZIEŃ.TYG(A9)...
Jeżeli ci to nie przeszkadza to przesortuj spis po numerach od najwiekszego do najmniejszego. Wtedy lista rozwijana tez się powinna odwrócić
Hmm dziwne... Formuła działa na komórki zawierające np. M01 , M02 , M03 itd... A na komórki ponumerowane 1,2,3,4,5,6 nie działa...hmm?! w TABELI w arkuszu pierwszym mam ponumerowane wiersze - które są przypisane do kolumn w arkuszu drugim (wszystkie w jednym wierszu) Chciałym klikając na numer w odpowiedniego wiersza przenosił mnie do odpowiedniej kolumny.
Pozostaw wolny wiersz nad danymi. Jeśli ten przykład jest reprezentatywny, powinna wystarczyć taka formuła (dla kolumny C): [syntax=text]=JEŻELI($A2<>$A1;1;C1...
numer wiersz excel usuwa wiersz wiersz excel usuwać wiersz wiersz
pendrive write protect huawei b2368 agregacja kamera chmura
hewalex sterownik hewalex sterownik
Audi A6 C5 Allroad TDI błąd 00550 – regulacja początku wtrysku, VP44, N108, G80 Ideal TecnoTig 206 AC/DC LCD – opinie, parametry, funkcje, porównanie spawarki TIG/MMA