• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Çözüldü Bir hücreye butona bağlanmış makro ile tarih yazdırmak

Erol U.

Yeni Üye
Kullanıcı

Reputation:

Değerli arkadaşlar,
B3 hücresinde formülüm var. Eğer B3 boş değilse D7 hücresine içinde bulunulan günün tarihini makro ile gün ay yıl olarak yazdırmak istiyorum. B3 boşsa tarih yazmasın boş bıraksın.
Yardımlarınızı rica ederim.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

İsteğinizin karşılığı şöyle:

If [B3].Value <> "" Then: [D7].NumberFormat = "dd/mm/yyyy": [D7] = Date

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Erol U.

Yeni Üye
Kullanıcı

Reputation:

Öncelik olarak kod önerinize teşekkür ederim.
Kod, ilk iletideki durumu tam karşılıyor.
Ben bir noktada yanlış düşünmüşüm:
Kod, bir tarih yazdıktan sonra B3 hücresi boşaltılırsa ve kod yeniden çalıştırılırsa eski tarih orada kalıyor. B3 boşken boş olmuyor.

Şöyle bir mantık kurulsa doğru sonuç alınabilir sanırım.
B3="" D3 hücresini sil DEĞİLSE D3'e tarihi yaz.

Bu şekildeki bir düzenleme konusunda tekrar yardımınızı rica ederim.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

O zaman, verdiğim kod satırının üstüne [D3].ClearContents satırı ekleyin.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm

Erol U.

Yeni Üye
Kullanıcı

Reputation:

Teşekkürler sorun bu şekilde tam olarak çözüme kavuştu.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Erol U.

Yeni Üye
Kullanıcı

Reputation:

Ömer Bey,
Konuyu "Çözüldü" olarak gösterdim ama koddaki [D3].ClearContents satırı birleştirilmiş hücrelerde hata veriyor.
Bunu önlemenin bir yolu var mı?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Silme işleminde adresi birleştirilmiş hücrelerin bütününü içine alacak şekilde değiştirin.
[D3 : G3]..... veya [D3 : D5].... yada [D3 : G5].... gibi.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Erol U.

Yeni Üye
Kullanıcı

Reputation:

Tekrar teşekkürler, bu sorun da çözülmüş oldu. :)
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Üst