F2 Enter Sorunu

[izcik]

Merhabalar

(Office 2002 kullanıyorum)

Bir sorunu çözemedim.

Bir sütunda veya seçili bölgede Hücre yenileme (Tetikleme) (F2+Enter) kodlarına ihtiyacım oldu.

İki gün boyunca forumu aradım. Bulduğum tüm kodları (12 adet) defalarca denedim, fakat yapamadım. Ya hiç "tetikleme" yapmıyor, ya da hata veriyor.

Verdiği hata da genelde SendKeys "{F2}" satırında oluyor. Bu satırı sarı renge boyuyor.

Ayrıca diğer üyelerin de hatalarla karşılaştıklarına veya kodların çalışmadığına dair yorumlara rastladım.

Toparladığım kodları bir yazı dosyasına aktardım, telefondan yazdığım için ancak bu şekilde gönderebiliyorum.

Bu kodlardan sadece en üstteki, yani birinci sıradaki kodlar çalışıyor, tetikleme yapar gibi görünüyor, ama yapmıyor. (Denemeler için metin biçimindeki formülleri genele dönüştürüp, defalarca denedim olmadı)

En alttaki yani 12. sıradakini ise (nasıl yapılacağını bilemediğimden) yapamadım ????


Hangi kodlarla hücre yenileme yaptırabiliriz bir sütuna (örnek B sütunu) veya bir bölgeye

Sayın uzmanlarımızdan yardım bekliyorum

İndir Enter Kodları

Dosyayı indir Enter Kodları

dosya.co

 

[Korhan Ayhan]

Merhaba,

Örnek dosya paylaşabilir misiniz?

 

[Asri]

Bu şekilde dener misiniz?

Sub test3()
    Dim c As Range
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    For Each c In Range("A1:A" & sonsatir).Cells
        c.Value = c.FormulaR1C1
    Next
End Sub

 

[izcik]

Uzmanım ne yazık ki bilgisayarımda internet yok, bu aralar gönderemiyorum

Fakat Sayın Asri’nin kodları oldu.

 

[izcik]

Sayın Asri verdiğiniz kodlar oldu. Hiç hatasız. Hem de çok hızlı. Çok teşekkür ederim. İki gündür oldukça uğraşmıştım. Sağlıklı günler dilerim hepimize

 

[Asri]

Sayın Asri verdiğiniz kodlar oldu. Hiç hatasız. Hem de çok hızlı. Çok teşekkür ederim. İki gündür oldukça uğraşmıştım. Sağlıklı günler dilerim hepimize

Problemin çözülmesine sevindim.
Saygılarımla.

 

[HarEndu]

Merhaba,
Buradaki kodlar a stunü için hazırlanmış. Peki imleç stunu hangisindeyse kod nasıl olmalıdır. hücre sonu olarakda boş olduğunda sonlansın. teşekkür ederiz.

 

[izcik]

Merhaba,
Buradaki kodlar a stunü için hazırlanmış. Peki imleç stunu hangisindeyse kod nasıl olmalıdır. hücre sonu olarakda boş olduğunda sonlansın. teşekkür ederiz.

Kodlar konusunda acemiyim.

Tahminen “olur mu acaba” diyerek şöyle yaptım

Sayın Asri‘nin kodlarında
A1:A
yazan kısmında sağdaki A harfinin yanına 20 rakamını yazıp, kalan karakterleri paranteze kadar silerseniz
kodlar A20 ye kadar çalışıyor ve duruyor.

Deneme yanılma yaptım, oldu.

 

[Asri]

Merhaba,
Buradaki kodlar a stunü için hazırlanmış. Peki imleç stunu hangisindeyse kod nasıl olmalıdır. hücre sonu olarakda boş olduğunda sonlansın. teşekkür ederiz.

Aşağıdaki şekilde deneyiniz.
ilk boş hücrede program sonlanır. İlk hücre boş ise ilk hücrede son bulur.

Sub test4()
    Dim c As Range
    sutun = ActiveCell.Column
    sonsatir = Cells(Rows.Count, ActiveCell.Column).End(3).Row
    For Each c In Range(Cells(1, sutun), Cells(sonsatir, sutun)).Cells
        If c.Value = "" Then Exit For
        c.Value = c.FormulaR1C1
    Next
End Sub

 

[HarEndu]

harika! çok teşekkür ediyorum.