Hücrenin solundaki hücre boş ise veri girilemesin..

Katılım
10 Eylül 2009
Mesajlar
288
Excel Vers. ve Dili
2003 Türkçe
İyi akşamlar herkese öncelikle..
Benim şöyle bir sorunum var. B7 hücresine veri girilebilmesi için solundaki yani A7 hücresine veri girişi yapılmış olmasını nasıl sağlayabilirim. Yani B7 hücresine veri girdiğimde A7 boş ise uyarı versin A7 boş diye..
 
Katılım
10 Eylül 2009
Mesajlar
288
Excel Vers. ve Dili
2003 Türkçe
Teşekkürler Fedeal Bey ancak ben excelde yeni olduğum için verdiğiniz kodu geliştiremiyorum. Ben komple A sütunu boş ise B sütunu için ve C sütunu boş ise D sütunu için bu uyarıyı verdirmek istiyorum, ilginiz için teşekkür ederim. Bu arada nasip olursa yarın bende altın üye olacağım, o kadar bilgi ediniyoruz. Benimde bir katkım olsun siteye. İyi geceler diliyorum.

Birde çalışma kitabımda bir çok sayfa var bu kodu ilgili sayfasının kod sayfasınamı yapıştırmamız gerekiyor..
 

fedeal

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
Birde çalışma kitabımda bir çok sayfa var bu kodu ilgili sayfasının kod sayfasınamı yapıştırmamız gerekiyor..
Evet ilgili sayfanın kod bölümüne yapıştırırsanız işinizi görür alttaki kodu yapştırın.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [b1:b65000]) Is Nothing Then GoTo atla
If ActiveCell.Offset(0, -1).Value = "" Then
MsgBox "A" & ActiveCell.Row & " HÜCRESİ DOLU OLMALI", , "EXCEL.WEB"
ActiveCell.Offset(0, -1).Select
End If
atla:
If Intersect(Target, [d1:d65000]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = "" Then
MsgBox "c" & ActiveCell.Row & " HÜCRESİ DOLU OLMALI", , "EXCEL.WEB"
ActiveCell.Offset(0, -1).Select
End If
End Sub
 
Katılım
10 Eylül 2009
Mesajlar
288
Excel Vers. ve Dili
2003 Türkçe
Emrah bey çok teşekkür ederim. Kodunuz tam ve sorunsuz olarak çalıştı. Ellerinize ve emeğinize sağlık..
 

fedeal

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
Ricaederim iyi çalışmalar.
 
Üst