Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
second event
thinking you can have more than 1 event in worksheet.
If so is it possible to check for blank cells in row when user hits enter,down arrow or in any way trys to move to next row. The area covered is columns B:K. want to keep user in this row till all cells have entry. Do not need to clear contents only require no blanks in row. This is a safety move for program. The help from this group is wonderful for those of us learning Thanks Much |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
second event
Kind of crude as assumes that you start in row 2 and that row 1 has 5 or
more entries. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 2 Then Exit Sub If Application.CountA(Rows(Target.Row - 1)) < 5 Then MsgBox "finish last row" Cells(Target.Row - 1, 1).Select End If End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... thinking you can have more than 1 event in worksheet. If so is it possible to check for blank cells in row when user hits enter,down arrow or in any way trys to move to next row. The area covered is columns B:K. want to keep user in this row till all cells have entry. Do not need to clear contents only require no blanks in row. This is a safety move for program. The help from this group is wonderful for those of us learning Thanks Much |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
second event
Is it ok to have two or more worksheet_change (byVal Target As Range)
start is in row 4 check ing entries in b4: to k4 row 1to3 are headers This is what I all ready have. Where would I insert your code? Never tried to have this much before Thanks for your assistance Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error GoTo errhandler Application.EnableEvents = False If Target.Column = 11 And Target.Value <= 10 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyDonors(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyMailD(Target) If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call Copycomp(Target) ' If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) Application.EnableEvents = True Exit Sub errhandler: Application.EnableEvents = True End Sub "Don Guillett" wrote: Kind of crude as assumes that you start in row 2 and that row 1 has 5 or more entries. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 2 Then Exit Sub If Application.CountA(Rows(Target.Row - 1)) < 5 Then MsgBox "finish last row" Cells(Target.Row - 1, 1).Select End If End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... thinking you can have more than 1 event in worksheet. If so is it possible to check for blank cells in row when user hits enter,down arrow or in any way trys to move to next row. The area covered is columns B:K. want to keep user in this row till all cells have entry. Do not need to clear contents only require no blanks in row. This is a safety move for program. The help from this group is wonderful for those of us learning Thanks Much |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
second event
Thanks Don "As is said many times Why didn't I think of that.
How do you put up with our forgetfullness. Thanks "Don Guillett" wrote: try this idea Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 11 Or Not IsNumeric(Target) Then Exit Sub Select Case Target Case Is 10: Call joe Case Is 0: Call bill Case Is < 1: Call sam Case Else End Select End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... Is it ok to have two or more worksheet_change (byVal Target As Range) start is in row 4 check ing entries in b4: to k4 row 1to3 are headers This is what I all ready have. Where would I insert your code? Never tried to have this much before Thanks for your assistance Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error GoTo errhandler Application.EnableEvents = False If Target.Column = 11 And Target.Value <= 10 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyDonors(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyMailD(Target) If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call Copycomp(Target) ' If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) Application.EnableEvents = True Exit Sub errhandler: Application.EnableEvents = True End Sub "Don Guillett" wrote: Kind of crude as assumes that you start in row 2 and that row 1 has 5 or more entries. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 2 Then Exit Sub If Application.CountA(Rows(Target.Row - 1)) < 5 Then MsgBox "finish last row" Cells(Target.Row - 1, 1).Select End If End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... thinking you can have more than 1 event in worksheet. If so is it possible to check for blank cells in row when user hits enter,down arrow or in any way trys to move to next row. The area covered is columns B:K. want to keep user in this row till all cells have entry. Do not need to clear contents only require no blanks in row. This is a safety move for program. The help from this group is wonderful for those of us learning Thanks Much |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
second event
It becomes more difficult each year to put up with my own. I'll be 71 next
Sunday. -- Don Guillett SalesAid Software "Curt" wrote in message ... Thanks Don "As is said many times Why didn't I think of that. How do you put up with our forgetfullness. Thanks "Don Guillett" wrote: try this idea Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 11 Or Not IsNumeric(Target) Then Exit Sub Select Case Target Case Is 10: Call joe Case Is 0: Call bill Case Is < 1: Call sam Case Else End Select End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... Is it ok to have two or more worksheet_change (byVal Target As Range) start is in row 4 check ing entries in b4: to k4 row 1to3 are headers This is what I all ready have. Where would I insert your code? Never tried to have this much before Thanks for your assistance Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error GoTo errhandler Application.EnableEvents = False If Target.Column = 11 And Target.Value <= 10 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyDonors(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyMailD(Target) If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call Copycomp(Target) ' If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) Application.EnableEvents = True Exit Sub errhandler: Application.EnableEvents = True End Sub "Don Guillett" wrote: Kind of crude as assumes that you start in row 2 and that row 1 has 5 or more entries. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 2 Then Exit Sub If Application.CountA(Rows(Target.Row - 1)) < 5 Then MsgBox "finish last row" Cells(Target.Row - 1, 1).Select End If End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... thinking you can have more than 1 event in worksheet. If so is it possible to check for blank cells in row when user hits enter,down arrow or in any way trys to move to next row. The area covered is columns B:K. want to keep user in this row till all cells have entry. Do not need to clear contents only require no blanks in row. This is a safety move for program. The help from this group is wonderful for those of us learning Thanks Much |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
second event
HAPPY B DAY I am still a kid. Will be 70 August
"Don Guillett" wrote: It becomes more difficult each year to put up with my own. I'll be 71 next Sunday. -- Don Guillett SalesAid Software "Curt" wrote in message ... Thanks Don "As is said many times Why didn't I think of that. How do you put up with our forgetfullness. Thanks "Don Guillett" wrote: try this idea Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 11 Or Not IsNumeric(Target) Then Exit Sub Select Case Target Case Is 10: Call joe Case Is 0: Call bill Case Is < 1: Call sam Case Else End Select End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... Is it ok to have two or more worksheet_change (byVal Target As Range) start is in row 4 check ing entries in b4: to k4 row 1to3 are headers This is what I all ready have. Where would I insert your code? Never tried to have this much before Thanks for your assistance Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error GoTo errhandler Application.EnableEvents = False If Target.Column = 11 And Target.Value <= 10 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyDonors(Target) If Target.Column = 11 And Target.Value 10 And IsNumeric(Target.Value) Then _ Call CopyMailD(Target) If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call Copycomp(Target) ' If Target.Column = 11 And Target.Value <= 0 And IsNumeric(Target.Value) Then _ Call CopyMailE(Target) Application.EnableEvents = True Exit Sub errhandler: Application.EnableEvents = True End Sub "Don Guillett" wrote: Kind of crude as assumes that you start in row 2 and that row 1 has 5 or more entries. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 2 Then Exit Sub If Application.CountA(Rows(Target.Row - 1)) < 5 Then MsgBox "finish last row" Cells(Target.Row - 1, 1).Select End If End Sub -- Don Guillett SalesAid Software "Curt" wrote in message ... thinking you can have more than 1 event in worksheet. If so is it possible to check for blank cells in row when user hits enter,down arrow or in any way trys to move to next row. The area covered is columns B:K. want to keep user in this row till all cells have entry. Do not need to clear contents only require no blanks in row. This is a safety move for program. The help from this group is wonderful for those of us learning Thanks Much |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Click event on menu item is lost after first time firing of the event | Excel Programming | |||
MsgBox in Enter event causes combobox not to run Change event | Excel Programming | |||
How to trap delete row event and hide column event? | Excel Programming | |||
user form-on open event? keydown event? | Excel Programming | |||
OnTime event not firing in Workbook_Open event procedure | Excel Programming |