Belirli sayfadan formül alma.

[rafetgulmez]

arkadaşlar meraba, 1 saate yakın uğraştım mantıklı çözüm bulamadım, yardımcı olan arkadaşlara şimdiden teşekkür ederim.


sayfa1 de C5 hücresinde formülün alınacağı "sayfanın adı" yazıyor.

yapmaya çalıştığım şu: aktif sayfanın C5 hücresinde hangi isim yazıyorsa o sayfaya gitsin, oradaki C1 hücresindeki formülü "kodun çalıştırıldığı" sayfanın C1 hücresine "formül" olarak yapıştırsın.

ilgilenenlere tekrar teşekkür ederim.

 

[askm]

Aşağıdaki kodu kullanabilirsiniz.

Sub askm()
Dim sayfa
sayfa = Range("c5").Value
Sheets(sayfa).Range("c1").Copy
Range("c1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[rafetgulmez]

Aşağıdaki kodu kullanabilirsiniz.

Sub askm()
Dim sayfa
sayfa = Range("c5").Value
Sheets(sayfa).Range("c1").Copy
Range("c1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

ilginiz için tşk ettim işe yarıyor, ancak ben yanlış anlatmışım

sayfa adını aktif hücre içinde formülde kullanmak istiyorum.. Yani buna göre
aktif sayfanın C5 hücresinde hangi isim yazıyorsa aşağıdaki kodda sayfa yazan yere o gelmeli.
ActiveCell.FormulaR1C1 = "='sayfa'!R[6]C"

 

[askm]

Akşam bakamıyorum. Sabah bakarım inşallah. Örnek dosya eklerseniz kesin sonuca daha çabuk ulaşırız.

 

[rafetgulmez]

Akşam bakamıyorum. Sabah bakarım inşallah. Örnek dosya eklerseniz kesin sonuca daha çabuk ulaşırız.

gold üye olmadığımız için ekleyemiyoruz sanırm... :agla:

 

[parametre]

dosya yukleme sitelerinden birine dosyanızı ekleyin linkini burada paylasınız

 

[askm]

Formul ile yazılı sayfadan veri çekmek istiyorsanız, DOLAYLI("'"&C5&"'!C1") (Dolaylı = Indirect formulu ile yardım alarak işlem yapılıyor. C5 de yazılı sayfadaki C1 hücresindeki değer alınır.C5 de sayfa2 yazılı ise Sayfa2!c5 e denktir.)
bunu makro ile yapmak isterseniz de

ActiveCell.FormulaR1C1 = "=INDIRECT(""'""&R[2]C[1]&""'!c1"")"

 

[rafetgulmez]

Formul ile yazılı sayfadan veri çekmek istiyorsanız, DOLAYLI("'"&C5&"'!C1") (Dolaylı = Indirect formulu ile yardım alarak işlem yapılıyor. C5 de yazılı sayfadaki C1 hücresindeki değer alınır.C5 de sayfa2 yazılı ise Sayfa2!c5 e denktir.)
bunu makro ile yapmak isterseniz de

ActiveCell.FormulaR1C1 = "=INDIRECT(""'""&R[2]C[1]&""'!c1"")"

Eyvallah çok teşekkür ettim ilgin için. :icelim: