veri doğrulamada girdi iletisi.

[hocazade]

merhaba arkadaşlar, ben ekte gönderdiğim exceli hazırladım ama bunu yaparken veri doğrulamada girdi iletisine her defasında girip bilgiyi aktarmak zorunda kaldığım için çok zor oluyor. bunun yerine tıklayınca gelsin kısmında farklı hücreden otomatik alabilir mi? nasıl bi formül olabilir bunun için.

ya da farklı bir çözüm de olabilir. yeter ki oraya tıklayınca bir cevap görünsün ve o cevap farklı bir hücreye tanımlanmış olsun.

 

[Korhan Ayhan]

"B" sütunundaki hücreye çift tıkladığınızda cevaplar görünse daha şık olmaz mı?

Dilerseniz makro ile bu şekilde çözüm uygulanabilir.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    If Cells(Target.Row, "A") <> "" Then
        Cancel = True
        MsgBox "CEVAP" & Chr(10) & Chr(10) & Cells(Target.Row, "I")
    End If
End Sub

 

[hocazade]

"B" sütunundaki hücreye çift tıkladığınızda cevaplar görünse daha şık olmaz mı?

Dilerseniz makro ile bu şekilde çözüm uygulanabilir.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    If Cells(Target.Row, "A") <> "" Then
        Cancel = True
        MsgBox "CEVAP" & Chr(10) & Chr(10) & Cells(Target.Row, "I")
    End If
End Sub

hocam çooook teşekkürler tam aradığım şey oldu.

 

[hocazade]

"B" sütunundaki hücreye çift tıkladığınızda cevaplar görünse daha şık olmaz mı?

Dilerseniz makro ile bu şekilde çözüm uygulanabilir.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    If Cells(Target.Row, "A") <> "" Then
        Cancel = True
        MsgBox "CEVAP" & Chr(10) & Chr(10) & Cells(Target.Row, "I")
    End If
End Sub

hocam açıkçası zahmet olmazsa bişey soracağım. hızlı çalışabilmek için yapıyorum aslında ben bunu ve oraya çift tıkladığımızda pencere açılması güzel ama pencere yerine kapatmaya çalışmayacağımız açıklama gibi cevap gelebilecek bir sistem var mı acaba olmadı bu da çok güzel, elinize sağlık tekrardan.

 

[Korhan Ayhan]

Süreli MSGBOX kullanarak işlem yapabilirsiniz. Kırmızı bölüm mesaj penceresinin açık kalma (saniye) süresidir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    If Cells(Target.Row, "A") <> "" Then
        Cancel = True
        CreateObject("WScript.Shell").Popup "CEVAP" & Chr(10) & Chr(10) & Cells(Target.Row, "I"), [COLOR="Red"]1[/COLOR], "CEVAP ANAHTARI"
    End If
End Sub