veri girişi

[simsek2001]

Herkese merhaba. Aşağıdaki sorunu çözemedim. Pek çok sefer yardımlarınızı aldım. Çok teşekkür ederim.
Dosya ektedir.
Sorun:
A’dan D sütununa veriler var.

Kodlar:

Sub birlesik()

‘c ve d sutunu çarpımının e sütununa yazılımın kodları
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E10"), Type:=xlFillDefault

‘burada veri için otomatik olarak bir iletişim kutusu çıkıyor ve bizden bir rakam girmemiz isteniyor.
………………….
………………….
………………….
‘girdiğimiz rakam ile e sutundaki değerler çarpılıp f sütununda ilgili satıra yazılıyor.
………………….
………………….
………………….
Sub end

 

[muygun]

Merhaba;
Eki inceleyin. Diğer kodlarınızı da uygun yerlere yerleştirin.
İyi çalışmalar.

 

[simsek2001]

Elinize sağlık. Çok teşekkür ederim