veriyi formülle aldıktan sonra değere dönüştürme

[baknediycem]

= ile bir baska hücreden alınan veriyi, bir şekilde bir makro düğmesi vb. ile sadece değere nasıl dönüştürebiliriz?

 

[Murat OSMA]

Hücreyi kopyalayıp, Özel Yapıştırdan değerleri seçip tamam deyin...

 

[Merhum İdris SERDAR]

= ile bir baska hücreden alınan veriyi, bir şekilde bir makro düğmesi vb. ile sadece değere nasıl dönüştürebiliriz?

.

Sub deger()

[F1] = [A1]
[F2] = [C1]
[F3] = [C2]

' gibi...

End Sub

.

 

[baknediycem]

hocam, teşekkür ederim ama,
tam olarak şöyle bir şey, Sayfa 2deki A1 hucresinde şu formul var =sayfa1!a1 ,

sayfa3deki a1 hucresinde yine aynı formul =sayfa1!a1,
sayfa 4 deki a1de de aynı formul var..
yani hepsi =sayfa1!a1den alıyor.
sonra ben sayfa 2 yi özel olarak saklıyorum
ve sayfa1e yeni veri giriyorum bu kez sayfa2 için.
onu da saklamam gerek ve sayfa3 için yeni veri girmem gerek..

özel yapıştır yerine daha seri bir çözüm gerekiyor

 

[baknediycem]

sn yurttaş , sizinkini denedim ama beceremedim

 

[baknediycem]

sorunu hala çözemedim..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod ile sayfada seçim yaptığınız alandaki formüller değere dönüşür.

Sub SECILI_ALANDAKI_FORMULU_DEGERE_CEVIR()
    Dim Veri As Range, Say As Double
    
    For Each Veri In Selection
        If Veri.HasFormula Then
            Veri.Value = Veri.Value
            Say = Say + 1
        End If
    Next
        
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "Değere çevirilen hücre sayısı ; " & Say, vbInformation
End Sub