DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
[COLOR="red"]Selection[/COLOR].SpecialCells([COLOR="Red"]xlCellTypeBlanks[/COLOR]).Delete Shift:=[COLOR="Red"]xlUp[/COLOR]
Application.EnableEvents = True
End Sub[/FONT]