Stok devri ve yeni dönem açmak istiyorum.

[s.savas]

Merhaba arkadaşlar.

Tarih 01.01.2012 olduğu zaman, Aralık sayfasındaki B:E ve AP sütunundaki verileri Ocak Ayına aynı şekilde B:E ve AP sütunlarına değer olarak kopyalayacak,sonra bütün sayfaların F:AM sütunlarındaki verileri silip yeni bir çalışma belgesi üretilmesi için yardımlarınızı rica ediyorum.

 

[s.savas]

Arkadaşlar sn.Halit hocaya ait aşağıdaki kod ile sayfaya yeni isim vererek farklı kaydet yapıyorum.

Sub Dönem_Oluştur()
AD = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4)
deger = InputBox("UYARI!" & Chr(10) & _
Chr(10) & "  Yeni Dosyanın adını yazınız " & Chr(10) & Chr(10) & _
"", _
"DİKKAT !", AD, , , "DEMO.HLP", 10)
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dosya = ThisWorkbook.FullName
kayıt_yeri = Mid(Dosya, 1, Len(Dosya) - Len(ThisWorkbook.Name)) & deger & ".xls"
On Error Resume Next
If deger <> "" Then
DosyaSistemi.CopyFile Dosya, kayıt_yeri
Else
MsgBox "Dosya Adı Yazılı Değil Veya İptal Ettiniz"
End If
End Sub

Bu koda diğer taleplerin eklenmesi ile çalışma tamamlanmış olacak.