Yardım "run time error 9 subscript out of range" hatası veriyor

kadraj14gorkem · 20 Ocak 2022

a3 hücresine adsoyada göre kaydetmem lazım ama run time error 9 subscript out of range çıkıyor kodda bi yanlışlık yok gibi hallemedim bi türlü yardımcı olurmusunuz

Sub birlikte_excel()
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Environ("USERPROFILE") & "\Desktop\" & Sheets("Sayfa1").Range("A3").Value& ".xlsm"
.Close
End With
End Sub

elimdeki makroda böyle fakat hatalıdır.

fallenleaf · 20 Ocak 2022

Merhaba, kodları sizinki ile şu şekilde değiştirebilirsiniz. Masaüstü yolu doğru olduğu sürece çalışacaktır.

Kod:

Sub excel_birlikte()
Application.ScreenUpdating = False
Dim klasor As Object, kontrol As String, yol As String
Set klasor = CreateObject("Scripting.FileSystemObject")
baslik = Sheets("Sayfa1").Range("A3").Value
If baslik = Empty Then
    MsgBox "Ad Soyad bilgisi boş olamaz!, A3 hücresine adınızı ve soyadınızı yazınız.", vbExclamation, "Uyarı"
Exit Sub
End If
yol = Environ("USERPROFILE") & "\Desktop"
kontrol = klasor.FolderExists(yol)
If kontrol = True Then
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs yol & "\" & baslik & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        .Close
    End With
Else
    MsgBox yol & " klasörü bulunamadı!"
End If
Application.ScreenUpdating = True
End Sub

Yardım "run time error 9 subscript out of range" hatası veriyor

kadraj14gorkem

fallenleaf