• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Přesun dat se zachováním formátu

Zaslal/a jaj 11.4.2016 11:31

Dobrý den,

mám list do kterého zadávám čísla, která jsou barevná.

Do dalšího listu se tyto čísla přesunou pomocí VBA a vytvářejí databázi.

Jakým způsobem můžu přenést i formát čísla a ne jen hodnotu?

KÓD:

Private Sub cobvlozitPODLAHA_B8_L1_Click()
'Určení prvního prázdného řádku
For prazdny = 2 To 65000
If Worksheets("DATA_L1").Cells(prazdny, 1).Value = "" Then GoTo tu
Next prazdny
tu:

'Přesun DAT do buňky do listu "DATA_L1"
'1 ŘÁDEK
Worksheets("DATA_L1").Cells(prazdny, 1) = Range("A2")
Worksheets("DATA_L1").Cells(prazdny, 2) = Range("B2")
Worksheets("DATA_L1").Cells(prazdny, 3) = Range("C2")
Worksheets("DATA_L1").Cells(prazdny, 4) = Range("D2")
Worksheets("DATA_L1").Cells(prazdny, 5) = Range("E2")
Worksheets("DATA_L1").Cells(prazdny, 6) = Range("F2")
Worksheets("DATA_L1").Cells(prazdny, 7) = Range("G2")
Worksheets("DATA_L1").Cells(prazdny, 8) = Range("H2")

Děkuji.

Ondra

Zaslat odpověď >

---

marjankaj(11.4.2016 12:35)#031085

Worksheets("DATA_L1").Range("A2").Copy Cells(prazdny, 1)citovat

nunus67(11.4.2016 12:59)#031087

Nebo:
Worksheets("DATA_L1").Cells(prazdny, 1) = Cells(2, "A").Font.Color
Worksheets("DATA_L1").Cells(prazdny, 1) = Cells(2, "A").Valuecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse