Makro excel

[mcklay]

Dobrý den,

prosím Vás o pomoc s jednoduchým makrem:

Dim dod As Range
Set dod = Sheets("Prehled").Range("B2")
If Not IsEmpty(dod) Then
If Not IsEmpty(dod.Offset(1, 0)) Then
Set dod = dod.End(xlDown)
End If
Set dod = dod.Offset(1, 0)
End If

Sheets("Faktura").Range("I5").Copy Destination:=dod

Set dod = Nothing

Potřeboval bych aby se proměnná "dod" kopírovala bez formátů, pouze jako hodnota. Prosím Vás o opravu.
Děkuji moc

[Reklama]

[cmuch]

Třeba, místo

Kód: Vybrat vše

Sheets("Faktura").Range("I5").Copy Destination:=dod

toto

Kód: Vybrat vše

dod.Value = Sheets("Faktura").Range("I5").Value