- Katılım
- 31 Mayıs 2008
- Mesajlar
- 4
- Excel Vers. ve Dili
- 2003 Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [D7:D31]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1) = "" Then
ActiveCell.Offset(0, -1).Select
MsgBox "Ürün Seçmediniz"
Exit Sub
End If
End Sub