[Krzysiek]

Już raz o tym pisałem w wątku o fakturze. Kopiuję jeden z arkuszy skoroszytu jako oddzielny skoroszyt (plik) makrem:

Kod:

Sheets("Pomiary").Activate ActiveSheet.Copy     ActiveSheet.UsedRange.Formula = ActiveSheet.UsedRange.Value     With ActiveWorkbook         .SaveAs Filename:="D:\Krzysiek" & Filename        .Close ' - jeżeli chcesz natychmiast zamknąć     End With

W skopiowanym tak arkuszu w komórkach są tylko wartości, nie ma formuł. Nic potem nie można zmienić. Poza tym mam w oryginale w niektórych komórkach nazwy wielkości z alfabety greckiego. Po skopiowaniu są krzaki w tych miejscach. Czy można jakoś zaradzić?

[Trebor]

Usuń linię

Kod:

ActiveSheet.UsedRange.Formula = ActiveSheet.UsedRange.Value

Jednak pozostawienie formuł, które odwołują się do innych arkuszy może być niepożądane.

Pozdrawiam

[Krzysiek]

Teraz kopiuje razem z formułami i literami z alfabetu greckiego. Problem pozostałych po skopiowaniu łączy kopiowanego arkusza z innymi arkuszami rozwiązał Tajan w działe: Jak to zrobić, w wątku: uporczywy komunikat. Polecam to rozwiązanie.
____________
Dziękuję i pozdrawiam!

[Trebor]

Tylko to tochę pod górkę. Jeśli wiesz gdzie są łącza zewnętrzne to można je zamienić na wartości od razu. Np gdy formuły do zamiany są w komórkach I1:I2 to

Kod:

Range("I1:I2") = Range("I1:I2").Value

załatwi poblem niechcianych łącz.
Pozdrawiam