Tak si zálohujte data na internetové uložiště. (např. OneDrive, Google Disk, ...)
To je tím, že tam máš samý Select
nahraď toto:
Sub Clear()
Sheets("1").Select
Range("A1:B5").Select
Selection.ClearContents
Sheets("2").Select
Range("A1:B5").Select
Selection.ClearContents
Sheets("3").Select
Range("A1:B5").Select
Selection.ClearContents
End Sub
tímto:
Sub Clear()
Sheets("1").Range("A1:B5").ClearContents
Sheets("2").Range("A1:B5").ClearContents
Sheets("3").Range("A1:B5").ClearContents
End Sub
Moc nechápu, bylo by lepší dát přílohu. Nicméně tady máte něco pro inspiraci.
Napadá mě toto.
Myslím, že v tomto případě bude lepší použít vzorec.
=DOSADIT(Bitcoin!B6;".";",")
Koukal jsem ještě, že těch propojených buněk máte víc. Nebylo by lepší ty data kopírovat makrem?
Pokud jsem to pochopil správně, tak třeba takto.
Pokud máš přílohu .xlsm, musíš ji zazipovat.
Akorát jsem se chtěl zeptat. Rozložení listů je pořád stejné nebo se mění počet řádků a sloupců?
nevím jestli Vám to bude takhle vyhovovat, ale jednoduše by se to dalo udělat takto.
Příloha?
Po stisknutí tlačítka nahradit to stále nefunguje?
Mě to frčí.
Já makra moc nedělám, takže by to šlo udělat i líp. Nicméně toto je funkční a pokud to pomůže není co řešit.
Začal bych tím, že jako oddělovač desetinných míst máš tečku.
excel to bere jako text
Třeba?
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.