Dekingas didziai!


"LwJ" <LwJ@Nera.Lt> wrote in message 
news:h02sqp$o37$1@trimpas.omnitel.net...
> 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..........
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>
>>>
>>>
>>
>>
>