Acil yardım uyarı makrosu

[erkanacet]

Arkadaşlar bir personel performans doyası hazırlamaya çalışıyorum. Fakat bir problemim var.
Dosya tamamen L sütunundaki puanlara göre çalışıyor. Kullanıcı "Performans sıralamasını gör" butonuna tıkladığında O ana kadar girilen tüm bilgilere göre tüm personelin performans sırlalamasını yapıyor.
Þayet L sütununa değer girilmez ise o olayı hesapmalara katmıyor. Mesela önce L sütununda tüm değerler girilmiş iken makroyu çalıştırın sıralamayı görün bir de L sütununu boşaltıp makroyu çalıştırın sıralamyı görün farkı göreceksiniz. Dolayısı ile benim istediğim, kullanıcı "performans sıralamasını gör" butonunu tıkaldığında şayet L sütununda o ana kadar girilmemiş bir değer var ise makro çalışmasın ve kullanıcıyı uyarsın. Kullanıcı L sütunundaki eksikleri tamamladıktan sonra tekrar tıklandığında makro çalışsın. Çalışmamda sizlerinde bir katkısı olursa çok sevinirim. Þimididen teşekkürler

 

[erkanacet]

Arkadaşlar dosya ekte.

 

[Levent Menteşoğlu]

Kodlarınızın en üstüne aşağıdaki satırları ilave ederek deneyin.

[vb:1:ca97aa060b]Sub perfsiralama()
say = WorksheetFunction.CountA([c6:c1000])
say1 = WorksheetFunction.CountA([l6:l1000])
If say <> say1 Then
MsgBox "LÜTFEN EKSİK PUANLAMAYI TAMAMLAYINIZ"
sat = [l5:l65536].Find("").Row
Cells(sat, "l").Select
Exit Sub
End If
.
.
.Mevcut kodlarınızı yazın.
.
.
End Sub
[/vb:1:ca97aa060b]

 

[erkanacet]

Levent bey,

Yaptım oldu.

Süpersiniz ).