Verileri Sayfalara Dağıt

[ZorBey_]

Merhaba İyi Çalışmalar

Hayırlı Seneler
Yeni Yılda Bütün excel web.tr Ailesine
Sağlıklı,Mutlu,Huzurlu Ve Bol Kazançlı Bir Yıl Olmasını Dilerim
İnşallah Her Şey Gönlünüzce Olur.

İlgilendiğiniz İçin Çok Teşekkür Ederim

Yardımınızı Rica Ettiğim
Günlük Sayfasındaki Verilerin
C5 Ve U500 Arasında
Sayfalara Dağıt Butonunu Tıkladığımda
Sayfa Adına Göre İlgili Sayfalara Günlük Sayfasından Silerek
Günlük Sayfasından D Sutünundan Aldığı Tarihi
İlgili Sayfanın D Sutununda En Küçük Tarihten En Büyük Tarihe Doğru Sıralaması
En Son Boş Satırdan İtibaren Alt Alt'a Aktarmak
C Sutununa Yeni Bir Sayfa Adı Yazdığımda
Yeni Sayfayı Şablona Göre Açarak Verileri Aktarsın
Bu konuda Yardımınızı rica Ediyorum
İyi Çalışmalar.

 

[Ziynettin]

Merhaba,
Açıklama sayfa sekmesini sildikten sonra aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim t As Integer
Dim j As Integer
Dim sat As Integer

With Sheets("Günlük")
.Range("A5:U27").Sort key1:=.Range("D5")
For t = 3 To Worksheets.Count
Sheets(t).Range("A5:U27").ClearContents
Next t

For j = 5 To 27
For i = 3 To Worksheets.Count
sat = Sheets(i).Range("C" & Rows.Count).End(3).Row + 1
If .Cells(j, 3) = Sheets(i).Name Then
Range(.Cells(j, 2), .Cells(j, 22)).Copy
Sheets(i).Cells(sat, 2).PasteSpecial (xlPasteValues)
Sheets(i).Cells(sat, 4) = Format(Sheets(i).Cells(sat, 4), "dd.mmm.yyyy")
Sheets(i).Cells(sat, 11) = Format(Sheets(i).Cells(sat, 11), "dd.mmm.yyyy")
Sheets(i).Cells(sat, 15) = Format(Sheets(i).Cells(sat, 15), "dd.mmm.yyyy")
sat = sat + 1
End If
Next i
Next j
Application.CutCopyMode = xlCut
End With

End Sub

 

[ZorBey_]

Merhaba
Tasmed İyi Çalışmalar
Yardımcı Olduğunuz için Teşekkür Ederim
Sayfalara Aktarma Yapıyor
Fakat Verileri Sayfalara Dağıt Butonu Tıklandığında
Veriler Günlük Sayfasından Silinmiyor
İlgili Sayfalara Veriler Son Satırdan Sonra Sıralanmıyor
Veriler Üst Üste Yazıyor.
En Son Boş Satırdan İtibaren Sıralama Yapmalı
Rica Etsem Tekrar Bakabilirmisiniz Acaba.
Teşekkür Ederim İyi Çalışmalar.

 

[ZorBey_]

Özür Dilerim Yazmayı Unuttum c Sutununa Yeni Bir Sayfa İsmi Girildiğinde Yeni Sayfa Açmıyor