A sütünuna karşılık gelen hücre boşsa uyarı versın

[y_tekeli]

aşağıda ki gibi bir makrom var fakat ben a sütünunda dolu olan son hücreye karşılık gelen d ve e sutununki hücreler boşsa uyarı versin dolu ise makro çalışsın istiyorum. Mümkün müdür acaba

sub sıralıliste()

activeworkbook.worksheets("vardiya").autofilter.sort.sortfields.clear
activeworkbook.worksheets("vardiya").autofilter.sort.sortfields.add key:= _
range("a3"), sorton:=xlsortonvalues, order:=xlascending, dataoption:= _
xlsortnormal
with activeworkbook.worksheets("vardiya").autofilter.sort
.header = xlyes
.matchcase = false
.orientation = xltoptobottom
.sortmethod = xlpinyin
.apply
end with
range("j1:k3").select
end sub

 

[Emir Hüseyin Çoban]

. . .

Sub sıralıliste()

[B]sonsatır = [A65536].End(3).Row
If Cells(sonsatır, "D") = "" Or Cells(sonsatır, "E") = "" Then
MsgBox "Hücreler Boş", vbCritical
Exit Sub
End If[/B]

ActiveWorkbook.Worksheets("vardiya").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("vardiya").AutoFilter.Sort.SortFields.Add Key:= _
Range("a3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

With ActiveWorkbook.Worksheets("vardiya").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("j1:k3").Select
End Sub

. . .

 

[y_tekeli]

Teşekkürler...