Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 300
- Excel Versiyonu
- Excel 2021
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Arkadaşlar,
Ekli dosyada hücreye çift tıklayınca açılan ve hatasız çalışan bir hücreye takvim uygulaması var.
Bu uygulamanın kodunu aşağıdaki kod satırları ile nasıl bütünleştirmeliyim?
Aşağıdaki satırları denedim hatasız çalışıyorlar fakat kodla bütünleştiremedim.
Yardımlarınızı rica ederim.
M39 ve M51 hücrelerine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy")
M42 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 4, "dd.mm.yyyy")
M44 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 14, "dd.mm.yyyy")
M45 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 4, "dd.mm.yyyy")
M49 hücresine çift tıklayıp tarih seçince: Target = Format(tarih - 1, "dd.mm.yyyy") & " Saat 13.00'ten Sonra - " & Format(tarih + 2, "dd.mm.yyyy")
M50 hücresine çift tıklayıp tarih seçince: Target = Format(tarih - 1, "dd.mm.yyyy") & " Saat 13.00'ten Sonra - " & Format(tarih + 3, "dd.mm.yyyy")
Uygulamanın Kodu:
Ekli dosyada hücreye çift tıklayınca açılan ve hatasız çalışan bir hücreye takvim uygulaması var.
Bu uygulamanın kodunu aşağıdaki kod satırları ile nasıl bütünleştirmeliyim?
Aşağıdaki satırları denedim hatasız çalışıyorlar fakat kodla bütünleştiremedim.
Yardımlarınızı rica ederim.
M39 ve M51 hücrelerine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy")
M42 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 4, "dd.mm.yyyy")
M44 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 14, "dd.mm.yyyy")
M45 hücresine çift tıklayıp tarih seçince: Target = Format(tarih, "dd.mm.yyyy") & " - " & Format(tarih + 4, "dd.mm.yyyy")
M49 hücresine çift tıklayıp tarih seçince: Target = Format(tarih - 1, "dd.mm.yyyy") & " Saat 13.00'ten Sonra - " & Format(tarih + 2, "dd.mm.yyyy")
M50 hücresine çift tıklayıp tarih seçince: Target = Format(tarih - 1, "dd.mm.yyyy") & " Saat 13.00'ten Sonra - " & Format(tarih + 3, "dd.mm.yyyy")
Uygulamanın Kodu:
Kod:
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
