buton yardımıyla farklı kaydetme

[imdatsaral]

selam arkadaşlar

Sub SARAL1()
Dim bak As Range
For Each bak In Worksheets("giris").Range("f11:f15")
If bak.Value = "" Then
MsgBox bak.Offset(0, -1).Value & "*** Lütfen Boş Alan Bırakmayınız.***", , " İmSA"
Exit Sub
End If

Next bak
Sheets("MENÜ").Select
End Sub

Nex bak satırından sonra farklı kaydet yapmasını istiyorum kayıt yapıldıktan sonra " menü" sayfasına geçsin

teşekkürler

 

[xxrt]

http://www.excel.web.tr/viewtopic.php?p=3899&highlight= :?:

Sub Farklı_kaydet()
On Error Resume Next
MkDir (Cells(1, 1))
Cells(1, 2).Value = 1 + Cells(1, 2).Value
ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\" & Cells(1, 1) & "\" & Cells(1, 2) & ".xls"
Sheets("Menü").Select
End Sub

Buradaki
Cells(1, 1)= A1 Hücresine tarih olarak = Bügun() Formülünü girin siz istediğiniz bir hücrede belirleyebilirsiniz.
Cells(1,2) Hücresi ise numaratör görevini yapıyor.

 

[imdatsaral]

yardımlarınız için teşekkür ederim