Sub Rasti()
IDX = 2
Do
    If Cells(IDX, 2) = Empty Then Exit Do
    AAA = 0
    On Error Resume Next
    AAA = WorksheetFunction.Search("atask", Cells(IDX, 2))
    On Error GoTo 0
    If AAA <> 0 Then
        Cells(IDX, 7) = Cells(IDX, 2)
    Else
        Cells(IDX, 7) = Empty
    End If
    IDX = IDX + 1
Loop
End Sub

"XER" <XER@XER.XER> wrote in message 
news:h02lv5$c4t$1@trimpas.omnitel.net...
> Dar patikslinsiu, gal neaiskai parasiau tiksla.Reikia perkelti visa cele 
> su joje esanciu turiniu, jei toje celeje yra "atask" zodzio saknis
> "XER" <XER@XER.XER> wrote in message 
> news:h02lp4$bq4$1@trimpas.omnitel.net...
>> Buciau labai dekingas....
>>
>> "LwJ" <LwJ@Nera.Lt> wrote in message 
>> news:h02l3t$aih$1@trimpas.omnitel.net...
>>> Tada jau niekas nebepad�s...:)
>>> Imesk lentel�, padarysiu...:)
>>> "XER" <XER@XER.XER> wrote in message
>>> news:h02k1t$8gu$1@trimpas.omnitel.net...
>>>> sitas nepadejo .....
>>>> "LwJ" <LwJ@Nera.Lt> wrote in message
>>>> news:h02hok$4c7$1@trimpas.omnitel.net...
>>>>>    ActiveSheet.Range("xxxxx").AutoFilter Field:=xxx,
>>>>> Criteria1:="=*atask*"
>>>>> _
>>>>>        , Operator:=xlAnd
>>>>>
>>>>> "XER" <XER@XER.XER> wrote in message
>>>>> news:h02fj3$108$1@trimpas.omnitel.net...
>>>>>> Sveiki, reikia excelyje su VB  padaryti kad is stulpelyje esanciu 
>>>>>> celiu
>>>>>> atrinktu tas celes, kiriuose yra zodziai prasidedantys "atask" ( t.y.
>>>>>> turi atrasti: ataskaita, atsakaitos, ataskaitinis ir t.t) . Gal 
>>>>>> kasnors
>>>>>> uzvestu ant kelio , kaip aprasyti funkcija-filtra, kad ieskotu tu
>>>>>> "atask".
>>>>>> Is anksto aciu uz patarimus..........
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>
>>
>>
>
>