Satır Silinirken Uyarı Verdirme

[YasarPiskin]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

J Sütununa herhangibir tarih girildiğinde o satır silinip ARŞİV sayfasına aktarılırken uyarı vermeye yarayan Module1 deki mevcut kodun aktif hale getirilmesi hususunda yardımlarınızı rica ediyorum.

 

[okutkan]

Satırın silinip diğer sayfaya aktarılması işlemini mesaj kutusu ile onaylamak istiyorsunuz olarak anladım. Data sayfasının change prosedürünü aşağıdaki ile değiştirin.

Bu kodu görmek için giriş yapmanız gerekmektedir (34 satır). Giriş Yap

 

[YasarPiskin]

Çok teşekkür ederim.

 

[YasarPiskin]

If MsgBox(Cells(Target.Row, "C") & " SİLİNECEK, EMİN MİSİNİZ? ", vbYesNo) = vbNo Then GoTo 10 satırnı mesajı örnek olarak "16 İSKENDERUN SİLİNECEK, EMİN MİSİNİZ?" şeklinde olacak şekilde düzeltebilir miyiz?

 

[okutkan]

MsgBox(Cells(Target.Row, "C")
Yukarıdaki msgbox parantezini aşağıdaki şekilde değiştirin.
MsgBox(Cells(Target.Row, "B" & " " & Cells(Target.Row, "C")

 

[YasarPiskin]

Çok teşekkür ederim.

 

[YasarPiskin]

Cevap 4 den farklı olarak If MsgBox(Cells(Sat, "C") & " SİLİNECEK, EMİN MİSİNİZ? ", vbYesNo) = vbNo Then Exit Sub satırnı mesajı örnek olarak "16 İSKENDERUN SİLİNECEK, EMİN MİSİNİZ?" şeklinde olacak şekilde düzeltebilir miyiz?

 

[okutkan]

Cevap 4 te aldığınız sonuç aynı değil mi?
B sütununda 16 yazıyor
C sütununda iskenderun yazıyor
İkisini birleştirdiğimizde sonuç sizin istediğiniz gibi çıkıyor. Bundan farklı olarak istediğiniz nedir?

 

[YasarPiskin]

Soru çözüme ulaşmıştır.