Soru Hücredeki Tik Seçili İse Hücredeki Veriyi Hücreye Yazmak

[Hsn55]

İyi günler;
Ekli dosyada yazı sayfasında
I3 hücresinde tik seçili ise K10 hücresindeki veriyi K18 Hücresine yazdırma
I4 hücresinde tik seçili ise K12 hücresindeki veriyi K18 Hücresine yazdırma
I3 ve I4 hücresinde tik seçili ise K14 hücresindeki veriyi K18 Hücresine yazdırma
I5 hücresinde tik seçili ise K16 hücresindeki veriyi K18 Hücresine formül yada makro ile yazdırmak mümkün mü . Yardımcı olursanız sevinirim.

İndir Yazı xlsx xlsm

Dosyayı indir Yazı xlsx xlsm

dosya.co

 

[RBozkurt]

YAZI Sayfa Kaynağı

Private Sub CheckBox1_Click()
    Call CheckActiveXAndWriteToK18
End Sub

Private Sub CheckBox2_Click()
    Call CheckActiveXAndWriteToK18
End Sub

Private Sub CheckBox3_Click()
    Call CheckActiveXAndWriteToK18
End Sub

Modül.

Sub CheckActiveXAndWriteToK18()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("YAZI")

    Dim cb1 As Boolean, cb2 As Boolean, cb3 As Boolean
    With ws
        cb1 = .OLEObjects("CheckBox1").Object.Value
        cb2 = .OLEObjects("CheckBox2").Object.Value
        cb3 = .OLEObjects("CheckBox3").Object.Value

        If cb1 And cb2 Then
            .Range("K18").Value = .Range("K14").Value
        ElseIf cb1 Then
            .Range("K18").Value = .Range("K10").Value
        ElseIf cb2 Then
            .Range("K18").Value = .Range("K12").Value
        ElseIf cb3 Then
            .Range("K18").Value = .Range("K16").Value
        Else
            .Range("K18").Value = ""
        End If
    End With

End Sub

İndir yAZI xlsm

Dosyayı indir yAZI xlsm

dosya.co

 

[Hsn55]

Merhabalar,
Öncelikle ilginiz için çok teşekkür ederim. Veriler başka sayfada olduğu için CheckBox işimi görmüyor hocam. Hücre deki tik işareti ile olması gerekiyor. Yada formül ile.

 

[Biolightant]

Merhaba,

AI Prompt (Yapay Zeka’ya Soru Örneği):

Ms Excel Türkçe sürüm

- I3 hücresinde "R" varsa, K10 hücresindeki veri K18 hücresine yazılsın
- I4 hücresinde "R" varsa, K12 hücresindeki veri K18 hücresine yazılsın
- Hem I3 hem I4 hücrelerinde "R" varsa, K14 hücresindeki veri K18 hücresine yazılsın
- I5 hücresinde "R" varsa, K16 hücresindeki veri K18 hücresine yazılsın

Tüm bu koşulları değerlendiren **tek bir formül**, K18 hücresine nasıl yazılır?

Not: I3, I4 ve I5 hücreleri çift tıklanınca "R" oluyor; yazı tipi "Wingdings 2" olduğu için kullanıcıya tik simgesi gibi görünüyor.