Myslím, že to co chcete není úplně šťastné řešení. Nicméně bohužel nevím jak Vám pomoci.
Pokud potřebujete síťovou složku do které bude mít přístup více osob, řešil bych to více diskovým NAS a nastavte si automatické klonování disků. tak budete mít nepřetržitou zálohu, kdyby se náhodou disk porouchal. Já mám dobrou zkušenost se Synology. Jednoduchý a na internetu spousta návodů na nastavení.
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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.