Mesajla istenilen hücrelere tarih yazmamı sorsun

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar;
Bir tablom var bu tablomda aşağıdaki kodla Motorin sayfamdan TOPLAM sayfama verileri hızlıca kaydediyorum.

Sub AKARYAKIT_TOPLA()



a = WorksheetFunction.CountA(Sheets("TOPLAM").Range("C3:C100"))

Sheets("TOPLAM").Range("A" & a + 3) = a + 1
Sheets("TOPLAM").Range("B" & a + 3) = Sheets("Motorin").Range("P5")
Sheets("TOPLAM").Range("C" & a + 3) = Sheets("Motorin").Range("P8")
Sheets("TOPLAM").Range("D" & a + 3) = Sheets("Motorin").Range("R8")
Sheets("TOPLAM").Range("E" & a + 3) = Sheets("Motorin").Range("P9")
Sheets("TOPLAM").Range("F" & a + 3) = Sheets("Motorin").Range("R9")


MsgBox "TOPLAM SAYFASINA EKLENDİ.", vbInformation, "DİKKAT"

Range("P5") = ""
Range("P6") = ""
Range("R6") = ""

End Sub

Ancak ikinci bir kayıtta silmiş olduğum P5, P6 ve R6 olacak olan veriler için beni uyarmasını istiyorum. Örneğin P5 hücresi için hemen yanında bulunan O5 hücresinde bulunan "FATURA TARİHİ" ni girmelisiniz şeklinde uyarmasını istiyorum. Teşekkürler.

 

[Hacı Bayram ÖZKAN]

Sayın PLİNT'in yazmış olduğu kodu kendime uyarladım oldu, herkese teşekkür ederim.

Sub TEST_KAYIT()
Dim x1, x2 As Variant
x1 = Array("B3", "M3", "Q3", "R3")
x2 = Array("Tarih", "Saat", "Sayı", "Açıklama")
For bak = 0 To UBound(x1)
If Range(x1(bak)) = "" Then
MsgBox x2(bak) & " GİRİNİZ"
Exit Sub
End If
Next

'Kodlarınız....


End Sub