• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

formül yazma (vba)

Ö

öğrtm

Katılım
1 Eylül 2008
Mesajlar
219
Excel Vers. ve Dili
ofis 2010
iyi akşamlar

iki tane değişkenim var.rakam1 ve rakam2 isimli
yapmak istediğim
herhangibirhücre.formula=rakam1/rakam2*100

formülünü vba olarak yazmak şöyle birşey denedim olmadı
Dim rakam1, rakam2
rakam1 = Cells(i, sayac + 4)
rakam2 = Cells(sonsat + 2, "a")

Cells(i, sayac + 5).FormulaR1C1 = "=(RC[rakam1]/RC[rakam2])*100"
yardımcı olmanızı bekliyorum
 
Cells(i, sayac + 5).FormulaR1C1 = "=(" & rakam1 & "/" & rakam2 & ")*100"
şeklinde değiştiripte dener misiniz.
 
zagortr ilginiz için teşekkür ederim ama olmadı.makrolarımı çalıştırdıktan sonra formül çubuğunda=(0/15)*100
arkadaşlar yardımlarınızı bekliyorum
 
işlemi yaptıırdığınız hücrenin biçimi metin olduğundan dolayı o şekilde olmuştur. Hücre biçimini kontrol edin. hücre biçimini sayi yaparsanız hücrede işlem gerçekleşir.
 
hücre biçimim sayı olarak gözüküyor.yaptığım proğram komplike birşey ilgili kısım şu şekilde
'Formül oluşturuyoruz
For i = 4 To sonsat
adr3 = Range(Cells(i, "D"), Cells(i, sayac + 3)).Address
adr4 = Range(Cells(3, 4), Cells(3, sayac + 3)).Address
Cells(i, sayac + 4).Formula = "=Sum(" & adr3 & ")"
'Değerlendirmede kullanılacak puan aralığını belirliyoruz
If Me.OptionButton2 = True Then
Cells(sonsat + 2, "a").Value = sayac * 4
Else
Cells(sonsat + 2, "a").Value = sayac * 5

End If

Dim rakam1, rakam2
rakam1 = Cells(i, sayac + 4)
rakam2 = Cells(sonsat + 2, "a")

Cells(i, sayac + 5).FormulaR1C1 = "=(" & rakam1 & "/" & rakam2 & ")*100"Cells(4, sayac + 5).Select
Next i
'Sayı formatı ayarlıyoruz
Range(Cells(4, sayac + 5), Cells(sonsat, sayac + 5)).NumberFormat = "0"
 
çalışmamı ekliyorum

excel 2007 formatında ana panoyu kullanırsanız "ölçek hazırla butonuna bazsınız" editörden giderseniz userform1dedir
 

Ekli dosyalar

Selamlar,

Aşağıdaki şekilde denermisiniz.

Kod: 
Cells(i, sayac + 5).Formula = "=(" & rakam1 & "/" & rakam2 & ")*100"
 
korhan bey userform1 hazırla butonuna bastığımda işlem yapılıyor.fakat oluşan sayfamda verileri girdiğimde ilgili sütun ve satırlarda formül hesaplama yapmıyor.formül çubuğunda=(0/15)*100 şeklinde gözüküyor
 
arkadaşlar sorunum hala devam ediyor yardımlarınızı bekliyorum.kırmızı renkle gösterdiğim kısımda işlem gerçekleşmiyor
'Formül oluşturuyoruz
For i = 4 To sonsat
'Değerlendirmede kullanılacak puan aralığını belirliyoruz
If Me.OptionButton2 = True Then
Cells(sonsat + 2, "a").Value = sayac * 4
Else
Cells(sonsat + 2, "a").Value = sayac * 5

End If


adr3 = Range(Cells(i, "D"), Cells(i, sayac + 3)).Address
adr4 = Range(Cells(3, 4), Cells(3, sayac + 3)).Address
Cells(i, sayac + 4).Formula = "=Sum(" & adr3 & ")"

Dim rakam1, rakam2
rakam1 = Cells(i, sayac + 4).Value
rakam2 = Cells(sonsat + 2, "a").Value


Cells(i, sayac + 5).Formula = "=(" & rakam1 & "/" & rakam2 & ")*100"
Cells(4, sayac + 5).Select
Next i
'Sayı formatı ayarlıyoruz
Range(Cells(4, sayac + 5), Cells(sonsat, sayac + 5)).NumberFormat = "0"
 
Selamlar,

Dosyanız 2007 formatında olduğu için deneme yapamıyorum. Sürekli hata mesajları alıyorum. Ama size önerdiğim şekilde boş bir dosyada denediğimde olumlu sonuç alıyorum.
 
arkadaşlar problemi çözdüm.paylaşmak istiyorum
rakam1 ve rakam2 nin sonuna address kodunu eklediğimizde sorun kalmıyor
rakam1 = Cells(i, sayac + 4).address
rakam2 = Cells(sonsat + 2, "a").address
Cells(i, sayac + 5).Formula = "=(" & rakam1 & "/" & rakam2 & ")*100"

korhan bey ve sayın zagortr çok teşekkür ederim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst