Tarihin gününü başka bir hücreye ayırma

[akhsahbaz]

Arkadaşlar "A3:A65536" hücre aralığına girilen tarihin, eğer aynı satırdaki "I" hücresi doluysa, "M" sütununa gününü yazsın. Örneğin; A3 "1 Ocak 2007" olsun. "I3" hücreside dolu olsun. Sonuçta "M3" hücresi "1" versin. Bunu yapan makro lazım. İlginiz ve yardımlarınız için şimdiden teşekkür ederim.

 

[Recep İpek]

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

alan1'e A kolonunu,alan2'ye ise I kolonunu seçerek aşağıya doğru kopyalayınız.

[COLOR=blue]Function[/COLOR] GünBul(alan1, alan2 [COLOR=blue]As[/COLOR] Range)
If alan1 = [COLOR=blue]Empty[/COLOR] Then [COLOR=blue]Exit Function[/COLOR]
If alan2.Value <> "" Then G&#252;nBul = Day([COLOR=blue]CDate[/COLOR](alan1))
End Function

 

[akhsahbaz]

Sayın ripek yine hızır gibi yetiştiniz. Teşekkür ederim.

 

[akhsahbaz]

Bu kodu kopyalayıp VBA ya yapıştırıp çalıştırdığımda neden makro listesi çıkıyor?

 

[Ferhat Pazarçevirdi]

Merhabalar

Ne yaptığınızı anlamadım ama, yukarıda Sn.Ripek'in verdiği kodlar, fonksiyon listenizde özel bir ek fonksiyon yaratır.

Bu kodları, bir düğmeye atayarak sonuç elde edemezsiniz.

Formül çubuğundaki fx yazan butona basınca, fonksiyonların listesinin getirildiği Dialog Penceresinde, Kullanıcı Tanımlı olan Kategoriyi seçin ve normal formül yazma işlemlerini gerçekleştirin.

 

[akhsahbaz]

Sayın fpc ilginiz için öncelikle teşekkür ederim. Eğer doğru anladım ise bu bir fonksiyon oluyor o zaman. Ama yinede herhalde bu kodları Önce VBA ya girip sonra folmül bölümünden ayarlayacağım sanırım. Doğru anlamışmıyım? Birde bu konu hakkında ayrıntılı bilgi nereden bulabilirim?

 

[Ferhat Pazarçevirdi]

Sayın fpc ilginiz için öncelikle teşekkür ederim. Eğer doğru anladım ise bu bir fonksiyon oluyor o zaman. Ama yinede herhalde bu kodları Önce VBA ya girip sonra folmül bölümünden ayarlayacağım sanırım. Doğru anlamışmıyım? Birde bu konu hakkında ayrıntılı bilgi nereden bulabilirim?

Kesinlikle, doğru ...

Forumun Fonksiyonlar bölümünü inceleyebilirsiniz. "KTF", "UDF", "Kullanıcı Tanımlı" sözcüklerini arama bölümüne yazıp , forumda çözülmüş bir çok örneğe de ulaşabilirsiniz ...

 

[akhsahbaz]

Peki bir sorum daha olucak Sn.fpc. Çalışmamı formüllerle yapmıştım. Bu yüzdende dosyanın boyutu gereğinden fazla büyüdü ve çalışma aşırı derecede kasılıyor. Bu kasılmayı engellemek ve dosya boyutunu küçültmek için çözüm olarak makro ile yapmaktı. Bu kod ilede hem kasılmayı önleyip hemde dosya boyutunu yinede küçülte bilrmiyim?

 

[Ferhat Pazarçevirdi]

Peki bir sorum daha olucak Sn.fpc. Çalışmamı formüllerle yapmıştım. Bu yüzdende dosyanın boyutu gereğinden fazla büyüdü ve çalışma aşırı derecede kasılıyor. Bu kasılmayı engellemek ve dosya boyutunu küçültmek için çözüm olarak makro ile yapmaktı. Bu kod ilede hem kasılmayı önleyip hemde dosya boyutunu yinede küçülte bilrmiyim?

Malesef, özel tanımlanmış fonksiyon da olsa, dosyanızın boyutunu bir miktar daha büyütecektir. Evet bir makro kodu kullanılmıştır ama bu makronun yapısı, herhangi bir Excel standart fonksiyonundan farklı değildir.

Yani kısacası, dosyanız daha da büyüyecek .

Dosya boyutunun ne olduğunu bilmiyorum ama dediğiniz gibi bir zorlanma varsa, başka çözümler üzerinden gitmek lazım.

 

[akhsahbaz]

Sn.fpc sanrım istediğim cevabı aldım. Yani Sn.Ripek'in de göndermiş olduğu yine fonksiyon. Dediğim gibi ben fonksiyon değil makro istiyordum. Zaten fonksiyon ile halletmiştim. İlginiz ve yardımınız için çok teşekkür ederim.