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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.