İlgili ay sayfasına aktarma

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte program yapmaya çalıştığım bir excel dosyam var, ancak sürekli değişik değişik sorunlar ve ihtiyaçlar çıktığı için bir türlü tamamlayamadım.

Dosyamda ay isimli sayfalar mevcut, B sütununda ilgili ay sayfasında o aya ait tarihler mevcut, ayın sonu olduğunda tarih gece bir sonraki ayın ilk tarihine geçtiği halde aynı sayfaya aktarma devam ediliyor.

Benim yapmak istediğim örneğin HAZİRAN sayfasının B sütunun en sonunda TEMMUZ ayına ait bilgiler mevcut, butona bastığımda bu bilgileri TEMMUZ ayının en son satırına aktarsın o sayfada da sıralama yapsın istiyorum. Bu dosya ortak kullanıldığı için kopyala yapıştır ile uğraşamayanlar sürekli hata yaptığı için sayfalarda sürekli bozuluyor.

Yardımcı olur musunuz?
Dosya boyutu büyük olduğu için link veriyorum.

http://dosya.co/cuu89jjwsuju/Örnek1.xlsx.html

 

[Orion1]

Veriler nereden gelecek?Ben veritabanını göremedim.!

 

[ASLAN7410]

Sayın Evren Bey, ilginiz için çok teşekkür ediyorum.

Veri tabanı ilgili olan ay sayfalarında, bu buton ay sonlarında lazım olacak aslında.
Örneğin Haziran sayfası içerisinde sondaki veriler Temmuz tarihleri var, butona bastığımda bu tarihleri toplu olarak Temmuz ayına atsın ve sıralasın istiyorum.

 

[Orion1]

Sayın Evren Bey, ilginiz için çok teşekkür ediyorum.

Veri tabanı ilgili olan ay sayfalarında, bu buton ay sonlarında lazım olacak aslında.
Örneğin Haziran sayfası içerisinde sondaki veriler Temmuz tarihleri var, butona bastığımda bu tarihleri toplu olarak Temmuz ayına atsın ve sıralasın istiyorum.

Yani bir veritabanın yokmu?

 

[ASLAN7410]

Veri tabanı ay sayfalarında bulunmakta.

Yapmak istediğim ay sonlarında gece tarih attığında öbür aya geçtiği için o ayın verisinin yani ayın 1'indeki bazı bilgiler bir önceki ayda kalıyor,ben bu bilgileri ilgili ay sayfasına aktarmak istemiştim.

 

[Orion1]

Hangi ayı aktarıcaksanız o sayfaya gelin.
Ctrl + f tuş kombozisyonuna tıklayın.Karşınıza userform çıkacak.Tamam tuşuna basın.İşlem tamamdır.
Dosya ektedir.

LINK : DOSYAYI INDIR

 

[ASLAN7410]

Sayın Evren Bey, ellerinize sağlık, çok teşekkür ediyorum, kodlar süper çalışıyor.

Bu kodları sayfalar üzerindeki AKTAR butonuna entegre etsek, hangi sayfada aktarma yapmak istiyorsak o sayfadaki butona bastığımda çalışsa bu şekilde olur mu?
Ayrıca yazmış olduğunuz kodlar aktarma yaptıktan sonra butona tekrar bastığımda sayfada aktarılacak veri olmadığı halde aktarıldı şeklinde mesaj çıkıyor, veri yoksa aktarılacak veri yoktur gibi bir mesaj ekleyebilir misiniz?

Bu isteklerimle İnşAllah çok olmuyorumdur.

 

[Orion1]

Dosyayı ekledim.İstediğiniz gibi her sayfaya buton koydum.Keşke önce hatırlatsaydınız.

LİNK : DOSYAYI INDIR

Sub aktar59()
Dim i As Integer
Dim arr() As Variant
Dim s1 As Worksheet, s2 As Worksheet, sonsat1 As Long, sonsat2 As Long
Dim ilktar As Date, sonsat As Date
arr = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
Set s1 = ActiveSheet
Set s2 = Sheets(ActiveSheet.Index + 1)
If MsgBox(s1.Name & vbLf & "Aktarma yapmak istiyormusunuz?", vbYesNo, "AKTAR") = vbNo Then Exit Sub
s1.AutoFilterMode = False
s2.AutoFilterMode = False
sonsat1 = s1.Cells(Rows.Count, "B").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "B").End(xlUp).Row + 1
For i = 1 To 12
    If arr(i) = CStr(s1.Name) Then
        Exit For
    End If
Next
ilktar = CDate(DateSerial(Year(Date), i + 1, 1))
sontar = CDate(DateSerial(Year(Date), i + 2, 1)) - 1
s1.Select
Range("A1:M" & sonsat1).AutoFilter field:=2, Criteria1:=">=" & _
        CLng(ilktar), Operator:=xlAnd, Criteria2:="<=" & CLng(sontar)
On Error GoTo hata
MsgBox "Aktarlıcak satır sayısı : " & Range("B2:B" & sonsat1).SpecialCells(xlCellTypeVisible).Count
Range("A1:M" & sonsat1).CurrentRegion.Offset(1, 0).Copy
s2.Range("A" & sonsat2).PasteSpecial
Application.CutCopyMode = False
Range("A1:M" & sonsat1).CurrentRegion.Offset(1, 0).Clear
s1.AutoFilterMode = False
MsgBox "Veriler aktarıldı.", vbOKOnly, Application.UserName
Exit Sub
hata:
Application.CutCopyMode = False
s1.AutoFilterMode = False
End Sub

 

[ASLAN7410]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum, çok güzel olmuş.

Küçük bir detay daha kaldı, ilk kez butona bastığımda verileri aktarıyor, buraya kadar çok güzel.
Yine aynı sayfadaki butona bastığımda aktarılacak veri yoksa, aktarılacak veri yok diye bir mesaj verdirebilir misiniz?
Ayrıca verilerin aktarıldığı ay sayfasında yeniden sıralama yapabilir misiniz?

 

[Orion1]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum, çok güzel olmuş.

Küçük bir detay daha kaldı, ilk kez butona bastığımda verileri aktarıyor, buraya kadar çok güzel.
Yine aynı sayfadaki butona bastığımda aktarılacak veri yoksa, aktarılacak veri yok diye bir mesaj verdirebilir misiniz?
Ayrıca verilerin aktarıldığı ay sayfasında yeniden sıralama yapabilir misiniz?

Neye göre sıralanıcak?

 

[ASLAN7410]

Sayın Evren Bey, aktarılan veriyi ilgili ay sayfasında tarihe göre sıralaması gerekiyor ve sıra no vermesini istemiştim.

 

[Orion1]

Sayın Evren Bey, aktarılan veriyi ilgili ay sayfasında tarihe göre sıralaması gerekiyor ve sıra no vermesini istemiştim.

Dosya ektedir.

 

[ASLAN7410]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı akşamlar diliyorum.

 

[Orion1]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı akşamlar diliyorum.

Rica ederim.
İyi çalışmalar.