Notes

>>>>>>>>>>>>>>>>>>>USERFORM İÇERİSİNE YAZILACAK KODLAR<<<<<<<<<<<<<<<<<<<<<<<<<<<

Dim excelvba() As New mrtDUMAN

Private Sub UserForm_Initialize()
say = 1
For Each mrt In Me.Controls
If TypeName(mrt) = "TextBox" Then
ReDim Preserve excelvba(1 To say)
Set excelvba(say).TControl = mrt
say = say + 1
End If
Next
End Sub

Private Sub UserForm_Terminate()
Application.CommandBars("Cell").Reset
End Sub
------------------------------------------------------------------
>>>>>>>>>>>>>>>>>>>SagClickModule İSMİYLE OLUŞTURULACAK MODÜLÜN İÇERİSİNE YAZILACAK KODLAR<<<<<<<<<<<<<<<<<<

Private Sub RightClickMenuTextBox()
Application.CommandBars("Cell").Reset
Dim cbc As CommandBarControl
For Each cbc In Application.CommandBars("cell").Controls
cbc.Visible = False
Next cbc
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Kopyala"
.OnAction = "myCopy"
.FaceId = 19
End With
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Yapıştır"
.OnAction = "myPaste"
.FaceId = 22
End With
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Kes"
.OnAction = "myCut"
.FaceId = 21
End With
With Application.CommandBars("Cell").Controls.Add(temporary:=True)
.Caption = "Temizle"
.OnAction = "myClear"
.FaceId = 47
End With
'With Application.CommandBars("Cell").Controls.Add(temporary:=True)
' .Caption = "Telephone"
' .OnAction = "myCell"
' .FaceId = 568
'End With
Application.CommandBars("Cell").ShowPopup
End Sub

Private Sub myCopy()
UserForm1.ActiveControl.Copy
End Sub

Private Sub myPaste()
UserForm1.ActiveControl.Paste
End Sub

Private Sub myCut()
UserForm1.ActiveControl.Cut
End Sub

Private Sub myClear()
UserForm1.ActiveControl.Value = Empty
End Sub
Private Sub myCell()
On Error Resume Next
UserForm1.ActiveControl.Value = Sheets("Sheet1").Range("E4").Value
End Sub
--------------------------------------------------------------
>>>>>>>>>>>mrtDUMAN İSMİYLE OLUŞTURULACAK CLASS MODÜLENİN İÇERİSİNE YAZILACAK KODLAR<<<<<<<<<<<

Public WithEvents TControl As MSForms.TextBox

Private Sub TControl_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Button = 2 And Shift = 0 Then

Run "RightClickMenuTextBox"
End If
End Sub