Çözüldü Doubleclick ile açıklama formu açılması

[sirkülasyon]

Üstadlarım
U6:U125 arasında ki bir hücreye doubleclick yapıldığında aşağıdaki gibi birleştirme yapacak
B sütunu &" ne "& D sütunu &" yerleşim yerini "& E sütunu &" öğrenci ve "& F Sütunu &" Km ile
şeklinde kopyalama yapabileceğim bir form açılması Mümkün müdür?

Saygılarımla

 

[kulomer46]

Aşağıdaki kodu ilgili yere eklemeniz yeterlidir.

Kodu ekledikten sonra U6:U125 arasında işlem yapılmasını istediğiniz hücreyi çift tıklarsanız, talebiniz yerine gelecektir.

Selamlar...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 21 Then

    If Target.Row > 5 And Target.Row < 126 Then
   
        Target.Value = Cells(Target.Row, 2) & " ne " & Cells(Target.Row, 4) & " yerleşim yerini " & Cells(Target.Row, 5) & " öğrenci ve " & Cells(Target.Row, 6) & " Km ile"
   
    End If
   
End If

End Sub

 

[sirkülasyon]

Sayın kulomer46
Form şeklinde ya da INPUTBOX şeklinde açılabilir mi?
Target.Value = Cells(Target.Row, 2) & " ne " & Cells(Target.Row, 4) & " yerleşim yerini " & Cells(Target.Row, 5) & " öğrenci ve " & Cells(Target.Row, 6) & " Km ile"
yazısı form ile çıkması mümkün mü?

 

[kulomer46]

Talebiniz üzere INPUTBOX şeklinde açılan kod aşağıdadır.

Selamlar...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 21 Then

    If Target.Row > 5 And Target.Row < 126 Then
    
        Target.Value = ""

        mesaj1 = Cells(Target.Row, 2) & " ne " & Cells(Target.Row, 4) & " yerleşim yerini " & Cells(Target.Row, 5) & " öğrenci ve " & Cells(Target.Row, 6) & " Km ile"
        
        c = InputBox("Mesajınız Aşağıda hazırdır", , mesaj1)

        Target.Value = c

    
    End If
    
End If

End Sub

 

[sirkülasyon]

Sayın kulomer46
Ellerine sağlık. Çok çok teşekkür ederim.
Sağ olasın.

 

[kulomer46]

Sayın kulomer46
Ellerine sağlık. Çok çok teşekkür ederim.
Sağ olasın.

Selamlar...