Kopírování "hodnot" pomocí VBA

[sideboard]

Ahoj,
potřeboval bych poradit s jedním malým problémem. Stáhnul jsem si z těchto stránek VBA kód, který zkopíruje přesně to, co potřebuji, ale jedna z kopírovaných buněk je aktuální čas (vzorec "nyní()") a mě se kopíruje ten vzorec. Potřeboval bych ale zkopírovat jenom tu hodnotu. Tzn. abych věděl, v kolik hodin jsem to zkopíroval. Myslím, že to bude určitě jednoduché, ale jsem jen začátečník. Díky moc všem za radu.

Vzorec je níže:

Dim rCil2 As Range
Set rCil2 = Sheets("STYLISH").Range("f7")
If Not IsEmpty(rCil2) Then
If Not IsEmpty(rCil2.Offset(1, 0)) Then

Set rCil2 = rCil2.End(xlDown)
End If
Set rCil2 = rCil2.Offset(1, 0)
End If
Sheets("STYLISH").Range(ActiveCell, ActiveCell.Offset(0, -2)).Copy Destination:=rCil2

Set rCil2 = Nothing

[atari]

Ahoj. Přečti si pravidla. Na vložení kódu je funkce.

Lze to například takto. Mělo by to fungovat i přes to COPY v jednom řádku, ale to se mi nedaří.

Kód: Vybrat vše

Dim rCil2 As Range
Set rCil2 = Sheets("STYLISH").Range("f7")
If Not IsEmpty(rCil2) Then
If Not IsEmpty(rCil2.Offset(1, 0)) Then

Set rCil2 = rCil2.End(xlDown)
End If
Set rCil2 = rCil2.Offset(1, 0)
End If
rciX = Sheets("STYLISH").Range(ActiveCell, ActiveCell.Offset(0, -2)).Value
rCil2 = rciX

Set rCil2 = Nothing

[atari]

Technické doplnění. Proměnná "rciX" nemůže být deklarovaná jako RANGE. To mě nějak uniklo.

[lubo.]

Je to jesnoduché.

Kód: Vybrat vše

Dim rCil2 As Range
Dim rZdroj As Range
  
  Set rCil2 = Sheets("STYLISH").Range("f7")
  
  If Not IsEmpty(rCil2) Then
    If Not IsEmpty(rCil2.Offset(1, 0)) Then

      Set rCil2 = rCil2.End(xlDown)
    End If
    Set rCil2 = rCil2.Offset(1, 0)
  End If
  Set rZdroj = Sheets("STYLISH").Range(ActiveCell, ActiveCell.Offset(0, -2))
    
  rZdroj.Calculate             ' Aktualizujeme čas
  rCil2.Value = rZdroj.Value   ' Kopírujeme hodnotu
  Set rCil2 = Nothing
  Set rZdroj = Nothing

[atari]

Autor se neozval, tak už nám asi nesdělí zda to vyhovuje ...