Çözüldü Makro ile formülleri tüm sütunda çalıştırma

[afdoner]

Merhaba,

EĞER(S3="";"";(S3-V3)/(S3/100))

Yukarıda yer alan formülü makro ile ilgili tüm sütunda çalıştırmak istiyorum. Yardımlarınız için teşekkürler

 

[turist]

With Range("A3:A1500")
.Formula="=IF(S3="""","""",(S3-V3)/(S3/100))"
.Value=.Value
End With

gibi bir yöntem kullanabilirsiniz.
With Range("A3:A1500") bu kısımda Formülü kullanmak istediğiniz sütun adresini yazabilirsiniz.

 

[turist]

Aynı zamanda; Dosya yapınıza ve uygulama şeklinize göre ,
Formülün yapacağı görevi makroda başka yöntemlerle buldurmak da mümkün.
Dosyanızın örneğini paylaşırsanız daha doğru cevaplar bulabilirsiniz.
Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız

 

[afdoner]

Tekrar merhaba, ilginiz için teşekkürler. Göndermiş olduğunuz kodu denedim lakin tüm ilgili hücrelerin tamamında "IF(S3="","",(S3-V3)/(S3/100))" çıktı. Daha anlaşılır olması için ekte dosya gönderiyorum.

 

[turist]

Eklediğiniz Dosyada Makro Kodu yok.
#1. No.lu mesajdaki sorunuzda yazdığınız Formülle dosyadaki formül aynı değil, Formülünüzü dosyanıza göre değiştirip kullanın.

 

[turist]

#2.No.lu mesaja tekrar bakınız Formül yazılışına dikkat edin.

 

[turist]

Eklediğiniz dosyaya göre deneyin:

Sub test()
With Range("C2:C" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IF(A2="""","""",(A2-B2)/(A2/100))"
.Value = .Value
End With

End Sub

 

[afdoner]

Uyarılarınızı dikkate alarak yeniden denedim ve çalıştı. Yardımlarınız için teşekkürler.

 

[turist]

Sağ olun.