OK... great!!! Now it's working. Many many thanks....
JC
Private Sub Worksheet_Calculate()
If Cells(Rows.Count, "B").End(xlUp).Value <> Range("A1").Value Then
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = Range("A1").Value
End If
If Cells(Rows.Count, "C").End(xlUp).Value <> Range("A2").Value Then
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = Range("A2").Value
End If
End Sub
Try
Code:Private Sub Worksheet_Calculate() If Cells(Rows.Count, "B").End(xlUp).Value <> Range("A1").Value Then Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = Range("A1").Value End If If Cells(Rows.Count, "C").End(xlUp).Value <> Range("A2").Value Then Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = Range("A2").Value End If End Sub
Once again 10000000000000000 thanks
JC
Private Sub Worksheet_Calculate()
If Cells(Rows.Count, "C").End(xlUp).Value <> Range("A2").Value Then
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = Range("A1").Value
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = Range("A2").Value
End If
End Sub
Try
Code:Private Sub Worksheet_Calculate() If Cells(Rows.Count, "C").End(xlUp).Value <> Range("A2").Value Then Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = Range("A1").Value Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = Range("A2").Value End If End Sub
Great.... it works!!! Thanks again!!!!
Hello VoG... me again.
Is there a way to have a sheet perform its calculations based on agiven parameter? I said this because my whole work sheet is becoming pretty slow and I need to activate and deactivate certain sheets in order for the whole work to be faster.
It could be an If formula let say in C3 that says that if x parameter is OK, then the formulas in that sheet will execute, otherwise they won't...
Any ideas on how to do this besides indicating such formula in every single cell?
Thanks
JC
Is this on the same sheet that you are capturing the values of the feed?