28872_prevod-vysledku-fce-na-hodnotu.zip
Do kódového okna listu aktualni nakopíruj:Private Sub Worksheet_Change(ByVal Target As Range)
Dim tgtRng As Range
If Target.Address = "$B$1" Or Target.Address = "$B$3" Then
Set tgtRng = Sheets("prehled").[B1:M1]
tgtRng.Offset(2, WorksheetFunction.Match([B1], tgtRng, 0) - 1).Resize(1, 1) = [B3]
End If
End Subcitovat
Dim tgtRng As Range
If Target.Address = "$B$1" Or Target.Address = "$B$3" Then
Set tgtRng = Sheets("prehled").[B1:M1]
tgtRng.Offset(2, WorksheetFunction.Match([B1], tgtRng, 0) - 1).Resize(1, 1) = [B3]
End If
End Subcitovat
RSS nejnovější články