Kopírování "hodnot" pomocí VBA
Napsal: 24 čer 2019 10:04
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
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