Sütunda belirli aralıktaki aktif hücre değerini sorgulam

[Korhan Ayhan]

Selamlar,

Oluşturmak istediğim makroda aşağıdaki ifadeyi nasıl düzenleyebilirim.

Eğer B sütununda (B2:B5000 aralığında) o anda bulunduğum aktif hücre değeri boş ise aktif hücrenin solundaki hücre değeri boş olsun. Değilse benim yönlendireceğim prosedürü uygulasın.

 

[veyselemre]

[vb:1:386644b406]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b2:b5000]) Is Nothing Then
If Target = "" Then
Target.Offset(0, -1) = ""
Else
MsgBox "aktif hücre boş değil"
End If
End If
End Sub[/vb:1:386644b406]

 

[Korhan Ayhan]

Selamlar,

Peki bu vermiş olduğunuz kodu bir butona nasıl bağlarız.

 

[Levent Menteşoğlu]

Kodu aşağıdaki şekilde düzenleyin. Kod içindeki msgbox un bulunduğa satıra kendi kodlarınızı yazabilirsiniz.

[vb:1:b738b7bb7a]Sub degerlendir()
If Intersect(ActiveCell, [b2:b5000]) Is Nothing Then Exit Sub
If ActiveCell = 0 Then
ActiveCell.Offset(0, -1).ClearContents
Else
MsgBox "merhaba"
End If
End Sub
[/vb:1:b738b7bb7a]

 

[Korhan Ayhan]

Sn. leventm ve veyselemre,

Yardımlarınız için çok teşekkür ederim. ost: