makro çalıştırma

[ao41tr]

belirli bir hücrenin değeri 0 olduğunda çalışacak makro yapabilirmiyiz:yardim:

 

[baydeniro]

Merhaba ao41tr. Şu adreste bir örnek var. Kendine uyarlayabilirsen senin işine yarar.

http://www.excel.web.tr/showthread....kro+%26gt%3B+A%E7%FDklama+%DDle+%C7al%FD%FEan

Konu adı ile aramada : Makro > Açıklama İle Çalışan

 

[ocamsul]

Site ADMİN imiz Sn: ALPEN e ait bir kod. kendinize uyarlayabilirsiniz.

Modül1 e ekleyin:

Public col As Integer
Public row As Integer

ilgili sayfanın kod bölümüne ekleyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B8")) Is Nothing Then Exit Sub
If row <> 0 Then
If Cells(row, col) = "0" And Target.row <> row Then
MsgBox ("boş geçemezsiniz")
Cells(row, col).Select
Exit Sub
End If
End If
If Target.row <> row Then
row = Target.row
col = Target.Column
End If
End Sub