How to put in a question????

huh?? .

huh?? .

ditto ???

I just searched on Google for...movenext excel....and this thread was about the 5th link that came up.:)

how To Put In A Question????wth Bob????

Well, to most that have replied, thank you for such "friendly" responses.
I notice that my question did not appear, only the title.

I have solved the problem myself but the problem I was having :-

If I select cell A1 and wish to move to cell A2, A3 etc how do I movenext?

Well, to most that have replied, thank you for such "friendly" responses.
I notice that my question did not appear, only the title.

I have solved the problem myself but the problem I was having :-

If I select cell A1 and wish to move to cell A2, A3 etc how do I movenext?

Ah, that would have been useful :)

So I'm sure you already found

Activecell.Offset(0,1).Select

right?

Activecell.Offset(0,1).Select
Very good Bob! :)

Ah, that would have been useful :)

So I'm sure you already found

Activecell.Offset(0,1).Select

right?


Bob,
I would like to say yes that is they way I managed to movenext but it would not be true. I used a lot more code. Thank you for the reply and correct method on how to do it.
smiler44

smiler44, it would benefit a lot of people on this forum if you could post your working code and/or how you managed to get this working for you.

Wiklendt,
no problem, here it is. I need to hide the 2nd, 3rd instance of any cell/ row that is duplicated. I compare cell A1 with A2. in no match is found then compare A2 with A3 and so on.
If a match is found between A1 and A2 then hide row 2 and compare A1 with A3, if a match is found then hide A3 if no match found then compare A3 with A4.

Private Sub cmdfinduplicates_Click()
' find duplicates and hides all but 1 row.
''''''''''''''''''''''''
Dim counter1 As Integer
Dim col1 As String ' column
Dim sell1 As String ' cell
Dim pap1 As String
Dim counter As Integer
Dim col As String ' column
Dim sell As String
Dim pap As String 'cell
Range("a1").Select
Sheet1.TextBox1.Text = "."
counter1 = 1
counter = 2
pap1 = "a1"
Do Until Sheet1.TextBox1.Text = ""
pause (0.25)
col1 = "a"
sell1 = counter1
pap1 = col1 + sell1
Sheet1.TextBox1.Text = Range(pap1)
counter1 = counter1 + 1
pause (".25")
''''''''''''''''''''''
col = "a"
sell = counter
pap = col + sell
Sheet1.TextBox2.Text = Range(pap)
counter = counter + 1
pause (".25")
If TextBox1.Text = "" Then
'must have got to end of field
MsgBox ("exiting sub")
Exit Sub
End If
If TextBox1.Text = TextBox2.Text Then
' hide duplicate rom
Rows(sell).Select
Selection.EntireRow.Hidden = True
MsgBox ("row test hidden")
Else
End If
Loop
MsgBox ("all done")
End Sub

cool :) you done good, smiler44.