Dizindeki Formülleri Sabitlemek

[baydeniro]

Arkadaşlar Merhaba,

Diyelim ki; B1:B5 alanında çeşitli formüller var. Formül sonuçlarını topluca SABİTLEMEK istiyorum. Manuel olarake bunun nasıl yapılacağını biliyorum. VBA ile nasıl yapılabilir ?

 

[systran]

sabitlemek derken? hücre adreslerini göreceliden mutlağa mı dönüştürmeyi kastediyorsunuz?
A4 yerine $A$4

 

[baydeniro]

systran ilginize teşekkür ediyorum. Örneğin A1 hücresinde =(B1/2)*C1 formülü yazılı ve sonuç 20. 20 nin formül sonucu olarak değil de sabit değer olarak 20 yazmasını istiyorum.

 

[systran]

formül tekrar lazım olmayacaksa,
formül olan hücrede sağ tıkla, kopyala.
aynı hücreye sağ tıkla, özel yapıştır, değerleri seç

 

[Mustafa MUTLU]

Arkadaşlar Merhaba,

Diyelim ki; B1:B5 alanında çeşitli formüller var. Formül sonuçlarını topluca SABİTLEMEK istiyorum. Manuel olarake bunun nasıl yapılacağını biliyorum. VBA ile nasıl yapılabilir ?

Sub Sabitle()
[a1]=[a1]
End Sub

 

[Orion1]

Buyurun.

Sub formul59()
Range("A1").Formula = "=(B1/2)*C1"
End Sub

 

[baydeniro]

sayın Orion1 teşekkür ediyorum. Bu kodu veri aralığı için nasıl yapabilirim ? yani A1:A10 aralığındaki verileri sabitlemek için !

 

[Orion1]

sayın Orion1 teşekkür ediyorum. Bu kodu veri aralığı için nasıl yapabilirim ? yani A1:A10 aralığındaki verileri sabitlemek için !

Ben soruyu yanlış anlamışım.
Siz formül görmek istemiyorsunuz sanırım.Sadece sonucu görmek istiyorsunuz.
Diğer cevap yazan arkadaşların yazdıklarını yapınız.

 

[baydeniro]

teşekkürler Orion1 üstad. diğer çözümleri de deneyeceğim.

 

[baydeniro]

Sub Sabitle()
[a1]=[a1]
End Sub

Mustafa MUTLU üstadım çok teşekkürler. Bu kodu veri aralığı için nasıl düzenleyebilirim. örneğin A1:A10 gibi !

 

[Orion1]

Mustafa MUTLU üstadım çok teşekkürler. Bu kodu veri aralığı için nasıl düzenleyebilirim. örneğin A1:A10 gibi !

Buyurun.
Range("A1:A10").Value = Range("A1:A10").Value

 

[baydeniro]

Buyurun.
Range("A1:A10").Value = Range("A1:A10").Value

Orion1 üstadım çok teşekkürler. Tam da budur. O kadar kombinasyon denedim ama bu code akıl edemedim. Çok teşekkürler, elinize, aklınıza sağlık.

 

[baydeniro]

Orion1 üstad. bir minik versiyon daha yapılabilir mi acaba !
Range("A1:A10") yerine D1 hücresinde A1:A10 yazılı olsaydı (zamanla değişebileceğinden ötürü), alanı D1 den oku demek için kodu nasıl revize etmek gerekir acaba.

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    Adres = Range("D1").Value
    Range(Adres).Value = Range(Adres).Value
End Sub

 

[baydeniro]

Sayın Korhan Ayhan üstadım çok çok teşekkür ediyorum, mükemmel oldu. Allah sizlerden razı olsun. Sağlıcakla kalın.