excel target

Znaleziono około 712 wyników dla: excel target
  • Makro w VBA Excel: kursor na końcu treści komórki po podwójnym kliknięciu

    [syntax=vbscript]Target = Target & Now[/syntax]

    Programowanie   19 Lip 2023 17:45 Odpowiedzi: 5    Wyświetleń: 504
  • REKLAMA
  • Excel - uniemożliwienie wklejenia wartości zduplikowanej

    Można jeszcze tak. (dla pojedynczych danych) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub If Target.Count > 1 Then Target = "": Exit Sub If Application.CountIf(Columns(1), Target) > 1 Then Target = "" End Sub[/syntax]

    Obsługa oprogramowania   27 Lut 2021 19:30 Odpowiedzi: 4    Wyświetleń: 285
  • Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

    Czekaj (1min)...
  • EXCEL - Automatyczne wstawianie znaku równości do komórki

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target = "" Then Exit Sub[/syntax]

    Obsługa oprogramowania   20 Lis 2021 15:01 Odpowiedzi: 38    Wyświetleń: 1389
  • REKLAMA
  • Private Sub Worksheet_Change(ByVal Target As Excel.Range) jak połączyć

    To wypróbuj najprostsze połączenie kodów :spoko: : [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$A$5" Then Select Case Target.Value Case 1: Firma_1 Case 2: Firma_2 Case 3: Firma_3 Case 4: Firma_4 Case 5: Firma_5 Case 6: Firma_6 Case 7: Firma_7...

    Programowanie Początkujący   13 Cze 2019 07:55 Odpowiedzi: 5    Wyświetleń: 1275
  • Excel: Jak automatycznie dodawać/odejmować wartości z C2 do A2?

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then [A2] = [A2] + [C2] [C2] = Null End If End Sub [/syntax]

    Obsługa oprogramowania   09 Sty 2025 14:10 Odpowiedzi: 3    Wyświetleń: 84
  • REKLAMA
  • Excel 2019 VBA zaznaczenie komórki po wciśnięciu enter

    A tak [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then Target.Offset(, -5).Value = Date If Target.Column = 7 Then Target.Select End Sub[/syntax]

    Obsługa oprogramowania   07 Sie 2020 07:18 Odpowiedzi: 16    Wyświetleń: 1323
  • Excel 2007 - automatyczne przeniesienie wartości klikniętej komórki w inne pole

    Private Sub Worksheet_SelectionChange(... - jest reakcję na zmianę położenia kursora w arkuszu. (zdarzenie arkusz_ZmianaZaznaczenia) If Target.Column <> 12 Then Exit Sub- tylko dla kolumny L, w przeciwnym razie przerwać pracę. W Twojim przypadku[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 12 Then Range("a7")...

    Obsługa oprogramowania   13 Paź 2017 13:57 Odpowiedzi: 5    Wyświetleń: 1182
  • Jak zaprogramować aby excel automatycznie po 3 polach w prawo cofał się na dół.

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Cells(Target.Row + 1, 1).Select End Sub [/syntax]

    Obsługa oprogramowania   12 Sty 2022 11:41 Odpowiedzi: 4    Wyświetleń: 213
  • Excel - jak wyświetlić wartość aktywnej komórki w innej komórce?

    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]

    Programowanie   12 Gru 2017 17:27 Odpowiedzi: 3    Wyświetleń: 3081
  • VBA Excel 2003 - Jak wyświetlić MsgBox dla wartości w przedziale 0-10?

    A w taki sposób próbowałeś? [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" And Target.Value <= 10 Then MsgBox "Wartość poniżej 10!", 64, "Wesołych Świąt" End If End Sub[/syntax]

    Programowanie Początkujący   24 Gru 2013 07:48 Odpowiedzi: 6    Wyświetleń: 1908
  • Excel VBA: Makro do wypełnienia dat w komórkach A2 w 31 arkuszach

    Podmień Target na ActiveCell (to nie jest już procedura zdarzeniowa)...

    Software serwis   14 Lut 2011 19:42 Odpowiedzi: 26    Wyświetleń: 3300
  • Excel, VBA - Wstawienie daty w zależności od wyniku formuły

    [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?

    Obsługa oprogramowania   20 Lis 2018 12:20 Odpowiedzi: 7    Wyświetleń: 1725
  • REKLAMA
  • Excel VBA wymuszenie dużych liter w komórce dla wartości z listy rozwijanej

    Skoro nie chcą, zrezygnuj z listy i wstaw formułkę (niestandardowe): [syntax=text]=ORAZ(PODAJ.POZYCJĘ(C4;J$6:... Jeśli jednak makro, to w SelectionChange (ogranicz 'Target' do tych trzech komórek).

    Obsługa oprogramowania   13 Kwi 2021 07:56 Odpowiedzi: 5    Wyświetleń: 717
  • Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

    Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then For Each Komorka In Target.Cells Select Case Komorka.Value Case "TAK": . . . End Select Next End If End Sub

    Programowanie Początkujący   09 Paź 2018 12:26 Odpowiedzi: 19    Wyświetleń: 2622
  • Excel VBA - wywoływanie User Form aktywną komórką

    klikając na konkretną komórkę 2 x klik: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$K$11" Then UserForm1.Show Cancel = True End If End Sub [/syntax]

    Programowanie   02 Gru 2021 14:35 Odpowiedzi: 10    Wyświetleń: 1179
  • Excel VBA - warunkowe ukrywanie i odkrywanie wierszy

    Private Sub Worksheet_Calculate() Rows("6:12").Entir... = Not Range("B1") End Sub Dodano po 56 Private Sub Worksheet_Change(ByVal Target As Range) - nie trzeba

    Programowanie Początkujący   11 Cze 2019 15:35 Odpowiedzi: 8    Wyświetleń: 7917
  • Excel - jak automatycznie przewinąć do komórki z literą w kolumnie F?

    zrobic jedna komorke w ktorej bede wpisywal litere Np komorka jest "G1" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then If Not Application.CountIf(Range("F:F"), Target) = 0 Then ActiveWindow.ScrollRow = Application.Match(Target, Range("F:F"), 0) End If End If End Sub [/syntax]

    Software serwis   15 Lip 2015 13:32 Odpowiedzi: 6    Wyświetleń: 990
  • Excel VBA - Jak wpisać datę z dniem poprzednim w trzeciej kolumnie?

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Value = 3 Then Target.Offset(0, -1) = Date - 1 End Sub [/syntax] lub [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then If Target.Value = 3 Then Target.Offset(0, -1) = Date - 1 Else Target.Offset(0, -1) = Date End If End...

    Programowanie Początkujący   26 Kwi 2015 11:55 Odpowiedzi: 4    Wyświetleń: 708
  • Excel VBA: Usuwanie wiersza po kliknięciu Delete na klawiaturze

    Wygodniej tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Rows(Target.Row).Delete Cancel = True End If End Sub [/syntax]

    Obsługa oprogramowania   11 Lut 2019 20:31 Odpowiedzi: 7    Wyświetleń: 603
  • Excel: Podwójne kliknięcie myszką dla zakropkowania komórki z literą 'u' na żółtym tle

    [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "u" And Target.Interior.Color = vbYellow Then Target.Interior.Pattern = xlGray25 Cancel = True End Sub [/syntax]

    Obsługa oprogramowania   14 Lut 2023 10:24 Odpowiedzi: 13    Wyświetleń: 702
  • VBA, excel, pojawiające się wiersze, w zależności od zawartości komórki

    To się baw. Sprawdzanie PESELa znajdziesz w sieci. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then If Target = "Tak" Then Range(Rows(13), Rows(14)).Hidden = True Else Range(Rows(13), Rows(14)).Hidden = False End If End If If Target.Address = "$C$15" Then If Target = "Tak" Then Range(Rows(16), Rows(17)).Hidden...

    Programowanie Początkujący   13 Paź 2022 21:41 Odpowiedzi: 7    Wyświetleń: 540
  • MS Excel 2010 - Obliczenie formuły zapisanej w sąsiedniej komórce

    Jeśli nadzorowane zmiany mają być w Arkuszu2, to procedura Worksheet_Change powinna być umieszczona w module Arkusza2. W tej procedurze można odwoływać się do Arkusza1 bezpośrednio (przez nazwę kodową) albo pośrednio przez kolekcję Worksheets jako Worksheets(1) albo Worksheets("Arkusz1"). Przykładowy kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal...

    Obsługa oprogramowania   24 Paź 2021 15:33 Odpowiedzi: 20    Wyświetleń: 543
  • Jak wymusić wprowadzenie tekstu w Excel VBA po wyborze przegrany?

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 12 And Target = "przegrany" Then If Cells(Target.Row, "M") = "" Then MsgBox "Wprowadź komentarz!", vbCritical, "UWAGA" End If End Sub [/syntax]

    Obsługa oprogramowania   05 Maj 2020 15:25 Odpowiedzi: 5    Wyświetleń: 834
  • Excel VBA - Makro zamieniające 0 na NIE DOTYCZY w kolumnach L-M, wiersze 4-2003

    W kodzie arkuszu "konto"[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Application.Intersect(Target, Range("L4:M2003")) Is Nothing Then Exit Sub If Target.Text = "0" Then Target = "NIE DOTYCZY" End Sub [/syntax]

    Software serwis   30 Sie 2016 12:08 Odpowiedzi: 1    Wyświetleń: 1488
  • EXCEL - warunkowy duplikat wartości komórek w inne miejsce

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("V15:V16")) Is Nothing Then If Target.Address = "$V$16" Then r = 1 Target.Offset(-10 - r, 3).Resize(2, 2).Copy Target.Offset(r * 2, 2) End If End Sub [/syntax]

    Software serwis   14 Paź 2015 10:25 Odpowiedzi: 2    Wyświetleń: 780
  • Excel - Zamiana wartości na 0 w zależności od wartości w innych komórkach

    ad 1. Można wykorzystać następujący kod dla zdarzenia Worksheet_Change arkusza: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 12 And (Cells(Target.Row, Target.Column).Offset(, -1).Value + Cells(Target.Row, Target.Column).Offset(, -2).Value = 0) Then Target.Value = 0 End If End Sub[/syntax] ad 2. Wystarczy poprawność...

    Programowanie Początkujący   15 Mar 2016 14:11 Odpowiedzi: 5    Wyświetleń: 1728
  • Excel - makra - Kopiowanie czynności do wykonania z uwzględnieniem osoby przypis

    Dla przykładu No właśnie dla przykładu, to przydałby się przykładowy plik. Dodano po 4 Nie pisz na PW proszę, skoro plik dotyczy tematu.

    Obsługa oprogramowania   27 Lip 2022 14:43 Odpowiedzi: 4    Wyświetleń: 306
  • [VBA/Excel] Modyfikacja kodu do wstawiania komentarzy tylko w kolumnie B

    Był błąd w kodzie. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then r = Target.Row If Cells(r, 3) = "" Then Cells(r, 3) = Now & " - " & Target & " - " & Environ("Username") Else Cells(r, 3) = Cells(r, 3) & vbNewLine & Now & " - " & Target & " - " & Environ("Username") End If End If End Sub [/syntax]

    Programowanie Początkujący   21 Sie 2019 11:04 Odpowiedzi: 6    Wyświetleń: 1035
  • VBA Excel - Zapisywanie arkusza ze sparawdzeniem podczas zamykania skoroszytu

    Autofilter 'złapie się' tylko na calculate Przenieś zdarzenie selection change na doubleclick [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveWorkbook.Names("AktywnyWiersz").Re... = Target.Row End Sub[/syntax]

    Programowanie Początkujący   06 Sty 2023 17:25 Odpowiedzi: 26    Wyświetleń: 1581
  • Excel przeniesienie się z wybranej komórki jednego skoroszytu do takiej samej drugiego

    Korzystając z opisów kolegów np. z tego wątku https://www.elektroda.pl/rtvforum/viewto... oraz przenosząc sumowanie w Arkuszu2 z dołu do góry (łatwiej znaleźć pierwszą pustą komórkę w kolumnie) możesz użyć takiej procedury: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row...

    Programowanie Początkujący   22 Sty 2023 18:44 Odpowiedzi: 3    Wyświetleń: 282
  • EXCEL - jak skopiować wynik formuły do innej komórki przy wpisaniu x?

    Testuj kolumnę, przypisuj na offsetach. Np[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Target.Value = "x" Then 'Range("C1") = Range("B1") Target.Offset(0, 2) = Target.Offset(0, 1) Else 'Range("C1") = "" Target.Offset(0, 2) = "" End If End If End Sub[/syntax]

    Software serwis   17 Cze 2013 11:14 Odpowiedzi: 7    Wyświetleń: 2784
  • excel - Excel autouzupełnianie daty po wpisaniu tekstu w komórce

    Cześć. Sprawdź takie makro wykonywane w zdarzeniu "Change" arkusza: [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If (Target.Column = 1 And Target.Offset(0, 2).Value = "") Then Target.Offset(0, 2).Value = Date End If End Sub[/syntax]

    Obsługa oprogramowania   08 Kwi 2018 13:30 Odpowiedzi: 4    Wyświetleń: 1581
  • Excel - Jak sumować wartości z tej samej komórki do innej?

    If Target.Column > 2 Then Exit Sub If Target <> 0 Then Target.Offset(, 1 + Target.Column ) = Target.Offset(, 1 + Target.Column ) + Target

    Software serwis   13 Maj 2016 21:48 Odpowiedzi: 13    Wyświetleń: 1605
  • Excel - przepisanie wartości z jednej kolumny do drugiej tylko pierwszy raz

    Że tak się wtrącę ... Nie uczysz się :) Spróbuj załapać o co chodzi w kodzie (przeczytać go) a sam zaczniesz pisać kody uzależnione od zmian w arkuszu. (if) jeżeli (Target.Column = 6) zmiana dotyczy kolumny nr 6 czyli F (AND) oraz (UCase(Target.Value) = "K") zmieniana wartość zmieniona na duże litery równa jest K (Then) wtedy (Target.Value = "Komunalne")...

    Software serwis   01 Lip 2012 21:17 Odpowiedzi: 21    Wyświetleń: 5542
  • [excel][VBA] - zastosowanie funkcji do całej kolumny

    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]

    Programowanie Początkujący   17 Paź 2014 16:37 Odpowiedzi: 2    Wyświetleń: 1695
  • [EXCEL2000] kopiowanie kolejnej komórki do kolejnego arkusza

    Makra włączone? Może problem z nazwa/indeks. Spróbuj Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo byk If Target.Column = 1 Then Sheets(Trim(Str(Target.Row&#... = Target.Value End If Exit Sub byk: If Target.Value <> "" Then MsgBox "Brak arkusza o...

    Software serwis   07 Wrz 2012 18:52 Odpowiedzi: 16    Wyświetleń: 2785
  • Excel - Jak przypisać odsyłacze do dat w liście rozwijalnej?

    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,...

    Software serwis   29 Wrz 2010 17:59 Odpowiedzi: 2    Wyświetleń: 1826
  • Excel VBA - Jak wyświetlić dane pracownika w osobnych liniach?

    Nie to zdarzenie, nie taka składnia, reszta OK...[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then On Error Resume Next 'gdybyś czyścił zakres Application.EnableEvents = False Target.Value = Replace(Target.Value, " ", Chr(10)) Application.EnableEvents = True End If End Sub[/syntax]

    Software serwis   16 Sie 2012 10:02 Odpowiedzi: 9    Wyświetleń: 8007
  • Excel - nazwa arkusza odwołująca się do komórki

    Najprawdopodobniej zaznaczasz >1 komórkę. Dopisz warunek: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 10 Then If Target.Cells.Count = 1 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End If End Sub[/syntax]

    Programowanie   25 Mar 2014 22:42 Odpowiedzi: 7    Wyświetleń: 6105
  • Excel VBA: Automatyczne dodawanie czasu do B2 po wpisaniu danych w A2 i C2

    Problem z tym kodem polega na tym, że gdy A2 jest zapisane to po wpisaniu C2 nic sie nie dzieje Powinno być. [syntax=vbscript]If Intersect(Target, Range("C:C")) Is Nothing Or Cells(Target.Row, 1) = "" Then Exit Sub[/syntax]

    Programowanie Początkujący   07 Gru 2022 12:41 Odpowiedzi: 2    Wyświetleń: 231
  • Excel - jak automatycznie obliczać działania w komórkach?

    :arrow: bobo InStr Trzeba podstawić[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim test As Integer If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("Q58:V119")) Is Nothing Then test = InStr(1, Target.Value, "+") If test = 0 Then Exit Sub Application.EnableEvents = False On Error Resume Next Target.Value = "=" & Target.Value...

    Software serwis   05 Paź 2011 16:46 Odpowiedzi: 17    Wyświetleń: 5701
  • VBA Excel: Błąd w pętli przy zmianie koloru wiersza na podstawie wartości w kolumnie 15

    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)...

    Programowanie Początkujący   05 Lut 2012 22:34 Odpowiedzi: 4    Wyświetleń: 1857
  • excel- zmiana koloru czcionki po wpisaniu dowolnej wartości

    Nie chciało się spytać wujka google o właściwość Font.Color dla obiektu Range i obsłużyć zdarzenie Worksheet_Change(ByVal Target As Excel.Range) arkusza w którym kolory mają być zmieniane? To tylko jedna linijka kodu pisana z palca.

    Software serwis   26 Kwi 2012 09:26 Odpowiedzi: 4    Wyświetleń: 6181
  • Excel VBA Jeśli komórka niepusta wpisz pod nią dzisiejszą datę

    Jeśli zmiana nieparzystego wiersza ma wywoływać "timestamp" to proponuję raczej :D kod typu: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Set Zak = Intersect(Target, Range("I1:FK100")) If Not Zak Is Nothing Then Application.EnableEvents = False If Target.Row Mod 2 = 1 Then Target.Offset(1, 0) = Date End If End If Target.Columns.EntireColumn.AutoFit...

    Programowanie Początkujący   24 Lis 2020 22:50 Odpowiedzi: 3    Wyświetleń: 666
  • Blokowanie usuwania komentarzy excel VBA

    Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...

    Obsługa oprogramowania   05 Cze 2020 18:52 Odpowiedzi: 2    Wyświetleń: 879
  • VBA - Excel 2007 - przycisk lub wpis sumujący komórki i czyszczący komórki

    Oj, bo nie doczytałem. Chcesz usuwać dane z H,I,J,K, zostawiając formułę w L. To wykorzystaj SelectionChange w kolumnie P, gdzie widać tekst "Dodaj". [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 16 And Target.Value = "DODAJ" Then MsgBox Target.Row End If End Sub[/syntax]

    Programowanie Początkujący   29 Gru 2014 10:40 Odpowiedzi: 13    Wyświetleń: 2607
  • VBA, Excel - Porównanie wrtości w dwóch tabelach, zerowa wartość formuły

    Spróbuj w ten sposób [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim szukana As String, i As Long, knyps As Boolean If Target.Column = 9 Then 'wypełnia się od lewej ósma jest przed i = 3 knyps = False szukana = Trim(Target.Offset(0, -1).Value) & Trim(Target.Value) With Sheets("ListJobs") Do While .Cells(i, 3) <> "" If Trim(.Cells(i,...

    Programowanie Początkujący   22 Paź 2012 21:59 Odpowiedzi: 14    Wyświetleń: 4020
  • Excel - jak kopiować dane między arkuszami po kliknięciu w danego klienta

    Proszę. [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then r = Target.Row nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy Sheets("Arkusz2").Cells(nw, 1) End If Cancel = True End Sub [/syntax]

    Obsługa oprogramowania   06 Lut 2025 09:30 Odpowiedzi: 14    Wyświetleń: 204
  • VBA Excel - Automatyczne przenoszenie wierszy między arkuszami przy dwukrotnym kliknięciu

    W kodzie arkusza [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Target.Resize(, 2).Interior.Color = vbRed Sheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Resize(, 2).Offset(1) = Target.Resize(, 2).Value Cancel = True End If End Sub[/syntax]

    Obsługa oprogramowania   23 Lut 2021 21:16 Odpowiedzi: 5    Wyświetleń: 357
  • excel vba - usuwanie danych z zakresu po spełnieniu warunku

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]

    Programowanie Początkujący   08 Wrz 2014 10:20 Odpowiedzi: 5    Wyświetleń: 3045
  • Excel- automatyczne kopiowanie większej zawartości pól

    Najprościej: Nazwij zakres (nadaj nazwę Np "zakres") w arkuszu. Wstawienie lub usunięcie wiersza/komórek wewnątrz zdefiniowanego zakresu spowoduje automatyczną korektę jego rozmiaru. Wtedy[syntax=vb]If Not Intersect(Target, Range("zakres")) Is Nothing Then[/syntax]

    Software serwis   30 Cze 2011 21:48 Odpowiedzi: 64    Wyświetleń: 13859
  • [Excel VBA] makro przesuwające wybraną część danego wiersza

    Zobacz teraz: [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, 9).Value = Null If ActiveSheet.Cells(Wiersz, 17).Text <> "" Then ActiveSheet.Cells(Wiersz, 18).Insert Shift:=xlToRight...

    Programowanie Początkujący   03 Mar 2012 09:29 Odpowiedzi: 13    Wyświetleń: 4187
  • Excel 2007 - przepisanie zawartosci komorki do innej

    mam wardosc w a2 i teraz chce zeby pojawila sie w c3 nastepnie w c4, c5 c6 itd wartosc komorki a2 bedzie sie zmieniac a tamte wartosci sie zapamietaja Samo się nie zapisze. Wklej w kod arkusza (prawym klawiszem w zakładkę u dołu ekranu i wybierz "wyświetl kod") taki [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0,...

    Software serwis   24 Sie 2012 20:29 Odpowiedzi: 21    Wyświetleń: 3528
  • Excel - vba makro - automatyczna kopia po zmianie wartości

    Wklej w kod arkusza(y) i wypróbuj taką procedurę zdarzeniową [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then With Sheets("Arkusz3") w = .Range("B:B").Find(what:=Target.Offset(0... -2), Lookat:=xlWhole).Row k = .Cells(w, 1).End(xlToRight).Column + 1 .Cells(w, k) = Target.Value End With End If End Sub[/syntax]

    Programowanie Początkujący   04 Paź 2012 09:58 Odpowiedzi: 6    Wyświetleń: 3966
  • EXCEL - Jak wymusić MsgBox przy błędnym wpisie w zakresie komórek?

    Jeśli nie ma górnego ograniczenia dla wprowadzanych liczb procedurę Walidacji można zapisać też tak: [syntax=vb]With ark.Range("E6:F" & dstW).Validation .Delete .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _ Operator:=xlGreater, Formula1:="0" .IgnoreBlank = True .InCellDropdown = True .InputMessage = "Wprowadź liczbę całkowitą" .ShowInput...

    Software serwis   21 Wrz 2015 20:16 Odpowiedzi: 13    Wyświetleń: 1011
  • Excel VBA: Tworzenie i przenoszenie folderów na podstawie wartości komórek A1, A2, A3...

    Moja propozycja - kod do umieszczenia w module arkusza: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 2 Or Target.Value = "" Then Exit Sub Select Case Target.Column Case 1 Call UtworzFolder(Target.Value) Case 2 If Target.Offset(0, -1).Value <> "" Then Call PrzeniesFolder(Target.Offset(0, -1).Value)...

    Programowanie Początkujący   07 Wrz 2021 17:39 Odpowiedzi: 9    Wyświetleń: 807
  • Excel VBA - Jak zablokować i modyfikować wartość w komórce?

    Myślę, że sprawdzanie czy [syntax=vbscript]If Range("C1") = "" Then Range("C1") = Range("A1") Else ...[/syntax] jest tu niepotrzebne - pusta wartość C1 będzie potraktowana jako 0. Ja bym to widział nieco krócej: wersja "jednokomórkowa"[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And IsNumeric(Target.Value)...

    Programowanie Początkujący   12 Sie 2015 20:44 Odpowiedzi: 10    Wyświetleń: 1656
  • Excel - wypełnianie automatyczne komórek, ale inaczej...

    Trzeba dopisać do kodu jedną linijkę i zakończenie instrukcji warunkowej (bo już nie zmieści się w 1 linijce): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub If Target = 2 Or Target = 3 Then Range("J" & Target.Row & ":AP" & Target.Row) = 0 Range("AQ" & Target.Row).Select...

    Software serwis   03 Kwi 2013 11:39 Odpowiedzi: 6    Wyświetleń: 3276
  • [VBA] [EXCEL] Pętlą "Do Until...Loop"-jak to zrobi

    Najlepiej jak by się to dało zmienić (wstawić) na pustopole Da się chyba. Spróbuj Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo koniec If Not Intersect(Target, Range("B13:F13")&#... Is Nothing Then If Target.Count > 1 Then Exit Sub If Target <= 0 Then Target = "": Exit Sub Call...

    Programowanie   21 Lis 2010 21:23 Odpowiedzi: 31    Wyświetleń: 10932
  • Excel/VBA - Kod nie aktywuje hasła po odblokowaniu arkusza

    [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]

    Programowanie   26 Lip 2015 19:58 Odpowiedzi: 2    Wyświetleń: 1284
  • Excel - makro dodawanie kolejnego wiersza w puste miejsce

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...

    Obsługa oprogramowania   24 Wrz 2019 08:52 Odpowiedzi: 1    Wyświetleń: 702
  • [VBA Excel] Okienko do wprowadzania zakresu dat do komórek B8 i B9

    Jeśli ma to działać w jakimś jednym konkretnym arkuszu, to w module kodu tego arkusza umieść taką procedurę: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$2" Then Sheets("1").Activate Cancel = True End If End Sub[/syntax] A to co dopisałeś, to nie bardzo rozumiem. "Do poniższego...

    Programowanie   30 Cze 2022 10:46 Odpowiedzi: 14    Wyświetleń: 636
  • [EXCEL] - Automatyczne przełączanie miedzy komorkami

    [syntax=vb]Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 then Cells(Target.Row, 4). Select If Target.Column = 4 Then Cells(Target.Row + 1, 1).Select End Sub[/syntax]

    Software serwis   20 Sty 2014 15:19 Odpowiedzi: 12    Wyświetleń: 2799
  • Excel - automatyczne ukrywanie niewykorzystanych kolumn

    Najlepiej wykorzystać zmianę w kalendarzu. Wklej w kod arkusza "Kalendarz" [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$18" Or Target.Address = "$I$18" Then With Sheets("Szychtownica") For i = 34 To 32 Step -1 If .Cells(2, i).Value = "" Then .Columns(i).EntireColumn.Hidden = True Else .Columns(i).EntireColumn.Hidden...

    Software serwis   06 Lip 2011 14:18 Odpowiedzi: 10    Wyświetleń: 4215
  • Excel - Wyszukiwanie kolumn zawierających określony tekst

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$10" Then Application.EnableEvents = False Range("A11:B" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents ow = 5 ok = Cells(1, Columns.Count).End(xlToLeft).Column x = Target.Row + 1 For k = 1 To ok Set a = Range(Cells(1, k), Cells(ow, k)).Find(Target, LookIn:=xlValues,...

    Obsługa oprogramowania   11 Cze 2020 03:08 Odpowiedzi: 10    Wyświetleń: 792
  • [VBA, excel] Makro VBA: Kopiowanie komórek z Arkusz2 do Arkusz1 w Excelu 14 razy

    to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...

    Programowanie Początkujący   20 Paź 2017 13:52 Odpowiedzi: 1    Wyświetleń: 1701
  • Excel data modyfikacji komórki - Data modyfikacji oraz nazwa użytkownika

    [syntax=vb]Dim przed Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long With Target If .Cells.Count > 1 Then Exit Sub If .Column > 5 Or .Column < 3 Then Exit Sub End With If Target.Value = przed Then Exit Sub Application.EnableEvents = False i = Target.Row Range("A" & i).Value = Environ("Username") Range("B" & i).Value...

    Software serwis   07 Lut 2017 13:16 Odpowiedzi: 6    Wyświetleń: 5754
  • Excel: Automatyczne dodawanie ilości produktów po skanowaniu kodu EAN-13

    A orientujesz się może czy można zrobić tak żeby po zeskanowaniu zamiast potwierdzenia ENTER, przenosiło mnie do wskazanej komórki gdzie od razu mógłbym wpisać ilość, tzn. skan --> automatyczne przeniesienie do kolumny ilość --> ręczne wpisanie ilości i po naciśnięciu enter przejść od razu do kolumny kodu, wiersz niżej, tak żeby skanować kolejny produkt....

    Programowanie Początkujący   27 Sty 2013 13:42 Odpowiedzi: 7    Wyświetleń: 5370
  • Excel-VBA: Jak odwołać się do innego arkusza i pobrać dane?

    W takim razie w arkuszu z tą komórką wstaw taki fragment: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$9" Then Call myCopy End If End Sub[/syntax] Nazwa makra - copy() - nie jest zbyt fortunna, bo pokrywa się z poleceniem VBA o takim samym tytule. Lepiej zmień ją np. na myCopy

    Programowanie   07 Gru 2011 13:53 Odpowiedzi: 6    Wyświetleń: 13328
  • Excel: Jak stworzyć makro do weryfikacji numerów seryjnych?

    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...

    Software serwis   27 Sie 2009 20:04 Odpowiedzi: 6    Wyświetleń: 1427
  • EXCEL- problem z przetwarzaniem danych w czasie rzeczywistym

    A Excel w ogóle poradzi sobie z rysowaniem wykresu / obliczaniem makra w tak krótkim okresie czasu? Masz 333 próbki na sekundę, ok. 20000 na minutę. Zrobiłem z ciekawości wykres na 20000 wartości i rysuje się ok. 0,1s bez wykonywania makra. Ja nie widzę żeby on mógł się odrysować w ciągu 0,003s. Ale jak chcesz spróbuj w arkuszu z danymi podpiąć makron...

    Programowanie   29 Gru 2009 20:17 Odpowiedzi: 6    Wyświetleń: 3420
  • Excel 2007 - automatyczne uzupełnianie kolumny F na podstawie kolumny E

    W kod arkusza wklej[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 5 And Target.Value <> "" Then wrs = Columns(5).Find(what:=Target.Value, lookat:=xlWhole).Row Target.Offset(0, 1) = IIf(Target.Row = wrs, "", Cells(wrs, 6)) End If End Sub[/syntax]W przypadku braku odpowiednika znajdzie sam...

    Software serwis   01 Cze 2012 09:33 Odpowiedzi: 3    Wyświetleń: 2142
  • Excel - wpisywanie i sumowanie minut i sekund (bez godzin)

    Dobry wieczór, Nie da się chyba tego zrobić w sposób oczywisty, ale jakoś można, stosując pewne "sztuczki". Przede wszystkim w komórkach, w których mamy wprowadzać dane i wykonywać obliczenia muszą być odpowiednio sformatowane (niestandardowo). Podam 3 sposoby (żaden nie jest idealny, ale jest z czego wybrać). Sposób 1 - najbardziej naturalny Format...

    Software serwis   14 Wrz 2015 20:43 Odpowiedzi: 3    Wyświetleń: 5358
  • Makro VBA do zwiększania wartości komórki na podstawie innej komórki w Excelu

    O coś takiego chodzi? [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Select Case Target.Value Case "a" Range("B3").Value = Range("B3").Value + 1 Case "b" Range("B4").Value = Range("B4").Value + 1 Case "c" Range("B5").Value = Range("B5").Value + 1 End Select End If End Sub[/syntax]

    Programowanie Początkujący   04 Lip 2016 07:49 Odpowiedzi: 6    Wyświetleń: 1785
  • Excel - zwracanie ilości wierszy spełniających warunki

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 8 Then h = Split("WIN;BOK;CC;OP", ";") hv = Target.Value For x = 0 To UBound(h) If hv = h(x) Then fl = True Next If Not fl Then MsgBox "Błąd" End If End Sub [/syntax]

    Software serwis   03 Sie 2014 20:23 Odpowiedzi: 8    Wyświetleń: 2805
  • Skrypt VBA - kopiowanie zakresu w Microsoft Office Excel

    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...

    Programowanie Początkujący   11 Lip 2012 00:22 Odpowiedzi: 12    Wyświetleń: 4631
  • MS EXCEL 2010 - Wyświetlanie okna UserForm po kliknięciu w komórki kolumn tabeli

    Przy podwójnym kliknięciu to będzie coś takiego: [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 2 And Target.Column < 6 Then UserForm1.Show End If End Sub [/syntax]

    Programowanie Początkujący   12 Cze 2014 20:18 Odpowiedzi: 7    Wyświetleń: 2403
  • Excel VBA automatyczne wstawianie daty (dzień + godzina)

    Podałeś taki niestandardowy format z łącznikami między elementami czasu, zamiast dwukropków, więc zrozumiałem, że to jest istotne. Jeśli jednak chcesz mieć "prawdziwą" datę, to uzupełnij swój kod tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing...

    Obsługa oprogramowania   13 Lut 2021 16:02 Odpowiedzi: 9    Wyświetleń: 3489
  • Excel: Jak zapisać poprzednią wartość komórki w innej komórce?

    Wklej w kod arkusza [syntax=vb]Dim tmp Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, -1).Value = tmp End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tmp = Target.Value End Sub[/syntax]

    Software serwis   13 Lis 2020 12:04 Odpowiedzi: 3    Wyświetleń: 2411
  • Excel - funkcja użytkownika nie aktualizuje sie automatycznie

    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.

    Software serwis   28 Kwi 2012 09:51 Odpowiedzi: 9    Wyświetleń: 7056
  • Excel lista rozwijana wyświetlanie w komórce jednych danych a umieszczanie innyc

    Jeśli ma być więcej takich samych list w tym samym arkuszu, to należy je skopiować ręcznie, a następnie użyć np. takiego makra (zamiast tego poprzedniego). Dodałem tu jeszcze zabezpieczenia przed błędami. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, Range("D1, G3, J3")) If Target Is Nothing Then...

    Software serwis   22 Lut 2021 21:40 Odpowiedzi: 9    Wyświetleń: 2085
  • Excel - jak wyświetlić autora zmian w komórkach arkusza?

    Kliknij prawym klawiszem myszki na zakładce arkusza, wybierz Wyświetl kod i w Edytorze VBA wklej Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, 1) = Application.UserName End If End Sub Co robi to makro? Po każdej zmianie jaka następuje w kolumnie C (Target.Column = 3) wstawia w kolumnę...

    Software serwis   06 Maj 2010 13:13 Odpowiedzi: 3    Wyświetleń: 2319
  • Excel - makro - tworzenie nieaktualizujacej sie daty i godziny

    1. Początkowo w formatowani komórek odblokować zakres B:I 2. Włączyć ochronę arkusza. (np. z hasłem 111 ) 3. Umieścić w kod Arkusz1 ten kod: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:I")) Is Nothing Or Cells(Target.Row, 1) <> "" Then Exit Sub Me.Unprotect...

    Software serwis   03 Lut 2016 14:03 Odpowiedzi: 11    Wyświetleń: 3339
  • EXCEL - jak użyć funkcji JEŻELI do przypisania uprawnień po zdaniu egzaminu?

    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)...

    Programowanie Początkujący   12 Cze 2015 14:22 Odpowiedzi: 4    Wyświetleń: 858
  • Excel - Jak przypisać czas gwarancji do sprzętu z listy?

    To już tylko z makrem. Inaczej się nie da. W obszarze arkusza "gwarancja" wprowadzasz np. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 11 And Target.Column = 2 Then Range("E11").Formula = "=VLOOKUP(B11,Lista!A1:B500... End Sub I przy każdej zmianie w b11 (row 11 i column2) nastąpi...

    Software serwis   17 Gru 2010 10:05 Odpowiedzi: 12    Wyświetleń: 1993
  • EXCEL - Markownik: uproszczenie wzorca grafiku i formatowanie warunkowe

    [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Intersect(Target, Range("AV4:BZ98")) Is Nothing Then Exit Sub Range("AR2") = ActiveCell.Column - 44 + Cells(ActiveCell.Row, 46) Range("AS2") = Cells(ActiveCell.Row, 45) Graf.Show End Sub [/syntax]

    Software serwis   19 Gru 2015 20:33 Odpowiedzi: 10    Wyświetleń: 1029
  • VBA Excel 2010 - Jak wyróżnić aktywny wiersz w wielu tabelach?

    Można również połączyć zakresy komórek i wówczas kod jest następujący:[syntax=vb] Dim AktywneWiersze As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set AktywneWiersze = Union(Range("D13:BI35"), Range("D38:BI108"), Range("D111:BI133")) If Not Intersect(Target, AktywneWiersze) Is Nothing Then ActiveWorkbook.Names("AktywnyWiersz1").R...

    Programowanie Początkujący   04 Maj 2014 22:08 Odpowiedzi: 7    Wyświetleń: 9291
  • Excel- VBA Automatyczne numerowanie i sortowanie na podstawie zadanego numeru LP

    Spróbuj z arkuszem z załącznika (podmień kod)[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error Resume Next 'gdybyś czyścił zakres If Not Intersect(Target, Range("B1:B29")) Is Nothing Then Target.Value = Replace(Target.Value, " ", Chr(10)) ElseIf Target.Column = 1 Then wrs = (Target.Value * 2) -...

    Software serwis   24 Sty 2012 16:30 Odpowiedzi: 6    Wyświetleń: 7429
  • Jak usunąć makro z arkusza skopiowanego do nowego pliku Excel?

    Trochę uprościłem kod. [syntax=vbscript]Sub WstawMakro() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents("Arkusz1") Set CodeMod = VBComp.CodeModule On Error Resume Next Open "C:\kod.txt" For Input As #1 LineNum = CodeMod.CountOfLines...

    Obsługa oprogramowania   03 Maj 2020 13:46 Odpowiedzi: 22    Wyświetleń: 1788
  • Excel VBA blokowanie zakresu komórek jeśli w innej komórce będzie wartość

    Podpowiedź numer 2: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) [/syntax]

    Obsługa oprogramowania   09 Paź 2019 10:24 Odpowiedzi: 2    Wyświetleń: 504
  • Excel Makro Data i Godzina - Blokada przed zmianami

    Co zrobić, aby po po zmianie wartości w kolumnach 5,6,7,8; Data i godzina w kolumnach B i C pozostała niezmieniona. Odpowiadając tak na "sucho" ... trzeba do kodu dodać coś takiego: Wariant I If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then " można skrócić do " If Target.Column >= 5 And Target.Column <=...

    Obsługa oprogramowania   10 Mar 2019 13:57 Odpowiedzi: 12    Wyświetleń: 3129
  • Excel makro - makro kopiujące wartość z komórek do ostatniego wiersza innego pli

    Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...

    Obsługa oprogramowania   24 Kwi 2020 15:06 Odpowiedzi: 4    Wyświetleń: 828
  • EXCEL - Automatyczne zastępowanie spacji i dodawanie gwiazdek w zdaniach

    Witam, Można użyć prostego makro - tylko nie wiem, czy o takie coś chodzi koledze: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim x As String If Target.Value = "" Then Exit Sub x = Replace(Target.Value, " ", "*") If Left(x, 1) <> "*" Then x = "*" + x If Right(x, 1) <> "*" Then x = x + "*" Target.Value...

    Software serwis   01 Gru 2013 22:52 Odpowiedzi: 9    Wyświetleń: 2898
  • Excel - jak zsynchronizować dwie listy rozwijane?

    Ile jeszcze będzie tych wariantów? Jeśli adresy list są różne, to najrozsądniej, jak myślę nadać im takie same nazwy i te nazwy wykorzystać do identyfikacji. Przykładowy kod: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet, nazwa As String If Target.Count > 1 Then Exit Sub If Intersect(Target,...

    Software serwis   25 Wrz 2015 14:40 Odpowiedzi: 10    Wyświetleń: 921
  • Jak zastąpić kropki tekstem w Excel 2007 bez przesuwania?

    :arrow: fascynat Rzeczywiście, nieładnie się zachowałem, nie mój pomysł a się wtrąciłem. Przepraszam, spróbuje się w przyszłości poprawić. ;) Rozwinę więc swoją propozycję z wymuszeniem wciśnięcia insertu po podwójnym kliknięciu w komórkę z kropkami (np. w środek kropek). Nastąpi wtedy zastępowanie kropek tekstem. kod: Private Sub Worksheet_BeforeDoubleClick(ByVal...

    Software serwis   28 Mar 2011 16:46 Odpowiedzi: 11    Wyświetleń: 5029
  • Odejmowanie godzin w VBA Excel nie działa - jak naprawić?

    Witam, Proponuję modyfikację kodu np taką :D : [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 Then Target.Offset(, 1) = Time End If If Target.Column = 3 Then Target.Offset(, 1) = Time End If With Sheets("Arkusz1") For Each obszar In .Range("a1:a" & Target.Row) If obszar.Value...

    Obsługa oprogramowania   26 Lip 2018 14:01 Odpowiedzi: 6    Wyświetleń: 1062
  • MS Excel - Przenoszenie wiersza do innego arkusza, gdy wypełnimy komórkę

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 5 Then nw = Sheets("Logistyka").Cells(Rows.Count, "A").End(xlUp).Row + 1 If nw = 2 Then nw = 1 w = Target.Row Range(Cells(w, 1), Cells(w, 5)).Copy Sheets("Logistyka").Cells(nw, 1).PasteSpecial xlPasteValues End If End Sub [/syntax] Kod na tyle prosty,...

    Software serwis   12 Lis 2014 14:52 Odpowiedzi: 8    Wyświetleń: 1539
  • Jak automatycznie uruchomić makro zmieniające kolor karty w Excel 2010 po zmianie wartości?

    Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod: [syntax=text]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address <> "$F$6" Then Exit Sub If IsNumeric(Target) And Target > 0 Then Sh.Tab.Color = vbRed Else Sh.Tab.Color...

    Software serwis   04 Sty 2019 14:46 Odpowiedzi: 2    Wyświetleń: 1266
  • Excel - Makro - wyszukiwanie i zaznaczanie tekstu z zbioru komórek

    Spróbuj procedury zdarzeniowej. Np [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("K5:K13")) Is Nothing And Target.Count = 1 Then For Each kom In Range("B3:F7") If kom.Value = Target.Value Then kom.Font.Bold = True Else kom.Font.Bold = False End If Next End If End Sub[/syntax]Wklej w kod arkusza,...

    Software serwis   13 Sty 2012 14:22 Odpowiedzi: 5    Wyświetleń: 4692
  • Excel-zmiana koloru komórki jeżeli wartość większa niż komórka niżej

    Pierwszą część możesz wygodnie zrealizować przy pomocy procedury zdarzeniowej, gdzie warunkiem jest zaznaczenie minimalnej ilości komórek (można ograniczyć do zakresu, kolumn, etc). Przykład dla zaznaczenia >3[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 3 Then For Each kom In Target If kom.Row / 2 =...

    Software serwis   22 Wrz 2012 19:12 Odpowiedzi: 2    Wyświetleń: 6702