B
bennetto
I need to limit a cell to 30 digits.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
D
David Biddulph
Do you mean format, or did you intend to ask about data validation?
D
David Biddulph
Do you mean format, or did you intend to ask about data validation?
M
Mike H
hi,
Try
Data|Validation - Text length - less than or equal to - enter 30 - OK
Mike
Try
Data|Validation - Text length - less than or equal to - enter 30 - OK
Mike
M
Mike H
hi,
Try
Data|Validation - Text length - less than or equal to - enter 30 - OK
Mike
Try
Data|Validation - Text length - less than or equal to - enter 30 - OK
Mike
B
bennetto
I guess I meant validation but I didn't know it. Mike H's answer worked.
Thank you both for your help!
Thank you both for your help!
B
bennetto
I guess I meant validation but I didn't know it. Mike H's answer worked.
Thank you both for your help!
Thank you both for your help!
B
bennetto
Thanks, Mike! I knew it was something simple. You made me look good...
Terri
Terri
B
bennetto
Thanks, Mike! I knew it was something simple. You made me look good...
Terri
Terri
G
Gord Dibben
Are you sure you're willing to put up with typing 31 letters and getting the
error message which tells you to do it all over again?
I would use event code which limits the text to 30 characters or less
without the annoying message DV provides.
Example code...................no error trapping for text or dates
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1:A10" 'edit to suit
Dim cell As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Len(.Value) > 30 Then
.Value = Left(.Value, 30)
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP
error message which tells you to do it all over again?
I would use event code which limits the text to 30 characters or less
without the annoying message DV provides.
Example code...................no error trapping for text or dates
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1:A10" 'edit to suit
Dim cell As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Len(.Value) > 30 Then
.Value = Left(.Value, 30)
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP
G
Gord Dibben
Are you sure you're willing to put up with typing 31 letters and getting the
error message which tells you to do it all over again?
I would use event code which limits the text to 30 characters or less
without the annoying message DV provides.
Example code...................no error trapping for text or dates
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1:A10" 'edit to suit
Dim cell As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Len(.Value) > 30 Then
.Value = Left(.Value, 30)
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP
error message which tells you to do it all over again?
I would use event code which limits the text to 30 characters or less
without the annoying message DV provides.
Example code...................no error trapping for text or dates
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1:A10" 'edit to suit
Dim cell As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Len(.Value) > 30 Then
.Value = Left(.Value, 30)
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP