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
Kopírování "hodnot" pomocí VBA
Re: Kopírování "hodnot" pomocí VBA
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ří.
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
Naposledy upravil(a) atari dne 22 črc 2019 15:46, celkem upraveno 1 x.
Re: Kopírování "hodnot" pomocí VBA
Technické doplnění. Proměnná "rciX" nemůže být deklarovaná jako RANGE. To mě nějak uniklo.
Re: Kopírování "hodnot" pomocí VBA
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
Re: Kopírování "hodnot" pomocí VBA
Autor se neozval, tak už nám asi nesdělí zda to vyhovuje ...
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 0
- 2775
-
od LukM
Zobrazit poslední příspěvek
19 říj 2024 14:03
-
-
Sledování pomocí hodinek
od palecek » 29 srp 2024 09:47 » v Mobily, tablety a jiná přenosná zařízení - 3
- 3946
-
od GamerXXX
Zobrazit poslední příspěvek
02 zář 2024 12:25
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti