Soru Çift tık ile işlem yapma

[sirkülasyon]

Değerli Ustalar
G3 : G2000 arasında herhangi bir sütuna çift tıklama ile

a) Silmek istediğinizden emin misiniz?
EVET ise
"B : L" aralığında ki satırı silecek, G sütununda ki rakamı da Sayfa3' de B4 hücresinden itibaren alt alta küçükten büyüğe aktaracak
HAYIR ise
Silme iptal olacak

Rica etsem kodda yardımcı olabilir misiniz

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?
https://www.dosyaupload.com/bhm0

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Range("G3:G2000")) Is Nothing Then Exit Sub
sor = MsgBox("Silmek istediğinizden emin misiniz? ", vbYesNo)
If sor = vbYes Then
If Target.Value = "" Or IsNumeric(Target.Value) = False Then MsgBox "hücre boş veya sayısal değil": Exit Sub
Set s3 = Sheets("Sayfa3")
x = s3.Cells(Rows.Count, "B").End(3).Row
If x < 3 Then x = 3
s3.Cells(x + 1, "B") = Target.Value
s3.Range("B4:B" & x).Sort Key1:=s3.Cells(4, "B"), Order1:=xlAscending
Range("B" & Target.Row & ":L" & Target.Row) = ""
's3.Activate
'Cancel = True
End If
End Sub

 

[sirkülasyon]

Sayın PLİNT
Çok çok teşekkür ederim. Bilgin daim olsun

 

[PLİNT]

Rica ederim.
Eksiklik olmuş; kodlardaki ilgili satıra kırmızı bölümü ekleyelim (x+1)
s3.Range("B4:B" & x + 1).Sort Key1:=s3.Cells(4, "B"), Order1:=xlAscending