Aktif hücre içindeki formül değeri

[titris]

Arkadaşlar yaşadığım problem şu

Range("K4").Select
sonuc = ActiveCell.FormulaR1C1

Şeklinde makro içinde geçen komut var. Ancak bu komuta karşılık k4 hücresindede =topla(a1:a8) şeklinde bir formül var bunun değerini nasıl değişkene aktarabilirim.

 

[Levent Menteşoğlu]

Her iki satırın yerine aşağıdaki gibi yazmanız yeterlidir.

sonuc=[k4]

 

[titris]

TŞK.

İşimi gördü çok sağol kardeş.

 

[titris]

Her iki satırın yerine aşağıdaki gibi yazmanız yeterlidir.

sonuc=[k4]

Bunu uyguladım çalışıyorda ancak bügün başka bir sorunla karşılaştım.

sonuc=[k4] ile degişkenim sonuc üzerinde işlemleri yapıyorum ancak diğer sayfadaki g15 hücresine sıralı olarak çıkan sonuçları yazmasını istiyorum yani
a sayfasının g sutununun x satırındaki hücresine sonucu yazmasını istiyorum.
ancak a ve x değişken bir değer olduğu için visual alanında kullanamadım. bunu nasıl yapabilirim.

örnek verecek olursam o anda
a değişkeni sayfa1
x değişkeni 45
sonuç 4589658 olsun benim istediğim bunların durumuna göre
sayfa1 deki g45 hücresine 4589658 yazması bunu nasıl başarabilirim.

ve a ve x değişken cinsini ne olarak belirtmeliyim ben sağlam olsun diye string verdim ama yapamadım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

sonuc=[K4]
Sheets("Sayfa2").Cells(65536,"G").Offset(1,0)=sonuc

 

[titris]

Selamlar,

Aşağıdaki şekilde denermisiniz.

sonuc=[K4]
Sheets("Sayfa2").Cells(65536,"G").Offset(1,0)=sonuc

arkadaşım amacım buradaki sayfa2 ve hücre değerine değişken atamak istiyorum.

yani Sheets("Sayfa2").Cells(65536,"G").Offset(1,0)=sonuc şeklindeki formülde sayfa diye bir değişken ve sira diye bir değişken olacak vu bu değişkenler değiştiğinde ona göre gidip o sayfaya ve o satıra yazacak amacım bu

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde ne yapmak istediğinizi açıklayabilirmisiniz.

 

[titris]

Örnek

Arkadaşım yardımların için çok teşekkür ederim epey bir zahmet veriyorum ama bunu bulmam gerekiyor. istemiş olduğun örnek ekte

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeyi yaptım incelermisiniz.

 

[titris]

Çok Çok Tşk.

Çok sağol arkadaşım işimi en ala şekilde görür.
Yardımların içinde çok tşk. ederim.