Hello Friends,

This is my first time on an IT forum and I am also new to VBA and therfore was wondering how to write the same formula below several times for several different cells given that I am only able to use one Worksheet change.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If the cell just changed (Target) is the cell we're looking for (F27)
If Target.Address = Me.Range("F30").Address Then
'then let the value of cell G28 be a formated date/time stamp, separated by a space
Me.Range("G31").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If the cell just changed (Target) is the cell we're looking for (F27)
If Target.Address = Me.Range("G20").Address Then
'then let the value of cell G28 be a formated date/time stamp, separated by a space
Me.Range("G21").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
End If
End Sub

Hi, your comments do not match your code.
Using the description you wrote : use a case or multiple ElseIf statements.
If Target.Address = Me.Range("F30").Address Then
Do ABC...
ElseIf If Target.Address = Me.Range("F32").Address Then
Do XYZ...
ElseIf If Target.Address = Me.Range("F33").Address Then
Do KLM...

__________________
Nostalgia 4 Infinity

Many thanks Zakalwe

I now have working multiple Worksheet change formulas Cheers

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Me.Range("F30").Address Then
Me.Range("G31").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("D52").Address Then
Me.Range("E53").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("D55").Address Then
Me.Range("E56").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("D58").Address Then
Me.Range("E59").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("D61").Address Then
Me.Range("E62").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("D88").Address Then
Me.Range("E88").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C126").Address Then
Me.Range("D126").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C127").Address Then
Me.Range("D127").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C128").Address Then
Me.Range("D128").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C129").Address Then
Me.Range("D129").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C130").Address Then
Me.Range("D130").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C131").Address Then
Me.Range("D131").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C132").Address Then
Me.Range("D132").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
ElseIf Target.Address = Me.Range("C133").Address Then
Me.Range("D133").Value = Format(Date, "dd-mmmm-yyyy") & " " & Format(Now, "h:mm:ss AM/PM")
End If
End Sub

I am happy it works but I don't think that's the best way to implement the solution.
What if you have a larger number of ranges? You'd have a very long and slow program.

I'd consider placing the ranges of interest in a union then test if target is part of a union. If it is then use the offset formula on the target.

__________________
Nostalgia 4 Infinity