Aynı Hücreye sahip tüm satırları yazdırma

[secgin]

Merhaba,
tarihlere göre olay kayıtlarını tutuyorum. her tarihteki olay sayısı değişebilir. 1. gün 5 ikinci gün 3 3. gün hiç olmayabilir.
olayları alt alta bir sayfada tutuyorum. ikinci bir sayfada bu olayları düzgün bir hal verip yazdıracağım. 2. sayfada üste yazdığımm manuel tarihle 1. sayfadaki olayların satır olarak 2. sayfaya gelmesini istiyorum.

A=tarih
B=elma/kiraz
C=1/2

1.1.2016 elma 1
1.1.2016 elma 2
1.1.2016 kiraz 1
2.1.2016 kiraz 2


2. sayfa
Tarih: 1.1.2016
elma 1
elma 2
kiraz 1

 

[vardar07]

Sayfa1 Kod bölümüne ekleyip deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.Range("A2:c" & Rows.Count).ClearContents
a = InputBox("Aktarılacak tarihi giriniz", " ")
For i = 2 To s1.Range("A65536").End(3).Row
son = s2.Range("A65536").End(3).Row + 1
If s1.Cells(i, 1) Like a Then
s2.Cells(son, 1) = s1.Cells(i, 1)
s2.Cells(son, 2) = s1.Cells(i, 2)
s2.Cells(son, 3) = s1.Cells(i, 3)
say = say + 1
End If
Next
MsgBox (say & " Adet veri aktarıldı")
End Sub

 

[secgin]

Sayfa1 Kod bölümüne ekleyip deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.Range("A2:c" & Rows.Count).ClearContents
a = InputBox("Aktarılacak tarihi giriniz", " ")
For i = 2 To s1.Range("A65536").End(3).Row
son = s2.Range("A65536").End(3).Row + 1
If s1.Cells(i, 1) Like a Then
s2.Cells(son, 1) = s1.Cells(i, 1)
s2.Cells(son, 2) = s1.Cells(i, 2)
s2.Cells(son, 3) = s1.Cells(i, 3)
say = say + 1
End If
Next
MsgBox (say & " Adet veri aktarıldı")
End Sub

Merhaba,
cevap için teşekkür ederim.. kodlarla hiç çalışmadım. kod sayfasını buldum dediğiniz gibi yapıştırdım ama hiç bir şey olmadı.. sanırım yapmayı beceremedim. sizden rica etsem detaylandırır mısınız?
Bir de bu dediğimi macrosuz kodsuz yapma yolu yokmudur??? çünkü bu dosya günlük büyüyecek ve mail ile iletilecek. macro olursa mail gönderirken sorun çıkarabilir..?

 

[vardar07]

Sayfa1 deki aktarmak için tıkla butonuna basıp açılan kutucuğa tarihi girip tamam deyin. Sayfa2 de aktarılanları görebilirsiniz. Verileriniz çok olunca formüller uzayacağı için sorun yaşayabilirsiniz. Makro ile sadece verileri aktaracaksınız mail ile göndermede sıkıntı çıkarmaz.
Dosyanızı indirin.