Tema: Re: Excel VBA arba be
Autorius: Laimis
Data: 2015-11-04 14:54:19
LwJ rašė:
>>> Set F = Columns(6).Find(GID, LookIn:=xlValues, LookAt:=xlWhole)
>>> If Not F Is Nothing Then
>>>     Eilute = F.Row
>>> End If
>>> Set F = Nothing
>>>
>>> Jei stulpelis Hidden neranda...:(
>>
>> LookIn:=xlFormulas randa.
>
> Labai keistai
> jei celėje reikšmė (xlValue), tai LookIn:=xlFormulas  veikia
> jei celėje formulė, kurios rezultatas yra ieškoma reikšmė, tai
> LookIn:=xlFormulas reikšmės neranda, bet randa jei  LookIn:=xlValues ir
> stulpelis nepaslėptas

Keistai. Bet gali ieškoti ir taip:

For Each c in ActiveSheet.Range("A:A")
     If c.Value = GID Then
         <...>
     End If

     If InStr(c.Formula, GUID) Then
         <...>
     End If	
Next