Find a variable in a selection Solved/Closed

Question

Hello,

      This is probably maddeningly simple or completely the wrong way to do things. I have data added each day and I was wanting to add a button that basically jumps to todays date and then copies data to the attached row. Copying is fine but so far however I can't even select the date.
      Column A has the dates which can change, but will always contain today. C3=Today() . I have tried to set aVab, but I am a complete novice and can't find the answer to this simple query. I seem to always get error 91 object variable not set thingy.


    Dim aVab As Date
    aVab = Range("C3").Value
        
    Columns("A:A").Select
    Selection.Find(What:=aVab, After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, MatchFormat:=False).Activate
    ActiveCell.Select


Please help. I have been trawling through the  VB help and these forums.
Everyone seems very helpful and I have found many helpful pointers but not the answer to this.

Thank you very much

Squando

Wut Up WutUp · Accepted Answer

If the date [Today())] will appear in the column one time and you want to select that cell, this will do the trick.
Hope this helps!

Dim aVab
Dim c As Range
aVab = Range("C3").Value
        
    
For Each c In Range("A1:A65536")

    If c = aVab Then
    c.Select

    End If
    
Next c

Find a variable in a selection

1 response

Similar discussions

Subscribe To Our Newsletter!