Soru Çift tık ile işlem yapma

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,539
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
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
 
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
Merhaba
Aşağıdaki gibi denermisiniz?
https://www.dosyaupload.com/bhm0
Kod:
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
 
Son düzenleme:

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,539
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Sayın PLİNT
Çok çok teşekkür ederim. Bilgin daim olsun
 
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
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
 
Üst