Ay açma işlemi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Ay açma işlemi (/konu-ay-acma-islemi.html) |
Ay açma işlemi - deasn - 21/01/2012 Ekte sunduğum tabloda otomatik ay açma işlemi yapmak istiyorum.. Daha önce farkli tabloda sizlerden yardım almıştım.. Private a As Integer, b As Integer, d As Integer Sub yeniay() Dim tarih As Date, i As Integer, isim As String a = InputBox("Lütfen Yeni Ay Tanımlayınız", "zirvem gıda", Month(Date) + 1) b = Sheets.Count isim = "zirvem gıda" If a = 0 Then GoTo 10 Sheets(10).Copy before:=Sheets(3) ActiveSheet.Name = "Şablon" Union(Range("j1:m1"), Range("j23:m23"), Range("b45:m49")).ClearContents Application.DisplayAlerts = False For i = b To 1 Step -1 If IsNumeric(Left(Sheets(i).Name, 1)) Then Sheets(i).Delete End If Next i d = CInt(Left(DateSerial(Year(Date), a + 1, "01") - 1, 2)) tarih = DateSerial(Year(Date), a, "01") tarih1 = Format(tarih, "dd.mm.yyyy") Union(Range("j1:m1"), Range("j12:m12"), Range("j23:m23"), Range("b45:m49")).ClearContents For i = 1 To d Sheets("Şablon").Copy before:=Sheets("Şablon") ActiveSheet.Name = CStr(tarih1) Union(Range("j1:m1"), Range("j12:m12"), Range("j23:m23")).Value = tarih Range("b49").Value = isim tarih = tarih + 1 tarih1 = Format(tarih, "dd.mm.yyyy") Next i 10 Sheets("Şablon").Delete On Local Error Resume Next Sheets("toplam").Range("d1").Value = _ DateSerial(Year(Date), a, "01") & "-" & DateSerial(Year(Date), a, d) & " " & Replace(UCase(Format(DateSerial(Year(Date), a, "01"), "mmmm")), "i", "İ") & " " & "AYI SATIŞ RAPORLARI" If Err.Number = 1004 Then MsgBox "Sayfanız korumalı olduğundan " & vbLf & _ "Toplam sayfasındaki tarih bilgisi değiştirilememiştir.", _ vbInformation, "zirvem gıda" End If Sheets("Toplam").Activate MsgBox "Yeni Ay Açma İşlemi Tamamlandı", vbInformation, isim Application.DisplayAlerts = True: isim = vbNullString tarih = Empty: i = Empty: a = Empty: b = Empty: d = Empty End Sub Cvp: Ay açma işlemi - DUAYEN - 21/01/2012 Konuyu biraz daha açarmısınız ne yapmak istediğinizi tam anlamadım sayfa olarakmı açacaksınız nasıl yapacaksınız.? Cvp: Ay açma işlemi - DUAYEN - 23/01/2012 Konu ile geri dönüş yapınız lütfen. Cvp: Ay açma işlemi - deasn - 24/01/2012 yapmak istediğim otomatik ay açma işlemi ekteki dosyayı makrolarla 31 günlük yada 30 günlük neyse tablodaki verileri sıfırlayarak yeni bir ay açmak istiyorum.Tabloyu her ay kullandığımız için tek tek düzeltmek zor oluyor her ay Cvp: Ay açma işlemi - simendifer - 24/01/2012 projenziindiri inceledim excelde yapmışsınz nacizane size tavsiyem Access te yaparsanız daha verimli olur excelde çok zorlanırsınız Cvp: Ay açma işlemi - DUAYEN - 24/01/2012 Uzun süre dönmediniz o yüzden geç oldu şu kodu denermısiniz Kod:
Sub AyEkle() |