[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.
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ć.
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]
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
Bez makra, wpisz numer do F1 - Druk
[syntax=vbscript]Sub Zaznaczone() nw = Cells(Rows.Count, "K").End(xlUp).Row + 1 For Each k In Selection.Cells Cells(nw, "K") = Cells(k.Row, "A") nw = nw + 1 Next End Sub [/syntax]
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ą.
... JEŻELI(B9&C9&D9&E9&F9&am... ...
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]?
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.
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;...
Tak. Z 2 kolumnami pomocniczymi i funkcjami wyszukującymi zrealizujesz to bez VBA. http://obrazki.elektroda.pl/4000212600_1...
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...
W załączniku.
Ciekawa kombinacja :) Trochę nad tym pomyślałem ale wyszło (choć dziwie się że excel nie zgłasza odwołań cyklicznych). Zapewne można to uprościć ale już nie mam czasu. Nie przeraź się :) W c2 wpisz: =JEŻELI(E2="";MAX($C$1:C1)+1;JEŻELI(E2>0...
Pierwsze pobranie powinno nastąpić w pętli Numerować powinieneś na podstawie licznika pętli w , jest to bardziej logiczne. Jeśli ustaliłeś w=3 (wiersz 3), to wartość komórki A w tym wierszu powinna być ustawiona z warunkowym wykonaniem jako [syntax=vb]If a<>0 Then Cells(w, 1).Value = w-2 [/syntax] w momencie pobrania zerowej wartości, nie nastąpi...
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.
-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]
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.
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)...
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,...
Uzyj funkcji losującej numer wiersza w adresie i złącz 4 takie funkcje: [syntax=vb]=ADR.POŚR(ADRES(RANDBETWEEN(2...
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...
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...
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]...
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
czyli aby bylo 21111 10 aaa 5 bbb 3 ccc 2. Nie wiem czy takie cos jest mozliwe Hmmm, teraz już będzie trudniej ;) Na szczęście Excel i VBA oferują coś a'la tabelki przestawne. Zmień zapytanie SQL na Sql = "TRANSFORM [SIGN] & "" "" & Sum([hours]) " & _ "SELECT [Activity],...
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.
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.
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...
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]
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łę...
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ć....
Dzięki za podpowiedzi:D
Ale po co tak kombinować? Od tego są tabele przestawne ;)
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......
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...
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...
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 ??
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.
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...
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]
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...
Wielkie dzięki za pomoc. Dodano po 5 Po usunięciu danych z komórki B2 numeracja rozpoczyna się od 2.2 zamiast 2.1. Czy jest jakiś sposób żeby temu zaradzić?
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).....
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....
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...
Wykorzystanie funkcji adres pośredni
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ć
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]
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 :)
Wystarczy, że wpiszesz coś w kolumnie A, kursor skoczy do B. Wpisz coś ponownie i kursor skoczy do kolejnego wiersza w A.
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...
Uparłeś się przy tej hulajnodze. Jeśli koniecznie chcesz w taki sposób, to spróbuj takiego kodu: [syntax=vbscript]Sub Podstaw_kolejne_liczby() Dim lw As Long, n As Long, a As Variant Dim rng As Range, found As Range lw = Range("A" & Rows.Count).End(xlUp).Row 'numer ostatniego wypełnionego wiersza Set rng = Range("A1:A" & lw) Set found = Range("A"...
Ale że jak? Jak masz n (ciągła numeracja?) arkuszy to dla każdego 1..n-1 to wykonać? Jedną komórkę czy wiele? Z R2 do R1, czyli wiersz do góry? Samo kopiowanie komórki jest proste z wykorzystaniem zapisu proponowanego przez JVR: Sheets("DATA ENTRY " & s+1).Cells(y,x).value=Sheets("DATA ENTRY " & s).Cells(y,x).value Dołóż do tego odpowiednie pętle i...
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...
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))...
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...
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...
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...
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...
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?
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ł...
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.
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ć. :)
Niestety nie można zarejestrować w makro "inna komórka", VBA nie zrozumie takie. W post #2 PRL podal Ci link Dodano po 3 Być może jednak wiersze w arkuszu są równomiernie, na przykład co 40 wierszy umieścić numery?(w m6, m46, m86 itd.) Dodano po 19 No tota M6, przy prawej krawędzi, lub na ilu kolumny w lewo? Numer na każdej stronie powinno być 5 wierszy...
Można użyć takiej funkcji UDF: [syntax=vbscript]Function Osobno(x As String) Dim ch As String Dim list ReDim list(1 To Len(x) + 5) As String Dim i As Long, j As Long, k As Long For i = 1 To Len(x) ch = Mid(x, i, 1) Select Case ch Case 0 To 9 j = j + 1 list(j) = ch Case "(" j = j + 1 k = InStr(i + 1, x, ")") If k = 0 Then k = Len(x) + 1 list(j) = Mid(x,...
http://obrazki.elektroda.pl/5959999300_1... Zmień zakres, edytując formułę. Zwróć uwagę na brak "$" przed numerem wiersza. Ot cała tajemnica ;)
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ć...
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...
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...
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
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)...
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...
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.
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...
Czy istnieje kod którym można zaznaczyć komórki do wybranego koloru włącznie Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem :idea: - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy :D Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem...
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...
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...
=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...
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ę.
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...
kolumna "POCZĄTEK" ma byc lub zamiast niej WYNIK? Dodano po 3 Na zdjęcie moglo byc nazwy kolumn(A, B, etc.) i początkowy wiersz. Dla VBA to jest wazne
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
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ść...
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...
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...
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
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
poniżej plik prawie gotowy tylko hmm nie wie jak sie zabrać za petle Zanim pętla, małe porządki: 1. W tym układzie arkusza ' max_row ' zawsze będzie ' 9 ', a nigdy ' 1 ', gdyż ' Row ' (nr wiersza) zawsze poda, że ' L.p. ' leży w 9-tym wierszu 2. Zanim zastosuje się ' MkDir sciezka ', trzeba wpierw sprawdzić, czy katalog określony przez ' sciezka '...
W komórce d14 po raz 2 znalazło tekst "Utworzenie sprawy" to wstawia liczbę 2 do komórki b14. Pozwolę sobie uzupełnić: [syntax=text]=JEŻELI(D1="Utworzenie sprawy";LICZ.JEŻELI(D$1:D1;$D$1);"")[/sy...
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Dla mnie bomba. :) Możesz jeszcze drobne kosmetyczne poprawki zrobić. Żeby się nie wyświetlało #N/D! - formatowanie warunkowe. Dla 'NUMERY KONT BANKOWYCH'!$A$5:$J$104 zadeklarować tablicę, dla takiego właśnie obszaru, wtedy dopisując kolejny wiersz automatycznie obszar będzie się powiększał, ale w regułach będziesz musiał zmienić z 'NUMERY KONT BANKOWYCH'!$A$5:$J$104...
numer wiersz excel usuwa wiersz wiersz excel usuwać wiersz wiersz
norax licznik podłączenie photorec testdisk zasilacz przegrzanie
zabezpieczenie radia kontrola dostępu
Pomylenie zasilania z powrotem w instalacji c.o. Mitsubishi Outlander Sport 2019 – klimatyzacja przestaje chłodzić po kilku minutach, gaz nabity