7929_12-04-06_nonsaisa.zip
jablicko, som lenivý písať makro na vytvorenie nových súborov, prepáč. Každopádne, pokiaľ si skopíruješ List 1 do Listov 2 a 3 a spustíš doleuvedené makro (musíš mať aktivovaný Tvoj súbor s uvedenými listami), dostaneš na listoch 2 a 3 ako výsledok to, čo požaduješ. Výsledok z Listov 2 a 3 si potom môžeš uložiť do nových súborov tak, ako potrebuješ.
Option Explicit
Sub Vyfiltruj()
Dim cell As Range
For Each cell In Worksheets(2).UsedRange
If InStr(cell, "SA") = 0 Then cell.ClearContents
Next
For Each cell In Worksheets(3).UsedRange
If InStr(cell, "SA") > 0 Then cell.ClearContents
Next
End Subcitovat
Option Explicit
Sub Vyfiltruj()
Dim cell As Range
For Each cell In Worksheets(2).UsedRange
If InStr(cell, "SA") = 0 Then cell.ClearContents
Next
For Each cell In Worksheets(3).UsedRange
If InStr(cell, "SA") > 0 Then cell.ClearContents
Next
End Subcitovat
RSS nejnovější články