değişkenlerle formül yazma

[crpzz37]

iyi günler hocalarım geceniz hayırlı olsun

aşagıdaki kodlarda değişken olan ay ve 30 u çarpıp today yanı bugun ile toplamak istiyorum ama değişkenlere işlem yaptıramadım çarpmıyor.şimdiden yardımınız için tesekkurler



Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'üyelik uzatma

Dim ay, isim, kaçıncı, sıra, süre As Variant

isim = ListBox2.Value
Worksheets("sabitler").Range("c2") = isim

ay = InputBox(" KAÇ AY UZATILACAK : ")
Worksheets("sabitler").Range("d2") = ay
Worksheets("sabitler").Range("e2") = "=MATCH(c2,'tüm üyeler'!A:A,0)"
sıra = Worksheets("sabitler").Range("e2")
tarih = Worksheets("sabitler").Range("f2")

Worksheets("sabitler").Range(c10) = "= today()+(ay * 30)"

End Sub

 

[ÖmerBey]

Merhaba,
Şu şekilde deneyiniz.

Worksheets("sabitler").Range([COLOR="Red"]"[/COLOR]c10[COLOR="red"]"[/COLOR]) = "=today()+([COLOR="red"]" &[/COLOR] ay [COLOR="red"]& "[/COLOR]*30)"

Veya işlemi vba da yaptırtıp sonucunu hücreye yazdırabilirsiniz...

 

[Orion1]

Tırnak koyun.
Worksheets("sabitler").Range("c10") = "= today()+(" & ay & "* 30)"

 

[crpzz37]

çok saolun Allah razı olsun

 

[crpzz37]

mucit bey

aslında ilk olarak dediğiniz gibi yaptım buludugun sonucu o hucrede bulunan degerle degıstrsın ıstedım ama hep benım buldugum sonucu oraya koyacagına ordakı sonucu buldugum yere yazdırıp formulude bozuyor