-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
DİNAMİK MAKRO
- Konbuyu başlatan Schuba
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,812
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Capslock tuşunuz açık kaldı sanırım...
- Katılım
- 18 Kasım 2009
- Mesajlar
- 5,100
- Excel Vers. ve Dili
- 2013 64Bit
English
Sağolun.
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.
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.
- Katılım
- 18 Kasım 2009
- Mesajlar
- 5,100
- Excel Vers. ve Dili
- 2013 64Bit
English
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.
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.
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.
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.
- Katılım
- 18 Kasım 2009
- Mesajlar
- 5,100
- Excel Vers. ve Dili
- 2013 64Bit
English
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.
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.
Son düzenleme:
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..