Dolu hücreye formül eklemek

[ggunsoy]

Merhabalar,

Makro dışında bütün çözüm olabilecek konuları araştırmama rağmen bir sonuç alamadım. Sanırım bu konu sadece makro ile yapılabilir ve makro bilgim neredeyse hiç yok. Yardımcı olabilirseniz çok sevinirim.

Sayı ile dolu olan hücrelere aynı hücre üzerinde formül eklemek istiyorum. Ör;

A1 hücresinde "100,00" yazıyor. A1 hücresinin "=100,00/3,33" olarak değişmesini istiyorum. Yani ilgili hücrelerdeki sabit sayılar kalacak, önlerine "=" arkalarına ise"/3,33" gelecek. Mümkünmüdür?

Teşekkürler.

 

[uzmanamele]

A1 hücresinde "100,00" yazıyor. A1 hücresinin "=100,00/3,33" olarak değişmesini istiyorum. Yani ilgili hücrelerdeki sabit sayılar kalacak, önlerine "=" arkalarına ise"/3,33" gelecek.

merhaba
bir tablodaki sayıları 3,33'e bölmeye mi çalışıyorsunuz?
uygun bir hücreye 3,33 yazın, bu hücreyi kopyalayın, bölme işlemi yapılacak sayıları fareyle seçin, özel yapıltırdan "böl" onay kutusunu işaretleyin ve tamam tıklayın.

YERİNEKOY(metin;eski_metin;yeni_metin;yineleme_sayısı) fonksiyonuda işe yarayabilir.

örnek dosya eklerseniz bir çözüm yolu bulabiliriz.

 

[ggunsoy]

Teşekkür ederim.

Aslında soruyu basitleştirmek için 3,33 olarak örnek vermiştim. Amacım tabloda verilmiş fiyatları Euro'ya çevirmek ancak formülü kaldırmadan. Kur değiştiğinde ilgili hücreyi değiştirerek yeni fiyatları görebilecek şekilde bir düzenleme.

Ekli dosyadaki örnekte olduğu gibi onlarca sayfa fiyat listesi var elimde. Hepsini G2'ye böldürmek istiyorum. Ama tek tek girip formül yazmak çok uzun sürecek. G2'yi günlük değiştirebileceğimizden dolayı formüllü kalması gerekiyor.

Tekrar teşekkürler.

 

[uzmanamele]

merhaba
ek dosyayı inceleyiniz

 

[Necdet]

Merhaba,

Formüllü olmasını istiyorsunuz.

Sub Formullestir()
Son = [A65536].End(3).Row
For Each Hucre In Range("B2:D" & Son)
    Hucre.FormulaR1C1 = "=ROUND(" & Hucre & "/R2C7,2)"
Next Hucre
End Sub

 

[uzmanamele]

merhaba
syn Necdet Yeşertener'in kodlarınından (&#231alıntı yaparak çözüm önermiştim, eksiğimi düzeltmiş.
kendisi bu aralar biraz yorgundu, farketmez sanmıştım

not 1 :makinemde "g" ve "f" tuşları basmıyor, örnekde [g2] yerine sadece [2] yazmışım
not 2 :"g" ve "f" tuşları basmıyorsa şimdi nasıl yazdınız demeyin, çok sıkışırsam ekran klavyesi kullanıyorum

 

[ggunsoy]

Sizlere çok teşekkür ederim.

Sayın Necdet beyin örneği tam ulaşmak istediğim sonucu veriyor.

Birde Euro kurunun olduğu "G2" hücresini sanırım "R2C7" olarak ifade etmişsiniz. Bunun ne anlama geldiğini ve nasıl G2'yi aldığını çözemedim. Yardımcı olabilirmisiniz?

Tekrar teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Sn. Necdet beyin kullanmış olduğu "R2C7" ifadesinde R satırı, C ise sütunu ifade etmektedir.

R2 = İkinci satır
C7 = Yedinci sütun

İki ifadenin kesişim noktası ise G2 hücresidir.

 

[ggunsoy]

Sn. Necdet beyin kullanmış olduğu "R2C7" ifadesinde R satırı, C ise sütunu ifade etmektedir.

Çok utandım şimdi. Halbuki aklımdan neler geçmişti. Dedim herhalde özel bir liste var ve "R2" "G" demek, "C7" ise "2" demek oluyor. :hiho:

Teşekkür ederim.

 

[Ayhan Ercan]

Çok utandım şimdi. Halbuki aklımdan neler geçmişti. Dedim herhalde özel bir liste var ve "R2" "G" demek, "C7" ise "2" demek oluyor. :hiho:

Teşekkür ederim.

Bunda utanacak birşey yokki canım. Yeni birşey daha öğrenmiş oldunuz.

R1C1 stili denir bunlara....

 

[ggunsoy]

Yeni birşeyler öğrenmek ve 2 gün sürecek işi 2 saatte bitirebilecek olmak muhteşem.

Son bir soru;

Bahsetmiş olduğumuz R2C7'yi aynı kitap içerisindeki başka bir sayfadan almak istesem başına ne eklemem gerekir? Yani döviz kuru ayrı bir sayfada olacak. Normal link kurulduğundaki yazış şeklini kullandım ama hata verdi.

 

[Necdet]

Merhaba,

Koda Sayfa adını eklemek gerekir.

Sub Formullestir()
Son = [A65536].End(3).Row
For Each Hucre In Range("B2:D" & Son)
    Hucre.FormulaR1C1 = "=ROUND(" & Hucre & "/[B][COLOR=red]Sayfa2![/COLOR][/B]R2C7,2)"
Next Hucre
End Sub

 

[ggunsoy]

Necdet Bey, yardımlarınız için birkez daha teşekkür ederim.

 

[Necdet]

Rica ederim,

İyi günler.