- Katılım
- 24 Şubat 2009
- Mesajlar
- 1,070
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 01-03-2023
Merhaba arkadaşlar; Aşağıdaki kodla Belgemin ALINDI sayfasında bulunan A7 ile P11 arasındaki verileri temizleyip mesaj veriyor,
İSTEĞİM;
Teşekkür ederim.
İSTEĞİM;
İsteğim eğer ALINDI sayfasında Range("A711") bu aralıkta veri yoksa TEMİZLENECEK BELGE YOK diye mesaj vermesini istiyorum. teşekkürler.Sub TEMİZLE()
If MsgBox("LÜTFEN DİKKAT!" & vbCrLf & "ALINDI BELGESİNİ TEMİZLEMEYİ ONAYLIYOR MUSUNUZ? " & vbCrLf & "EVET YADA HAYIR", vbInformation + vbYesNo, "..::LÜTFEN DİKKAT::..") = vbNo Then Exit Sub
With Sheets("ALINDI").Range("A7:11")
.Value = ""
.Interior.ColorIndex = xlNone
End With
'Alındı Sayfasının A7 ile P11 arasında veri yoksa 'MsgBox "TEMİZLENECEK BELGE YOK" bu mesajı almak için nasıl bir düzenleme yapmam lazım.
MsgBox "ALINDI BELGESİ TEMİZLENDİ ", vbInformation, "CENGİZ Y....K"
End Sub
Teşekkür ederim.
Son düzenleme: