Formülü koda çevirmek

[yanginci34]

Günaydın arkadaşlar Aşağıdaki formül koda nasıl çevrilir.
=EĞERHATA(TOPLA.ÇARPIM(K11/30*J11+L11);"")

 

[Korhan Ayhan]

Deneyiniz.

Bu tarz kodları elde etmek için "MAKRO KAYDET" yöntemini kullanabilirsiniz.

Sub Makro1()
    ActiveCell.Formula = "=IFERROR(SUMPRODUCT(K11/30*J11+L11),"""")"
End Sub

 

[yanginci34]

Korhan Hocam teşekkürler.

 

[yanginci34]

Korhan hocam bu formülü N sütununa A11 den başlayarak son dolu satıra kadar nasıl yazdırabilirim

 

[yanginci34]

Konu günceldir

 

[yanginci34]

Arkadaşlar konuya bir göz atarsanız sevinirim.

 

[Ömer BARAN]

Merhaba.

Konu açılış mesajındaki =EĞERHATA(TOPLA.ÇARPIM(K11/30*J11+L11);"") formülünün kod karşılığını Sayın AYHAN vermiş.
Formülde, üzerinde işlem yapılan sütunlar K, J ve L sütunları ama formülün hangi sütuna uygulandığı da belli değil.

Şimdi ise bu formülü, "N sütununa A11 den başlayarak son dolu satıra kadar nasıl yazdırabilirim" diye soruyorsunuz.
Önceki formülde işlem yapılan sütunlarla, belirttiğiniz N ve A sütununun bir alakası yok.

Gerçek belgenizin, kullanılan formüller dosya içerisinde ve çalışır durumda olmak üzere;
özel bilgi içermeyen kopyası şeklinde hazırlayacağınız bir örnek belge yüklemenizde yarar var.
(işlem için gerekli bilgiler özel bilgiler ise; bunların yerine,
-- anlamlı/tutarlı/gerçek veriyi temsil edebilecek nitelikte -- rastgele veri yazabilirsiniz)
.

 

[yanginci34]

Sayın Hocam ilginiz için teşekkürler şuan telden cevap veriyorum bu yüzden örnek dosya ekleyemiyorum A sütununun formülle bir ilgisi yok sadece 11. satırdan başlayarak A sütununun son dolu hücresi kadar N sütununa bu formülü kod ile yazmak istiyorum

 

[Ömer BARAN]

Hücrelerde; DEĞER olarak formül sonuçlarını görmek yerine formülleri görmek istiyorsanız, kırmızı satırı silin.
.

With Range("N11:N" & Cells(Rows.Count,"A").End(3).Row)
    .Formula="=IFERROR(SUMPRODUCT(K11/30*J11+L11),"""")"
 [COLOR="red"]   .Value=.Value[/COLOR]
End With

 

[çıtır]

Deneyiniz.

Sub formülyazılır()
Range("N11:N" & Cells(65536, "A").End(3).Row) = "=IFERROR(SUMPRODUCT(K11/30*J11+L11),"""")"
End Sub

 

[yanginci34]

Çok teşekkürler her ikinizinde kodu oluyor teşekkürler