Prosím o úpravu kódu. Děkuji *

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

junis
nováček
Příspěvky: 40
Registrován: březen 22
Pohlaví: Muž

Prosím o úpravu kódu. Děkuji *

Příspěvekod junis » 09 črc 2024 18:05

Dobrý den.
Jak změnit zápis, aby provedl zápis do buněk (doplnění), když bude nějaká hodnota ve sloupci 15 . (Tlačítkem)
Ve sloupci 15 mám vzorec =IFERROR(SVYHLEDAT(J2;datovepole!$C$4:$D$2000;2;NEPRAVDA);"") a doplní mi to jen když do sloupce 15 provedu změnu ručně.
Prostě do sloupce 15 se mi vzorcem zapisují data a já potřebuji pomocí vba zajistit, aby pokud bude v řádku ve sloupci 15 nějaká hodnota mít doplněny buňky vleno viz níže

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sledovana_oblast As Range
Dim a As Integer
Dim b As Integer

    Set Sledovana_oblast = Range("O4:O2000") 'kontrolované buňky ve sloupci O

         If Not Intersect(Target, Sledovana_oblast) Is Nothing Then
         
            a = Target.Row
       
             With Target(1, -2) 'první řádek slupce K
           
             .Value = Now
           
             .EntireColumn.AutoFit 'automatická šíře sloupce
           
             .Offset(0, -1) = 1
           
             End With
       
         End If
 
End Sub



Chtěl bych to, přepsat to a makro spustit tlačítkem, kdy by se mi pak doplnilo více hodnot na jedno kliknutí

Děkuji pěkně

Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Sestava cca 50 000,- prosím o názor, či úpravu
    od Hejhul » 18 dub 2024 11:47 » v Rady s výběrem hw a sestavením PC
    2
    2746
    od Alferi
    18 dub 2024 12:58
  • Pc sestava na úpravu fotek
    od Lukk_as93 » 23 dub 2024 20:52 » v Rady s výběrem hw a sestavením PC
    3
    2493
    od Lukk_as93
    24 dub 2024 15:37
  • Uograde, prosím o radu
    od vaclavka83 » 29 dub 2024 20:36 » v Rady s výběrem hw a sestavením PC
    6
    4040
    od vaclavka83
    01 kvě 2024 01:59
  • Prodej PC - prosím o nacenění
    od bereline » 18 črc 2023 20:46 » v P: Hardware
    2
    4128
    od bereline
    19 črc 2023 11:10
  • Prosím o kontrolu - PC Na fortnite pro borce (11 let)
    od jkorner » 02 lis 2023 14:15 » v Rady s výběrem hw a sestavením PC
    16
    1683
    od Gerete
    03 lis 2023 15:01

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů