DİNAMİK MAKRO

[Schuba]

ARKADAŞLAR EKLİ DOSYADA AÇIKLAMASIYLA BERABER DOSYA MEVCUTTUR BAKIP YARDIMCI OLACAK BİRİ VARSA SEVİNİRİM...

 

[turist]

Dosyanız eklidir,inceleyiniz.

 

[Schuba]

HOCAM SÜPER OLDU ELLERİNİZE SAĞLIK

 

[Korhan Ayhan]

Capslock tuşunuz açık kaldı sanırım...

 

[turist]

HOCAM SÜPER OLDU ELLERİNİZE SAĞLIK

Sağolun.

 

[Schuba]

hocam bir ricam daha olacak
Kodla eğer tarihse nasıl yazılır

Örnek .
Eyer B4 hücresinin içinde tarih varsa herhangi bir tarih olabilir
mesela (05.09.2018) diyelim
C4 hücresine ("belirlenmiş bir tarihte") diye yazssın.

 

[turist]

VBA sayfasında bir module aşağıdaki kullanıcı tanımlı fonksiyonu yazın.
Function Tarihmi(cell) As Boolean
Tarihmi = VBA.IsDate(cell)
End Function

B4 hücresine bir tarih yazın, C4 hücresine de:
=EĞER(Tarihmi(B4);"belirlenmiş bir tarihte";"")
Formülünü uygulayın. Tarih değeri varsa "belirlenmiş bir tarihte" yazar, yoksa C4 hücresini boş bırakır.

 

[Schuba]

Hocam dediğiniz uygulamayı yaptım ama herhalde beceremedim
Sayfanın kod bölümüne
Aşağıdaki kodu yazdım

Function Tarihmi(cell) As Boolean
Tarihmi = VBA.IsDate(cell)
End Function

C4 hücresinede aşağıdaki kodu yazdım

=EĞER(Tarihmi(B4);"belirlenmiş bir tarihte";"")

Fakat bir sonuca ulaşamadım

Birde hocam bunu sadece kod ile halledemiyormuyuz
yani C4 hücresine yukarıdaki formülü yazmadan olmuyormu

Çünkü C4 hücresine gerektiği zaman metinde yazmam gerekiyor ozaman formül bozulmazmi.

 

[turist]

Fonksiyonu Sayfa Kodu'na değil, "Module" kısmına yazacaksınız.
C4 hücresine gerektiği zaman metin de yazacaksanız, formül bozulur tabii ki.
Aynı zamanda makroyla olmasını istediğiniz sonuç da bozulur.

"Hayâlî" soru sormak yerine , isteğinizi ve sonuçlarını da izah ederek "örnek" bir excel dosyası ekleyip sorun.
Bu durumda çözüm de farklı yöntemle sağlanabilir belki.

 

[Schuba]

hocam haklısınız detaylı bir dosya ekledim hakınızı helal edin yoruyorum sizi..

 

[Schuba]

hocam bir ricamda daha olacak 2 numaralı mesajda gönderdiğiniz dosyada küçük bir ekleme yapmamız gerekiyor ben biraz uraştım ama yapamadım detaylar eklediğim dosyada yazıyor bunada bir bakarsanız çok sevinirim..

 

[turist]

Dosyanız eklidir.

 

[Schuba]

hocam allah razı olsun tam istediğim gibi olmuş çok teşekkür ederim...
ayıp olmazssa bide şu 11 numaralı mesaja baksanız.

 

[turist]

Dosyanız eklidir.

 

[Schuba]

hocam tekrar teşekkür ederim emeyinize sağlık iyi geceler...

 

[turist]

Sağolun.

 

[Schuba]

ya hocam tekrar rahatsız ettim ama dosyada küçük bir sorunla karşılaştım bakabilirmisiniz detaylar dosyada yazıyor..

 

[turist]

Yeni şekliye dosyanız eklidir.(açıklamasını okuyunuz)