Kod ile aktif hücreye girdi iletisi ekleme

[Feylosof]

Merhaba herkese sağlıklı bir gün diliyorum.
Benim istediğim aktif hücreye başka bir hücrede bulunan veriyi GİRDİ İLETİSİ olarak yazabilir miyim?
Örneğin F1 hücresi seçildikten sonra Y15 teki metni girdi iletisi olarak aktarmak istiyorum. Hücreler değişkendir. Bu mümkün müdür?
Şimdiden teşekkürler.

 

[Korhan Ayhan]

Örnek dosya üzerinde yapmak istediğiniz işlemi açıklarsanız daha kolay yardım alabilirsiniz.

 

[Feylosof]

Derhal, değerli @Korhan Ayhan üstadım.

 

[Korhan Ayhan]

GİRDİ İLETİSİ ifadesinden kastınız nedir?

 

[Korhan Ayhan]

Pardon. Şimdi anladım.

Veri Doğrulama bölümündeki "Girdi İletisi" bölümünü kastetmişsiniz.

Peki Y sütunundaki hangi isim hangi hücreye gelecek. Neye göre belirlenecek?

 

[Feylosof]

Evet hocam veri doğrulama sekmesi ile ilgili. Bu mümkün mü veya başka bir yolu var mı bilmiyorum ama. İlk önce dersi seçeceğim sonra da öğretmen ismini. Anlatmak istediğim tamammen serbest kriterli olacak.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Hücreye çift tıkladığınızda kod çalışacaktır.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ders As Variant, Ogretmen As Variant
    
    If Intersect(Target, Range("D4:X34")) Is Nothing Then Exit Sub
    
    Cancel = True
    
    On Error Resume Next
    Set Ders = Application.InputBox("Lütfen ders seçimi yapınız.", "DERS SEÇİMİ", Target.Cells(1, 1).Address, Type:=8)
    On Error GoTo 0
    If Ders = Empty Then
        MsgBox "Lütfen ders seçiniz.", vbExclamation
        Exit Sub
    End If

    On Error Resume Next
    Set Ogretmen = Application.InputBox("Lütfen öğretmen seçimi yapınız.", "ÖĞRETMEN SEÇİMİ", Type:=8)
    On Error GoTo 0
    If Ogretmen = Empty Then
        MsgBox "Lütfen öğretmen seçiniz.", vbExclamation
        Exit Sub
    End If
    
    Ders.Validation.InputMessage = Ogretmen.Value
End Sub

 

[Feylosof]

Sayın @Korhan Ayhan hocam minnettarım. Zihninize ve emeğinize sağlık.