Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/01/2012 10:40
Konu Sahibi
deasn
Yorumlar
5
Okunma
1831
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
16/03/2017,17:22
Çö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
16/03/2017,17:22
Çö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
Altın Üye
E.... Ç....
892
30/10/2008
324
Çankırı
emekli
Ofis 2007
Dün,22:22
Çözüldü 
projenziindiri inceledim excelde yapmışsınz nacizane size tavsiyem Access te yaparsanız daha verimli olur excelde çok zorlanırsınız


Cevapla

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çö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ü Aynı işlemi birden fazla hücrede tek seferde yapabilme gkozcan 7 516 22/04/2017, 20:03 atoz112
Çözüldü Excel Toplama İşlemi 53rize 4 542 20/12/2016, 12:11 53rize
Çözüldü excelde her sayfaya ayrı ambar açma axtmm 7 3.062 25/11/2013, 08:50 ZingZong707
Çözüldü KÖPRÜ İLE KLASÖR AÇMA tamyoltornistan 6 3.291 02/09/2013, 20:58 tamyoltornistan
Çözüldü formda pdf belge açma HAYRİ AKIN 14 6.859 18/04/2012, 14:37 tan

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.