LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 683
Default need help

i posted this original message:
I want to use VB to do the following:
if cell h10 is text then upon exit of cell h10 clear cell f10. if cell
h10
is a number, then do nothing to cell f10. I want this to apply to cell
h10 f10

h11 f11

h12 f12

h13 f13

The following response worked great however I am having one porblem with it:

Here is the response:

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 10 Or Target.Row 13 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 8 Then
If IsNumeric(Target) = False Then
If Len(Target) 0 Then
Target.Offset(0, -2) = ""
End If
End If
End If
Application.EnableEvents = True
End Sub

Cells in the F column should remain except whn text is entered in the H
column.
Clearing F10 etc. will have no effect.


THIS WORKED GREAT WHEN I TRIED IT ON A NEW SHEET IN A NEW WORKBOOK, BUT
WHEN I APPPLIED IT TO MY WORKSHEET IN PROGRESS IT DID NOT WORK. I RECEIVED A
MESSAGE STATING AMBIGUOUS TITLE OR NAME (SOMETHING LIKE THAT IF I RECALL) I
DO HAVE ANOTHER MACRO WITH THE SAME HEADING AS THIS MACRO "Private Sub
Worksheet_Change(ByVal Target As Range)" THEY ARE BOTH ON SHEET 1 HOW CAN I
FIX THIS PROBLEM.
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT +1. The time now is 02:31 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"