28126_inv.zip
Pokiaľ tým skenerom sa pri zápise do B2 spustí udalosť Worksheet_Change (to nevyskúšam, páč skener nemám), tak by teoreticky mohlo fungovať toto, zapísané do kódového okna listu:Private Sub Worksheet_Change(ByVal Target As Range)
Dim mRng As Range, wRng As Range
If Target = [B2] Then
Set mRng = [B4]
Set mRng = Range(mRng, mRng.End(xlDown))
Set wRng = mRng.Cells(WorksheetFunction.Match(Target, mRng, 0), 3)
wRng.Select
End If
End Sub... do sloupce C dopíše se stav - nepíšeš, akým spôsobom sa má ten stav dopísať, takže makro zrealizuje odskok do bunky, kam sa má ten stav zapísať..citovat
Dim mRng As Range, wRng As Range
If Target = [B2] Then
Set mRng = [B4]
Set mRng = Range(mRng, mRng.End(xlDown))
Set wRng = mRng.Cells(WorksheetFunction.Match(Target, mRng, 0), 3)
wRng.Select
End If
End Sub... do sloupce C dopíše se stav - nepíšeš, akým spôsobom sa má ten stav dopísať, takže makro zrealizuje odskok do bunky, kam sa má ten stav zapísať..citovat
RSS nejnovější články