Soru Dosya Birleştimede Hata

bulentkars

Altın Üye
Katılım
5 Ağustos 2005
Mesajlar
671
Excel Vers. ve Dili
2003 TR
Altın Üyelik Bitiş Tarihi
23-03-2027
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
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.
Kod:
say = Sheets("AH-TÜM-ŞUBELER").cells(rows.count,"A").end(xlup).row + 1
 

bulentkars

Altın Üye
Katılım
5 Ağustos 2005
Mesajlar
671
Excel Vers. ve Dili
2003 TR
Altın Üyelik Bitiş Tarihi
23-03-2027
Merhaba Muzaffer Ali Bey

Dim say As Integer
Dim say1 As Integer

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