Hücreden Tarihi Alıp Sütuna Sıralatmak

[akhsahbaz]

Arkadaşlar;

Forumda aradım ama benzerinide bulamadım. Yapmak istediğim,

=METNEÇEVİR(Form!A3;"gg.aa.yyyy")&" Gün Başı" formülünün bulunduğu A3 hücresindeki tarihi alıp A4 e kopyalayacak ve buradanda gün gün A65536 ya kadar sıralatacak. (Butonsuz olarak yapmak istiyorum) Şimdiden yardımlarınız için teşekkür ederim

 

[Orion1]

A4'e aşağıdaki formülü giriniz.
=METNEÇEVİR(Form!A3;"gg.aa.yyyy")

 

[akhsahbaz]

Sn.Orion2 öncelikle ilginiz ve yardımınz için teşekkür ederim. Evet A4 hücresine bu şekilde tarihi alabilirim. Fakat A4 den de A65536 ya kadar sıralatmak istiyorum. Mesela

A4 > 01.01.2008
A5 > 02.01.2008
A6 > 03.01.2008 diye A65536 ya kadar devam edecek. Ve bu işlemin buton ile değil otomatik olarak çalışmasını istiyorum.
Teşekkürler...

 

[Orion1]

Otomatik nasıl sıralayacak?

 

[akhsahbaz]

Sn.Orion2;

Benim sıralmayı yaptırmak istediğim sayfa "Kontrol" sayfasıdır.

=METNEÇEVİR(Form!A3;"gg.aa.yyyy")&" Gün Başı" formülünün bulunduğu A3 hücresindeki tarihi alıp A4 e kopyalayacak ve buradanda gün gün A65536 ya kadar sıralatacak. (Butonsuz olarak yapmak istiyorum)

Yukarıdanda anlaşılacağı gibi asıl verinin girildiği hücre "Form" sayfası A3 hücresidir. Mesela bu hücredeki tarihin değişimi ile kod çalışamaz mı? Private Sub makrosu gibi.(Tabiki koddan anlamadığım için benim düşüncem bu. Siz daha iyi bilirsiniz)

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub tarih_ekle()
Dim tarih As Date
tarih = Sheets("Form").Range("A3").Value - 1
ReDim myarr(1 To 65536, 1 To 1)
For i = 4 To 65536
    myarr(i - 3, 1) = tarih + i - 3
Next
Application.ScreenUpdating = False
[Kontrol!A4].Resize(65533, 1) = myarr
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A3]) Is Nothing Then Exit Sub
If Not IsDate(Range("A3").Value) Then Exit Sub
Call tarih_ekle
son:
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. akhsahbaz,

Daha önce buna benzer bir soruyu aşağıdaki linkte sormuştunuz. Lütfen aynı içerikli sorularınız için ayrı başlıklar açmayınız.

http://www.excel.web.tr/showthread.php?t=43580

 

[akhsahbaz]

Teşekkür

Sn.Orion2, kod için teşekkür ederim. Tam istediğim makroydu. Elinize sağlık.

Sn.Cost_Control, öncelikle özür dilemek istiyorum. Biraz farklı da aynı konu. Haklısınız. Fakat bende "Form" sayfasının makro bölümü dolu olduğu için (Birden fazla Private Sub makrosu) kullanamıyordum. Sn.Orion2 bu sorunumu sağolsun tam olarak çözdü.

Sn.Sertkaya yada buradan yine ayrıca teşekkür ederim. Kodları birleştirmede bana çok yardımcı oldu.

İlginiz ve Yardımlarınız için Hepinize Teşekkürü bir borç bilirim.

 

[Orion1]

Sn.Orion2, kod için teşekkür ederim. Tam istediğim makroydu. Elinize sağlık.

Rica ederim.
İyi çalışmalar.