Su VBA excelyje viskas įmanoma.Reikia kodą rašyti,pavz. prie reikšmės pasikeitimo(SelectionChange) arba Worksheet_Change
filtruojant duomenis pagal kriterijų,panašiai:
rašė: Set wsSource = Sheets("Sheet1")
With wsSource
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:A" & lRow).AutoFilter Field:=1, Criteria1:="12"
.Range("A1:A" & lRow).Copy Sheets("Sheet2").Range("A1")
.Range("A1").AutoFilter
Į langelį įrašius kriterijų(12),langelis su visu formatu ir spalvomis ir reikšmėmis atsiduria ten,kur pasiunčiame....