Değişken Veri Referansı

[htsumer]

Merhaba,
Veri Doğrulama yoluyla seçimde;

A13 Hücresine 01/08/2018 yazdım. C13 Hücresinden Seçtim.AĞUSTOS MUHASEBE yazması gerekir
Fakat Veri girişindeki (G Sütununda) formül tek hücreden (A12) referans aldığı için TEMMUZ GÖRÜYOR.
G5 Hücresindeki =BÜYÜKHARF(METNEÇEVİR(A12;"AAAA"))&" MUHASEBE" formülündeki
A12 yerine öyle bir formül koymalıyım ki devamlı A sütundaki karşılığını almalı.
Örnek A13 hücresine 01/08/2018 yazdığımda =BÜYÜKHARF(METNEÇEVİR(A12;"AAAA"))&" MUHASEBE" formülündeki
A12 de A13 görmeli…

Dosya ektedir. Sorudan ancak dosyaya bakarak anlaşılır. Soru dosyada ayrıca yazılıdır.
Teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. A10:a83 aralığına girdiğiniz tarihe göre G4 ve G5 hücrelerine istediğiniz gibi metin yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A10:A83]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

If IsDate(Target) = False Then Exit Sub

ay = WorksheetFunction.Choose(Month(Target), "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")

    [G4] = ay & " DEFTER TASTİK TAHSİLAT"""
    [G5] = ay & " MUHASEBE"""
    

End Sub

 

[htsumer]

Çok teşekkür ederim tam istediğim gibi olmuş. Bu kodlarla yapılmayacak bir şey yok galiba

 

[htsumer]

Sayın Yusuf şu kodunuza entegre edilecek bir ufak olay daha var bakabilirmisiniz..

http://www.excel.web.tr/f48/hucre-cerioi-deoi-tioinde-hucre-silinmesi-t170710.html#post931116