Günlük İş Planı-

[latimera]

Merhaba büyüklerim

Hazırlamış olduğumuz excelde günlük iş planı, müşteri cari takibi ve ürün takibi yapmak istiyorum.

soru1: Günlük sayfamı yarınki güne nasıl boş olarak aktarabilirim.
soru2: Aylık satış günü satışı satışı.
soru3: Aylık olarak Satılanınma adetlerini nasıl yapabilirsiniz.

Bu konuda yardımcı olursanız sevinirim.

 

[latimera]

Yardımcı olacak veya fikir verecek varmı ?

 

[çıtır]

Çalışma kitap kodu olarak kopyalayınız.
Günlük Plan sayfasını boş tutunuz.Açılışta Günlük Planınızın boş bir kopyasını günün tarihiyle oluşturur.Verilerinizi günlük olarak kayıt ediniz.Günlük plan sayfasını gizler.Diğer istekleriniz konusunu tam anlayamadım.Örnekle açıklarsanız yardım almanız daha kolay olur.

Private Sub Workbook_Open()
Dim syf As Worksheet
Dim i As Integer
Set syf = Sheets("Günlük Plan")
sayfa_ismi = Format(Date, "dd.mm.yyyy")
Sheets(Sheets.Count).Activate
For i = 1 To Sheets.Count
    If Sheets(i).Name = sayfa_ismi Then
      Exit Sub
    End If
Next i
syf.Visible = xlSheetVisible
syf.Select
syf.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = sayfa_ismi
ActiveSheet.Range("F3") = sayfa_ismi
syf.Visible = xlSheetHidden
End Sub

 

[YUSUF44]

Yeni sayfa oluşturmayı aşağıdaki kodlarla yapabilirsiniz. Kodları bir modüle kopyalayıp deneyin:

Sub yenigünemerhaba()
    tarih = ActiveSheet.[G3]
    bugün = WorksheetFunction.Text(tarih + 1, "dd.mm.yyyy")
    sayfa = "var"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = bugün Then
            MsgBox bugün & " adlı sayfa dosyada mevcuttur!.", vbCritical
            Exit Sub
        Else
            sayfa = "yok"
        End If
    Next
        If sayfa = "yok" Then
            ActiveSheet.Copy after:=ActiveSheet
            ActiveSheet.Name = bugün
            ActiveSheet.[C5:G14].ClearContents
            ActiveSheet.[C5].Select
            ActiveSheet.[G3] = tarih + 1
        End If
End Sub

Yalnız örnek dosyanızda 05/11 ile 06/11 sayfası birbirinden farklı yapıda, 6/11'de fazladan bir sütun var. Ben kodları 6/11 sayfasına göre hazırladım. Makroyu o sayfada çalıştırmalısınız.

Diğer isteklerinizi anlamadım maalesef. Dosyanızdaki hangi verilerden yararlanıp nasıl bir sonuç elde etmek istediğinizi örneklerle açıklarsanız daha iyi olur.

 

[exexciho]

Teşekkürler bilgiler için.