Zorunlu Bilgi Girişi

[shiva]

Merhaba Arkadaşlar,

Öyle bir makro istiyorum ki C2 de (C Sütunuda diyebiliriz) yer alan combobox'tan "Kazanıldı" seçildiğinde I2-J2-K2 (I-J-K Sütunları) hücreleri mutlaka doldurulsun. Doldurulmadan save edilmeye çalışıldığında boş olan hücrenin doldurulması gerektiği bilgisi pop-up olarak ekrana gelsin.

p.S: Dosyanın tüm C sütununa uygulamak istiyorum.

Konu hakkında yardımlarınız için şimdiden teşekkürler.


İyi çalışmalar.


Engin

 

[kulomer46]

Ekli dosyayı inceleyiniz.

 

[shiva]

teşekkürler Kulomer46
C2 den kazanıldı seçip ıjk hücrelerine hiçbirşey yazmadan save edebiliyorum. Bir uyarı gelmedi. Benim excel 2007 versiyom. acaba ondan kaynaklanıyor olabilir mi?

 

[kulomer46]

kazanıldı değil, Kazanıldı olarak giriniz. (Büyük harfle başlasın)

 

[shiva]

dosyada makro yok. dosyaya işlemeden direk buaraya yazabilir misin?

 

[kulomer46]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim son
son = Cells(65500, 3).End(xlUp).Row
For i = 1 To son
If Cells(i, 3).Value = "Kazanıldı" Then
If Cells(i, 9) = "" Then
Cells(i, 9).Select
MsgBox "I" & i & " hücresi boş olduğundan kayıt yapılamıyor"
Cancel = True
End
End If
If Cells(i, 10) = "" Then
Cells(i, 10).Select
MsgBox "J" & i & " hücresi boş olduğundan kayıt yapılamıyor"
Cancel = True
End
End If
If Cells(i, 11) = "" Then
Cells(i, 11).Select
MsgBox "K" & i & " hücresi boş olduğundan kayıt yapılamıyor"
Cancel = True
End
End If
End If
Next

End Sub

 

[kulomer46]

sorun devam ediyormu ?

 

[shiva]

macroyu kaydedemedim ?

http://www.excel.web.tr/showthread.php?p=305413&posted=1#post305413