Countıf kodunda yardım

[kemal turan]

merhaba,
Sn.Korhan beyin emeğini başka bir görevde kullanmaya çalıştım.
Aşağıdaki kodun kalın puntolu satırı sunucu K sutununda YANLIŞ olarak veriyor.
Hata nerede acaba.
Teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("E7335:E" & Rows.Count)) Is Nothing Then Exit Sub
With Target
Cells(.Row, "I").Value = Cells(.Row, "e").Value * Cells(.Row, "G").Value
Cells(.Row, "k").Value = .Formula = "=IF(COUNTIF(stoklar!A:A,d6)>0,""STOK KAYITLI"",""STOK KAYDI YAPINIZ"")"
.Value = .Value
End With

son:
End Sub

 

[Ömer]

Merhaba,

Cells(.Row, "k").Value = .Formula = "=IF(COUNTIF(stoklar!A:A,d6)>0,""STOK KAYITLI"",""STOK KAYDI YAPINIZ"")"

Kodlardaki kırmızı işaretli bölümü silip deneyin.

 

[kemal turan]

Merhaba Ömer hocam
Önerinizle beraber d6 olan yeri d:d yapınca isteğim oluştu.
Çok teşekkür ederim.
Selametle kalınız.
Cells(.Row, "k").Value = "=IF(COUNTIF(stoklar!A:A,D)>0,""STOK KAYITLI"",""STOK KAYDI YAPINIZ"")"
.Value = .Value

 

[kemal turan]

Merhaba,
Aşağıdaki kodun bold renkli satırı yani K sutununda sonucu formül olarak veriyor.
Bunu değer yapabilirmiyiz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("E7335:E" & Rows.Count)) Is Nothing Then Exit Sub
With Target
Cells(.Row, "I").Value = Cells(.Row, "e").Value * Cells(.Row, "G").Value
Cells(.Row, "K").Value = "=IF(COUNTIF(stoklar!A:A,D;D)>0,""STOK KAYITLI"",""STOK KAYDI YAPINIZ"")"
.Value = .Value
End With

son:
End Sub