DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Calendar1_Click()
deg = Format(Calendar1, "dd.mm.yy")
Sheets(deg).Select
End Sub
Sheets(i).Name = Cells(i, 1).Value
Sheets(i).Name = format(cdate(Cells(i, 1).Value),"dd.mm.yy")