eğersay formülünün makro ile yapılması

[kemal turan]

Merhaba,
Aşağıda formülle elde ettiğim kontrolu makro ile yapılmasına ihtiyacım var.
Makroyu çalıştıracak olay pıvot table nin yenilenmesidir.
Örnek dosya ektedir.
Teşekkür ederim.

=EĞER(EĞERSAY(VERİ!A:A;B2)>0;"STOK KAYITLI";"STOK KAYDI YAPINIZ")

 

[Korhan Ayhan]

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    With Range("C2:C" & Cells(Rows.Count, 2).End(3).Row)
        .Formula = "=IF(COUNTIF(VERİ!A:A,B3)>0,""STOK KAYITLI"",""STOK KAYDI YAPINIZ"")"
        .Value = .Value
    End With
End Sub

 

[kemal turan]

Merhaba Korhan hocam,
Emeğinize sağlık, çok teşekkür ederim.
Selametle kalınız.

 

[ayhan518]

Merhaba,
çalışmamda verileri userform ile giriyorum.fakat verileri userform ile kaydettikten sonra ilgili satırdaki "X" değerlerini sayıp "X" lerin sayısının 20 yi geçmesine müsaade etmeyecek bir makro koda ihtiyacım var. örnek çalışmamı buraya yükleyemedim ne yazık ki.

SÜTUN İSİMLERİ BUNLAR;
AO AP AQ AR AS AT AU AV AW AX AY AZ BA BB BC BD BE BF BG BH BI BJ BK BL BM BN BO BP BQ BR BS

5. satır ile 505. satır arasına uygulamak istiyorum yardımcı olabilir misiniz?