Forum IDG.pl - miejsce dyskusji o IT: Kopiowanie wartości a nie formuł - Forum IDG.pl - miejsce dyskusji o IT

Witam,
nie moge poradzić sobie z jednym problemem moje makro importuje dane z wielu plików .xls do jednego zbiorczego, jednak w niektórych komórkach z których pobiera dane znajdują się formuły czy istnieje możliwość aby makro kopiowało już wyliczoną wartość zamiast formuł ??

Oto fragment kodu:

Sub Kopiowanie()
'
' Kopiowanie Makro
' Makro zarejestrowane 2006-12-28, autor Lewandowski
'
' Klawisz skrótu: Ctrl+e
'2004_2003 _ RZS _POR_

Dim sciezka As String
Dim plik As String
Dim i As Long

sciezka = "C:\Documents and Settings\Lewandowski\Pulpit\z kreską\"
plik = Dir(sciezka & "*.xls")
i = 1
Application.ScreenUpdating = False
Do While Not plik = ""
If LCase(ThisWorkbook.Name & ".xls") <> LCase(plik) Then
Workbooks.Open (sciezka & plik)
Sheets("Dane rejestrowe").Range("C28").Copy
Windows("ImportBIL").Activate
Cells(i, "A").PasteSpecial

Windows("ImportBIL").ActivateNext
Sheets("Dane rejestrowe").Range("C10").Copy
Windows("ImportBIL").Activate
Cells(i, "B").PasteSpecial

Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H4").Copy
Windows("ImportBIL").Activate
Cells(i, "C").PasteSpecial

Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H5").Copy
Windows("ImportBIL").Activate
Cells(i, "D").PasteSpecial

Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H10").Copy
Windows("ImportBIL").Activate
Cells(i, "G").PasteSpecial
Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H11").Copy
Windows("ImportBIL").Activate
Cells(i, "H").PasteSpecial
Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H12").Copy
Windows("ImportBIL").Activate
Cells(i, "I").PasteSpecial
Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H13").Copy
Windows("ImportBIL").Activate
Cells(i, "J").PasteSpecial
Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H15").Copy
Windows("ImportBIL").Activate
Cells(i, "L").PasteSpecial
Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H16").Copy
Windows("ImportBIL").Activate
Cells(i, "M").PasteSpecial
Windows("ImportBIL").ActivateNext
Sheets("2006|2005 - BIL").Range("H17").Copy
Windows("ImportBIL").Activate
Cells(i, "N").PasteSpecial

Workbooks(plik).Close False
i = i + 1
End If
plik = Dir
Loop
Application.ScreenUpdating = True
End Sub

Hej.
Spróbuj w metodzie PasteSpecial użyć parametrów np.

.PasteSpecial Paste:=xlPasteValues

pzdr

Wielkie dzięki pomogło
Pozdrawiam i jeszcze raz dziekuję