Dim i As Integer i = ActiveCell Range("C6") = i Aby ustawić komórkę jako aktywną: Range("A2").Select
Co w przypadku jesli klikasz na B6, lub F4 itp.? Dodano po 3 w kodzie arkusza[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 And Target.Column = 1 Then Cells(1, 1) = Cells(Target.Row, 1) End Sub [/syntax]
Chodzi o wyłączenie przeliczania. Ale jeśli zrobisz to ręcznie, zgubisz datę. W Excelu jest skrót Ctrl+: Możesz sobie dorobić coś podobnego: Wstaw moduł (Narzędzia>Makra>Zarządzaj) i wklej http://obrazki.elektroda.pl/7824836700_1... Po tym wszystkim Ctrl+spacja wstawia aktualną datę w aktywnej komórce.
Tak jest to możliwe. [syntax=vbscript]'Moduł Arkusz1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A3")) Is Nothing Then Call win_show End Sub 'Moduł standardowy Sub win_show() Load UserForm1 UserForm1.Show End Sub [/syntax]
Trzeba dodać warunek na długość zawartości komórki: [syntax=text]=ORAZ(KOMÓRKA("wiersz")=WIE... >0 będzie interpretowana jako PRAWDA.
Na przykład druga linijka w instrukcji With [syntax=vbscript].Range(Selection, .cells(3000, Selection.Column)).Select [/syntax] Albo inaczej: [syntax=vbscript]Selection.Resize(3001 - Selection.Row).Select[/syntax]Z tym, że instrukcji Select możesz używać tylko w arkuszu aktywnym.
F9 nie daje rezultatu A powinno (?) W ostateczności wklej w kod arkusza [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.Calculate End Sub[/syntax]Arkusz zostanie przeliczony przy każdej zmianie aktywnej komórki.
w związku z tym druga porada też mija się z celem Dlaczego? Application.CalculateFullRebuild (po zmianie aktywnej komórki) w Worksheet_SelectionChange powinno zaskoczyć.
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]
Dobry wieczór, Może jeszcze zdążę przed zamknięciem. Problem można rozwiązać również nieco prościej, choć w szczegółach działanie jest inne. W wariantach proponowanych dotychczas jeżeli aktywną komórkę przesuwamy poza zakresem tabel zaznaczenie pozostaje tam gdzie było. W moich propozycjach gdy komórka aktywna przesuwa się poza tabelami zaznaczenie...
Dzień dobry, Wszystko zależy od tego jak będzie skonstruowane odwołanie. W podanym przez Pana przykładzie nazwy list rozpoczynają się od "namKierownik" i dalej jest numer. Więc ten numer jest wyróżnikiem listy. Trzeba go umieścić w wybranej komórce i nazwać np. "nr" albo posługiwać się adresem tej komórki. Teraz tworzy Pan w Menedżerze nazw formułę...
No bo dla niego cells(3,16) i cells(2,17) oznacza komórkę w aktywnym arkuszu uzupełnij to o Worksheets("license")
Witaj! Zapewne chcesz, żeby zwinęła Ci się część zaznaczonej tabeli a pozostała pod nią tabela powędrowała na jej miejsce. Excel ma możliwość tylko ukrycia lub zwinięcia zaznaczonych ale całych wierszy ponieważ zwijając fragment tabeli a na jej miejsce wstawiając inne powodujesz zmianę adresowania aktywnych komórek. Pozdrawiam
Zapożyczyłem i w miarę możliwości dostosowałem do swoich potrzeb taki kod: Sub new_book() With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ .Sheets("set").Range("dok") & _ .Sheets("set").Range("num") & ".xls" ActiveWorkbook.Close End With End Sub Chciałbym aby makro nazywało dokument nie po komórce "dok"...
Przesyłam Ci przykład kodu, który działa chyba podobnie do tego, który jest Tobie potrzebny. Musisz go sobie przystosować, bo ja nie mam Twojego urządzenia, żeby sprawdzić jak to działa. [syntax=vbnet]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Start As Date Start = Time Application.EnableEvents = False Do DoEvents Loop Until Time...
i = ActiveCell.Row Aktywna komórka, to aktywna komórka... If Cells(i, 3).Value = Worksheets("Dane").Cells(j, 1).Value Then Exit For Zamiast funkcji w VBA, oparłbym to o WYSZUKAJ.PIONOWO.
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
No to już tylko makro. Np takie Sub Wpisz_Jest() Columns("A:A").Sel... On Error Resume Next wiersz = Selection.Find(What:=Range(&... After:=ActiveCell, LookAt:=xlWhole).Row Cells(wiersz, 3) = "Jest" Cells(1, 2).Select End Sub Możesz je umieścić w kodzie arkusza...
Nie wiem czy dobrze rozumiem, bo jakoś dziwnie to napisałeś, ale wydaje mi się, że potrzebujesz zmienić aktywną komórkę. [syntax=vbnet]ActiveCell.Offset(1, 0).Select[/syntax]
Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...
Jeżeli zapełnie lub skasuje dane z komórki to efekt zmienia się w następnej aktywnej :?: To jest jakiś nowy pomysł :?: Normalnie działa zmiana tylko w komórce aktywnej :D
Hej, szukam pomocy, ponieważ poszukuję makra, aby excel aktywną komórkę wpisał w polu wyszukiwania w outlooku. Jedynie co znalazłem to niestety pobieranie wszystkich maili, bądź otwarcie ostatniego maila, a mi zależy jedynie na powyższym. Wiem, że to wydaję się proste, ale chyba tak proste to nie jest :( Błagam o pomoc. Z góry dziękuję za pomoc.
Witam, lesławek - bardzo serdecznie dziękuje. ActiveCell.Offset(0, 1).Value - a ja na siłę szukałem wyciągnąć adres z targeta :) Mam jeszcze pytanko - czy jest możliwe przeniesienie średniej do Arkusza2. Np. zaznaczam w Arkuszu1 komórkę A3 wyliczam średnią poprzez formant i wprowadzam ją do Arkusza2 w komórce E3 (czyli w tym samym wierszu co aktywna...
... powiedzmy, że chodzi o aktywną komórkę ale zawsze jest to inna komórka
Nie piszesz, której wersji Excela używasz, mam nadzieję, że co najmniej 2010. Bo od tej wersji dostępna jest właściwość DisplayFormat, która rozwiąże Twój problem. Tylko przykład dobrałeś niefortunnie, bo Twój kod działał w obu arkuszach: w jednym były dwa formatowania zwykłe, a w drugim dwa warunkowe, a Twój kod porównuje formatowania zwykłe, które...
Ostatnie pytanie: Dlaczego przy WorksheetChange? Ostatecznie, przy zmianie ma porównywać tylko komórki H I z aktywnego wiersza?
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
Najprościej: -ustaw aktywną Komórkę 1 -kliknij 'Malarz Formatów" -przeciągnij "pędzlem" po komórkach wynikowych
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...
Dzięki wielkie, działa :) A czy można to jakoś uściślić tak aby ta funkcja działała tylko w jednej kolumnie aby wykluczyć ewentualne pomyłki kliknięcia "Delete". To znaczy że jeśli jest aktywna komórka tylko wybranej jednej kolumny a nie całego arkusza?
Przed datą w polu żółtym daj spacje. Właściwie można i tak ale to trochę nielogiczne zamieniać datę na tekst. Do autora: :) Pominąłeś dość znaczący "szczegół". Fragment tekstu dalej jest tekstem choć może wyglądać jak data, a dla excela wygląd to nie wszystko :). Trzeba ten ciąg zamienić na datę za pomocą funkcji Data.wartość(). Oczywiście jeżeli w...
Wiesz, trochę łatwiej działałoby się na jakimś przykładowym pliku. Dodane: Który z arkuszy jest aktywny na początku procedury?
Kiedy komórce G2 wpiszę dzisiejszą datę, czyli zadanie zostało wykonane chciałabym aby komórki E2 i F2 nie były komórkami aktywnymi ( nie podświetlały się ) poneiważ zadanie zostało zakończone.
Makro ukrywa wybrane komórki i uwidacznia inne.
Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.
Tak z ciekawości zapytam: A co z tą wstawioną (bez skojarzeń proszę), nową kolumną? Ma jakieś znaczenie dla obliczeń? Jaki jest cel takiego działania? Dlaczego makro rozpoczyna od aktywnej komórki? Co, jeśli C2 jest pusta?
Pobranie danych wygląda następująco: czujnik posiada wyjście służące do przekazywania wyników poprzez USB na komputer pc np. do aktywnej komórki w arkuszu excel. bez dodatkowego oprogramowania itp. Opis pinów w złączu czujnika oraz dane przekazywane są w sposób jak na rysunku. Prezentacja wyników jak napisałem wyżej na podłączonym pod uC wyświetlaczu...
tłumaczysz w porządku ja mam jakieś zapętlenie Teraz chwilę przemyśl co jest wyżej i .... powidz mi co chciałeś osiągnąć (o którą komórkę/obszar ewentualnie ci chodziło) pisząc: "ActiveSheet.Cells.Range.Copy" chciałem skopiować ostatni zakres komórek z aktywnego wiersza odpowiadając na pytanie
Jeśli zaznaczasz dwie komórki (lub więcej), to obiekt Target jest złożony z 2 lub więcej komórek, więc też jego właściwość .Value jest tablicą, a Ty ją chcesz przypisać do pojedynczej zmiennej zadeklarowanej jako String. Nie dziw się zatem, że jest Type mismatch. Taką sytuację należy przewidzieć i odpowiednio obsłużyć. Sposobów rozwiązania jest kilka:...
Dzień dobry, Szkoda, że brak załącznika, a obrazek jest niezbyt czytelny. Odpowiem więc tylko ogólnie. Przykład kodu definiującego formułę tablicową w zaznaczonej komórce: FormulaArray obiektu Range . Jej wartość ma postać tekstu rozpoczynającego się od znaku równości, zawierającego poprawne wyrażenie w języku angielskim. Jeśli formuła zawiera odwołania...
Tak nie do końca oto mi chodzi.Znajdowanie duplikatów podświetli tylko nazwę lub cały wiersz,którą wraz muszę przewijać i szukać w tabeli.Ja bardziej myślałem aby po przejściu na inny arkusz na duplikacie była ustawiona już aktywna komórka (ActiveCell lub ActiveCell.Address). A co do występowania produktów to na pierwszym arkuszu w kolumnie "B" powtarzają...
Działa :) Dziękuje serdecznie przyjacielu ! Jeszcze jedno : A jakbym chciał zaznaczyć zakres dwóch wierszy tzn. aktywnego i jednego wyżej :) pozdrawiam
Nie mam wersji 2013, więc nie wiem jak to w szczegółach będzie tam działać, ale można poeksperymentować z różnymi kolorami obramowania. Metoda wykorzystuje formatowanie warunkowe. We wcześniejszych wersjach Excela niestety przy formatowaniu warunkowym obramowanie było zawsze cienkie i robiła się z tego superpozycja ramki systemowo zaznaczającej komórkę...
Niestety nie. Chodzi o to aby po wykonaniu makra w komórce A1 (jako aktywnej) zostało TR a do B1 przeniosło lodówka .
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Wybierz gdzieś komórka dla nazwy arkusza. (np. arkusz3!Z1) [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("arkusz3!Z1") = ActiveSheet.Name End Sub Private Sub Workbook_Open() Sheets(Range("arkusz3!Z1")).Activate End Sub [/syntax]
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Tabelkę wstawisz [syntax=vbscript]ActiveDocument.Tables.A... Range:=Selection.Range, NumRows:=2, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavi... możesz bezpośrednio z excela skopiować jakiś zakres i wkleić do worda, też otrzymasz tabelkę. Kolor słów/liter łatwo zmienisz w excelu (zastosuj to do komórki z tekstem "KolorTest") [syntax=vbscript]Cells(x,...
W tym przypadku to przejdzie, ale nie zawsze Jak nie będzie takiego przypadku szczególnego :D to proponuję Ci makro "wyszukajdaty", które uruchamiane skrótem ctrl+w wypisze w aktywnym arkuszu w jednej kolumnie pierwsze daty, a w drugiej - drugie daty :spoko: - tak jak na zrzucie i w załączonym pliku. 1054371 1054372
Jest tu faktycznie niekonsekwencja. Zakres B3:K13 liczy 10 kolumn i 11 wierszy. Inny sposób rozwiązania. Zdefiniować nazwę "zakres" wg wzoru: [syntax=text]=PRZESUNIĘCIE(ADR.POŚR(KOMÓ... przykładowy zakres obejmuje 5 wierszy i 3 kolumny. To sobie poprawisz tak jak chcesz. Początek zakresu ustalasz ustawiając kursor (komórkę...
Nie bardzo mogę się doszukać logiki w sekwencji komórek, do których ma być wykonany zapis. Jeżeli jest to określona sekwencja obejmująca znaną wcześniej liczbę komórek, to dość prostym rozwiązaniem jest odblokowanie tych komórek, a następnie włączenie ochrony arkusza z zezwoleniem na zaznaczenie tylko odblokowanych komórek. Naciskanie klawisza Enter...
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
Sub ZamienNaHiperlink() Dim komorka As Range Dim nazwaPliku As String Dim sciezka As String Set komorka = ActiveCell If IsEmpty(komorka.Value) Then MsgBox "Aktywna komórka jest pusta.", vbExclamation Exit Sub End If nazwaPliku = Trim(CStr(komorka.Value)) ' Buduje pełną ścieżkę z podwójnymi ukośnikami sciezka = "file:///D:\as\" & nazwaPliku &...
W arkuszu "raport" zaznaczam jako aktywną komórkę E5. Naciskam przycisk "pokaż szczegóły" do którego podpięte jest makro i otrzymuję to co znajduje się w arkuszu "wynik kliknięcia".
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Dzięki za pomoc. Chciałem przy pomocy Comboboxa umieszczać w n - arkuszach w wybranych komórkach dane. Ma to zapobiec błędnym wpisom. Obecnie działa to na liście rozwijanej. Przy dodaniu funkcji tablicowej .Jeszcze jednej :) Excel zaczyna mulić. Dlatego szukam wsparcia w VBA.
Trzeba zmienić sposób adresowania w makro z bezwzględnego na względny . A najlepiej związać z aktywną komórką i wtedy nawet nie trzeba go kopiować - jedno makro będzie obsługiwało wszystkie wiersze. :D
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
A czy istnieje napisanie kodu w taki sposób, aby podczas zablokowania zakresów do edycji nie wywalało błędu. Aktywny zakres to tylko ten w którym się wpisuje dane.
Twoja formuła robi tak jak chcesz czyli ma zmienić tylko aktywna komórkę czyli ActiveCell Aby to poprawić: zmień ActiveCell.FormulaR1C1 = ....(itd) na: rng.FormulaR1C1 = ....(itd) Czyli cała procedura: [syntax=vb] Sub kopiujtlumacz() Dim rng As Range For Each rng In Range("b2:b16") If rng.Value = "" Then rng.FormulaR1C1 = _ "=IF((ISNUMBER(SEARCH(R3C3,RC[-1]))),(R6...
Pojawia mi się błąd next without for a bez next a stosuje tylko do aktywnego arkusza
Pomyślałem i wykonałem: Private Sub Worksheet_Calculate() Sprawdz = Range("F11").Value Select Case Sprawdz Case 1 Call sortuj_malejąco Case 0 Call sortuj_rosnąco End Select End Sub Działa :D :D :D sortuj_malejąco sortuj_rosnąco To są oczywiście makra zarejestrowane w arkuszu Dodano po 46 To co podałem wyżej działa z komórką F11 w aktywnym arkuszu. Czy...
Wielkie dzięki. To jest to o co mi chodziło. Do pełni szczęścia brakuje mi tylko tego, aby makro działało również wtedy, gdy tekst w dowolnej komórce kolumny A jest zaciągany z innego arkusza np. w komórce A5 jest wpisana formuła =Sheet2!D1 lub w dowolnej komórce kolumny A aktywnego arkusza wpisana jest np. formuła ="data cos tam"&Sheet2!A1 Da się tak...
Witam. Ma problem z poniższą instrukcją: a = 2 If Sheets("Roboczy").Cell... 6) <> "" Or Sheets("Roboczy").Cell... 7) <> "" Then Do Until Cells(a - 1, 1) = Sheets("Roboczy").Cell... 6) & Cells(a, 1) = Sheets("Roboczy").Cell...
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
jakos nadal nie działa pojawia się komunikat Application.defined or object-defined error Dodano po 7 Jeśli tak zrobię to faktycznie jest ok wksz.Activate MsgBox Range("status") Jeśli wksz.Range("status") to już błąd Ja chce kopiować komórki pomiędzy arkuszami wiec użyłem polecenia 'Cells(NextRow, 1) = wksz.Range("status") gdzie cells jest poleceniem...
muszę go 'zedytować' przed wrzuceniem tutaj, a to wieczorem :) Po lekkiej edycji calego pliku jest ok :) Jeszcze jedna rzecz jest dość uciążliwa - mianowicie przy każdorazowej zmianie aktywnej komórki uruchamia się makro dzielące wynik z I1, czy można to ograniczyć do jednorazowej akcji? Dorzucam plik
Dzięki za zainteresowanie i odpowiedź, ale nie do końca mi o to chodziło. Może nie dość jasno się wypowiedziałem. W komórkach A5 - A10 zwarte są nazwy makr - (dajmy na to, że w A8 będzie to "przelicz", w A9 "decyzje", w A10 "kontrole" itp.). Uruchamiamy makro o nazwie dajmy na to "start". Makro to sprawdza który wiersz jest aktywny, jeśli jest to np....
Co do numerowania wierszy spróbuj takiego makra: Sub num() Dim w As Integer Dim i As Integer Dim v As Integer Dim k As Integer v = 1 k = 30 'liczba wierszy do ponumerowania For i = 1 To k Step 3 'step liczba powtórzeń For w = i To k ActiveCell.Range(Cells(w, 1), Cells(w, 1)).Value = v 'numeracja od aktywnej komórki Next...
Który arkusz jest aktywny w trakcie podglądu ? Dlaczego właściwie do identyfikacji numeru wiersza, z którego pobierane mają być dane, służy zaznaczenie jakiejś jego komórki/komórek, czy to jedyny mechanizm, który można zastosować ?
No właśnie u mnie jakoś to nie działa jakbym potrzebował.. dane są zamieniane bez problemu tylko w aktywnym arkuszu (do tego już doszedłem), a ja potrzebuje jednym kodem dokonać zamiany w kilku arkuszach skoroszytu.. dziękuje za zaangażowanie
Może offsetem go. Np Sheets("Arkusz2").Rang... 1) = Target +1 Wpisuje wartość aktywnej komórki powiększoną o 1 do "Arkusz2" w komórkę o jeden wiersz w dół i jedną kolumnę w lewo...
Jak chcesz to przetestuj jeszcze takie rozwiązanie. Ciekawe rozwiązanie, i raczej przy nim zostanę. Tabelka została trochę zmodyfikowana. Dodałem do niej w kolumnach, gdzie wpisuję datę po podwójnym kliknięciu na komórkę wyskakujący kalendarz. Wszystko jest ok, ale nie wiem, jak poprawić ten kalendarz, żeby po wywołaniu jego i zamknięciu na 'X' bez...
Istnieja trzy sposoby. Z pomocą VBA ( pisanie kodu ), Formularzy lub Sprawdzanie poprawności. VBA pominiemy. Jezeli dane ( zebrane w kolumnie ) sa w tym samym aktywnym, arkuszu, mozna je szybko wybierać, edytować, za pomocą Sprawdzania poprawności. Recepta: 1. menu Dane/Sprawdzanie poprawności 2. Dozwolone/Lista 3.Żródło - wskazać zakres danych w kolumnie...
A może założyć trigger na kolumnie J z eventem Worksheet_change, w chwili zmiany komórki w kolumnie J przenieść wiersz z aktywnego wiersza do Zestawienia Wydatków. Edit. RADU23
zadaniem makra jest zmiana koloru aktywnej komórki aby kolor z dniem działał na wybranej komórce w tych kolumnach Czym w Twoim projekcie różni się aktywna komórka od wybranej komórki :?: :D Załącz przykładowy plik i wyjaśnij czemu do tak prostej "kolorowanki" chcesz stosować makra VBA ? :cry: Najprostszym rozwiązaniem w takich wypadkach jest stosowanie...
U góry ekranu miał Pan komunikat, że zawartość aktywna została wyłączona. Kliknij aby uzyskać więcej szczegółów. To trzeba kliknąć i potwierdzić, że makra mają być włączone.
Tak oczywiście. Musisz stworzyć sobie userform, w którym umieścisz odpowiednie przyciski do wyboru dnia, miesiąca i roku. Kombinuj w ten sposób. Jeśli nie to w userformie umieść pola tekstowe ze zmiennym tekstem tworząc siatkę kalendarzową. Pola te muszą być aktywne tak, że po kliknięciu na nie makro wpisze w wybraną komórkę (zaznaczoną) tą informację,...
A co z ilościami, ceną i wartością? Która ilość ma znaleźć się na PZ? Sucha się "sama" liczy, czy wpisujesz ręcznie? Czy kopiowanie danych z aktywnego wiersza, czy z ostatniego. Które dane są wymagane, a które można pominąć (PZ tworzona jest mimo niewypełnionych komórek wiersza)?
Nie jest dla mnie to jasne. O ile kryteria stworzenia arkusza są jasne (bo jest on tworzony na podstawie formularza - i podejrzewam że arkuszy może być kilka) - to na jakiej podstawie ma być wybierany arkusz? Też na podstawie nazwy z formularza? W każdym razie FormulaR1C1 albo Value możesz zastosować do komórki w dowolnym arkuszu, nie tylko bieżącym:...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Dobrze, że dałeś sobie radę. To się ceni ale to samo co na pięciu przyciskach możesz mieć na jednym po zastosowaniu mojego kodu. Nie chcę Ci udowadniać wyższości Świąt Bożego Narodzenia nad Wielkanocą. Mam jednak drobne podejrzenie, że mój kod przekleiłeś w całości bez sprawdzenia. A tam był drobny błąd na który nie zwróciłeś uwagi. A1 . Zmień sobie...
Masz źle zapisany kompletny kod najwyraźniej. Czy kod z aktywnego okna jest w ogóle potrzebny do czegoś? Jeśli tak, to powinien chyba znaleźć się w procedurze (sub) a nie w części deklaracyjnej.
Czemu nie załączyłeś pliku, tylko obrazek, na którym niewiele widać? Generalnie formuły formatowania warunkowego w Excelu pisze się z punktu widzenia pierwszej (dokładniej aktywnej) komórki formatowanego zakresu, a zatem raczej nie będzie tam odwołań do zakresów, chyba, że są to odwołania do zakresów zewnętrznych w stosunku do zakresu formatowanego.
Cześć, Jest to mój pierwszy temat, którego nie mogę przeskoczyć korzystając z wcześniejszych postów, bazy wiedzy wujka google. Do Textbox-a umieszczonego na formularzu chcę dodać'wpisać zakres automatycznie wskazując myszką dowolny plik excel- arkusz i zakres komórek. Problem w tym, że mając wyświetlony formularz okno Excela jest nie aktywne. Chciał...
Alt + F11 Insert Modul tam to wklej [syntax=vb] Sub a_b() Application.ScreenUpdating = False For b = 1 To 1000 For a = 1 To 1000 Cells(a + 1000 * (b - 1), 3) = Cells(a, 1) & " " & Cells(b, 2) Next Next Application.ScreenUpdating = True End Sub [/syntax] Z makrami miał do czynienia? Aktywny arkusz musi być tem, gdzie Twóje A i B
w żółtym polu wpisywałoby się frazę i dochodziło by do aktywnego wyświetlania poprawnych wyników Funkcje wyszukiwania nie wystarczą? Ale dla pewności: jakie są poprawne wyniki, po wpisaniu "a" (w żółte pole)?
No dobrze z tym sobie poradziłem. Dodano po 17 Mam nowy problem. Jak mając komórkę z formułą zliczającą dane w jednym skoroszycie przenieść tylko wynik do drugiego skoroszytu, aby był zmienną do obliczeń w aktywnym skoroszycie. Pomooocyyy
Jest sobie laptop, który ma podłączony dodatkowo monitor/ rzutnik. Ten komputer będzie obsługiwał aplikacje, stopera z fotokomórka, a jego wyniki są generowane do Excela. Wartości w komórkach są aktualizowane w czasie rzeczywistym nie zależnie czy program Excel jest oknem aktywnym z zminimalizowany na pasku Problem jest w tym, że chciałbym aby zawartość...
Mam stworzony dość rozbudowany kod, opierający się na zmianach przeprowadzanych w arkuszu. Po wykonaniu kodu, zaznaczony zostaje edytowany ostatnio wiersz (zgodnie z instrukcją w kodzie, która zaznacza wiersz i odkreśla bądź nie cały wiersz). Początkowo pomysł był taki, żeby zatwierdzenie wprowadzonej wartości powodowało wykonanie marka, a następnie...
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
1. Już było wyżej. Masz do wyboru Workbooks("Zlecenia wystawione TE 2009.xls").Close SaveChanges:=False Workbooks("Zlecenia wystawione TE 2009.xls").Close (SaveChanges = False) 2. Z aktywną komórką łatwo o pomyłkę ale jak prosisz NazwaZmiennej = ActiveCell.Value
Bardzo dziękuję! :) Jeszcze mam ostatnie pytanie: czy jest możliwość aby makro sprawdzało te komórki w arkuszu 1 ale komunikat wyświetlało w arkuszu 2? (albo tym, który będzie w danej chwili aktywny). Bo z kolei to C11 i C10 zależą od wartości w innym arkuszu.
Wszystko można (prawie), tylko trzeba dokładnie napisać czego potrzeba, szczególnie jak się oczekuje dokładnych wskazówek. Ja np. dotąd nie wiem, której wersji Excela Pan używa, to jak mam Panu dokładnie wytłumaczyć? Jest opcja, żeby nie zmieniać położenia komórki aktywnej po naciśnięciu Enter. W Excelu 2007: Przycisk pakietu Office/Opcje programu Excel/Zaawansowane/Opcje...
Witam Mam skoroszyt w nim 12 arkuszy.Każdy z arkuszy jest chroniony hasłem W każdym z nich jest tabela o zakresie D4:AH24.Ten zakres nie ma zablokowanych komórek bo wpisuje dane,pozostałe są zablokowane bo mam ukryte formuły.Jak ukryć menu podręczne EXcela i utworzyć swoje menu w którym byłyby takie pozycje: UW, WD, CH,które byłoby aktywne w zakresie...
Witam, Chciałbym w Excelu wstawić przycisk powiedzmy o nazwie PRZYCISK1 , który po kliknięciu wstawiałby w aktywną/kliknięta wybraną w tej chwili komórkę daną wartość np. PRZ1 i przechodził do komórki poniżej. Czy da się to zrobić a jeśli tak to jak? Z góry dziękuję za pomoc Pozdrawiam Odpowiedz
Twój kod nie działa. Myślałem, że wiesz o tym, a jak nie wierzysz to porównaj co robi Twoje makro, a co jest mi potrzebne. W pole A2 wpisuje datę z dniem równym nazwie aktywnego arkusza..... Drwiny z 31 lutego to...żenua, wobec tego, że mam arkusz taki sam na 12 miesięcy roku.
CTRL+SHIFT+" (CUDZYSŁÓW) Aby skopiować wartość z komórki nad aktywną komórką do komórki lub paska formuły CTRL+` (POJEDYNCZY CUDZYSŁÓW) Aby przełączać się między wyświetlaniem wartości komórek i formuł komórek Znalazłem tylko takie określenia. Sprawdź jaki format ma komórka po tej operacji. Przed użyciem tego skrótu za pewnie miałeś format komórki jako...
A co jeszcze zostanie? Chyba nic.;) Czyli faktycznie przegiąłem... No nic , będę musiał walczyć dalej sam. Pętelka , którą mam (makro) pięknie skacze po arkuszach i wywołuje makro do wysyłki email , przerobiłem to makro aby wysyłało na adres z komórki "D1" z aktywnego arkusza - no i ładnie to wysyła. Przecież nie pisałem "macie mi to zrobić" tylko...
Powrócę do tematu. :-( Zrobiłem takie ukrywanie na arkuszu, w którym wprowadzam dane. Wydruk natomiast 'wychodzi' z innego arkusza, do którego przenoszą się dane. Potrzebuję też żeby i tam się ukrywały/pojawiały wiersze na podstawie wprowadzonych danych w tym pierwszym arkuszu. O ile temat jest prosty w aktywnym arkuszu, to po automatycznym przeniesieniu...
makro aktywna komórka excel komórka cyfra excel puste komórka
kabel rozciągnąć gniazdo zapalniczki akumulator odkurzacz electrolux obudowa
problemy harman kardon problemy harman kardon
Tuner AS631 Unitra: Gubienie fal i dioda stereo RDS nie działa w stacji pogodowej Hama - przyczyny i rozwiązania