Nemusíš se rozčilovat, nemyslel jsem to zle. Ale informaci o zamčeném souboru jsem napsal v zadání. Konkrétně "Druhý soubor je uzamčen"....citovat
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: Kopírování hodnoty do sloučených buněk
MS Excel
Téma: Kopírování hodnoty do sloučených buněk 
Zaslal/a 3.3.2016 14:59
Zdravím,
prosím o radu jakým způsobem zkopírovat hodnoty z více buněk jednoho souboru do sloučených dvojbuněk druhého souboru. Druhý soubor je uzamčen, jedna ze sloučených buněk na každém řádku je odemčená pro vložení hodnoty. Buňky jsou na stejných řádcích v obou souborech.
Předem moc děkuji za rady.
Strana: « předchozí 1
2
Ja písanému textu rozumiem a info o tom, že je súbor zamknutý, som zachytil. Preto nejde zrušiť prepojenia. Nenapísal si ale, že súbor odomknúť nedokážeš.citovat
No, to je právě ten problém. Mám za úkol ocenit rozpočet pro VZ. Ten je zaheslovaný, je tam spousta položek. Mám stejný nezaheslovaný rozpočet, lišící se pouze těmi sloučenými buňkami, které jsou v zaheslovaném souboru a do těch musím přenést hodnoty.citovat
Na odstránenie externých linkov si v takom prípade asi budeš musieť napísať makro, ktoré v cykle prejde všetky bunky a vyhodnotí, či sa v nich nachádza externý link. Napr. takto, ale moc som to netestoval (odstráni externé linky z nezamknutých buniek, ale pozor, pokiaľ sa link nachádza vo vzorci, celý vzorec nemilosrdne zmaže a nahradí ho hodnotou). Na to, čo potrebuješ, je to asi funkčné, ale prílohu si sem zatiaľ nedal, takže je otázka, či to bude vyhovovať a nenapácha to viac škôd, než úžitku. Sub RemoveExternalLinks()
Dim sh As Worksheet, myRng As Range, cell As Range, mySh As Worksheet
For Each sh In ActiveWorkbook.Sheets
Set myRng = ActiveSheet.UsedRange
For Each cell In myRng
If InStr(cell.Formula, "!") > 0 And cell.Locked = False Then cell.Value = cell
Next cell
Set myRng = Nothing
Next sh
End SubPokiaľ ale vkladáš tie linky podľa návodu od eLCHy, tak po tom, čo dáš ten ctrl+enter, spusti nasledújúci kód, ktorý odstráni linky len vo vybranej oblasti:Sub RemoveExternalLinksInSelection()
Dim cell As Range
For Each cell In Selection
If InStr(cell.Formula, "!") > 0 Then cell.Value = cell
Next cell
End Sub Ďalej sa snaž sám.citovat
Dim sh As Worksheet, myRng As Range, cell As Range, mySh As Worksheet
For Each sh In ActiveWorkbook.Sheets
Set myRng = ActiveSheet.UsedRange
For Each cell In myRng
If InStr(cell.Formula, "!") > 0 And cell.Locked = False Then cell.Value = cell
Next cell
Set myRng = Nothing
Next sh
End SubPokiaľ ale vkladáš tie linky podľa návodu od eLCHy, tak po tom, čo dáš ten ctrl+enter, spusti nasledújúci kód, ktorý odstráni linky len vo vybranej oblasti:Sub RemoveExternalLinksInSelection()
Dim cell As Range
For Each cell In Selection
If InStr(cell.Formula, "!") > 0 Then cell.Value = cell
Next cell
End Sub Ďalej sa snaž sám.citovat
Já velice moc děkuji za rady a tvůj čas. Vyzkouším to a dám vědět. Hezký den všem.citovat
Můj velký dík patří uživatelům eLCHa a ALovi.
Pro moje potřeby skvěle funguje druhý kód od ALa poté, co si připravím řádky dle eLCHa. Přeji všem krásný den.citovat
Pro moje potřeby skvěle funguje druhý kód od ALa poté, co si připravím řádky dle eLCHa. Přeji všem krásný den.citovat
Strana: « předchozí 1
2
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