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ě