Asi takto...
Příloha: 
24387_kombinaciadatumu.rar (7kB, staženo 32x)
citovat24387_kombinaciadatumu.rar (7kB, staženo 32x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA pro kombinaci textu a datumu
MS Excel
Téma: VBA pro kombinaci textu a datumu 
Zaslal/a LeslieBrown 3.4.2015 23:03
Ahoj,
potřeboval bych pomoct s vytvořením funkce nebo makra.
Na listu Sešit1 mám ve sloupci A datumy. Potřeboval bych vzorec nebo makro, který by mě do stejného řádku v sloupci C na list Sešit2 překopíroval datum ve formátu bez teček nebo lomítek a přidal před datum text.
Sešit1, bunka A2 = 13.4.2015 a do Sešit2, bunka C2 by se natáhlo "CARDS_13042015"
díky předem 
Díky moc lubo. Presne toto som chcel, len ako mám par tyzdnov excel v anglictine tak si s niektorymi banalitami neviem poradit 
dikycitovat
dikycitovatSakra, až teraz som si náhodou všimol, že v tom mojom vzorci som dal o jedno "y" v rýchlosti menej 
Takže oprava z
"=CARDS_"&TEXT(Sešit1!A2;"ddmmyyy")
na
="CARDS_"&TEXT(Sešit1!A2;"ddmmyyyy")
ale funguje tak či tak.
V CZ sa "yyyy" zamieňa na "rrrr" tak ako píše "lubo".citovat
Takže oprava z
"=CARDS_"&TEXT(Sešit1!A2;"ddmmyyy")
na
="CARDS_"&TEXT(Sešit1!A2;"ddmmyyyy")
ale funguje tak či tak.
V CZ sa "yyyy" zamieňa na "rrrr" tak ako píše "lubo".citovat
Ešte dotaz chalani, keď ste tak šikovný.
Cells(i, 14).Value = Sheets("data").Cells(y, 2).Text
Mám tento kód v makru, (i je čítač riadkov), ktorý mi kopíruje do Sheetu1 stlpca 14 údaje zo sheetu "data" zo stlpca 2. Lenže v sheetu data v stlpci 2 (stlpec B) mam uložené hodnoty ako text, ktorým sú 4 čísla. Urobil som to preto, aby sa mi zobrazovali aj nuly na začiatku, napr 0019 a neufikly sa nuly na začiatku, čo na sheetu data je, ale keď sa kopírujú informácie na Sheet1, kopírujú sa hodnoty a tie dve nuly na začiatku sa ufiknú a zkopíruje sa mi 19 miesto OO19.
Moc nepomože, ani keď dám do kódu .text miesto .value. Máte nápad ako to poriešit?
díkycitovat
Cells(i, 14).Value = Sheets("data").Cells(y, 2).Text
Mám tento kód v makru, (i je čítač riadkov), ktorý mi kopíruje do Sheetu1 stlpca 14 údaje zo sheetu "data" zo stlpca 2. Lenže v sheetu data v stlpci 2 (stlpec B) mam uložené hodnoty ako text, ktorým sú 4 čísla. Urobil som to preto, aby sa mi zobrazovali aj nuly na začiatku, napr 0019 a neufikly sa nuly na začiatku, čo na sheetu data je, ale keď sa kopírujú informácie na Sheet1, kopírujú sa hodnoty a tie dve nuly na začiatku sa ufiknú a zkopíruje sa mi 19 miesto OO19.
Moc nepomože, ani keď dám do kódu .text miesto .value. Máte nápad ako to poriešit?
díkycitovat
Tak aj cieľ naformátuj ako text.
1. metóda cyklus - netreba cieľ formátovať vopred ako text
2. metóda treba vopred cieľ formátovať ako text, pri množstve hodnôt je rýchlejšia, ako prístup po jednom.
1. metóda cyklus - netreba cieľ formátovať vopred ako text
2. metóda treba vopred cieľ formátovať ako text, pri množstve hodnôt je rýchlejšia, ako prístup po jednom.
Příloha: 24407_cisloakotextcopy.rar (15kB, staženo 35x)
citovat24407_cisloakotextcopy.rar (15kB, staženo 35x)(5.4.2015 10:43)#024409
Pokud jsou v buňce 4 číslice a mají být vidět i nuly před číslem, tak to také řeší formát 0000
(4 nuly)
Tj. můžeš kopírovat celé buňky (buď po jedné nebo použít metodu range.copy) nebo jen obsah pomocí .value a samostatně zkopírovat nebo doplnit formát.citovat
(4 nuly)
Tj. můžeš kopírovat celé buňky (buď po jedné nebo použít metodu range.copy) nebo jen obsah pomocí .value a samostatně zkopírovat nebo doplnit formát.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články