Ay açma işlemi
Tarih
21/01/2012 10:40
Konu Sahibi
deasn
Yorumlar
5
Okunma
1586
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



deasn
Üye
Kullanici Avatari
Üye
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]

Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çö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...
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çö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...
Cevapla


deasn
Üye
Kullanici Avatari
Üye
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
Cevapla


simendifer

Kullanici Avatari
Onursal
E.... Ç....
869
30/10/2008
319
Çankırı
Ofis 2010 32 Bit
Bugün,10:55
Çözüldü 
projenziindiri inceledim excelde yapmışsınz nacizane size tavsiyem Access te yaparsanız daha verimli olur excelde çok zorlanırsınız
İŞTE HAYAT DENEN ŞEY BU KADAR KISADIR.. 
Doğumda, EZAN Okunur, NAMAZ Kılınmaz  ÖLÜMDE,NAMAZ Kılınır EZAN Okunmaz.
Doğumda okunan EZAN, Ölümde Kılınacak NAMAZ İçindir 
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çö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...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü excelde her sayfaya ayrı ambar açma axtmm 7 2.572 25/11/2013, 08:50 ZingZong707
Çözüldü KÖPRÜ İLE KLASÖR AÇMA tamyoltornistan 6 2.408 02/09/2013, 20:58 tamyoltornistan
Çözüldü formda pdf belge açma HAYRİ AKIN 14 6.101 18/04/2012, 14:37 tan


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya