WorkSheet_Change event does not allow to change more than one cell

Question

0.00/5 (No votes)

See more:

Hi Everybody,

I am working in VBA exercise using worksheet_change event,I was trying to change multiple cells in excel so that Change event should fire.But issue is, when I change single cell Change event gets fired ,not allowing to change multiple cells.I want to change multiple cells so that change event should fire.Can anyone plz guide me to solve this.
or

Anyotherway for getting changed cell value?

Thank You.

Posted 30-Nov-11 20:01pm

Ajarwe

Updated 30-Nov-11 20:37pm

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

santhoshkvijayan · Answer 1 · 2011-12-15T03:05:00

hi, you can specify the ranges like the column or row so that once those set of cells can active the code you desire

VB

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Column = 1 Then
        ThisRow = Target.Row
        If Target.Value > 100 Then
            Range("B" & ThisRow).Interior.ColorIndex = 3
        Else
            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone
        End If
    End If
End Sub

hope this helps

ArtWalls · Answer 2 · 2011-12-27T04:46:00

The Target parameter is a range object, it can cover multiple cells. To retrieve the values from the different cells:

Public Sub worksheet_change(ByVal target As Excel.Range)

Dim celCurr As Excel.Range

For Each celCurr In target.Cells
Debug.Print celCurr.Address, celCurr.value
Next celCurr

Set celCurr = Nothing

End Sub

WorkSheet_Change event does not allow to change more than one cell

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0