Farklı adla klasör aç ve kayıt et

[gulevurgun]

Siparişle ilgili çalışmam için yardımınıza ihtiyacım var.Gerekli açıklama dosya içinde mevcut.Farklı adla klasör açıp içine dosyayı kayıt etmel istiyorum.

 

[Korhan Ayhan]

Selamlar,

Sağ tuşun çalışması için dosya açılışındaki kodu aşağıdaki şekilde değiştirin.

Private Sub Workbook_Open()
    Dim cb As CommandBar
    Application.DisplayFormulaBar = False
    For Each cb In Application.CommandBars
    cb.Enabled = False
    Next cb
    [COLOR=red]Application.CommandBars("Cell").Enabled = True[/COLOR]
    With ActiveWindow
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
    End With
End Sub

Dosyanızı arşivlemek içinde aşağıdaki kodu kullanabilirsiniz.

Sub ARŞİVLE()
    On Error Resume Next
    Dim FSO As Object
    Dim Ana_Klasör, Dosya_Adı, Alt_Klasör_1 As String
 
    Ana_Klasör = "C:\ARŞİV"
    Alt_Klasör_1 = Ana_Klasör & "\" & Format(Date, "dd mm yyyy")
    Dosya_Adı = [B39] & " " & Format(Date, "dd mm yyyy") & ".xls"
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    If Not FSO.FolderExists(Ana_Klasör) Then
    FSO.CreateFolder (Ana_Klasör)
    End If
 
    If Not FSO.FolderExists(Alt_Klasör_1) Then
    FSO.CreateFolder (Alt_Klasör_1)
    End If
 
    ActiveWorkbook.SaveCopyAs Filename:=Alt_Klasör_1 & Application.PathSeparator & Dosya_Adı
 
    Set FSO = Nothing
 
    MsgBox "Dosyanız arşivlenmiştir.", vbInformation
End Sub

Ayrıca toplam sipariş sayısı için neredeki veri sayılacak bu kısmı açıklamamışsınız. Açıklarsanız yardımcı olmaya çalışırız.

 

[gulevurgun]

Sipariş sayısı için yeni butonuna bastıkça ve çıkış butonuna bastıkça sayı artacak.Yeni butonu o siparişi gönderip boş bir ekran getiriyor
Çıkışta bütün işlemleri yapıyor yeni gibi sadece farklı olarak dosyayı kapatıyor

Ben gönderilen siparişin sayılmasın istiyorum

Günde ne kadar sipariş çekmişim

ve birde toplamda ne kadar sipariş çekmişim onların olmasını istiyorum.

Verdiğiniz kodlar için teşekkür ederim.bu istediklerimde olursa çok daha iyi olacaktır.Şimdiden teşekkür ederim.

 

[gulevurgun]

yardımlarınızı bekliyorum