Calculate specific column with VBA

[Russk68]

Hi all

I want to calculate only column B whenever a change is made in column A.

Thank you!

 

[Michael M]

If it's directly connected, could you not use a formula for each row ??
Without knowing what calculation is required, a macro would seem like overkill !

 

[JoeMo]

Be aware that once triggered, this event macro will leave calculation set to manual.

Dim R As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set R = Selection.Cells(1, 1)
Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(R, Target) Is Nothing Then
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Range("B:B").Calculate
    End If
End If
End Sub

 

[Russk68]

Hi Michael

The issue that I'm trying to escape, is having the workbook calculate everytime that I make an entry in column A. It takes a couple of seconds after every entry. I'm hoping that if only column B calculates, it will speed up the data entry process. Its a complex workbook and I'm using column A & B as just an example.

Thanks!

 

[Russk68]

Hi Joe
I pasted the code in the worksheet that I'm working on and I got this error.

Compile error:

Ambiguous name detected: Worksheet_Change

 

[Michael M]

The error is because you can't have 2 seperate worksheet_change events.
You will either need to merge the events OR remove one of them

 

[Russk68]

Ah
I'll give it a shot.
Thanks!

 

[Russk68]

Works better than I expected!

Thank you!

 

[JoeMo]

Works better than I expected!

Thank you!

You are welcome - thanks for the reply.