• DİKKAT

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

[ÇÖZÜLDÜ] Bir formülü aynen taşımak

  • Konbuyu başlatan Konbuyu başlatan Guest
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
G

Guest

Misafir
Selamlar,
Bir hücre içersine yazdığımız formülü kapyala yapıştır veya çekerek diğer hücreye taşıdığımızda formül içeriğinin aynen (hücre ve satır adresleri dahil) korunmasını sağlayabilirmiyiz.
Ã?rnek;
A1 hücresinde bulunan =b1+b2
şeklinde yazdığımız formülü A2 hücresine taşıdığğmızda
=b2+b3 oluyor. Formülü A2 hücresine taşıdığımızda A2 hücresinde formulün =b1+b2 olarak korunması mümkünmüdür. Teşekürler.
 
Mümkündür,bunun için $ işareti kullanılır,örneğin =$b$1+$b$2 şeklinde referanslar sabit kalır,eğer =b$1+b$2 yazarsanız b referansı değişirken 1 ve 2 sabit kalır,yada =$b1+$b2 şeklinde b sabit kalıp 1 ve 2 değerleri değişir.
 
İlave bilgi;
=B1+B2 yazdıktan sonra F4 tuşuna başarsanız (Enter ile hücreden çıkmadan önce) formül =$B$1+$B$2 şeklini alacaktır. F4 tuşunu tekrar tekrar basarak =$B1+$B2 veya =B$1+B$2 gibi mutlak referanslara dönüştürebilirsiniz.

Mevcut formülleri dönüştürmek için mouse ile dönüşüme tabi tutmak istediğiniz formülü seçmeniz gerekir.
 
Hüseyin,
Hüseyin Bey, katliamı durdurmak için toplumsal tepkiyi bu yöne çekmemiz lazım, belki daha önce gördünüz bu linki, ama ben yine de göndereyim size, ne kadar çok kişiye ulaşırsa o kadar etkili olacağını düşünüyorum. Sitenizede de belki bu linki eklersiniz, duyarlılığınız için çok teşekkürler...
http://www.strasbourgcurieux.com/fourrure/
 
Sanırım sorunuz makrolar bölümünde, o zaman şu çözümüde deneyebilirsiniz.

A1 de formüllü bir hücre olsun A2 ye formülleri aynen kopyalansın

Kod:
Sub KodlamaCozumu()
    [A1].Replace What:="=", Replacement:=""
    [A2] = [A1]
    [A1] = "=" & [A1]
    [A2] = "=" & [A2]
End Sub

Sub KodlamaCozumuDongu()
    Dim rng As Range
    [A1].Replace What:="=", Replacement:=""
    [A2:A100] = [A1]
    For Each rng In [A2:A100]
      rng = "=" & rng
    Next rng
    [A1] = "=" & [A1]
End Sub
 
Makro ile alternatif bir çözüm de şöyle olabilir...

Ã?rneğin, A1 hücresinde = B1 + C1 gibi bir formul var ve bunu aynen B10 hücresine yerleştirmek istiyorsak;

[vb:1:7c800b91a3]Sub Test1()
Range("A1").Cut Destination:=Range("B10")
End Sub
[/vb:1:7c800b91a3]

Veya; A1:A10 aralığındaki hücrelerin hepsinde yukarıdaki gibi formuller olduğunu ve bunların hepsini D1:D10 aralığına yerleştirmeyi istiyorsak;

[vb:1:7c800b91a3]Sub Test2()
Range("A1:A10").Cut Destination:=Range("D1")
End Sub
[/vb:1:7c800b91a3]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst