Merhaba Arkadaşlar,
Günlük satış raporu adlı bir dosyam var. Dosyayı günlük olarak farklı kaydet ile yeniliyor ve raporluyorum.
Bu çalışmaya forumdan kod derlemesi yaparak güzel bir kod oluşturdum. Çalıştırdığınızda inputbox kutusuna otomatik olarak bir gün öncesinin tarihi seçili geliyor. Genelde bir gün öncesinin raporu sunulduğundan direk tamam dediğinizde o tarihli isimle yeni bir rapor oluşturuluyor.(farklı kaydet ile) Ayrıca mevcut içerik te silinip tarih hücresindeki tarih bilgisi de inputbox'ta görünen tarih ile değiştiriliyor. Farklı bir tarihe ayarlanacaksa da inputbox'ta seçili gelen tarihte oynama yaparak düzeltebiliyoruz zaten. İşlem sonrası farklı kaydolmuş dosya üzerinde çalışmaya devam ediyorum.
Sorunum ise şöyle;
Raporladığım makrolu dosyanın makrolarıyla birlikte gitmesini/.xlsm makro uzantılı olarak gitmesini istemiyorum. Bu sorun oluyor, bu yüzden kodları PERSONAL WORKBOOK'a kaydedip raporlama tablosundayken çalıştırmak istedim. Genel olarak diğer makrolarda sorun çıkmazken burada ilginç biçimde Rapor tablosu Personal Workbook konumundaymış gibi Personal Workbook dizinine hem de makrolu olarak kaydoluyor.
Bu durumu nasıl düzeltebiliriz?
Kullandığım kodlar aşağıda ve ekte de dosya bulunmaktadır.
iyi çalışmalar dilerim.
Günlük satış raporu adlı bir dosyam var. Dosyayı günlük olarak farklı kaydet ile yeniliyor ve raporluyorum.
Bu çalışmaya forumdan kod derlemesi yaparak güzel bir kod oluşturdum. Çalıştırdığınızda inputbox kutusuna otomatik olarak bir gün öncesinin tarihi seçili geliyor. Genelde bir gün öncesinin raporu sunulduğundan direk tamam dediğinizde o tarihli isimle yeni bir rapor oluşturuluyor.(farklı kaydet ile) Ayrıca mevcut içerik te silinip tarih hücresindeki tarih bilgisi de inputbox'ta görünen tarih ile değiştiriliyor. Farklı bir tarihe ayarlanacaksa da inputbox'ta seçili gelen tarihte oynama yaparak düzeltebiliyoruz zaten. İşlem sonrası farklı kaydolmuş dosya üzerinde çalışmaya devam ediyorum.
Sorunum ise şöyle;
Raporladığım makrolu dosyanın makrolarıyla birlikte gitmesini/.xlsm makro uzantılı olarak gitmesini istemiyorum. Bu sorun oluyor, bu yüzden kodları PERSONAL WORKBOOK'a kaydedip raporlama tablosundayken çalıştırmak istedim. Genel olarak diğer makrolarda sorun çıkmazken burada ilginç biçimde Rapor tablosu Personal Workbook konumundaymış gibi Personal Workbook dizinine hem de makrolu olarak kaydoluyor.
Bu durumu nasıl düzeltebiliriz?
Kullandığım kodlar aşağıda ve ekte de dosya bulunmaktadır.
iyi çalışmalar dilerim.
Kod:
Sub SatısTablosufarklıKaytet()
Dim noktalitarih As Date 'Tablo tarihinin bulunduğu hücrenin formatının tarih şeklinde oluşmasını sağlamak için
tarih = InputBox("Satış raporu hangi gün için oluşturulacak", "Yeni Rapor Tarihi", Format(Now() - 1, "dd mm yyyy "))
Dosya_Adi = tarih + "SATIŞ RAPORU"
If Dosya_Adi = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")
uzanti = "." & fL.GetExtensionName(ThisWorkbook.FullName)
If uzanti = ".xls" Then
FileFormatNum = -4143
ElseIf uzanti = ".xlsm" Then
FileFormatNum = 52
ElseIf uzanti = ".xlsx" Then
FileFormatNum = 51
ElseIf uzanti = ".xlsb" Then
FileFormatNum = 50
Else
FileFormatNum = 56
End If
ActiveSheet.[B6:L24].Value = ""
ActiveSheet.[G3].Value = ""
noktalitarih = Format(tarih, "dd.mm.yyyy")
ActiveSheet.[B3].Value = noktalitarih
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Dosya_Adi & uzanti, FileFormat:=FileFormatNum
MsgBox "işlem tamam!" & vbNewLine & "Bu çalışma tablosu üzerinde devam edebilirsiniz.", vbInformation
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub