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
- 1654
-
od luko02420
Zobrazit poslední příspěvek
02 srp 2023 14:12
-
-
Součet hodnot s prázdnou vedlejší buňkou Příloha(y)
od Karrex » 22 kvě 2023 17:00 » v Kancelářské balíky - 7
- 2086
-
od elninoslov
Zobrazit poslední příspěvek
23 kvě 2023 22:38
-
-
- 3
- 1952
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1140
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
-
-
Libre Office Calc - Divné chování při kopírování textu Příloha(y)
od EZumrova » 02 dub 2024 08:12 » v Kancelářské balíky - 14
- 2101
-
od kecalek
Zobrazit poslední příspěvek
05 dub 2024 19:11
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti