Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/01/2012 10:40
Konu Sahibi
deasn
Yorumlar
5
Okunma
1903
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

deasn

Üye
Üye
 33
2
1
21/01/2012
0
Bilecik
Ofis 2003
24/01/2012,08:53
Çözüldü 
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

Ek Dosyalar
1.AY OCAK 2012 TAHSİLAT VE KM TAKİP.rar
[100.57 KB]



Kullanici Avatari

DUAYEN

Aktif Üye
Aktif Üye
SÜ.... AR....
 35
1.026
13/08/2010
279
Yozgat
Ofis 2007
18/04/2018,17:46
Çözüldü 
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.?


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...

Kullanici Avatari

DUAYEN

Aktif Üye
Aktif Üye
SÜ.... AR....
 35
1.026
13/08/2010
279
Yozgat
Ofis 2007
18/04/2018,17:46
Çözüldü 
Konu ile geri dönüş yapınız lütfen.


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...

Kullanici Avatari

deasn

Üye
Üye
 33
2
1
21/01/2012
0
Bilecik
Ofis 2003
24/01/2012,08:53
Çözüldü 
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



Kullanici Avatari

simendifer

Onursal Üye
Onursal Üye
EK.... ÇE....
 60
928
30/10/2008
327
Çankırı
emekli
Ofis 2007
28/06/2018,16:37
Çözüldü 
projenziindiri inceledim excelde yapmışsınz nacizane size tavsiyem Access te yaparsanız daha verimli olur excelde çok zorlanırsınız



Kullanici Avatari

DUAYEN

Aktif Üye
Aktif Üye
SÜ.... AR....
 35
1.026
13/08/2010
279
Yozgat
Ofis 2007
18/04/2018,17:46
Çözüldü 
Uzun süre dönmediniz o yüzden geç oldu şu kodu denermısiniz

Kod:
1
2
3
4
5
6
7
8
Sub AyEkle()
Dim byt As Byte
ay = Application.InputBox("Hangi ay için çalışma sayfası açılacak?", "Ay rakam olarak yazılnmalıdır.", 5, , , , , 1)
yil = Application.InputBox("Hangi yıl için çalışma sayfası açılacak?", "Yıl rakam olarak yazılnmalıdır.", Year(Now), , , , , 1)
For byt = 1 To Day(CDate(("01." & ay + 1 & "." & yil)) - 1)
  Worksheets.Add(After:=Sheets(Sheets.Count)).Name = CDate(byt & "." & ay & "." & yil)
Next byt
End Sub

geri dönüş yaparsanız sevinirim.


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Aynı işlemi birden fazla hücrede tek seferde yapabilme gkozcan 7 785 22/04/2017, 20:03
Son Yorum: atoz112
Çözüldü Excel Toplama İşlemi 53rize 4 706 20/12/2016, 12:11
Son Yorum: 53rize
Çözüldü excelde her sayfaya ayrı ambar açma axtmm 7 3.236 25/11/2013, 08:50
Son Yorum: ZingZong707
Çözüldü KÖPRÜ İLE KLASÖR AÇMA tamyoltornistan 6 3.789 02/09/2013, 20:58
Son Yorum: tamyoltornistan
Çözüldü formda pdf belge açma HAYRİ AKIN 14 7.802 18/04/2012, 14:37
Son Yorum: tan

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.