boş hücre uyarısı

[ikikan]

If Range("O9").Text = Empty Then MsgBox "O9 Hücresi Boş", vbInformation: Exit Sub

bu uyarıyı a1 , t11 t12 ve d20 hücreleri içinde oluşturmak istiyorum

aynı her hücre için aynı formülümü yazmak zorundayım kısa bir yolu varmı ?

 

[Huseyinkis]

If Range("O9").Text = Empty Then MsgBox "O9 Hücresi Boş", vbInformation: Exit Sub

bu uyarıyı a1 , t11 t12 ve d20 hücreleri içinde oluşturmak istiyorum

aynı her hücre için aynı formülümü yazmak zorundayım kısa bir yolu varmı ?

Ek bir hucre yardımı ile yapılabilir. Fakat hangi hucrenin boş olduğunu msg yansıtamassınız.

bu işlemi yapmak için yardımcı hücreye =Birleştir(O9;A1;T11;T12;D20) yapın ve yardımcı hücre boş ise msg verdirebilirsiniz.

B1 =Birleştir(O9;A1;T11;T12;D20)

If Range("B1").Text = Empty Then MsgBox "Boş hücre mevcut", vbInformation: Exit Sub

Yukarıdaki işlem tüm hücrelerin boş olması durumunda geçerli..

 

[ikikan]

Ek bir hucre yardımı ile yapılabilir. Fakat hangi hucrenin boş olduğunu msg yansıtamassınız.

bu işlemi yapmak için yardımcı hücreye =Birleştir(O9;A1;T11;T12;D20) yapın ve yardımcı hücre boş ise msg verdirebilirsiniz.

B1 =Birleştir(O9;A1;T11;T12;D20)

If Range("B1").Text = Empty Then MsgBox "Boş hücre mevcut", vbInformation: Exit Sub

Yukarıdaki işlem tüm hücrelerin boş olması durumunda geçerli..

If Range("O9").Text = Empty Then MsgBox "O9 Hücresi Boş", vbInformation: Exit Sub

her hücre için boş uyarıs vermesi lazım bir hücre doluysa diğerlerini görmüyor
her hücre için ayrı ayrı yapılamazmı

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1,b1,c1]) Is Nothing Then Exit Sub
If Target.Text = Empty Then
MsgBox "Boş Hücre Mevcut"
End If
End Sub

 

[ikikan]

Bu şekilde kendinize uyarlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1,b1,c1]) Is Nothing Then Exit Sub
If Target.Text = Empty Then
MsgBox "Boş Hücre Mevcut"
End If
End Sub

Sayın Seyit bey bu bir butona baglanamazmı verdiginiz kod sadece terkedilen
hücre için uyarı veriyor ?

 

[ikikan]

Private Sub CommandButton1_Click()
If Range("T11").Text = Empty Then MsgBox "T11 Hücresi Boş", vbInformation: Exit Sub
If Range("T12").Text = Empty Then MsgBox "T12 Hücresi Boş", vbInformation: Exit Sub
If Range("T13").Text = Empty Then MsgBox "T13 Hücresi Boş", vbInformation: Exit Sub
If Range("T14").Text = Empty Then MsgBox "T14 Hücresi Boş", vbInformation: Exit Sub
If Range("T15").Text = Empty Then MsgBox "T15 Hücresi Boş", vbInformation: Exit Sub
If Range("O9").Text = Empty Then MsgBox "O9 Hücresi Boş", vbInformation: Exit Sub
If Range("W26").Text = Empty Then MsgBox "W26 Hücresi Boş", vbInformation: Exit Sub

MANTIK BU ŞEKİLDE OLMALI BUTONA BASINCA UYARI VERMELİ

 

[ikikan]

arkadaşlar bu kodu farklı hücrelerde bu şekilden başka kullanma sansım yokmu

 

[Seyit Tiken]

Bu şekilde düğmeye bağlayıp kendinize uyarlayınız.

If Intersect(ActiveCell, [a1,b1,c1]) Is Nothing Then Exit Sub
If ActiveCell.Text = Empty Then
MsgBox "Boş Hücre Mevcut"
End If

 

[ikikan]

Bu şekilde düğmeye bağlayıp kendinize uyarlayınız.

If Intersect(ActiveCell, [a1,b1,c1]) Is Nothing Then Exit Sub
If ActiveCell.Text = Empty Then
MsgBox "Boş Hücre Mevcut"
End If

Seyit bey bu kodu denedim bir eksikle işime yarıyacak gibi
örnekte A1 ,A2 ,B4 ,C5 herhangibiri boşsa uyarı veriyor
sizin koda biri doluysa onaylıyor
her hücre için kontrol yapması mümkünmüdür

çalışma mantıgı bu şekilde olcak
Private Sub CommandButton1_Click()
If Range("a1").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
ElseIf Range("a2").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
ElseIf Range("b4").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
ElseIf Range("c4").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
Exit Sub
End If
End Sub