[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 164
  • Last Modified:

EXCEL - If cell contains more than 6 characters then go to other cell - How to?

Hi Experts.
I need a simple formula that says if a certain cell has more than 6 characters do nothing and let cursor drop down to cell below.
If there is exactly 6 character then move cursor to another cell.

Thanks  for your help.
Capture.PNGDUMMY-FILE.xlsx
0
chris pike
Asked:
chris pike
1 Solution
 
Glenn RayExcel VBA DeveloperCommented:
Re-stating your question to make sure I understand:
You want an automated procedure to move the cursor to cell H7 if the number of digits/characters in the currently-selected cell is six (6).

If so:
1) There is no formula that will do this; you'll have to use VBA to reselect cells given these conditions.
2) Your "H6" cell scenario is a contradiction.  If there are either six or more characters in H6, cell H7 would be selected.

What would be your expected response if there are less than six characters in a cell?  Halt there?  

-Glenn
0
 
xtermieCommented:
You need a macro to do that.
However Glenn is right, you need to work out the logic for this
Now, the following code will:
1) Perform your checks, as specified, for cell H2 (H3 in your reference)
Sub testx()
Dim ws As Worksheet
Set ws = Application.ActiveWorkbook.ActiveSheet

ws.Range("H2").Select
If Len(Selection.Value) = 6 Then
    ws.Range("H8").Select
Else
    If Len(Selection.Value) > 6 Then
        ws.Range("H2").Offset(1, 0).Select
    End If
End If
End Sub

Open in new window

2) Perform your checks as specified in the range you specify (H2 to H6)
Sub testx2()
Dim ws As Worksheet
Dim r As Range

Set ws = Application.ActiveWorkbook.ActiveSheet
Set r = ws.Range("H2:H6")

For Each Cell In r
Cell.Select
If Len(Selection.Value) = 6 Then
    ws.Range("H8").Select
Else
    If Len(Selection.Value) > 6 Then
        Selection.Offset(1, 0).Select
    End If
End If
Next
End Sub

Open in new window


Can be used in your Excel file as macros, hit Alt+F11 and then copy-->paste the macros
0
 
chris pikeAuthor Commented:
Thanks looks good.
0

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now