VBA: how to write in the same cell of a different sheet

[Nelson78]

Hello everybody.

I'm getting crazy with something that looks very easy.

I've a cycle like this:

For Each cell In rec.Range("A2:A" & lr)

...

cell.Offset(0, counter).Value = cell2.Offset(0, 5).Value

...

Next cell

Now, I've to write the value

cell2.Offset(0, 5).Value

in

cell.Offset(0, counter).Value

(and this part is ok), but also in the same cell of a different sheet, say

Dim cent As Worksheet
    Set cent= ThisWorkbook.worksheets("Centralised")

How can i figure this out?

 

[HaHoBe]

Hi Nelson78,

maybe one way to handle this:

Dim wksCent As Worksheet
Dim rngCell As Range

Set wksCent = ThisWorkbook.Worksheets("Centralised")
'...
For Each rngCell In rec.Range("A2:A" & lr)
  wksCent.Range(rngCell.Offset(0, 5).Address).Value = rngCell.Value
Next rngCell
'...

Ciao,
Holger