İki Formülü Tek Bir Makro'da Yazmak. ???

[nihatjeoloji]

Ýki Formülü Tek Bir Makro'da Yazmak. ???

selam

bu iki formülü tek bir makro'da yazabilirmiyiz??
Kitap1-Sayfa1(code)

Sub Carp()
Range("D1") = Range("A1") * Range("B1")
Range("D1").Formula = "=(A1 * B1)"
End Sub

Sub Carp()
Range("D2") = Range("A2") * Range("B2")
Range("D2").Formula = "=(A2 * B2)"
End Sub



veya ayrı ayrı her hangi iki formül??

TEşekkürler

 

[cako]

Sayfa üzerine bir buton koydum.
[vb:1:cb72be8667]Private Sub CommandButton1_Click()
k = Range("A1").Value - Range("B1").Value
x = 0
Do While k >= Range("B1").Value
x = x + 1
k = k - Range("B1").Value
Loop
Range("C1").Value = (x + 1) * Range("B1").Value
If Range("C1").Value * Range("B1").Value <> Range("A1").Value Then
Range("D1") = Range("a1") - Range("c1")
End If
End Sub
[/vb:1:cb72be8667]

 

[nihatjeoloji]

syn cako
çok sağolun

fakat verdiğim aynı iki örnekte aralarına geçiş veya her hangi bir fonksyon falan

yoku acaba. örneğin diyelim ki 10 tane böye toplama işlemi yapacam

 

[nihatjeoloji]

syn cako

bu formül exceli kilitliyor

hallolmadı




Teşekkürler