Formülü Makro kodların arasına, Kod olarak Yerleştirmek..!

[sensizsoldum]

Merhabalar,
Aşağıdaki formülü, Makro kodların arasına, kod olarak yerleştirebilir miyiz? Makro kaydet yöntemi ile bir kaç yöntem denedim bazılarından sonuç aldım. Ama excel çalışmasına zararlar vererek kapanıyor. Anladığım kadarıyla bilmeden yanlış bir şeyler yapıyorum.

Şimdiden çok teşekkür ediyorum.



Formül:

=EĞER(EHATALIYSA(DÜŞEYARA($C3;ŞARTLAR!$B$3:$C$65536;2;0));"";DÜŞEYARA($C3;ŞARTLAR!$B$3:$C$65536;2;0))

Kod:

Private Sub Worksheet_Activate()
Application.EnableEvents = False
    Range("F3:H" & Rows.Count).ClearContents
    Son = Cells(Rows.Count, 2).End(3).Row + 1
    With Range("F3:F" & Son)
        .Formula = "=IF(B3<>"""",SUMIF(STOK!A:A,B3,STOK!E:E),"""")"
        .Value = .Value
    End With
    With Range("G3:G" & Son)
        .Formula = "=IF(B3<>"""",SUMIF(GELENLER!A:A,B3,GELENLER!C:C),"""")"
        .Value = .Value
    End With
    With Range("H3:H" & Son)
        .Formula = "=IF(AND(F3<>"""",F3=G3),"" Üretim Tamamlanmıştır."",IF(G3<F3,TEXT(F3-G3,""#.##0,0"")&"" MT Üretim Olmuştur."",IF(G3>F3,TEXT(G3-F3,""#.##0,0"")&"" MT Sevk Edilmiş Kumaş Vardır."",IF(AND(F3="""",G3=""""),"""",""?""))))"
        .Value = .Value
    End With
End Sub

 

[turk-x]

Merhaba;
aşağıdaki kodlamaya göre kodlarınız düzenleyin.
=EĞER(EHATALIYSA(DÜŞEYARA($C3;ŞARTLAR!$B$3:$C$65536;2;0));"";DÜŞEYARA($C3;ŞARTLAR!$B$3:$C$65536;2;0)) formülünü F3 hücresinden itibaren dolu olan son hücreye kadar yazar

  For i = 3 To Son
   Range("F" & i).Formula = "=IF(ISERROR(VLOOKUP(R[-89]C3,ŞARTLAR!R3C2:R65536C3,2,0)),"""",VLOOKUP(R[-89]C3,ŞARTLAR!R3C2:R65536C3,2,0))"
   Next i

 

[sensizsoldum]

Sonuç alamadım hata veriyor

 

[turk-x]

Merhaba;
Örnek dosya yollarsanız dosya üzerinde deneme imkanımız olur

Örnek olarak ben bir dosya ekliyorum ve sorunsuz çalışıyor.

 

[turk-x]

Sayfa1 deki H Sütununu komple silin
şartlar sayfasını açıp tekrar sayfa1 e gelin
ve h2 den itibaren h31 hücresine kadar olan kısımda formülleri görün

 

[sensizsoldum]

Aşağıdaki linkten örnek dosyaya ulaşa bilirsiniz.

Teşşekkür ediyorum ilginiz için.

 

[turk-x]

Örnek Dosyayı Eklemeyi Unutmuşsunuz

 

[sensizsoldum]

Evet ya unutmuşum.
Link aşağıdadır, download edebilirsiniz.

http://www.dosya.tc/server/kI4zPr/_rnek.rar.html

 

[turk-x]

Merhaba;

Çalışmanızı inceledim ama Mevcut haliyle sorunsuz çalışıyor.
Tek Sorun Stok ve Gelenler Sayfası bulunamadığı için bir kereye mahsus uyarı veriyor.
ilgili sayfaları eklerseniz o uyarıyı da almazsınız.