uyarı sorusu

[forum34uyelik]

Merhaba arkadaşlar, A1 hücresindeki veriyi silmek istediğimde, veri silinmeden önce bir uyarı vermesini sağlayabilir miyim?

 

[apocalyt]

size daha önce açtığnız konuda bid kod göndermiştim..ona ilave mi yapmak istiyosunuz ??

 

[paranormal]

Böyle bi seymi

If MsgBox("[ " & TextBox1 & " ]" & Chr(10) & " Ísimli, Bilgileri ve fotografi silmek istiyormusunuz?", vbYesNo, "GÜNCELLE") = vbNo Then
MsgBox "Íþlem iptal edildi", vbCritical, "ÍPTAL"
Exit Sub
End If

 

[forum34uyelik]

size daha önce açtığnız konuda bid kod göndermiştim..ona ilave mi yapmak istiyosunuz ??

Evet sizin yazdığınız koda ilaveten, yani ikisini birleştirebilirseniz harika olur. Bunu daha sonradan fark ettim F ve ZZ sütunlarına oldukça fazla veri giriyorum, fakat yanlışlıkla delete tuşuna filan bassam tüm veriyi bir anda silecek, bu nedenle silmeden önce en azından bir uyarı versin istiyorum mümkünse tabi.

 

[apocalyt]

eski kodun yerine aşağdaki iki kodu kullanın..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target.Value = "" Then
a = MsgBox("A" & Target.Row & " hücresini silmek mi istiyorsunuz?", vbInformation + vbYesNo)
If a = vbYes Then
Range("l" & Target.Row & ":" & "zz" & Target.Row).ClearContents
Exit Sub
Else
Target.Value = Cells(Target.Row, 200)
Exit Sub
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
Range("a:a").Copy Cells(1, 200)
End Sub

 

[forum34uyelik]

eski kodun yerine aşağdaki iki kodu kullanın..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
If Target.Value = "" Then
a = MsgBox("A" & Target.Row & " hücresini silmek mi istiyorsunuz?", vbInformation + vbYesNo)
If a = vbYes Then
Range("l" & Target.Row & ":" & "zz" & Target.Row).ClearContents
Exit Sub
Else
Target.Value = Cells(Target.Row, 200)
Exit Sub
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a2:a1000")) Is Nothing Then Exit Sub
Range("a:a").Copy Cells(1, 200)
End Sub

Apocalyt Hocam, ellerinize sağlık kod her zamanki gibi mükemmel çalışıyor.

Sizden küçük bir isteğim daha olacak, şöyle ki A5 hücrersini sildiğimde "A5 hücresini silmek mi istiyorsunuz?" diye uyarı veriyor, bunun yerine A5 yazısını kaldırıp mesajda A5 hücresinin içeriğini yazdırabilir misiniz?

Özetlemek gerekirse eğer A5 hücresinde apocalyt yazıyor ise "apocalyt kişisine ait tüm veriler silinsin mi?" diye bir uyarı verebilir mi? zira A6, A7, A8 vs.. bunların hepsinde farklı isimler var.

 

[apocalyt]

aşağdaki kodu

a = MsgBox("A" & Target.Row & " hücresini silmek mi istiyorsunuz?", vbInformation + vbYesNo)

bununla değiştirin.

a = MsgBox(Cells(Target.Row, 200).Value & " kişisine ait tüm veriler silinsin mi?", vbInformation + vbYesNo)

 

[forum34uyelik]

aşağdaki kodu

a = MsgBox("A" & Target.Row & " hücresini silmek mi istiyorsunuz?", vbInformation + vbYesNo)

bununla değiştirin.

a = MsgBox(Cells(Target.Row, 200).Value & " kişisine ait tüm veriler silinsin mi?", vbInformation + vbYesNo)

Apocalyt Hocam, ellerinize sağlık çok teşekkür ederim, saygılar.

 

[apocalyt]

rica ederim..ne demek..