Zorunlu Bilgi Girişi

[shiva]

Merhaba Arkadaşlar,

Öyle bir işlem 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. Ancak bu işlemi macro uygulamadan yapmak istiyorum.

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

 

[Korhan Ayhan]

Selamlar,

Maalesef istediğiniz işlem ancak makro ile yapılabilir.

 

[shiva]

İşlemin macrosunu forumdan bir arkadaş yazdı verdi saolsun.

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

Ancak kaydetmeye çalıştığımda ekte yer alan hatayı alıyorum. Yes dediğimde excel yeni bir macro yaratıyo bunuda kaydedip kapattığımda ana dosyama geri donuyorum macronun kaydeilmediğini görüyorum.

Versiyonum 2007. Sorun neden kaynaklanıyor olabilir acaba?

Teşekkürler.

 

[kulomer46]

Değerli dostum,
makroyu yanlış yere kaydetmeye çalışıyorsunuz. Bu makroyu Microsoft Excel Object altındaki ThisWorkbook alanına kaydetmeniz gerekmektedir. Bu makro çalışma kitabınız kaydedileceği zaman çalışacak ve şartlar uymuyorsa kayıt işlemini yapmayacaktır.
Sorun çözülürse bilgi veriniz.
İyi çalışmalar.

 

[shiva]

Evet evet şimdi oldu. Yanlış yere kaydediyormuşum. Çok teşekkürler.

 

[shiva]

Bu arada söylemeyi unuttum. İzmir 1, İzmir 2, Ankara 1 ve Ankara 2 olmak üzere 4 farklı sheet'im var. Mesela ankara 1 sheetinde ı j k hücrelerinden birini boş bırakıp, diğer bir sheete geçtiğimde save edilebiliyor. Farklı bir sheete bile geçsek save etmeye çalıştığımızda ekrana gelen uyarıda hem sheetin ismi hem de hücre ismi yer alabilir mi?
Teşekkürler.

Engin

 

[shiva]

sorunum hallaodu arkadaşlar çok teşekkürler.