herkese iyi geceler,
3 adet dosyamız var. a ve c dosyalarındaki sayfalardan a1:h1 arasındaki değerleri b dosyası içerisindeki deneme sayfasına almak istiyorum.
a dosyasıdaki değerler deneme sayfasında f6 dan başlıyor.
c dosyasındaki değerlerde f21 den başlıyor.
sayfalar içerisindeki veriler rakam veya metin ise sorun yok.
ama formül varsa bu değerleri almıyor.
kullandığım kod aşağıda hatayı bulamadım
Sub a_Dosyasini_Aktar()
Sheets("deneme").Select
[a1:m65536].ClearContents
For Sht = 1 To Workbooks("A").Worksheets.Count
Windows("A.xls").Activate
[A1:h1].Value = [A1:h1].Value
Sheets(Sht).Range("A1:H1").Copy
Windows("b.xls").Activate
Worksheets("deneme").Select
If Range("F6").Value = Empty Then
Range("F6").PasteSpecial
Else
Worksheets("deneme").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next
Application.CutCopyMode = False
For Sht = 1 To Workbooks("c").Worksheets.Count
Windows("c.xls").Activate
[A1:h1].Value = [A1:h1].Value
Sheets(Sht).Range("A1:H1").Copy
Windows("b.xls").Activate
Worksheets("deneme").Select
If Range("F21").Value = Empty Then
Range("F21").PasteSpecial
Else
Worksheets("deneme").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
3 adet dosyamız var. a ve c dosyalarındaki sayfalardan a1:h1 arasındaki değerleri b dosyası içerisindeki deneme sayfasına almak istiyorum.
a dosyasıdaki değerler deneme sayfasında f6 dan başlıyor.
c dosyasındaki değerlerde f21 den başlıyor.
sayfalar içerisindeki veriler rakam veya metin ise sorun yok.
ama formül varsa bu değerleri almıyor.
kullandığım kod aşağıda hatayı bulamadım
Sub a_Dosyasini_Aktar()
Sheets("deneme").Select
[a1:m65536].ClearContents
For Sht = 1 To Workbooks("A").Worksheets.Count
Windows("A.xls").Activate
[A1:h1].Value = [A1:h1].Value
Sheets(Sht).Range("A1:H1").Copy
Windows("b.xls").Activate
Worksheets("deneme").Select
If Range("F6").Value = Empty Then
Range("F6").PasteSpecial
Else
Worksheets("deneme").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next
Application.CutCopyMode = False
For Sht = 1 To Workbooks("c").Worksheets.Count
Windows("c.xls").Activate
[A1:h1].Value = [A1:h1].Value
Sheets(Sht).Range("A1:H1").Copy
Windows("b.xls").Activate
Worksheets("deneme").Select
If Range("F21").Value = Empty Then
Range("F21").PasteSpecial
Else
Worksheets("deneme").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub