Sütunda bulunan hücrelerde değer arama

[Cemal2617]

Merhaba;
Mevcut macroyu çalıştırmadan önce örn. a2 sütununda bulunan (A4:A39) aralığındaki hücreleri kontrol ederek herhangi birinde eksi değer gördüğünde makroyu
çalıştırmayıp mesaj uyarısı yapsın ve makroyu çalıştırmasın,
Herhangi birinde eksi değer yok ise makroyu çalıştırsın.
yardımcı olabilecek varsa çok mutlu olurum

 

[Merhum İdris SERDAR]

A2 hücresine:

=COUNTIF(A4:A39;"<0")

yazın aşağıdaki gibi bir kod kullanın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Target = Range("A2")
If Target.Value = 0 Then
Call Macro1
End If

End Sub

Buradaki Macro1 sizin makronuzun adı olmalı.

.

 

[turist]

Sayın @Cemal2617
Forumumuza hoşgeldiniz.

Makro Kodunuzun başlığından sonra

Dim say As Integer
say = Application.WorksheetFunction.CountIf(Range("A4:A39"), "<0")
If say > 0 Then
MsgBox "Hata var "
Exit Sub
End if
..... kodunuzun çalışmasını istediğiniz kısmı ve devamı...
şeklinde deneyin.

 

[Cemal2617]

Sayın @Cemal2617
Forumumuza hoşgeldiniz.

Makro Kodunuzun başlığından sonra

Dim say As Integer
say = Application.WorksheetFunction.CountIf(Range("A4:A39"), "<0")
If say > 0 Then
MsgBox "Hata var "
Exit Sub
End if
..... kodunuzun çalışmasını istediğiniz kısmı ve devamı...
şeklinde deneyin.

Çok Teşekür ediyorum Elinze sağlık

 

[turist]

Sağolun.