Ach :) sorry, nie doczytałem... Wszystko jest OK, makro wklej do Thisworkbook (nie w kod arkusza). Myślałem, że chcesz by Excel "zapamiętał" zmianę położenia...
Może źle wpisałem funkcje O, to to... ;D Wpisujesz Arkusz2!A:B (ewentualnie Arkusz2!$A$2:$B$15 - koniecznie z dolarami i do końca zakresu, który powinien pozostać wtedy niezmienny) a nie Arkusz2!A2:B2.
Po pierwsze: brakowało .Value po Cells(i, 9) Po drugie: pierwsza odczytana pozycja z arkusza to "FTC.023". W skoroszycie nie ma arkusza o takiej nazwie, więc nawet gdyby to .Value było i tak wystąpiłby błąd. Instrukcję: On Error Resume Next dałeś dopiero po tej linii, która generuje błąd. Myślałem, że jest to zamierzone (tzn. że w pierwszym obiegu pętli...
Och, o to należy zapytać Walkenbacha ;) Tak naprawdę nie przeszukujemy tablicy, a szukamy dzielnika. "2" to zawsze będzie pozycja ostatniej "1" w tablicy.
Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...
Jak poniżej. Założenie, że zwraca pierwszy 26znakowy ciąg cyfr, po usunięciu spacji z tekstu. [syntax=vbscript]Function ZwrocIban(Szukaj_Komorka As Range) Dim dlugosctekstu, pozycja As Long Dim t, ciag, maska, iban As String Dim i As Long 'usuwamy spacje z tekstu t = Szukaj_Komorka t = Replace(t, " ", "") maska = "CCCCCCCCCCCCCCCCCCCCCCCCCC" dlugosctekstu...
Zmodyfikowany kod: [syntax=vbscript]Sub Grupy2() Dim ow As Long, x As Long, nr As Long, afterP As Boolean ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If InStr(Cells(x, "A"), "/") > 0 Then ' czy jest "/" ? Select Case Cells(x, "E") Case "P2" nr = Split(Cells(x, "A"), "/")(1) ' pozycja w grupie Cells(x, "H") = IIf(nr = 1 Or afterP, "B",...
W kwestii formalnej, czy chodzi tylko o termin przypadający w niedziele, czy również w soboty? Ja rozumiem, że wchodzą w grę tylko niedziele. Moja propozycja w Excelu jest w załączniku. Pana daty skopiowałem do kolumny O, którą później ukryłem. W kolumnie G są poprawione daty. Wzór uwzględnia tylko niedziele. Korektę ze względu na święta w tym przypadku...
Zapisz plik jako E2007 (pierwsza pozycja w menu "Zapisz jako"), zamknij i otwórz ponownie.
Z kolumnami pomocniczymi wychodzi jak w załączniku. Formuły masz tylko w kolumnie L (naroża). Szukana pozycja musi wyjść z co drugiego wiersza, dlatego "(WIERSZ()-25)/2+0,5". Sprawdź, zdecyduj i uzupełnij, jeśli takie rozwiązanie jest OK.
To można liczyć wieloma sposobami. Zależy, czy preferujesz zwięzłe formuły, czy wolisz obliczenia pomocnicze w arkuszu. Jeśli chodzi o kategorie rozmiarowe, to w kilku pierwszych wierszach kolumny G masz kilka różnych formuł korzystających z tej tabelki pomocniczej, którą sobie przygotowałeś. Ale ona właściwie nie jest potrzebna. Od wiersza 9. jest...
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......
Jak zrobić odwołanie do arkusza w innym skoroszycie_2 gdzie nazwa arkusza to pozycja "A2" ze skoroszytu_1? =[skoroszyt2.xlsx]nazwa_arkusza!... nazwa_arkusza = pozycja A2 z dowolnego arkusza skoroszytu_1 Użyj funkcji [syntax=vb]=ADR.POŚR(A2)[/syntax] A dokładniej [syntax=vb]=ADR.POŚR("[skoroszyt2.xlsx]"...
poproszę o link ;) Przykładowo zastosowanie funkcji vlookup w VBA :arrow: https://www.elektroda.pl/rtvforum/viewto... Chciałabym aby w liście była pozycja jako "inne" Jeśli zastosujesz listę "poprawności danych" to nie ma żadnego problemu z pozostawieniem pustego, edytowalnego pola :spoko: np tak jak na zrzucie 960396 Wszystko...
Nie doczytałeś jak działa obiekt [url=http://msdn.microsoft.com/en-us/lib... - drugim parametrem w nawiasie nie jest pozycja ostatniego znaku, a ilość znaków które mają zostać wzięte (długość). W związku z powyższym, musisz to przerobić na: [syntax=vb]kom.Characters(i, j - i + 1)...[/syntax]
Proszę o pomoc związana z ListBoxem i pobieraniem wybranej pozycji z listy do ustalonej komórki oraz wyświetlaniem tej pozycji również jako 4 kolumny, jak to jest w pierwszym. Mam stworzoną tabelę z 4 kolumnami, która jest wczytana do pierwszego ListBoxa. ListBox ustawiłem tak, aby wyświetlał 4 wczytane kolumny i wszystko gra. Problem pierwszy pojawia...
Witam, mam problem z listą rozwijaną na tabletach w firmie. Posiadam 4 tablety na firmie i każdy z nich jest podpięty na własnym koncie pod jeden excel, w którym uzupełniane są dane. W excelu jest karta z listami rozwijanymi, z których korzysta się w innej wspólnej karcie i od tygodnia powstał problem taki, że podczas wyboru z listy rozwijanej wskakuje...
Witam, Chciał bym zautomatyzować pewien proces, jednak nie znalazłem podobnego przypadku, dlatego piszę tutaj. Działam na excel 2010, z bazy danych ściągam lokacje. Na podstawie ściągniętych danych mam utworzoną tabelę przestawną. Aktualnie muszę ręcznie filtrować pozycje z tego względu, że tabela nie uzupełnia się automatycznie o nowe pozycje: https://obrazki.elektroda.pl/5537560500_...
W załączniku dołączam arkusz na którym mniej więcej przedstawiłem jak ma to wyglądać. Chodzi mi o to żeby każda pozycja na liście miała przypisaną cenę i po wybraniu jakiejś opcji z listy np. śniadanie i obiad koszt posiłku został automatycznie zsumowany w polu ,,koszt wyżywienia w danym dniu''
Witam Chciałbym by pozycja w liście rozwijanej była przyporządkowana do tabeli w danym arkuszu o wymiarach na przykład B2:G12 i w momencie wybrania tej pozycji w liście rozwijanej ta tabela była kopiowana do arkusza zbiorczego. Po wybraniu z innej listy rozwijanej danej pozycji chciałbym by była ona dodana do wcześniej wybranej pozycji z listy rozwijanej.
zależy mi, że jak wybiorę pozycję 1 to automatycznie w 2 arkuszu wybierze się pozycja 1
Witaj Worksheets("TLP").Cells( pozycja , k).Value = Controls("txt" & k & "v").Value pozycja nie jest określona, być może należy zdefiniować jako globalny. albo przed tym je weź: pozycja = ListBox1.ListIndex Worksheets("TLP").Cells( ListBox1.ListIndex , k).Value = Controls("txt" & k & "v").Value
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
mam problem ze stworzeniem makra, tzn w excelu mam tak comboboxa z 30 wpisami, przycisk, chciałbym żeby po naciśnięciu przycisku, wybrana pozycja w polu kombii wskakiwała na 1 pozycje w kolumnie, następnie zmieniam wybór w polu kombii, naciskam przycisk, i wskakuje na drugą pozycje w kolumnie.. itd, oczywiście poprzednie umieszczone w kolumnie mają...
Dziękuję za pomoc. Mam tylko pytanie Z tego co widzę kod porównuje wszystkie pola z arkusza OUTPUT do kolumny D z pliku 1 671 913 2.xlsx Czy można zrobić, żeby porównywał tylko pierwszy wiersz z kolumną? Na przykład jak D2=EW2, D3=EX2, D4=EY2 i tak stopniowo powinno przechodzić komórka po komórce aż do końca wiersza i kolorować na zielono lub gdy coś...
Da się. Zsumuj wszystko do kupy, zastosuj funkcję POZYCJA i posortuj...
Witam, w Excel VBA zrobiłem sobie formularz w ktorym dodałem ComboBox zawierający dane z arkusza 1 od B2 do B10. Po wybraniu pozycji w ComboBox program wstawia mi tą wartość do komórki F9 w arkuszu 3. Chcę teraz wstawić zależność, że jesli w Combobox zostanie wybrana pozycja nr1 to do kolejnej komórki zostanie pobrana inna wartość już z arkusza 2. Mam...
Chciałbym aby kod był optymalny Jak dla mnie cały kod jest do przepisania na nowo, nie bądź zdziwiony, że to wolno chodzi. Poczytaj o optymalizacji kodu, za dużo 'aktiwejtów', 'selectów', tu pętla goni pętle, zamiast niej używaj (match, find), itd. np. co robi? [syntax=vbscript]For Each kom In WstawioneDaty pozycja = kom.Row Next kom[/syntax]
Witam, jestem początkujący i potrzebuje zrobić małą rzecz w VBA wykonać, ale nie mam pojęcia jak. - Jeżeli komórka w kolumnie zielonej "Wielkość pozycji" jest wypełniona wtedy skopiuj SAMĄ WARTOŚĆ (bez formuły) do wiersza w kolumnie żółtej "Wielkość pozycji kopia wartość" - Jeżeli pozycja w kolumnie niebieskiej "% inwestycji" zaktualizujemy, wtedy aktualizujemy...
Bo to jest formuła tablicowa. Jak zmieniasz coś w funkcji to zamiast entera użyj ctrL+shift+enter.
Poprzez makro można tak: =ZNAJDZOSTATNI(F2:F10;"x&qu...
czasem są dodawane nowe produkty jednak niezbyt często, głównie polega to na zmianie pozostałych parametrów jak ilość itp. więc dodanie nowych wpisów w komórkach nie powinno być męczące, to jak przypisać te kolumny aby ich pozycja zmieniała się w zależności od pozycji pozostałych?
Dzięki za odpowiedź. Twój opis jest najszybszy ale stały nie zmienia się w raz ze zmianą danych w tabelach i nie uwzględnia listy jednokrotnego wyboru ale może wprowadziłem Ciebie w błąd źle opisując mój problem. Wyjaśnię go bardziej dokładnie: Lista rozwijana bez powtórzeń (jednokrotnego wyboru) – Każdą pozycję na liście mogę wybrać tylko jednokrotnie...
Value = ostWrs - 1 Ponieważ numeracja zależy od wiersza dlaczego nie używać formuły? ark.Cells(ostWrs + 1, 1).Formula = "=row()-1"
Witam. Ja może dokładnie po kolei odpowiem na pytania, które mnie zaskakują, bo nie wiedziałem i nie wiem, że można takie rzeczy robić. Teraz już jestem pewny, że biorę udział w "koncercie życzeń" - to niesamowite. Nie będę się dziwił, że informatyk napisał program po swojemu, bo jak widzę, to będzie to lepsze, a ja nie miałem nawet odwagi o czymś takim...
Zbych034 jeżeli problemem by było ustawienie pionowe to można to zmienić analogicznie poziomo czyli A1-Z1, A2-Z2, A3-Z3, A4-Z4 Szymon nie wiem czy sortowanie w tym wypadku coś mi da gdyż kolejność nie jest dla mnie najważniejsza gdyż można zacząć od pozycji 100 następnie pozycja 1 a potem 50. Kolejność nie gra roli. Ważne jest aby obok liczby zwracało...
Chcialabym aby po nacisnieciu przycisku wstawil mi sie nowy wiersz pod zoltym wierszem i i zeby zwaratosc zoltego skopiowala sie do tego wstawionego i tak z kazdym kolejnym. nagralam takie Makro: [syntax=vbscript]Sub Makro3() ' ' Makro3 Makro ' ' Rows("6:6").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("5:5").Select...
Jak w Excelu przypisać zawodnikom zajęte miejsca na podstawie zdobytych punktów w ramach danej konkurencji? Zawodnicy nie występują kolejno po sobie w tabeli więc funkcja POZYCJA raczej odpada bo zakres wartości nie może być od-do.
Na logikę to nawet pasuje, ale Excel z pewnością się "zjeży" przy wierszu następnym po pustym :) Proponuję: =JEŻELI(B2<>"";MAX(A$1:A1)+1;"") Dlaczego? Jeśli pierwsza pozycja Np faktury zajmuje dwa wiersze, to jaka będzie Lp. w trzecim wierszu? http://obrazki.elektroda.net/32_12468994... Ad. VBA Drukowanie Poszukaj w pomocy właściwości: ActivePrinter...
Witam, proszę Was, podpowiedzcie jakiej funkcji użyć aby zliczyć ilość wystąpień w pozycji SKLEP, ale bez powtórzeń w polu DATA. Jeśli pozycja SKLEP występuje kilka razy pod tą samą datą, to Excel ma zliczyć tylko raz. Np. POLOmarket pojawia się w dniu 02.10.2013r. kilka razy, a wynik ma być JEDEN. Drugim pytaniem jest wybór funkcji do wyszukania ostatnio...
Witam, jestem totalnie początkującym w vba excel i będę bardzo wdzięczny za pomoc w rozwiązaniu mojego problemu. Mam taki arkusz "Budżety" http://obrazki.elektroda.pl/5107694100_1... Mam też formularz, w którym są dwa ComboBox. Jeżeli w jednym wybiorę projekt to w drugim listują się wartości z kolumny pozycja przypisane do projektu....
A jaki sposób mogę "masowo" stworzyć chekboxa dla 1200 pozycji Możesz spróbować tak: zaznaczyć odpowiedni zakres w kolumnie dla checkboxów, a następnie uruchomić makro: [syntax=vbscript]Sub InsertCheckBoxes() Dim Rng As Range Dim WorkRng As Range Dim Ws As Worksheet On Error Resume Next xTitleId = "Excel" Set WorkRng = Application.Selection Set WorkRng...
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...
zlecę napisanie kodu pod excel. Drukowanie etykiet na rolce na drukarce Zebra GKA 420t. Baza danych wyglada tak: Nr rys HTPozycjaNazwa ILOSCDLUGOSC HT-FP-01ZRF1-01RF1-10511214 HT-FP-01ZRF1-01RF1-10711209 HT-FP-01ZRF1-01RF1-10421154 HT-FP-01ZRF1-01RF1-10811064 Kluczowa sprawa to by z excela pobierał ilość TYCH samych etykiet do wydrukowania i po wyczerpaniu...
Witam dane do tabeli b i odwrotne powinny być na innym arkuszu, lub na tym samym ? pozycja dane wynikowe jest określona przez umieszczenie nagłówka na tym samym arkuszu w pierwszym wierszu
Cześć wszystkim ! Kombinuję od paru dni jak ugryźć temat aczkolwiek mówiąc wprost - poddałem się i stwierdziłem, że zasięgnę pomocy u Was. Z powodów dość oczywistych nie mogę pokazać prawdziwego arkusza z danymi więc utworzyłem coś na jego wzór, aby mniej więcej zobrazować problem. W arkuszu "Indeksy" znajduje się lista komponentów oraz ich ceny. W...
Ad.1 Wydziel kolumnę tymczasową dla filtra, skopiuj do arkusza docelowego i usuń. Możesz zakres przypisać do nazwy, łatwiej się nim posługiwać. Ad.2 Nie rozumiem Jeśli poprawność danych>lista to rozpoczęcie pisania w takiej komórce uruchamia autouzupełnianie (pojawi się pierwsza pozycja spełniająca kryteria, licząc od góry listy)
Pozycja indeksu i kwoty w tabeli muszą być równe. Porównaj i jeśli PRAWDA, to masz wynik. Schemat: JEŻELI(PODAJ.POZYCJĘ(indeks)=PODAJ.POZYC...
Tak! Tyle tylko że w OpenOffice taki szablon "??-???" daje mi w podanym przez Ciebie przykładzie pozycję 10 zamiast 18.. Po bokach powinny być spacje i będzie OK. Dobrze - ale czy sprawdzałeś to praktycznie na Excelu, bo na OO wychodzi mi pozycja 7. OpenOffice ma ambicję do konwertowania wszystkich swoich dokumentów do formatu EXcela i odwrotnie, ale...
Witam, Potrzebuję pomocy z lista rozwijaną w EXCELU, a mianowicie... Jak zrobić, aby zaktualizować pozycję w komórce np A2 po wybraniu z listy rozwijanej np tekst: Okładka 12. Gdy zmienię w źródle listy rozwijanej pole "Okładka 12" na np. Okładka 14 Problem w tym że muszę ręcznie wybrać i zmienić pozycje A2. Mam duży magazyn który dodałem do listy rozwijanej...
pozycja excel listbox excel pozycja excel podać pozycja
podkładka żelowy świetlne efekty dyskotekowe regulacja obrót kosiarka
pralka amica pa4580a520 philips wysypka
Wentylator pokojowy włącza się z opóźnieniem - przyczyny i rozwiązania SID 67 - co oznacza w diagnostyce pojazdów i elektronice?
