Excel Çalışma (Sayfa Aktarma)

[poetisch]

Merhaba, Örnekte sunduğum çalışmayı daha kontrollü bir şekilde kullanmak için, GÜNÜ KAPAT gibi bir buton eklemek ve butona tıklayınca, yeni excel sayfası açıp sayfa ismine bir sonraki günün tarihini atıp, alt listeyi sıfırlayacak ve devir formüllerini düzeltmesini istiyorum. Mümkün mü ? Yapılabilirliği varsa yardımlarınızı rica ederim.

 

[asi_kral]

Merhaba
1 - Bu dosya aylık mı olacak_?
2 - Sayfa adları metindir. Mesela Ay 30 çekiyorsa ve siz butona tıkladığınızda olmayan bir tarihi yazmaz mı_?

 

[poetisch]

Merhaba
1 - Bu dosya aylık mı olacak_?
2 - Sayfa adları metindir. Mesela Ay 30 çekiyorsa ve siz butona tıkladığınızda olmayan bir tarihi yazmaz mı_?

1) Bu excel ile günlük takip yapıyoruz.Ayrıca Her ay yeni excel oluşturup ay ayda takip ediyoruz.
2)Sekme isimleri tarih olması gerekiyor, formatı hiç önemli değil. Onu sayfa ismini hücreye yazdırmak için metin olarak yazmıştım.

Kısacası düğmeye bastığımda bir sonraki tarihli devirler yapılmış ,boş bir excel oluşturacak.

Teşekkür ederim.

 

[asi_kral]

1) Bu excel ile günlük takip yapıyoruz.Ayrıca Her ay yeni excel oluşturup ay ayda takip ediyoruz.
2)Sekme isimleri tarih olması gerekiyor, formatı hiç önemli değil. Onu sayfa ismini hücreye yazdırmak için metin olarak yazmıştım.

Kısacası düğmeye bastığımda bir sonraki tarihli devirler yapılmış ,boş bir excel oluşturacak.

Teşekkür ederim.

Sanırım söylediğimi anlamadınız.
Şöyle söyleyeyim.
Örneğin Şubat ayı 28 çekiyor
Siz 1'den 28'e kadar bunu yaptınız. Bir daha butona tıkladığınızda 29. Şubat yazacak ama Şubat 29 çekmiyorsa bu tarih yanlış olacak. Bunu sormak istemiştim.

 

[poetisch]

Sanırım söylediğimi anlamadınız.
Şöyle söyleyeyim.
Örneğin Şubat ayı 28 çekiyor
Siz 1'den 28'e kadar bunu yaptınız. Bir daha butona tıkladığınızda 29. Şubat yazacak ama Şubat 29 çekmiyorsa bu tarih yanlış olacak. Bunu sormak istemiştim.

28 Şubatta ilk sayfayı kopyalayıp yeni excel de mart olarak devam edilebilir.

 

[asi_kral]

28 Şubatta ilk sayfayı kopyalayıp yeni excel de mart olarak devam edilebilir.

Yıl ve Ay tanımı da istiyorsunuz o zaman. Tamam bu şekilde kodu yazıp yarın göndermeye çalışırım.

 

[poetisch]

Yıl ve Ay tanımı da istiyorsunuz o zaman. Tamam bu şekilde kodu yazıp yarın göndermeye çalışırım.

Teşekkür ederim..

 

[poetisch]

Yardım edecek kimse yok mu?

 

[asi_kral]

Merhaba
Boş bir module oluşturun ve bu kodu kopyalayıp deneyin.

Option Explicit
Sub say_aç()
Dim AY As Variant, GÜN As Variant, ÇLŞ As Variant
Dim S1 As Worksheet, S2 As Worksheet
Application.EnableEvents = False
Set S1 = ActiveSheet
GÜN = Mid(ActiveSheet.Name, 1, 2)
Select Case Mid(ActiveSheet.Name, 4, Len(ActiveSheet.Name))
Case Is = "Ocak": AY = 1: Case Is = "Şubat": AY = 2
Case Is = "Mart": AY = 3: Case Is = "Nisan": AY = 4
Case Is = "Mayıs": AY = 5: Case Is = "Haziran": AY = 6
Case Is = "Temmuz": AY = 7: Case Is = "Ağustos": AY = 8
Case Is = "Eylül": AY = 9: Case Is = "Ekim": AY = 10
Case Is = "Kasım": AY = 11: Case Is = "Aralık": AY = 12
End Select
S1.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(Year(Date), AY, GÜN + 1), "dd.mmmm")
Set S2 = ActiveSheet
ÇLŞ = ActiveCell.Address
S1.Range("G9:G14").Copy
S2.Range("D9").PasteSpecial (xlPasteValues)
Range(ÇLŞ).Select
Application.CutCopyMode = False
S2.Range("B17:G" & Rows.Count).ClearContents
Application.ScreenUpdating = True
MsgBox "Başarılı", vbInformation
End Sub

 

[poetisch]

Öncelikle çok teşekkür ederim .Kodu yeni modüle kopyaladım 18.Şubat olarak makroyu çalıştırdığımda yeni sayfa 19.Aralık olarak oluştu. Sorun ne olabilir?

 

[asi_kral]

Öncelikle çok teşekkür ederim .Kodu yeni modüle kopyaladım 18.Şubat olarak makroyu çalıştırdığımda yeni sayfa 19.Aralık olarak oluştu. Sorun ne olabilir?

Hata aldığınız dosyayı ekler misiniz_?
Ben denedim öyle bir problemle karşılaşmadım.

 

[poetisch]

Hata aldığınız dosyayı ekler misiniz_?
Ben denedim öyle bir problemle karşılaşmadım.

Sorun neyden kaynaklandı bilmiyorum ama şu an herhangi bir sıkıntı yok. Tekrar teşekkür ederim. Emeğinize sağlık.

 

[asi_kral]

Sorun neyden kaynaklandı bilmiyorum ama şu an herhangi bir sıkıntı yok. Tekrar teşekkür ederim. Emeğinize sağlık.

Kolay Gelsin.