[teknik]
(1) 

Excel sorusu

1195 #1591921
A1 hücresine giris yapildiginda B1in bos kalmasini istemiyorum, ancak B1 bos birakilirsa hemen uyari vermesine gerek yok, kaydetmeden once eger atiyorum A52de entry var ve B52 bos ise kaydetme olmasin.

cunku cok fazla manuel entry girilecek, her defasinda ama Byi bos birakma diye uyarmasi sinir bozucu olurdu, ki data validationda yapinca hep oyle oluyor-


 

aşağıdaki makro kodunu kullanabilirsiniz

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
If Cells(i, 1).Value <> "" And Cells(i, 2).Value = "" Then
MsgBox "A" & i & " hücresinde değer girilmiş, ancak B" & i & " hücresi boş. Lütfen doldurun.", vbExclamation
Cancel = True
Exit Sub
End If
Next i
End Sub

pislick0
1

mobil görünümden çık