Dim yk As Workbook HATA VERİYOR.

[SAGULNET]

Bir kod buldum ama yk diye birşey var anlamadım.. bu kodlar ne işe yarar, düzeltilebilirmi ? bir bakabilirmisiniz

Sub sagulnet()
Dim ad1 As String
Dim ad2 As String
Dim Dosyaadi As String
Dim yk As Workbook

Set yk = Workbooks.Add
ThisWorkbook.Activate
Range("BH1:BH1000").Copy yk.Sheets(1).Range("A1")
ad1 = Range("BH1001") & Range("BH1002") & ".txt"
If Dir(ad1) = "" Then
    yk.SaveAs ad1, xlText
    MsgBox "Dosyanız, " & Range("BH1001") & " klasörüne, " & Range("BH1002") & " adıyla kaydedildi.", vbInformation, "K A Y I T"
Else
    ad2 = Range("BH1002") & Int(Rnd(9) * 10)
    yk.SaveAs Range("BH1001") & ad2 & ".txt", xlText
    MsgBox "Dosyanız, " & Range("BH1001") & " klasörüne, " & ad2 & " adıyla kaydedildi.", vbInformation, "K A Y I T"
End If
yk.Close False
End Sub

 

[hımmmmmmmm]

slm

office 2010da hata vermiyor .
sende hata veriyorsa silmende sakınca yok..

satır yk nın bir çalışma sayfası olduğunu baştan belirtiyor..
ilerki satırlarda yk dan yeni bir çalışma kitabı yaratılıyor...
yk belirtilmedende komut çalışma sayfası yaratabilir...