Dokładnie o coś takiego mi chodziło. Tylko jeszcze chciałem dodatkowo wprowadzić zmienne row i column dla zakresu poprzez instrukcję If Else lub For . Znalazłem następujący kod na angielskiej stronie. Sub ADDCLM() On Error Resume Next Dim Dept_Row As Long Dim Dept_Clm As Long Table1 = Sheet1.Range("A3:A13") ' Employee_ID Column from Employee table Table2...
Nie wiem co miałeś na myśli Po następnym wpisaniu daty w I4 powinno kopiować zakres dat z I4 do R4 itd. Ale pozostałe funkcje działają. [syntax=vb] Public Blokada As Boolean Sub Przesun(Wiersz As Integer) Dim a As Integer For a = 7 To 0 Step -1 ActiveSheet.Cells(Wiersz, a + 9 + 1).Value = ActiveSheet.Cells(Wiersz, a + 9).Value Next a ActiveSheet.Cells(Wiersz,...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target = "Pranie" Then Range("E" & Target.Row) = Date End Sub[/syntax] Ale czy czasami nie potrzebujesz funkcji?
Kłopot polega na tym że dla excela zmiana kolory nie jest "podstawą" włączenia przeliczenia. Wyjściem jest albo po zmianie koloru wciskać F9 lub w "sekcji" Worksheet_Change(ByVal Target As Range) danego arkusza uzależnić/wymusić przeliczenie ( Calculate ) od zmiany koloru.
Daj to w kodzie danego arkusza ("adres twojej komórki" musisz podać adres tej komórki co odbiera co min. te dane) [syntax=vbscript]Private Sub Worksheet_Calculate() Application.EnableEvents = False Cells(Rows.Count, 5).End(xlUp).Offset(1) = "adres twojej komórki" Application.EnableEvents = True End Sub[/syntax] lub pod [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
Dobry wieczór, Miał być przykład, ale się nie doczekałem. Można zdefiniować funkcję użytkownika np. taką: [syntax=vb]Function Tło(adr As Range) As Integer Application.Volatile Tło = -CInt(adr.Interior.ColorIndex <> xlColorIndexNone) End Function[/syntax] Funkcja pobiera adres komórki jako argument i zwraca 0 jeśli komórka nie ma zdefiniowanego...
Można tak:[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 1 Then For Each c In Target If c.Value = "" Then Cells(c.Row, "B").Value = "" Else Cells(c.Row, "B").Value = Date End If Next c End If End Sub [/syntax]
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
Może najpierw funkcja, która zaznaczy komórki żółte, a potem je zabezpieczy przed zmianą. Plik z możliwością działania makr (xlsm, xls) :idea: w arkuszu roboczym wprowadź taki kod makra :spoko: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Unprotect "a" Target.Interior.ColorIndex = 6 Target.Locked = True Protect "a" End Sub[/syntax]...
Jest tam kilka funkcji. Między innymi Calculate, change, Dectivate ale nie widać ich w tych kilku skopiowanych od Ciebie linijkach. Musisz Kolego pocztrać sobie trochę o VBA w Excelu. Proponuję wygooglać kurs VBA - jest tego mnóstwo. Te 'kilka funkcji', to zdarzenia arkusza. Działa to tak, że jak np. w kodzie którym napisałem, jeżeli nastąpi podwójne...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
Umieść ten kod w zdarzeniu arkusza. Dodaj na początek jakieś sprawdzanie, żeby cały kod nie wykonywał się, jak nie musi i to wszystko. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) [/syntax] P.S. Kod nie jest dobrze napisany. Zmienna 'k' powinna być przed pętlą, a nie w niej. Pętlę: [syntax=vbscript]For l = 1 To 20 For k = 2 To...
Private Sub TextBox1_Change() Dim tekst As String, wynik As String, i As Integer tekst = TextBox1.Value For i = 1 To ThisWorkbook.Worksheets.Count ' "i" w tej pętli to indeks arkusza If Left(LCase(Sheets(i).Nam... 2) = "m-" Then 'przypisanie wyniku zwróconego przez funkcję. Drugi parametr funkcji...
Kod który Ci podawałem ostatnio działa tylko dla jednej kolumny, takiej samej jak Target.Column. U Ciebie nie działa bo funkcja Intersect() [zwracająca wspólną część dwóch zakresów] poza 15-tą kolumną jest teraz wywoływane na nie takich zakresach jak trzeba. Zmień początek tego makra na taki: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range)...
Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...
Witam, mam w skoroszycie zestawienia moich godzin pracy. Co pewien czas (miesiąc) eksportuję jeden skoroszyt danego miesiąca do pliku *.xls, który jest pozbawiony kodów VBA oraz funkcji i formatów komórek, czyli jest w postaci "strawnej" dla Androida. W związku z tym mam pytanie: Czy można jednorazowo wyłączyć (lub ominąć jednorazowo) w momencie wykonywania...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
Musisz trochę poczytać n/t VBA szczególnie o procedurach zdarzeniowych Przy zdarzeniach typu Change wywoływana jest automatycznie procedura w momencie zmiany stanu (tj. wartości) Bardziej chodzi tu, przez co te zmiany się dokonały niż o samą zmianę, bo u (at)jahol zmiana wartości się dokonała przez funkcję. https://docs.microsoft.com/en-us/office/...
Witam. Mam szereg danych i zależnie od wyniku i warunku ma zmieniać komórkę i warunek. Wszystkie wyniki działań czyli różnicy poszczególnych komórek maja być w kolumnie C. A1 B1 A1-B1>5 A2 B2 A1-B2>5 A3 B3 A1-B3>5 ( jeśli warunek spełniony zmienia A1 na A3 i zmienia znak >na <) A4 B4 A3-B4<5 A5 B5 A3-B5<5 A6 B6 A3-B6<5( jeśli...
Dzień dobry, mam arkusz z danymi z poprzedniego miesiąca w kolorze czcionki czarnym. Nie chcę ich wykasowywać, ale potrzebuję, aby excel po wpisaniu nowej wartości (po każdej dowolnej zmianie wartości) zmienił kolor czcionki. Chodzi o to, aby było wiadomo które dane zmienione, a które stare. Trochę by mi to ułatwiło życie. Z góry wyrażam wdzięczność...
Witam. Może brzmi dziwnie, ale wytłumaczę: - jest w pierwszym wierszu funkcja typu: =ILE.NIEPUSTYCH(C9:C188) - ktoś mi wkleja wiersz z danymi przed wierszem C9 - funkcja automagicznie zmienia się na =ILE.NIEPUSTYCH(C10:C189) i diabli biorą obliczenia Potrzebuję to wykryć albo zablokować taką autodestrukcyjną reakcję w konkretnym arkuszu (nie całym pakiecie...
Dzień Dobry, Czy ktoś mógłby poradzić w jaki sposób za pomocą funkcji, moge dynamicznie zmienić wartość danej komórki w zależności od zawartości innej komórki ? https://obrazki.elektroda.pl/4979597200_... mam daną komórkę o nazwie 30 i w zależności od tego czy w innej komórce, wybiore opcje tak: https://obrazki.elektroda.pl/1424746300_...
Witam. Chcę w Excelu użyć funkcji JEŻELI aby sprawdzić czy liczba w komórce jest 1. < 20 2. <50 3. <100 I zmienić jej kolor Przykładową formłuę zrobiłem: =JEŻELI( A6>=20;"PORAMRAŃCZOWY" ; JEŻELI(A6>=50;"ZIELONY"... Wyświetla mi odpowiedni tekst w zależności od wielkości liczby. Problem w tym że ja potrzebuje...
czy istnieje możliwość żeby taką funkcję przerobić tak żeby przy kopiowaniu zmieniała datę na kolejne miesiące i tak samo tyczy się to pkt na końcu =LICZ.WARUNKI( arkusz1!B9:B28; ">=2016-01-01"; arkusz1!B9:B28; "<=2016-01-31"; arkusz1!G9:G28; "pkt1) Wiadomo muszę zrobić to do końca roku ale pkt jest ponad 40 i ręczne wpisywanie zajmie mi naprawdę...
Hej, postaram się wyjaśnić ten dość zawiły temat. Potrzebuję aby excel w zależności od wartości liczbowej jaka jest wpisana w komórce sumował odpowiednie zakresy komórek a wynik podawał oczywiście w wybranej komórce. Co zrobiłem: Załóżmy że jeżeli w komórce B1 wpiszemy wartość 14 to w komórce B3 ma być wynik sumujący komórki z zakresu C15:C28 - czyli...
Mam jeden arkusz który ma działać przy uruchomieniu i następnie po uruchomieniu, wygląda to tak: 'to jest działanie po uruchomieniu Private Sub Worksheet_Change(ByVal Target As Range) Dim Symbole Application.EnableEvents = False With Target Symbole = UCase(.Value) Select Case Symbole Case "PS1" .Value = "Ps1" Case...
Witam. W pewnym arkuszu użyto funkcję w postaci =OkresZwrotu($C$14:$L$14;10) Gdzie dane C14...L14 to całkowite przepływy, a 10 oznacza liczbę lat (do wyliczenia jest stopa zwrotu inwestycji ) Problem w tym, że w innym (nowym) arkuszu ta sama funkcja nie chce działać (Excel zwraca: #Nazwa? ). Czy jest to jakaś funkcja indywidualnie zdefiniowana...
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
Witam, stworzyłem arkusz do gry cashflow, wszystko ładnie działa, ale chciałbym wprowadzić jeszcze jedną funkcję, niestety nie wiem jak. Chodzi dokładnie o to, że jak wprowadzam z listy rozwijalnej nieruchomość, to pojawia mi się jej nazwa we wszystkich potrzebnych miejscach, wystarczy, że wpiszę cenę zakupu, wkład własny itp. i wszystko jest ok. Natomiast...
http://obrazki.elektroda.pl/6129276800_1... Witam. Potrzebna funkcja do bocznych przykładów. Najlepiej tymi funkcjami które są w poleceniu ;)
Hej. Proszę o podpowiedź czy jest taka funkcja która w zależności od tego jaka cyfra pojawi się w komórce to cyfrę z komórki sąsiedniej przepisze do innej komórki. Np. jeśli w komórce C1 zostanie wpisana cyfra 8 to, cyfrę z komórki B1 skopuj do komórki D1. Dalej, jeśli w komórce C1 zostanie wpisana cyfra 10 to, cyfrę z komórki B1 skopuj do komórki E1....
Witam, Może to i śmieszne pytanie, zwłaszcza dla specjalistów, od których aż się roi na forum, ale...Jestem początkująca w Excelu i nigdzie nie mogę znaleźć odpowiedzi na pytanie jak: wyszukać i zamienić następującą frazę w excelu : "umowawarunki prad" - na "umowa warunki prąd" korzystając z :Znajdż i zamień Przy próbach wykonania tego pojawia mi się...
Witam, Mam problem z napisaniem formuły lub warunku formatowania. Chce aby kolor czcionki w wierszu zmieniał się gdy w jednej z komórek tego wiersza pojawi się określony tekst. Na przykład mam 7 kolumn i 20 wierszy wypełnionych danymi. W 4-tej kolumnie może się pojawić tylko litera D, N i P. Chce aby po pojawieniu się w 4-tej kolumnie w którejś z 20-tu...
Witam, Jestem tu nowy i chciałbym zapytać czy istnieje funkcja lub jest możliwość stworzenia makra(jezeli ktoś ma stworzone proszę o wysłanie na maila ak.komputery(at)gmail.com) które będzie sprawdzało datę dzisiejszą( dziś()) z datą podpisania umowy na n-nieograniczonej liczbie arkuszy (np umowy na zbyt) arkuszach, a następnie dane z arkusza w której...
Hej Elektrodki! :) Mam problem z Excelem. Mam tabelę danych, gdzie w A2 jest kod państwa, natomiast wszystkie pozostałe dane są w kolejnych kolumnach: przykładowo: PL B pełne C pełne D puste E puste F puste G puste DE B puste C puste D pełne E pełne F puste G puste NL B puste C puste D puste E puste F pełne G pełne Chciałbym zrobić w innym arkuszu syntezę...
Witam, W jaki sposób w excelu można zmienić wartość z komórki, w której jest wpisana kwota (liczba) na tekst (liczba zapisana słownie). Potrzebuję taką formułę do wystawiania faktur vat wewnętrznych. Proszę o pomoc. Pozdrawiam.
Mam taki problem, że w arkuszu z planem produkcyjnym co tydzień muszę zmienić źródło danych. Źródło jest =dysk/folder/[nazwa pliku week 20]Monday'!$F$3 I co tydzień poprzez ctrl+f zamieniam wszystkie frazy "week 22" na "week 23" itd. Chciałabym napisać takie makro, że wpiszę w komórkę a1 tekst week 22 a w komórkę b1 tekst week 23 i makro samo przeprowadzi...
Hej. Potrzebuje pomocy z przepisywanie danych do innego wiersza : Opis sytuacji : Mam przykładowo komórkę B2 - w tej komórce co jakiś czas zmienia się wartość (live) - połączenie ze sterownikiem Chciałbym, aby ostatnia wartość została zapisana do innej kolumny przykład E2 i później kolejne zmienne zapisywały się poniżej E3,E4,E5 itp.. Czy ktoś może...
Witam! Posiadam plik Excel o nazwie Dane.xlsm, w którym w polu B2 mam następującą funkcję ='[stan!.xlsm]T-35'!$G$123 Formuła odwołuje się do pliku stan.xlsm, w którym mam arkusze których nazwy odpowiadają numerom tygodnia w roku kalendarzowym (T-01, T-02, T-03...) - nowy arkusz tworzony jest na początku tygodnia i ma dokładnie identyczny układ jak poprzedni...
Mała poprawka: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 11 Then Dim ar() As String q = 0 a = Split(Target, " ") For aa = 0 To UBound(a) For x = 5 To 13 If Cells(x, 4) = a(aa) Then For Z = 5 To 9 If Cells(x, Z) = "X" Then c = Cells(4, Z) If InStr(1, b, c) = 0 Then ReDim Preserve ar(q)...
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
Na przykład pod Worksheet_Change? Tutaj tylko do pomocy funkcji API Cudów tutaj nie jest, że wierzą w słowo. Więc myślę, że po prostu chcesz zobaczyć przykład.
No niestety, tak już jest z funkcjami tego typu. Pozostaje klawisz [F9] lub procedura zdarzeniowa (przy zmianie) przeliczania w kodzie arkusza. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Me.Calculate End Sub[/syntax]
Tak. W procedurze zdarzeniowej worksheet_change, w pętli For Each porównuj komórki zakresu wyłączając Target z wartością Target... Funkcją Replace "podstaw" pusty znak pod wszystkie cyfry i znak minusa.
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... Private Sub Worksheet_Change(ByVal Target As Excel.Range) Sheets("Arkusz2").Range(Target.Address).... 1)...
Użyj funkcji Private Sub Worksheet_Change(ByVal Target As Range) End Sub Gdzie target to komórka którą zmieniłeś Napisz loopa który sprawdzi czy cały wiersz jest wypełniony i skopiuj go do opis faktury w kolejne nie puste miejsce
Pierwszy link z googla: https://msdn.microsoft.com/en-us/library... Marks a user-defined function as volatile. A volatile function must be recalculated whenever calculation occurs in any cells on the worksheet. A nonvolatile function is recalculated only when the input variables change. This method has no effect if it's not inside...
Jaka masz wersje Excel ? Widze ' Worksheet_Change' listu nie :( https://obrazki.elektroda.pl/4485316100_...
Np. w arkuszu 3 w C3 jest tekst "paliwo", w D3 jest funkcja suma.warunków zliczająca odpowiednie dane z arkusza 1 (zwroty kosztów paliwa), w E3 jest funkcja suma.warunków zliczająca odpowiednie dane z arkusza 2 (koszty poniesione). W kolumnie C prócz paliwa jest jeszcze 100 innych rzeczy do rozliczania, i komórki w kolumnach D i E posiadają funkcje...
Nie wiem jak masz ułożone dane a w szczególności w jakim arkuszu jest umiejscowione "OperacjeSorted" ale u mnie działa z takim kodem: Private Sub Worksheet_Change(ByVal Target As Range) Sheets(2).Cells.ClearContents Range("Operacje").Adva... Action:=xlFilterCopy, CopyToRange:=Sheets(2).Range...
Kod: Private Sub Worksheet_Change(ByVal Target As Range) Dim CelkaZValid As Range If Target.Cells.Count = 1 Then On Error Resume Next 'sprawdzenie czy komórka zawiera sprawdzanie poprawności Set CelkaZValid = Target.SpecialCells(xlCellTypeSameValida... On Error GoTo 0 If CelkaZValid Is Nothing Then 'nie zawiera ElseIf CelkaZValid.Validation.Value...
takie tstr = Str(Target.Value) jest równoważne z Target. Jeśli używasz angielskiej wersji Excela, to prawie tak, jeśli polskiej - jak ja na ogół i jak pytający - to już zdecydowanie nie! Proponuję wykonać takie makro po wprowadzeniu do komórki liczby dziesiętnej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target & "...
Zdaje się, że rozwiązanie "obejścia" kolegi marcinj12 z drobną przeróbką jest tym, czego szukasz... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If Target.HasFormula Then adres = Mid(Target.Formula, 2, Len(Target.Formula) - 1) Application.EnableEvents = False 'potrzebna wartosc a nie odwolanie...
Dobry wieczór, Nie bardzo rozumiem, co to znaczy "inne rozwiązanie"? Co miałoby być inne? Jeśli chodzi o formułę, to może być inna. Generalnie tego typu zadania można rozwiązywać formułami z funkcją INDEKS lub funkcją PRZESUNIĘCIE. Przykład innej formuły dodałem w nowym załączniku. Można to też rozwiązać w VBA pisząc makro obsługujące zdarzenie Change...
Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
Procedura Private Sub Worksheet_Change(ByVal Target As Range) jest procedurą już zdefiniowaną, która wywołuje się przy każdej zmianie w arkuszu, i jako taka może być tylko jedna, podobnie jak inne funkcje wbudowane w pojedynczy arkusz: Activate, Calculate etc. czy cały Workbook: Open, Acivate etc. Jeżeli chcesz, żeby ta procedura wywoływała Twoje własne,...
Mój kod zamyka i zapisuje pliki bez pytania bo tak sobie życzyłem. Nie pytałem o to jak skorzystać z funkcji Select Case bo to akurat wiem, chodzi mi o to, że są na przykład: Private Sub Worksheet_SelectionChange(ByVal Target As Range) -zareaguje gdy zmienimy położenie kursora; Private Sub Workbook_BeforeClose(Cancel As Boolean) -zareaguje w momencie...
Ewentualnie można zastosować makro zdarzeniowe, np. takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range If Intersect(Target, Range("C3:C15")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set cel = Target.Offset(, 1) Select Case Target.Value Case "Inne", "Konto klienta" cel.Value = Application.InputBox("Podaj...
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach No właśnie, makro, które testowałem działało tylko po wpisaniu konkretnych wartości. Private Sub Worksheet_Change(ByVal Target As Range) Range("AC65:AF65").Select ActiveWorkbook.Worksheets("EW").Sort.Sor... ActiveWorkbook.Worksheets("EW").Sort.Sor...
Nie przesadzajmy, wszystko da się powoli zrobić. Zacznijmy od tego przenoszenia z komórki do komórki. Najłatwiej będzie to zrobić jeżeli masz gdzieś stan ogółem, czyli sumę obu komórek. Wygląda to jakoś tak: 10100 20155 17107 Wtedy na poziomie tego arkusza (ważne!) wklej makro: [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If...
Witam, Mam problem z napisaniem kodu VBA w excelu, chodzi o dodanie czasu, gdy pracownik wpisze się w dane pole (w A2 wypisane są klucze, w B2 chciałbym, aby automatycznie wpisała się godzina, jak w C2 ktoś się wpisze, a gdy komórka będzie pusta, żeby się skasowała godzina), kolumna D będzie miała funkcje WYSZUKAJ.PIONOWO Problem z tym kodem polega...
Niestety JRV - Twoje rozwiązanie nie zadziałało. Poniżej zamieszczam skrypt z innym działaniem (funkcja Copy). Może uda się połączyć warunek "jeżeli" z warunkiem "copy" i "paste". Przypomnę tylko, że w komórce "C2" jest wyświetlany czas. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F5"))...
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
Kliknij prawym przyciskiem myszy na odpowiedni arkusz w excelu, następnie wybierz "wyświetl kod", w oknie, które się pojawi wpisz: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo BadChange Application.EnableEvents = False If Target.Address Like "$A$#*" Then If (Target And Range("a2").Value =...
Problem dotyczy Excel Starter 2010 pracującym pod Windows 7 64bit. Po dwukrotnym kliknięciu na plik .xls uruchamia się Excel i wyskakuje komunikat: "wystąpiły problemy z przesłaniem polecenia do programu". Excel zostaje uruchomiony, ale nie ma w nim otwartego żadnego pliku. Można otwierać pliki z poziomu aplikacji Excel, jednak nie jest to rozwiązaniem...
Potrzebuję pomocy w napisaniu zdarzenia działającego następująco: Użytkownik wybiera z listy wartość w kolumnach od I do FK, w wierszach NIEPARZYSTYCH (lista już zdefiniowana). I teraz: jeśli wartość zostanie wybrana, to pod nią automatycznie pojawi się dzisiejsza data. Czyli np. jeśli pojawi się wartość z listy w komórce I3, to zdarzenia ma działać...
Wklej w kod arkusza Kolego jesteś wieli jednak zapytam czy ten kod można przypisać pod pewną część komórek arkusza czy tylko pod cały arkusz? Bo cały arkusz korzysta z różnych funkcji: dzielenia, dodawania, odejmowania, procentów itp. A ten kod chciałbym wykorzystać tylko w pewnej części komórek
Nie wiem w końcu co chcesz osiągnąć i na którym "zestawie" warunków operujesz. Ten kod który przedstawiłeś jest dla mnie nieczytelny (pomieszanie funkcji excela z VBA - jak dla mnie straszne błędy). Załącz twój przykład - będzie prościej. Jeszcze raz opisz co chcesz by filtr robił, bo już się pogubiłem. Najlepiej stwórz na forum nowy wątek dotyczący...
funkcje change excel excel funkcja funkcja excel
fibaro rolet elektryczne foteli volvo enable timer1
przestrojenie śnieżka zwarcie międzyfazowe
Jak wyłączyć zieloną kropkę nagrywania na dekoderze? Lenovo HD200 - Specyfikacja i Zastosowania