< návrat zpět
MS Excel
Téma: přenos formatu bunky 
Zaslal/a George007 27.11.2020 8:10
Dobrý den,
potřebuji mezi různými bunkami v listu přenést formát
ALE POUZE "sloučení buněk". např tři řádky (v prvním sloupci) budou sloučeny do jedné buňky, další dva sloupce zůstanou beze zmeny a 4+5 sloupec bude zase sloučený.
Podmíněné formátování, číselné (měna, datum,...), obarvení musí zůstat nezměněno.
Dá se to vůbec (Ctrl+c -> CTRL+V, "metličkou", ...)?
Jiří497(27.11.2020 8:56)#049027 
Podle mě to nejde.
Skutečně chcete 3 sloučené buňky zkopírovat do 2 sloučených buňek?
"..např. 3 řádky (v prvním sloupci) ... do 4+5.."
citovatLugr(27.11.2020 9:06)#049029 
Jiří497 napsal/a:
Podle mě to nejde.
Skutečně chcete 3 sloučené buňky zkopírovat do 2 sloučených buňek?
"..např. 3 řádky (v prvním sloupci) ... do 4+5.."
Podle mě myslí např. Range("B2:B4") sloučené vložit pouze formátování do Range("E2:E4").
možná něco takového:
Sheets("List1").Range("B2:B4").copy
Sheets("list1").Range("E2").PasteSpecial xlPasteFormats
citovatAnonym(27.11.2020 9:28)#049030 to lugr
ANO, ale "PasteFormats" přenese všechny formáty (číslo, tučné písmo, podbarvení...) já potřebuji JEN sloučit bunky.
citovat Anonym(27.11.2020 9:31)#049031 V podstatě 1. sloupec je "vzor" a idealně celý zkopírovat a "nějak vložit" do potřebných sloupců (aby se mi JEN sloučily buňky dle toho prvního).
citovatveny(27.11.2020 10:09)#049033 napadlo mě zkopírovat sloupec A, vložit, nastavit bez výplně, automatickou barvu písma a vymazat obsah.Makro jsem nahrál přes záznamník a kopíroval do sloupce G, takže by se to muselo upravit třeba na sloupec aktivní buňky (to už není pro mě
)
Sub Makro1()
Columns("A:A").Select
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.ClearContents
End SubcitovatGeorge007(27.11.2020 10:23)#049034 to Veny
"Podmíněné formátování, číselné (měna, datum,...), obarvení musí zůstat nezměněno."
makro "přemázne formát v těch sloupcích... Já ho tam potřebuji zachovat a JEN sloučit buňky.
citovat Rejpal(27.11.2020 11:01)#049035 Jen sloučit buňky.
Range("G5:I5").MergeCells = True
Co tak použit záznamník?
citovatveny(27.11.2020 11:10)#049036 George007 napsal/a:
makro "přemázne formát v těch sloupcích... Já ho tam potřebuji zachovat a JEN sloučit buňky.
já reagoval na
ANO, ale "PasteFormats" přenese všechny formáty (číslo, tučné písmo, podbarvení...) já potřebuji JEN sloučit bunky.
Takže omluva
citovatmarjankaj(27.11.2020 12:18)#049037 A toto ti nevyhovuje? Vyznač oblasť a spusti makro.
Sub Makro2()
Application.DisplayAlerts = False
With Selection
.MergeCells = True
End With
Application.DisplayAlerts = True
End SubcitovatGeorge007(2.12.2020 7:39)#049102 to marjankaj
Takhle to nepujde. Ve zkratce - 1. sloupec je "vzor", ze kterého potřebuji na ostatní (některé) sloupce přenést formatování - POUZE "SLOUČENÍ BUNĚK". IDEÁLNĚ NĚJAK RUČNĚ, NE MAKREM.
citovat
RSS nejnovější články