ÇiftTıklanan Sutunu İlk Sutun Olarak Eklemek

[kykbt]

Arkadaşlar Merhaba;

Yapmak istediğim çalışma sayfasında sadece 1 (bir) nolu satır üzerinde hangi hücreye çift tıklar isem,

O hücrenin bulunduğu sutunun tamamını Kopya olarak, ilk sutunun önüne bir sutun ekleyip oraya kopyalamak istiyorum.

Nasıl Yapabilirim?

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Rows("1:1")) Is Nothing Then Exit Sub
    Columns("A:A").Insert Shift:=xlToRight
Columns(Target.Column).Copy Columns("A:A")
Range("a1").Select
End Sub

 

[kykbt]

Hocam çok teşekkür ediyorum. Sağolun.