W prostszych przypadkach mogą też wystarczyć funkcje SUMA.JEŻELI i SUMA.WARUNKÓW. A w nowym Excelu 365 również funkcja FILTRUJ w połączeniu z SUMĄ.
Załączona formuła działa pod warunkiem, że tekst w kol.B zawiera spację. Zakładam, że nazwisk i tekstów do podstawienia będzie >1...
Może INDEKS i PODAJ.POZYCJĘ? http://obrazki.elektroda.pl/5227304000_1...
Utwórz kopię, ale zapisz wartość
w formule użyłem nowej funkcji X.WYSZUKAJ, bo jeśli masz nowego Excela, to ona będzie tu chyba najwygodniejsza. W mojej ocenie autor postu korzysta z Excela 2016, w którym nie ma jeszcze takiej funkcji :cry: Pozostaje zatem raczej zestaw funkcji indeks i podaj.pozycję :D np. tak jak na zrzucie i w załączonym pliku :spoko: 1126412 1126414
ale jak to zrobić? jestem całkowicie zielony, jest to moja pierwsza styczność z excelem :/ Nazwy definiujemy w menu Wstaw->Nazwa->Utwórz (excel2000) W załączeniu przerobiony przykład z wykorzystaniem zdefiniowanych nazw.
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
Dzień dobry, Tyle już było postów w tej sprawie, a wciąż autor nie potrafi precyzyjnie określić o co mu chodzi. i.t.d. z kolejną grupą np 8szt zakres 5-13 5 6 5 7 5 8 5 9 5 10 5 11 5 12 6 5 6 7 I.T.D. Zakres 5 - 13 czy 5 -12? Rozumiem, że chodzi o wariacje bez powtórzeń dla liczb z zakresu pocz (=5) do kon (=12) - w nawiasach wartości przykładowe. Liczba...
Przykładowy plik w załączniku. Daną wejściową zaokrąglam tak, aby zaokraglona liczba była w tabeli: =ZAOKR(D2;2) - tutaj akurat do dwóch miejsc po przecinku. W tym przypadku jest stndardowe zaokrglanie - trzecia cyfra po przewcinku decyduje, czy zaokragenie jst w dół, czy w górę (0-4 w dół, 5-9 w górę). Zadbaj o to aby tabela miała wszystkie możliwe...
Do komórki F2 wklej formułę =JEŻELI(LICZ.JEŻELI($C$2:$C$... i przeciągnij do dołu.
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
Zerknij [url=http://www.cpearson.com/excel/vbe.a...
Bardzo trafne spostrzeżenie. Skraca to znacznie czas wykonania obliczeń i ta prostota kodu. Tylko (przynajmniej u mnie) wyłączenie i włączenie odświeżania trzeba było podać w ten sposób: Application.ScreenUpdating = False ... Application.ScreenUpdating = True Bo inaczej wyskakiwał błąd "Invalid qualifier". Poniżej przykład z o wiele szybszym w działaniu...
W załączniku przykład reguł formatowania warunkowego dla dwóch wartości (1z, 2z), dla kolumny C. Wg wzoru możesz ustawić formaty dla reszty zakresów i pozostałych wartości. Moim zdaniem będzie tego trochę dużo, albo czegoś nie zrozumiałem do końca. Jeśli tabelki w arkuszu mają stałe położenie, można wziąć pod uwagę zastosowanie makra na Offset'ach...
U mnie działa...
Na razie tylko zmniany Co do tych antydubli i listy w zależności od zmiany jeszcze różnej dla każdego kierowcy to więcej roboty i na pewno przynajmniej jeden arkusz pomocniczy.
A zwykłe WYSZUKAJ.PIONOWO nie wystarczy?
Przykład dla obu punktów. Patrz ograniczenie dla kolumny C przy selection.change. Możesz również ograniczyć do zakresu (zaptaszkowane w kodzie).
da się coś takiego zrobić standartową komendą .Group ? jak próbowałem rejestrowania makra to widziałem że excel ją wykorzystuje Tak, oczywiście musisz tylko podać zakres w wierszach lub kolumnach. Np i = 1 k = 3 m = 5 Range(Columns(i), Columns(k)).Columns.Group Range(Rows(i), Rows(m)).Rows.Group
Cześć, mam prośbę o pomoc. Mam kilkanaście produktów i ich wagi. Każdy produkt ma określone ceny w określonym przedziale wagowym (niestety każdy produkt ma inne ceny i inne przedziały wagowe). Zrobiłam sobie tabelę pomocniczą dzięki, której za pomocą wyszukaj pionowo mogę przypisać daną wagę do konkretnego przedziału. Nie wiem teraz jak jeszcze połączyć...
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
To informacja o czasach wykonania makra. Trzeba wejść do edytora vba (Alt + F11), a potem Ctrl + G i można zobaczyć wyjściowe komunikaty o czasie wykonania dla poszczególnych arkuszy i całościowo. To tylko poglądowo, linie te można usunąć (oraz deklarację i przypisanie zmiennej czas), są zbędne.
Cześć, mam "bazę danych" tworzoną za pomocą formularza googla. Teraz to wszystko zbiera się w jednym excelu online, chciałbym aby w zależności od kategorii dane przypisywały się do różnych arkuszy w tym excelu i tworzyły tabele, z której będę mógł wyciągać dane. https://obrazki.elektroda.pl/7022070200_... https://obrazki.elektroda.pl/6322953200_...
Makro sobie z tym poradzi. Najważniejsze jest przypisanie Nr pierwszego wiersza. Zastanawiam się nad LP, może powinna być skorygowana? Wystarczy w tym przypadku (wiersze od 3 w dół) za każdym Next wstawić nową linię (Enter) i wkleić [syntax=vb]Cells(i, 1) = i / 2 - 0.5[/syntax]
Zdaje się, że kolega Aldrin wskazuje dobry kierunek. Zginiesz z tymi checkboxami :) Proponuję pętlę sprawdzającą stan ukrycia kolumn, przypisanie argumentów w bloku Select Case i właściwa pętla działająca na kolumnach. Przykład w załączniku.
Przypisanie komórkom wartości liczbowych z sąsiedniej komórki. Nie przepisuje w kolejności oraz wyrzuca błąd Przy wyborze z listy SYSTEM nie wyświetla poprawnie danych które sa przyporzadkowane do komórki SYSTEM przyporządkowany jest do WYMIARÓW Plik w załączniku XLSX http://obrazki.elektroda.pl/2071350900_1... =INDEKS(D9:D14;PODAJ.POZYCJĘ(...
Wbudowana funkcja Wyszukaj.Pionowo() załatwia sprawę.
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
No i jak zrobić żeby wyszukał z kilku arkuszy??? Zrobiłbym tak: Wyszukiwanie i składanie stringu dla etykiety umieściłbym w osobnej funkcji, do której z głównej procedury zdarzeniowej przekazywało by się argumenty: tekst wyszukiwania i nazwa arkusza, a która zwracałaby string dla etykiety. W zależności od tego ile masz magazynów (arkuszy) zastosowałbym...
ponieważ swoje się wstydzę... Rety, to coś Ty tam wypisał :D Wklej do arkusza źródłowego taki [syntax=vb]Private Sub Zapisz() With Sheets("Zestawienie ofert") wDst = .Range("D1").End(xlDown).Row + 1 'klient 'data 'kwota łącznie For i = 2 To 4 wSrc = 3 Do While Cells(wSrc, 2) <> "" .Cells(wDst, i + 2) = .Cells(wDst, i + 2) & Trim(Cells(wSrc,...
Dzięki, wystarczyło proste WYSZUKAJ.PIONOWO z "FAŁSZ-em" w formule:) pozdrawiam:)
Witam! Mam w Excelu tabelkę, w której na bieżąco aktualizuje się dane (kolumna F). Po czym jest to sortowane wg wartości kolumny F, więc kolejność non-stop się zmienia. Na wykresie kołowym mamy procentowy udział, który automatycznie się aktualizuje. Problem w tym, że zmieniają się również kolory danych na wykresie. Czy możliwe, żeby każdy element kolumny...
ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania, a warunkiem kontynuowania kodu zrobić licznik_pętli...
Pewnie jakaś SUMA.JEŻELI lub coś podobnego. Przydałby się załącznik z przykładowymi danymi...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
Witam Temat niby prosty, a jednak potrzebuję pomocy. Mam kolumnę w której wpisuję numer wybranego tygodnia roku 2017, w sąsiedniej kolumnie chciałbym uzyskać zwrot w postaci zakresu dat dla danego tygodnia, w następujący sposób lub coś podobnego: 41 9-15.10.2017 .... 45 6-11.11.2017 W tej chwili komórki z kolumny B zwracają tylko pierwszy dzień tygodnia....
Witam, Podobne tematy były poruszane, ale niestety nie rozwiązują one do końca mojego problemu. Chciałbym zdefiniować wartości dla dla 6 par znaków: G0, G1, G2, G3, G4, G5. Nie chodzi mi tu o nazwy komórek, tylko wartości wpisywane w komórki. Do każdej z nich chciałbym przypisać jakąś wartość, tak aby móc używać MAX, MIN. Czy jest to możliwe, biorąc...
Witam, Piszę ponieważ napotkałem w Excelu spory problem. Mianowicie muszę wyszukać 4000 danych w pliku z ponad 1 mln danych. Sprawa wydaje się banalna - ale taka nie jest. Opisze wszystko po kolei. 1. Mam główną bazę z adresami ludków 1 mln rekordów. Baza jest przygotowana profesjonalnie wszystkie dane są szczególwo opisane - żadnych skrótów. Baza zawiera...
błędny wpis to wartość poza zakresem cyfr 1-151
To raczej zadanie dla bazy danych. Gdzieś te zestawienia trzeba by przechowywać. Nie prościej każdemu pracownikowi przydzielić osobny arkusz? Jeśli jednak się uprzesz, to czekają Cię nie lada kombinacje. Arkusz Excela jest dwuwymiarowy, a tu musisz przechować informacje w trzech: pracownik/kalendarz/zdarzenia.
Witam, Szukam sposobu na przypisanie numeru zmiany (1, 2, 3) po dacie. Mam tabele z danymi gdzie jedna z kolumn zawiera Datę (rrrr/mm/dd hh:mm:ss) Chciałbym, żeby w nowej kolumnie excel przypisał mi numer zmiany produkcyjnej. Zmiana 1 ( 06:00:00 - 13:59:59 ) Zmiana 2 ( 14:00:00 - 21:59:59 ) Zmiana 3 ( 22:00:00 - 05:59:59 ) Z góry dziękuję za cenne wskazówki....
Dalej nie do końca rozumiem o co ci docelowo chodzi. Po twojej ostatniej wypowiedzi wnioskuje że chcesz mieć jedynie jakieś zabezpieczenie przed dublem gdy będziesz nadawał numery wewnętrzne dla danej "grupy" KOD EAN/INDEX/ NAZWA. Więc sortowanie nie będzie konieczne, tym bardziej jak kody będą wprowadzane "czysto" ręcznie. Poniżej (na razie bez makr)...
Dzień dobry, Czy chodzi Panu o to, by w Arkuszu1 był roboczy formularz do wprowadzania danych i dane te były później kopiowane do Arkusza2, czy odwrotnie - dane są już umieszczone w Arkuszu2, a w Arkuszu1 chce Pan tylko wyświetlić dane przypisane do wybranej osoby?
Witam, Może ktoś pomoże z taką zagwozdką związaną z autofiltrem: Chciałbym za pomocą funkcji inputbox działającą w pętli wprowadzać kolejne kryteria autofiltra i na koniec uruchomić jednokolumnowy autofiltr z tymi kryteriami. Kod wygenerowany rejestratorem: ActiveSheet.Range("A4:O19... Field:=2, Criteria1:=Array("038/WD", "143/WD", "450/WD",...
Witam, Mam 2 arkusze. W jednym z nich mam numery zadań, a w drugim numery faktur i odpowiadające im numery zadań: [Arkusz 1] A B BU_001 BU_002 ... BU_100 ---------------- [Arkusz 2] A B BU_001 FV_234 BU_001 FV_342 BU_002 FV_124 ... BU_100 FV_500 Chodzi mi o przypisanie numerów faktur do danych zadań. Normalnie skorzystałbym z funkcji WYSZUKAJ.PIONOWO(A:A;...
A1 - imię B1 - =Jeżeli(A1="Anna";5;0) C1 - 3 D1 - =B1*C1 i wszystkie komórki skopiowane "w dół".
Mam taka zagwostkę. Dwa arkusze 1 i 2. W arkuszu1 jest tavela w kolumnie A i B. Kolumna A zawiera nazwe kategori, kolumna B przypisane do niej kody. Do jednej kategorii przypisane jest wiele róznych kodów - samo przypisanie może sie zmieniac. Raz tych kodów bedzie więcej, raz mniej. W arkuszu 2 stworzyłem sobie liste unikalnych kategori (tak by sie...
Witam, Czy ktos mi pomoze wpisywac w excelu liczby np. 1 1 1 1 1 i tak samo z 2 zeby sie po piec razy powtarzały ? I jeszcze jedno pytanko czy istnieje jakies makro albo funkcja w excelu na szukanie i dopasowanie przypisanie wartosci np. Mam dane w poziomej tabelce, a musze odnaleźć dana wartosc i przypisac do kokretnego wiersza w wersji pionowej, zalozmy...
W twoim przypadku nie korzystaj z "Copy" Wykorzystuj przypisanie "=" Zobacz jak to jest zrobione (bez "copy") w ostatnim moim pliku z przykłądem.
Zmiennej 'lastRow' oraz 'lastColumn' przypisujesz wartość z ActiveSheet i wykorzystujesz jako liczniki pętli przeszukującej sht... Przypisanie powinno być wewnątrz pętli 'For Each sht In ThisWorkbook.Worksheets'.
Dzień dobry, Mam za zadanie wyszukanie ostatniej akcji, skopiowanie jej do dodatkowej kolumny, oraz w kolumnie obok przypisanie odpowiedniej daty wykonania tej akcji. O ile z wyszukaniem ostatniej akcji nie mam problemu, tak nie wiem jakiej formuły użyć do dat. Pozdrawiam
Działa super, wielkie dzięki :-) Dodano po 2 A jak bym w C2 wpisał =TERAZ() i ustawił datę aby miała format 2017-11-11 to czy udało by się ten sam efekt (czyli przypisanie zmiany) uzyskać automatycznie w momencie otwierania pliku tak abym nie musiał podczepiać makra pod przycisk?
Zmień przypisanie na ostWrs = .Range("B35").End(... + 1 gdzie B35 to ostatnia komórka tabeli. Przydałoby się być może zabezpieczenie przed przekroczeniem, ale to "wyjdzie w praniu".
chyba że wynikiem miałaby być znowu formuła, ale tu jest SUMA.WARUNKÓW, więc raczej chodzi o wartość. " Tak, wynikiem ma być czysta wartość. Jeszcze nie doszli do takiego poziomu skomplikowania/zagnieżdżania formuł w formułach, ale boję się, że to może być tylko kwestia czasu ;) " Jeśli formułę wprowadzasz przez VBA, to arkusz nie musi działać w stylu...
Bez przykładowego pliku możemy tylko gdybać... Podejrzewam jednak, że stosujesz Copy-Paste. Spróbuj przypisanie z odwołaniem do adresu lewej-skrajnej komórki scalenia.
Jeśli tego samego zakresu używasz w wielu arkuszach, zadeklaruj zmienną globalną i przypisz zakres. W arkuszach możesz używać tylko nazwy zmiennej. Przypisanie w pętli (wg. marek003) możesz zrealizować przy Workbook_Open.
Witaj. Bez względu na to, co potem już liczbą będzie tekstem(1,5s)? Makro należy znać nazwy arkuszy i werszy-kolumny źródłowe i docelowy. w przeciwnym razie sam cos takiego: [syntax=vb] For r=pierwszWersz To OstatWersz If Cells(r,2) >1500 then ' Tu kopiowanie, dzieląc wartość przez 1000, a przypisanie s. End If Next [/syntax]
Witam Proszę o informację czy za pomocą kodu VBA można przypisać do zmiennej ścieżkę + nazwa arkusza Za pomocą kodu [syntax=vb]NowaZmienna = Application.GetOpenFilename(FileFilter:=... Excel (*.xls), (*.xls)")[/syntax] mogę przypisać do zmiennej ścieżkę do wskazanego pliku. Ale czy da się przypisać do zmiennej nazwę arkusza z którego chcę importować...
Są dwa wyjścia: Lepsze - wydzielony arkusz z listą dla sprawdzania poprawności danych, dziedziczony dla następnej kopii, aktualizowany co jakiś czas (min. 2 sposoby do wyboru). Wpisując nieistniejącą nazwę usuwasz formatowanie (najszybciej Ctrl+c, Ctrl+v komórki bez formatu). Lepsze inaczej: eksport listy do pliku tekstowego, import w nowym pliku, przypisanie...
OK dam znać jutro. O tyle to dziwne, że to samo makro w którym zamiast kopiowania jest przypisanie działa poprawnie. To każe nam wnioskować, że zarówno plik jak i arkusz istnieją.
Cześć! Moje doświadczenie z VBA jest niewielkie, dlatego zawracam się do Was z prośbą o podpowiedź. Chciałam skorzystać z tego kodu interesuje mnie wersja z arkusza drugiego. Ma to służyć do uzupełniania poszczególnych komórek w kolumnie "TEST1". Czy sam kod UserForm2 + przypisanie UserForm do wybranych komórek powinno wystarczyć? W jaki sposób można...
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
Witam, generalnie to mam wrażenie, że Twój opis jest bardziej zagmatwany niż to czego faktycznie potrzebujesz. Niestety w załączniku nie ma makr, którymi planujesz generować swoje zestawienie i to trochę utrudnia znalezienie właściwego rozwiązania. To co mi się na początek rzuca w oczy to układ pliku. Dodanie kolejnych produktów spowoduje przesunięcie...
treść ... również zmieniała się tak jak adresaci ... ... by jedna część tabeli (nagłówki) zawsze była stała a jedynie druga (dane) się zmieniały I. Brak przykładu obrazującego układ danych w arkuszu II. ' Mail_TG ' do poprawki: 1. Nazewnictwo pewnych zmiennych - tutaj ' rng '. ' Rng ' to właściwość obiektu ' Sort ' - nie stosuj jako nazwy zmiennej...
Nie jestem pewien (należałoby sprawdzić) ale zdaje się, że wszystkie funkcje z JEŻELI po kropce, min. ŚREDNIA.JEŻELI, LICZ.JEŻELI, itd działają tylko na zakresach ciągłych. Przypisanie nazwy zakresowi nieciągłemu niczego nie zmieni. Musiałbyś przeorganizować tabelkę (poukładać we właściwej kolejności). Również pozdrawiam.
Witam Czy istnieje sposób na przypisanie odnoników jedynie do przefiltrowanych danych tak by można było np. w kolejnej zakładce poddawać je dowolnej obrobce. Założenie jest takie że dane wciąż są uaktualniane, zastosowanie więc filtra zaawansowanego i wskazanie lokalizacji do umieszczenia danych nie spełnia swojej roli. Z góry dziękuję za pomoc
Przekreślenie jest efektem formatowania tekstu w komórce. Wyniku formuły nie można w ten sposób formatować. Pozostaje makro - nagraj przekreślenie i będzie prawie gotowe. Glównie chodzi o przypisanie tekstu i sformatowanie: Characters(Start:=1 lub 6, Length:=5).Font.Strikethrough = True lub False. Po mojemu, oprogramować należy arkusz z M/K przy Worksheet_Change.
Po pierwsze: Chcesz pobierać dane z kolumny drugiej a w funkcji podałeś zakres jednokolumnowy. Po drugie: ten zapis co stworzyłeś (po powyższej poprawce) będzie działał prawidłowo tylko pod warunkiem że dane w arkuszu Lista będziesz miał posortowane rosnąco. Jeżeli będziesz miał dane "poszatkowane" trzeba dodać 0 na końcu formuły inaczej funkcja wyszukaj.pionowo()...
No ale chyba jednak nie można fourste napisał: ale w pod jeden kod pocztowy może być wiele miejscowości :not: To stwierdzenie jest fałszywe :cunning: Może być wiele adresów dla jednego kodu, ale miejscowość tylko jedna :ok: Proszę nie wprowadzać w błąd. W polskim systemie pocztowym, może być wiele miejscowości w obrębie jednego kodu pocztowego. Przypisanie...
Och, akurat w tych wersjach powinno być w miarę prosto. U mnie na 2007 działa takie coś, zakładając że 2010 ma taką samą składnię, też powinno: [syntax=vbscript]For Each ws In Worksheets If ws.Name <> Arkusz1.Name Then katalog = "D:\PDFy\" & ws.Name 'tworzenie katalogu jeśli nie istnieje If Dir(katalog, vbDirectory) = "" Then MkDir Path:=katalog...
Kolego thestreet . Nie można tak bezmyślnie "szastać kodem" gdzie popadnie. Polecam zapoznanie się z podstawami nie w kodzie formularza (patrz Link wyżej, zasięg zmiennych). 2. Kolega JRV sugerował przypisanie i tylko przypisanie wartości zmiennej w zdarzeniu ComboBox. Na chłopski rozum: Combobox powinien mieć wypełnioną listę po otwarciu formularza....
Dziękuję za pomoc :) Dokładnie napisałeś to co chciałem. Więc teraz doprecyzuję to co chciałbym uzyskać i jeszcze coś dodatkowego. Pozwoliłem sobie skorzystać z jakiejś wersji pliku, który krążył w sieci i go odpowiednio zmodyfikować. Plik w załączniku. Dwie kwestie. 1. Jak zrobić listę w Combobox2, gdy mamy dane w Combobox1 i są one zależne. Jak będzie...
Jednak ciekaw jestem rozwiązania. Zwykle mysz ma pod kółkiem przycisk 'Middle Button'. Może trzeba poszukać czegoś na ten temat. Pewnie, jak pisał kolega JRV , z wykorzystaniem API... Z mojego doświadczenia: W pewnym biurze Pani koniecznie chciała wstawiać bieżącą datę i godzinę w bardzo prosty sposób. Kombinacje klawiszy były "zbyt skomplikowane",...
Świadomej złośliwości i wyłączenia opcji nie zakładam jeśli działanie po zmianach nie wpłynie bardzo na utrudnienie użytkowania pliku. Dlatego najlepszym w moim mniemaniu rozwiązaniem było by stałe przypisanie zamiast opcji wklej funki wklej jako wartości, a opcji wytnij jako kopiuj... - tylko nie wiem czy jest to realne i żeby wszystkie elementy miały...
Zmienna "nazwa" nie ma wartości... Umieść przypisanie przed ifem nazwa = Sheets(1).Range("B3&quo... & ".xlsm" Cały string możesz uprościć do postaci "C:\Documents and Settings\xxx\Pulpit\Nowy folder\" & nazwa
Wszystko jest do zrobienia. Jeśli chcesz umieszczać obszary w zmiennej rang , wystarczy zmienić przypisanie elementu /rn = rang(i)/ na pętlę for, przypisującą adresy komórek z tych obszarów. Np If lub Select Case w pętli For Each . Wyłączenie obsługi błędów (On Error Resume Next) spowoduje, w przypadku braku arkusza w pliku, jedynie przypisanie pustego...
Źle definiujesz tablicę - tak nie można. Na początku tylko ją zadeklaruj: Dim tablica() As Double Następnie jak już makro przypisze wartość do zmiennej "wiersz" (wiersz musi mieć jakąś wartość) to dopiero wtedy ją przedefiniuj: ReDim tablica(1 To wiersz, 1 To 5) I dopiero wtedy z niej korzystaj - patrz przypisanie wartości do AA itd. I jeszcze jedna...
Udało się mi rozwiązać jeden z moich tematów: ... jak powinien wyglądać kod dla ikon przycisków (OK i Anuluj) żeby po kliknięciu na nie zamknąć to okno. Dla ikony przycisku (CommandButton1) wystarczyło podać odpowiedni kod VBA Jak aktywować wyświetlanie okna UserForm, poprzez kliknięcie w dowolną komórkę kolumn C, D lub E w Arkuszu1 Umiem już aktywować...
W takim przypadku wystarczy przypisanie skopiować "z góry na dół"... [syntax=vb] If Cells(wrs, 2) = Empty Then Cells(wrs, 2) = ile ElseIf ile > 0 Then Cells(wrs, 3) = -1 + ile / Cells(wrs, 2) Cells(wrs, 2) = ile 'tutaj End If[/syntax] Edit: Widzę, że zmieniłeś post. Chyba się już połapiesz, że nowa ilość to wartość zmiennej 'ile', stara to Cells(wrs,...
Jeśli zaś prawdziwe jest zdanie pierwsze z tego postu to optymalizowałbym kod. Nie przyglądałem się wcześniej, a zawsze można coś poprawić. Zrobiłem sobie próby na 200 wypełnionych wierszach. Obadałem czas działania makra metodą 'copy' versus przypisanie. [syntax=vb]Sub NO_1() Dim ark As Worksheet Set ark = ThisWorkbook.Sheets(2) wrsDst = 6 start =...
Dzieńdobry, błąd prawdopodobnie wynika z tego, że nie masz na wszystkich arkuszach obiektów listbox1, tak jak w moim przykładzie, więc formuła arkusz.listbox1 nie ma do czego się odwołać, należałoby dodać warunek czy listbox istnieje. Jeśli chodzi o checkboxy vs listboxy... oczywiście można to zrobić, ale dodawanie eventu do każdego checkboxa może być...
Wszystko na razie jest tak że można dodać jeden, ten sam załącznik do wszystkich wysyłanych emaili Jedynym wyjątkiem jest odbiorca, który przypisywany jest przy każdym przebiegu:[syntax=vb]Adres = SprawdzAdres(Komorka.Offset(0, 2).Value)[/syntax]Tu właśnie powinno być również przypisanie załącznika. Czyli każdemu adresatowi z kolumny C powinien być...
Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i "druknie" x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout Coś na wzór (kod w module):[syntax=vb]Sub PrnForm() Dim arkPrn As Worksheet Set arkPrn = Sheets("Wydruk") With ActiveSheet wrs = ActiveCell.Row arkPrn.Range("d7") = .Cells(wrs, 1) 'Nr...
Uff - Przejżałem procedury i tak myślę że za kilka tygodni dojdę o co w nich chodzi :D - taki żart (choć sporo w nim prawdy :D). Twoja metoda działa ale jest jeden problem - nie można odwrócić wykonanego działania (wybrania opcji Anulowano lub Przeniesiono). Jak już to wybierzesz to na amen :D. Myślę że złożoność tego zadania troche mnie przerasta i...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Jeśli jest to lista przez poprawność danych to najlepiej wykorzystać zdarzenie arkusza. Np (w kodzie arkusza) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E1" Then Columns(1).Find(what:=Ta... Lookat:=xlWhole).Select End If End Sub W przypadku obiektu (pole kombi,...
=JEŻELI(A1=1,WYSZUKAJ...,JEŻELI(A1=2,WYS... ) ) )
Rozwiewając dalej swoje wątpliwości: - C=A=10 w 7 kolejnych wierszach musi pojawić się X - to jednak kolumny - podaj przypisanie godzin do numerków (trochę to ułatwi myślenie) przykład zmiana 1 (12-20) zmiana 2 (13-21)), więc pracownik nie może przyjść ze zmiany 2 na 1 - myślę, że może, ale nie chcesz płacić za jedną nadgodzinę (durny przepis mam to...
Hej, Mam w excelu 102 kolumny, z których każda ma 30 wierszy. Każda komórka jest wypełniona literą K lub W. Muszę porównać każdą kolumnę z każdą i w zależności od tego jakie kombinacje się pojawiają dodać odpowiednio punkty w inne miejsce. Moj kod poniżej: [syntax=vbscript]Sub Obliczenie() Dim wi As Long Dim wj As Long Dim i As Long Dim j As Long Dim...
Najprostsze rozwiązanie :D jak na zrzucie: 1010478
Nie ma na to prostego sposobu, a takie zwykłe przypisanie wartości formułą nie można nazwać kopiowaniem. Możesz napisać makro, które będzie kopiowało komentarze z jednego zakresu do drugiego np. po kliknięciu przycisku. Możesz napisać funkcję użytkownika, która w wyniku zwróci wartość komentarza z podanej komórki. Możesz też - i to chyba najbliższe...
Witam, Mam taki problem. W jednej zakładce mam kolumny: A B W drugiej zakładce mam kolumny A B C ale całkowicie rozbite. Jak dodać do pierwszej zakładki kolumnę C po wartościach z kolumn A i B? Np. Zakładka 1: A1 B1 C1 1 2 ? 2 1 ? 3 1 ? Zakładka 2: A2 B2 C2 2 1 ba 1 2 ab 3 1 ca Nie chodzi o sumowanie liczb czy sortowanie a o przypisanie wartości z puli...
Popatrz na przykład, o to chodziło??
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
Prawie dobrze. Sama pętla jest OK. Może źle liczysz kolumny (Offset). If kom2.Value <> "kk" And kom2.Offset(0, 13).Value = "tak" Then tu: warunkiem kopiowania jest dowolna wartość z wyjątkiem tekstu "kk" w kolumnie "I" oraz tekst: "tak" w kolumnie "V" (kol. "I"+13), wielkość liter ma znaczenie. Jeśli możliwe jest wpisanie...
Bardzo ciekawy link :) Dalej nie wiem czy dobrze rozumiem ale... Wykorzystując idee z linka co podałaś można zmienić przypisanie zadanie skrótom klawiszowym (i przyciskom z menu zwykłego i kontekstowego - ale to bardziej skomplikowane). Podstawić tam własny kod wykorzystując np. makro z "wklej specjalne - wartości". Z tym że jak to autor napisał jest...
W kodzie 'TenSkoroszyt' , Case w set_kol(patrz zalacznik)
Dalej nie wypowiem się nad całym kodem ale wskaże gdzie co zmienić. Ta część twojego kodu odpowiada za zapis: ThisWorkbook.path np. na "c:\moja_sciezka" (w cudzysłowach) zrób to w obu fragmentach dotyczących zależności zapisu od wersji excela. Aby data w nazwie pliku była mniejsza o jeden w powyższym ciągu zmień VBA.Date na VBA.Date - 1 Jednak by nie...
Dubel tematu - można usunąć.
excel przypisanie przypisanie danych excel excel przypisanie makro
skrzynia biegów daewoo prywatny adres modbus ciepła
Renault Clio II 1.5 dCi 2006 - Nie odpala, kontrolki akumulatora, oleju i STOP Bezpiecznik 30A w Peugeot Partner - za co odpowiada?
