Soru Dosya Birleştimede Hata

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Kod ile C:\Şahin\Mail\ klasörü içinde 20 adet aynı formattaki dosyayı açıp sayfaları birleştiriyorum, 6 dosya birleştikten sonra 7.dosyada aşağıdaki hatayı alıyorum. Nedeni nedir acaba bulamadım. Yardımcı olabilirseniz sevinirim.
Şimdiden Teşekkürler

say = Sheets("AH-TÜM-ŞUBELER").Range("A3").CurrentRegion.Rows.Count + 1 ' Bu satırda HATA ALIYORUM NEDEN ACABA




Sub Koli_Palet_Birleştir()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sPath As String
Dim adres As String
Dim adres1 As String
Dim ana As Sheets
Dim say As Integer
Dim say1 As Integer
Dim adr As String
Dim adr1 As String
adr = Replace(Sheets("AH-TÜM-ŞUBELER").Range("A3").CurrentRegion.Address, "$A$1", "$A$2")
Sheets("AH-TÜM-ŞUBELER").Range(adr).Clear
adr1 = Replace(Sheets("AH-TÜM-ŞUBELER PALET").Range("A3").CurrentRegion.Address, "$A$1", "$A$2")
Sheets("AH-TÜM-ŞUBELER PALET").Range(adr1).Clear
sPath = "C:\Şahin\Mail\"
Dim oFSO As Object
Dim oFolder As Object
Dim f As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
For Each f In oFolder.Files


say = Sheets("AH-TÜM-ŞUBELER").Range("A3").CurrentRegion.Rows.Count + 1 ' Bu satırda HATA ALIYORUM NEDEN ACABA

say1 = Sheets("AH-TÜM-ŞUBELER PALET").Range("A3").CurrentRegion.Rows.Count + 1
If Right(f.Name, 4) = "xlsb" And Left(f.Name, 1) <> "~" Then
Workbooks.Open Filename:=sPath & f.Name
adres = Replace(Sheets("data").Range("A3").CurrentRegion.Address, "$A$1", "$A$2")
adres1 = Replace(Sheets("palet").Range("A3").CurrentRegion.Address, "$A$1", "$A$2")
Sheets("data").Range(adres).Copy Workbooks(1).Sheets("AH-TÜM-ŞUBELER").Range("A" & say)
Sheets("Palet").Range(adres1).Copy Workbooks(1).Sheets("AH-TÜM-ŞUBELER PALET").Range("A" & say1)
Application.DisplayAlerts = False
Workbooks(2).Save
Workbooks(2).Close
End If
Next
Set f = Nothing
Set oFolder = Nothing
Set oFSO = Nothing



End Sub

 

[Muzaffer Ali]

Merhaba.
(Bir hata ile ilgili soru sorduğunuzda nasıl bir hata aldığınızı da söylemelisiniz.)

Hata aldığınız satırı silip yerine aşağıdaki satırı kopyalayarak deneyin.

say = Sheets("AH-TÜM-ŞUBELER").cells(rows.count,"A").end(xlup).row + 1

 

[bulentkars]

Merhaba Muzaffer Ali Bey

Dim say As Integer
Dim say1 As Integer

Long olarak düzelttik. Oldu teşekkürler.