• DİKKAT

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

FORMULLÜ HÜCRELERİ DEĞİŞTİRMEDEN AKTARMA

Katılım
27 Haziran 2004
Mesajlar
66
FORMULLÜ HÜCRELERÝ DEÐÝÞTÝRMEDEN AKTARMA

Merhaba bir formüllü hücreyi diğer bir satıra aktardıktan sonra formülün içeriğindeki başka hücrelere bağlı değerler değişiyor ama ben bunların aynen olduğu gibi kalmasını istiyorum.Ne yapabilirim.yardımlarınız için teşekkürler.
 
Hücre isimlerinde $ işareti kullanın örneğin A1 yerine $A$1 şeklinde yazın.
 
Teşekkürler bu işe yarıyor ama benim formüllerim çok fazla tek tek elimle değiştirmek çok uzun sürer daha kolay bir yolu varmı acaba.
 
kopyalamadan önce
formülün olduğu satır başında (= den önce) ' (alt+39) işareti koyun
formülü bu şekilde taşıdıktan sonra ' işaretini kaldırın
 
selamlar,
kopyalayacağınız formulu formul çubuğunda komple işaretleyip F4 tuşuna basınız .sonra kopyalayınız.
 
Dediğiniz gibi formülün önüne ' işaretini koydum ve taşıdım fakat formülleri kullanılabilir hale getiremedim.Değiştir fonksiyonu ' işaretini tanımadığından '=
işaretlerini = ile değiştiremiyorum.
 
Slm.lar
bu; hücre içeriğini adres ve referansları değiştirmeden taşıma mantığı
bunu eski haline almanın yolu ise F2 tuşu ile formül düzenlemeye geçip ilk baştaki ' işaretini silmek
yada sayın leventm nin işaret ettiği gibi adresleri taşımadan önce $ ile sabitlemek
 
Formüllü hücreyi bir başka yere "taşırsanız" içeriği değişmez, "kopyalarsanız" değişir şeklinde biliyorum ben.
 
Merhaba

Hücreleri seçin , makroyu çalıştırın

Sub cMutlak3()
Dim myRange As Range

For Each myRange In Selection myRange.Formula = Application.ConvertFormula(Formula:=myRange.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next myRange
End Sub

Kaynak: Raider
 
Merhaba
Yazım hatası olmuş

Sub cMutlak3()
Dim myRange As Range

For Each myRange In Selection
myRange.Formula = Application.ConvertFormula(Formula:=myRange.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next myRange
End Sub
 
lionamic sormuş: Dediğiniz gibi formülün önüne ' işaretini koydum ve taşıdım fakat formülleri kullanılabilir hale getiremedim.Değiştir fonksiyonu ' işaretini tanımadığından '=
işaretlerini = ile değiştiremiyorum.

Konu ne kadar uzamış yaw çok basit kolay pratik bir yolu var. :lol:
Bu kod kullanılınca kaynağı ben olurum herhalde :lol:

Kod:
Sub PratikVB()
Dim myrange As Range
For Each myrange In [A5:A13]
myrange = WorksheetFunction.Clean([myrange])
Next myrange
End Sub

@leventm demişki;Ã?ncelikle forumumuza üye olur olmaz verdiğiniz bilgiler için teşekkür ederiz. Lakin bir kod önermeden önce soruyu daha dikkatli okumanızı tavsiye ederim.

Hoşbulduk efendim.
Cevabımın Sorunu çözmediğini düşünüyorsanız deneyiniz. Bence siz birz daha dikkatlice okuyunuz
 
Merhaba Sn pratikvb

Ã?ncelikle forumumuza üye olur olmaz verdiğiniz bilgiler için teşekkür ederiz. Lakin bir kod önermeden önce soruyu daha dikkatli okumanızı tavsiye ederim.
 
Arkadaş şöyle sormuş; Dediğiniz gibi formülün önüne ' işaretini koydum ve taşıdım fakat formülleri kullanılabilir hale getiremedim.Değiştir fonksiyonu ' işaretini tanımadığından '=
işaretlerini = ile değiştiremiyorum.

Cevap bu soruya idi.
 
çok yordum sizi.sayın zaferin gönderdiği makroda sayın pratikvbnin gönderdiğine ek olarak hücredeki formüllere $ işaretini de ekliyor.bu yüzden ikisinin fazla bir farkı yok.her ikiside işime yarıyor.İlginiz için hepinize Teşekkürler.
 
Merhaba

......................
 
sorunuzu yanlış anlamadıysam şu da çözüm olabilir hücreleri copy ledikten sonra paste yerine paste special diyerek oradan sadece değerleri istiyorsanız values(değerler) ya da sadece formulun kopyalanmasını isterseniz formulas kutucuğunu işaretleyip ok demeniz yeterli olacaktır
 
Geri
Üst