+ Reply to Thread
Results 1 to 6 of 6

moving to next cell in range

  1. #1
    hansjhamm@yahoo.com
    Guest

    moving to next cell in range

    All,

    I thought I had this, but....
    What I need is to remove the data in cell A1 if in cell D1 it
    states;"Would you like to add any comments?"...then move to the next
    row/cell until cell A(whatever) contains no data.

    Sub Test()
    Dim Cell As Range
    For Each Cell In Range("D:D")
    If Range("D1") = "Would you like to add any comments?" Then
    Range("A1") = ""
    Next
    End Sub


    Any help is appreciated

    Hans


  2. #2
    Tom Ogilvy
    Guest

    Re: moving to next cell in range

    Sub Test()
    Dim Cell As Range
    For Each Cell In Range("D:D")
    If cell = "Would you like to add any comments?" Then
    cell.offset(0,-3).ClearContents
    End if
    Next
    End Sub

    However, that would take forever

    Sub Test
    Dim cell as Range, rng as Range
    set rng = .Range(cells(1,"D"),cells(rows.count,"D").End(xlup))
    for each cell in rng
    If cell = "Would you like to add any comments?" Then
    cell.offset(0,-3).ClearContents
    end if
    Next
    End sub

    there are other ways, such as using find.

    --
    Regards,
    Tom Ogilvy

    <hansjhamm@yahoo.com> wrote in message
    news:1141677534.906364.294160@z34g2000cwc.googlegroups.com...
    > All,
    >
    > I thought I had this, but....
    > What I need is to remove the data in cell A1 if in cell D1 it
    > states;"Would you like to add any comments?"...then move to the next
    > row/cell until cell A(whatever) contains no data.
    >
    > Sub Test()
    > Dim Cell As Range
    > For Each Cell In Range("D:D")
    > If Range("D1") = "Would you like to add any comments?" Then
    > Range("A1") = ""
    > Next
    > End Sub
    >
    >
    > Any help is appreciated
    >
    > Hans
    >




  3. #3
    hansjhamm@yahoo.com
    Guest

    Re: moving to next cell in range

    Tom,

    Thanks for the help; I am new to the VB side...How would you use "find"
    in a situation like this?


    Thanks,

    Hans


  4. #4
    Tom Ogilvy
    Guest

    Re: moving to next cell in range

    Look at the VBA help example for FindNext

    --
    Regards,
    Tom Ogilvy


    <hansjhamm@yahoo.com> wrote in message
    news:1141733071.119460.305500@i39g2000cwa.googlegroups.com...
    > Tom,
    >
    > Thanks for the help; I am new to the VB side...How would you use "find"
    > in a situation like this?
    >
    >
    > Thanks,
    >
    > Hans
    >




  5. #5
    Tim Barlow
    Guest

    Re: moving to next cell in range

    Hans,

    Try:

    Sub Test()
    Dim aCell As Range

    For Each aCell In Range("D:D")
    If aCell = "Would you like to add any comments?" Then
    aCell.Offset(0, -3).ClearContents
    End If
    Next aCell
    Set aCell = Nothing
    End Sub

    HTH

    Tim


    <hansjhamm@yahoo.com> wrote in message
    news:1141677534.906364.294160@z34g2000cwc.googlegroups.com...
    > All,
    >
    > I thought I had this, but....
    > What I need is to remove the data in cell A1 if in cell D1 it
    > states;"Would you like to add any comments?"...then move to the next
    > row/cell until cell A(whatever) contains no data.
    >
    > Sub Test()
    > Dim Cell As Range
    > For Each Cell In Range("D:D")
    > If Range("D1") = "Would you like to add any comments?" Then
    > Range("A1") = ""
    > Next
    > End Sub
    >
    >
    > Any help is appreciated
    >
    > Hans
    >




  6. #6
    hansjhamm@yahoo.com
    Guest

    Re: moving to next cell in range

    Gentlemen....thanks for your help, it is working like I need now!

    Hans


+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1