seçili satırı aktarma

[kaan07]

merhaba sayın excel web üyeleri
ekte bulunan örnek dosyamda bir problemim var
problem ?

3 adet sayfa bulunmakta bu sayfalarda bulunan verileri ilgili çalışma sayfasına seçerek aktarmak istiyorum örnek verecek olur ise kasım ayı olarak bulunan çalışma sayfasındaki bir satırdaki veriyi seçip tarihini değiştirerek aralık ayına aktarmasını istiyorum veya herhangi bir ay yaparak ilgili ayın sayfasına aktarılmasını nasıl saglayabılırım
bilmiyorum açıklayıcı olabıldım mi
yardımlarınız için şimdiden çok teşekkür ederim
saygılarımla

 

[kaan07]

arkadaşlar yardım edebilirmisiniz lütfen
teşekkürler

 

[Ömer]

Merhaba,

Hangi sayfaya aktarılacağı seçimi nasıl olacak? Kod içinde sorgu ekranı ile mi? Yada nasıl?. Satırın tamamını mı seçeceksiniz. Biden fazla seçim olur mu, olursa ardı ardına mı yoksa karışık mı olur?

Bana göre sorudaki açıklamalarınız eksik.

 

[kaan07]

ilginiz için teşekkür ederim
ilgili satıra geldiğimde yukarıda bir buton koyup butona tıkladığımda
karşıma çıkacak küçük pencereye d sütununda bulunan tarihi örneğin 20.10.2013 veriyi 20.12.2013 veya 10.10.2013 yazıp ok dediğim de ilgili aya o satırı komple aktarmasını istiyorum mümkünse sayın hocam

şimdiden
çok teşekkür ederim

saygılarımla

 

[kaan07]

günaydın ömer hocam

müsait durumunuzda bi bakablırmısınız

teşekkürler

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve butona bağlayın sonra dilediğiniz zaman butona tıklayarak çalıştırın.

Option Explicit
Sub kaydır()
Dim SYF As Worksheet, STR As Long, STR1 As Long
Set SYF = Sheets(Format(ActiveCell, "mmmm"))
STR1 = ActiveCell.Row
STR = SYF.Range("D" & Rows.Count).End(xlUp).Row + 1
With Range("D" & STR1 & ":F" & STR1)
.Copy SYF.Range("D" & STR)
.Delete
End With
End Sub