Assign values "backdoor"

[yxz152830]

Gurus,
Im trying to log some data running vba while doing calculation in the main sheet. Now the thing is that if i wanna log them into another sheet by say sheets("xx").cells(1000,1).end(xlup).offset(1,0) = record, I have to activate the sheet to do so and then activate the main sheet to continue calculation. Is there a way to log the data "backdoor"? Thanks!

 

[bebo021999]

I have tested with main sheet activate, running the code, sheets"xx" was updated, without activated. main sheet still be active sheet.
If it still does not work for you, could you show the whole code?

 

[yxz152830]

I have tested with main sheet activate, running the code, sheets"xx" was updated, without activated. main sheet still be active sheet.
If it still does not work for you, could you show the whole code?

For Each cell1 In time_slot
        If cell1.Value > 0 Then
        cell1.Value = cell1.Value - ss_rate * (cell1.Value / ss_line_total_interval)
        cell1.Offset(0, 1).Value = cell1.Offset(0, 1).Value + cell1.Value
        End If
        If Cells(cell1.Row, 6).Value <= cell.Value And Cells(cell1.Row, 6).Value >= cell.Offset(0, -1).Value And cell1.Value > 0 Then
        count = count + 1
        record1 = Cells(cell1.Row, 3).Value & " " & "to" & " " & Cells(cell1.Row, 4).Value & " " & "start vol at" & " " & " " & Cells(cell1.Row, 7).Value & " on" & " " & Cells(cell1.Row, 1).Value
        Sheets("SS log").Activate
        Sheets("SS log").Cells(1000, 1).End(xlUp).Offset(1, 0).Value = record1
        Sheets("SS").Activate
        Range(Cells(7, 8), Cells(Cells(7, 1).End(xlDown).Row, 92)).ClearContents
        pri_sum = 0
        End If
Next cell1

 

[bebo021999]

try to replace this:.

Sheets("SS log").Activate
        Sheets("SS log").Cells(1000, 1).End(xlUp).Offset(1, 0).Value = record1
        Sheets("SS").Activate

by this

'Sheets("SS log").Activate
        Sheets("SS log").Cells(1000, 1).End(xlUp).Offset(1, 0).Value = record1
 '       Sheets("SS").Activate

 

[yxz152830]

try to replace this:.

Sheets("SS log").Activate
        Sheets("SS log").Cells(1000, 1).End(xlUp).Offset(1, 0).Value = record1
        Sheets("SS").Activate

by this

'Sheets("SS log").Activate
        Sheets("SS log").Cells(1000, 1).End(xlUp).Offset(1, 0).Value = record1
 '       Sheets("SS").Activate

i don't know why it didnt work... thnkS!