- Katılım
- 27 Eylül 2016
- Mesajlar
- 60
- Excel Vers. ve Dili
- 2010 tr
- Altın Üyelik Bitiş Tarihi
- 12.05.2024
Arkadaşlar excel 2010 versiyonunda kullandığım kod sorunsuz çalışırken dosyayı flashla başka pc ye taşıyıp 2013 excelde açtığımda hata veriyor.
Sub Ortak_Dosya_Gönder()
Application.ScreenUpdating = False
If [B30].Value = "" Or [C30].Value = "" Then
MsgBox "Boş Alanları Doldurunuz."
ElseIf MsgBox("Dosya Gönderilecek. Emin misiniz?", vbYesNo + vbQuestion, "ONAY") = vbYes Then
ActiveWorkbook.Save
Application.DisplayAlerts = False
Dim ad1, ad2, ad3 As String
ad1 = Sheets("giriş").Range("C30")
ad2 = Sheets("VERİLER").Range("G16")
ad3 = Sheets("VERİLER").Range("G15")
ChDrive "Z"
ChDir "Z:\" & Range("B30")
ActiveWorkbook.saveas Filename:=(ad1) & "_" & (ad2)
Application.DisplayAlerts = True
Workbooks.Open (ad3) 'ESAS DOSYAYI AÇAR.
Sheets("giriş").Select
Range("A9").Select
Application.Wait (Now + TimeValue("00:00:02"))
Windows((ad1) & "_" & (ad2)).Activate
ActiveWorkbook.Close True
Windows(ad3).Activate (bu satırda hata veriyor.)
Sheets("giriş").Select
Range("A9").Select
End If
Application.ScreenUpdating = True
End Sub
Nasıl çözeriz. Tşk.
Sub Ortak_Dosya_Gönder()
Application.ScreenUpdating = False
If [B30].Value = "" Or [C30].Value = "" Then
MsgBox "Boş Alanları Doldurunuz."
ElseIf MsgBox("Dosya Gönderilecek. Emin misiniz?", vbYesNo + vbQuestion, "ONAY") = vbYes Then
ActiveWorkbook.Save
Application.DisplayAlerts = False
Dim ad1, ad2, ad3 As String
ad1 = Sheets("giriş").Range("C30")
ad2 = Sheets("VERİLER").Range("G16")
ad3 = Sheets("VERİLER").Range("G15")
ChDrive "Z"
ChDir "Z:\" & Range("B30")
ActiveWorkbook.saveas Filename:=(ad1) & "_" & (ad2)
Application.DisplayAlerts = True
Workbooks.Open (ad3) 'ESAS DOSYAYI AÇAR.
Sheets("giriş").Select
Range("A9").Select
Application.Wait (Now + TimeValue("00:00:02"))
Windows((ad1) & "_" & (ad2)).Activate
ActiveWorkbook.Close True
Windows(ad3).Activate (bu satırda hata veriyor.)
Sheets("giriş").Select
Range("A9").Select
End If
Application.ScreenUpdating = True
End Sub
Nasıl çözeriz. Tşk.