Soru MAKRO İLE ÇARPMA İŞLEMİ

[mc_exrem]

Merhabalar
Kalıcı bi çözüm için ve formülün silinmemesi adına"Cam Sipariş" sayfasındaki G9 hücresine uyguladığım =A9*(B9*C9)/1000000 işlemini kod ile yapıp 99. satıra kadar uygulamak istiyorum. Makro kaydettin yaptığım işlemi 99. satıra kadar kaydetmek istiyorum. mevcut kod:
Sub Çarpma()
'
' Çarpma Makro
'
' Klavye Kısayolu: Ctrl+q
'
ActiveCell.FormulaR1C1 = "1"
Range("B9").Select
ActiveCell.FormulaR1C1 = "1212"
Range("C9").Select
ActiveCell.FormulaR1C1 = "1212"
Range("D9").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*(RC[-2]*RC[-1])/1000000"
Range("A10").Select
End Sub

http://dosya.co/vqo14k4wh0iu/Cam_Listesi_-_ETİKET_GENÇELLER_R3.xlsm.html

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod satırı ile yapabilirsiniz.

Range("G9:G19").Formula = "=(A9*(B9*C9)/1000000)"

Dikkat etmeniz gereken tek şey işlem kısmı sadece ilk satıra hitap ediyor. Diğerlerini excel otomatik düzeltecektir.

 

[mc_exrem]

Merhaba.
Aşağıdaki kod satırı ile yapabilirsiniz.

Range("D9:D19").Formula = "=(A9*(B9*C9)/1000000)"

Dikkat etmeniz gereken tek şey işlem kısmı sadece ilk satıra hitap ediyor. Diğerlerini excel otomatik düzeltecektir.

teşekkürler pazartesi deneyeceğim

 

[mc_exrem]

Merhaba.
Aşağıdaki kod satırı ile yapabilirsiniz.

Range("G9:G19").Formula = "=(A9*(B9*C9)/1000000)"

Dikkat etmeniz gereken tek şey işlem kısmı sadece ilk satıra hitap ediyor. Diğerlerini excel otomatik düzeltecektir.

teşekkürler kod için ama

Sub Çarpma()
'
' Çarpma Makro
'
' Klavye Kısayolu: Ctrl+q
'
Range("D939").Formula = "=(A9*(B9*C9)/1000000)"

End Sub

olarak kodu düzelttim ancak D9 hürcelerine manuel girilmiş gibi formül çıkıyor. benim isteğim D9 u silince kod silinmesin.