ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Loop with Cell Change Event (https://www.excelbanter.com/excel-programming/365427-loop-cell-change-event.html)

Adrian[_12_]

Loop with Cell Change Event
 
Hello,

I'm new at using VBA and I'm trying to enhance the input of an excel
sheet on an automated basis, but I run into following problem.
Checking the input should be done automatically after the user does
datainput. User Can type cells, but also copy ranges toward the sheet.

So I was using a Worksheet_Change event. But since the Checking
procedure might
overwrite (certain cells on the sheet), I get into a loop, and cause of
a new
Cell Change event.

I tried to solve this by using a boolean that is set on true when I
start checking and
afterterward is put back to False. However it doesn't seem to work. (By
following this boolean I have seen that the program kind of loses the
value when the Worksheet_Change event is (re)started.

My Code looks like this :

-----------------------------------------------------------------------------

Dim Processing As Boolean

Private Sub Workbook_Open()

Processing = False

End Sub

------------------------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)

If Processing = False Then
Processing = True

'Sub that might or might not change the content of any cell on

this sheet
Module1.Cellverification

Processing = False
End If
End Sub

________________________________________________

For simple data entry, the extra loop isn't a problem, but once if the
user starts copying larger cell ranges into the sheet I have a problem.
And anyway, I would like to find a correct solution for the problem.

Is it possible to keep this value of my boolean? Or to ommit changes
that are made by the Module I run?
Or is there an event that is initiated by actions of the user interface
(but only after data entry)
and were I get the Range of changed cells.


Thanks for your input,

Adrian



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

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com