Userformla aktif hücreye yazdırma

[uguristanbul]

C7 den itibaren cift tıklandığında userform açılacak ve butonlardan hangisine basılırsa c sütütnda cift tıklanmış olan hücreye (aktif hücreye) basılmış olan butonun kılsatması yazacakörn:c7 ye çift tıkladık userform açıldı ve nakit satış butonu tıklandı c7 ye nsat yazacak
saygılarımla

 

[leumruk]

Merhaba,
Deneme sayfanıza aşağıdaki kodu kopyalayın:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C7:C65536]) Is Nothing Then Exit Sub
Cancel = True
UserForm1.Show
End Sub

Userform butonlarınızın kodlarını aşağıdaki gibi düzenleyin. Ben birini örnek olarak yazıyorum. Diğerlerini benzer şekilde kendiniz düzenleyebilirsiniz.

Private Sub CommandButton6_Click()
ActiveCell = "NSat"
End Sub

 

[Orion1]

Dosyanız ektedir.
Classmodule ile yaptım.
Dosyanız ektedir.
Class1 modulde;

Public WithEvents cmd As MSForms.CommandButton
Private Sub cmd_Click()
ActiveCell.Value = cmd.Tag
End Sub

userform declaration da;

Dim cmd() As New Class1

Userform Initializede

Private Sub UserForm_Initialize()
Dim nesne As Control, say As Byte
For Each nesne In Me.Controls
    If TypeName(nesne) = "CommandButton" Then
        say = say + 1
        ReDim Preserve cmd(say)
        Set cmd(say).cmd = nesne
    End If
Next
End Sub

 

[Excelmy]

:dusun:

ListBox ile uygulandı.
Sayfadan daha fazla kod tanımayabilirsiniz

 

[uguristanbul]

hocam ellerinize sağlık
mükemmel olmuş
saygılar