Hücre bilgisini yenileme

[mrt]

Selamlar,

Bir hücrenin Formatını değiştirdiğimde, o hücredeki bilgiyi yenilemem gerekiyor.

( F2 ve Enter tuşlarına ard arda basarak. )

Bu işlemi makro ile nasıl yaptırırım.

(( Bazı formuller hücre formtalrı uyumsuz olduğunda çalışmıyor. Benimde yaklaşık 4000 hücreyi yukarıdaki yöntem ile güncellemem gerekiyor.)

 

[Levent Menteşoğlu]

Bu hücrelerinizin A sütununda olduğunu kabul edersek aşağıdaki gibi bir kodu deneyebilirsiniz.

[vb:1:fd4a045230]Sub calistir()
For a = 1 To [a65536].end(3).row
Cells(1, "a").Select
SendKeys "{F2}"
SendKeys "{ENTER}"
Next
End Sub
[/vb:1:fd4a045230]

 

[Haluk]

...

 

[Levent Menteşoğlu]

Gerçekten tuşun sağ tarafına basınca öyle oluyor. Bende ne hikmetse parmağımı hiç ortasına denk getiremedim.

 

[Haluk]

:mrgreen:

 

[mrt]

Gerçekten tuşun sağ tarafına basınca öyle oluyor. Bende ne hikmetse parmağımı hiç ortasına denk getiremedim.
_________________

Espiriyi analamdaım ama;

Teşekkürler

 

[turkanet]

bunu c sütununa uyarlarsak nasıl değiştirebiliriz?

 

[uzmanamele]

merhaba

bu mudur?

Sub calistir()
For i = 1 To [c65536].End(3).Row
Cells(1, "c").Select
SendKeys "{F2}"
SendKeys "{ENTER}"
Next
End Sub

 

[turkanet]

bu şekilde ben de denedim ama çalışmadı malesef

 

[uzmanamele]

merhaba

Sub calistir()
For i = 1 To [c65536].End(3).Row
Cells(1, "c").Select
SendKeys "{F2}"
SendKeys "{ENTER}"
Next
End Sub

C sütunundaki son satıra kadar işlem yapılacağını gösterir

For i = 1 To [c65536].End(3).Row

C1 hücreyi seçer

Cells(1, "c").Select

seçilen hücrede f2 tuşunu tetikler

SendKeys "{F2}"

seçilen hücreyi enter ile geçer

SendKeys "{ENTER}"

sonraki i değerini alır

Next

araçlar / seçenekler / düzen / seçimi enter tuşundan sonra taşı / yön (aşağı)
her entere basınca bir alt satıra ineceğinden, kod sadece C sütunundaki ilk hücreyi seçmek ve kaç kez f2 ve entere basılacağını göstermek için yazılmıştır diyebiliriz.

sizde neden çalışmasın ki?

 

[turkanet]

evet aynen denedim ama hiçbir hücrede kıpırdama bile olmadı

 

[turkanet]

değerli yardımınızı rica ederim

 

[uzmanamele]

değerli yardımınızı rica ederim

merhaba
önerilen yöntem sizde işe yaramıyorsa sebebini nerden bilebiliriz ki?

siz bizlere örnek dosya göndererek yardımcı olmanız lazımki bizlerde sizlere yardımcı olabilelim.

 

[izcik]

Uzmanamele uzmanım, A sütunu için yazılan kodda şu ifade var;

For a = 1 To

C sütunu yazılan kod ise aşağıdaki şekilde;

For i = 1 To

...................


kalın olarak belirttiğim i harfinin anlamı nedir acaba?


Düz mantık yürütünce sanki "c harfi yerine i harfi" konunca , başka bir görevi vardır gibi geldi.. onu öğrenmek istedim

 

[izcik]

Değerli uzmanım sadece soruyu farketmediğinizi düşünerek mesajı yenilemek istedim. i harfinin başka bir anlamı var mıdır acaba?

Saygılar.

 

[uzmanamele]

merhaba
syn izcik, i harfinin bir özelliği yok. i olur, j olur, a veya herhangi başka bir harf veya harf grubu. değişken olarak seçilecek herhangi bir şey kullanabilirsiniz.

 

[izcik]

İlginiz için teşekkür ederim değerli uzmanım.

 

[turkanet]

bunu H4:J10 aralığına nasıl uygularız?

 

[turkanet]

sn. uzmanamele
değerli cevabınızı rica ederim

 

[ugurrrrrr]

Arkadaşlar merhaba
bende hücreye aşağıdaki gibi bir formül giriyorum ama F2 tetiklemesi bendede çalışmıyor
Ayrıca formül büyük harfle yazılmasına rağmen "=topla(E2:E153) şeklinde çıkıyor


Range("e" & kayıtsonu + 2).Formula = "=TOPLA(e2:e" & kayıtsonu & ")"
Cells(kayıtsonu + 2, "E").Select
SendKeys "{F2}"
SendKeys "{ENTER}"