Thomas Kuriakose
Active Member
Respected Sirs,
Good day to you.
Kindly guide on a vba code to get results on changing currency and the corresponding factor in the attached file.
The attached workbook has multiple tabs in which there are values entered from G3 to Q26. The user will select the currency in B2 of tab A1 and the factor in B3 gets populated based on a matrix of values.
The requirement is to multiple the range G3: K26 and M3:Q26 with the factor in B3 for all tabs.
I found a code on worksheet change event but not bale to use this for this requirement.
Thank you very much for your kind support and guidance always,
very much appreciated,
with regards,
thomas
Good day to you.
Kindly guide on a vba code to get results on changing currency and the corresponding factor in the attached file.
The attached workbook has multiple tabs in which there are values entered from G3 to Q26. The user will select the currency in B2 of tab A1 and the factor in B3 gets populated based on a matrix of values.
The requirement is to multiple the range G3: K26 and M3:Q26 with the factor in B3 for all tabs.
I found a code on worksheet change event but not bale to use this for this requirement.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Set rInt = Intersect(Target, Range("B3"))
If Not rInt Is Nothing Then
For Each rCell In rInt
If IsNumeric(rCell) Then
With Application
.EnableEvents = False
rCell = rCell * Range("B3")
.EnableEvents = True
End With
End If
Next
End If
End Sub
Thank you very much for your kind support and guidance always,
very much appreciated,
with regards,
thomas