Grazie dodo47
Ho capito, appena fatto il codice lo sposto
Però 10 anni che lavoro col 2007, mi sembra che non mi sia mai successo.
Tranne INDIRETTO con file esterni, mà tutte queste formule lavorano sul medesimo file e non capisco il motivo.
OK, speravo più veloce. Devo controllare bene
Anche se per sicurezza ho fatto due passaggi in più
Text = Sh1.Cells(Y, X).Formula
Text = Mid(Text, 2, Len(Text))
Sh2.Cells(Y, X) = Text
Sh2.Cells(Y, X) = "=" & Text
Comunque Grazie
vb
Option Explicit
Sub CopiaFormule()
Dim W1 As Workbook, Sh1 As Worksheet, W2 As Workbook, Sh2 As Worksheet
Dim Text As String, FileS As String, R As Long, C As Long, X As Long, Y As Long
Set W1 = Workbooks("SM-45-B.xlsm")
Set Sh1 = W1.Sheets("Foglio0") 'deve esistere
FileS = Application.Dialogs(xlDialogOpen).Show
FileS = ActiveWorkbook.Name
Set W2 = Workbooks(FileS)
Set Sh2 = W2.Sheets("Foglio1") 'deve esistere
R = 1
C = 11
For Y = R To 200
For X = C To 21
If Mid(Sh1.Cells(Y, X).Formula, 1, 1) = "=" Then
Text = Sh1.Cells(Y, X).Formula
Text = Mid(Text, 2, Len(Text))
Sh2.Cells(Y, X) = Text
Sh2.Cells(Y, X) = "=" & Text
Else
Sh2.Cells(Y, X) = Sh1.Cells(Y, X)
End If
Next X
Next Y
Set W1 = Nothing
Set W2 = Nothing
Set Sh1 = Nothing
Set Sh2 = Nothing
MsgBox "Fatto"
End Sub
[Modificato da raffaele1953 08/02/2018 22:47]
Excel 2013