F2 Enter Yaptırmak

[Trilenium]

Merhaba arkadaşlar...

Excelde istedigim Kolonların istedigim aralıklarına F2 enter Tuş kombinasyonunu yaptırtmak istiyorum


For i = 1 To [A65536].End(3).Row
Cells(i, "a").Select
SendKeys "{F2}"
SendKeys "{ENTER}"
Next i


Forumdan aldıgım kod bu. Fakat kod aşırı yavaş çalıştıgı gibii kilitlenmeyede sebep oluyor..

Yaptırtmak istediigm şey şu
+SUM(C1:C10)

A1 hücresinde örnegin aşagıdaki gibi bi formül var.. Bu bir text degerinde ben F2 enter yaptıgımda otomatik olarak formüle dönüşüyor..

Fakat bunu elle yapmak istemiyorum cok var böyle cünkü...Kodla yapayım dedim...

Forumda arama yaptım fakat daha önce başkasına verilen çözümde işime yaramadı açıkcası

 

[Korhan Ayhan]

Selamlar,

Metin olarak görünen değerleri aşağıdaki formülü kullanarak toplayabilirsiniz.

=TOPLA.ÇARPIM(--C1:C10)

Dosyanızın hacmi büyükse kod yavaş çalışabilir. Eğer ben kodla yapmak istiyorum derseniz kullandığınız koda küçük bir ekleme yaparak işlemi hızlandırabilirsiniz.

Option Explicit
 
Sub F2_ENTER()
    Dim i As Long
    
    Application.Calculation = xlCalculationManual
    
    Range("A1").Select
    
    For i = 1 To [A65536].End(3).Row
        SendKeys "{F2}"
        SendKeys "{ENTER}"
    Next i
    
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[Trilenium]

Yok korhan bey...sumproduct ile yapabiliyorum zaten...Forecast dosyam var ve 12 bin satırı aşkın yere formül yazmak acıkcası epey yoruyor...biraz farklı durumlar yani... Ben bu formülün üzerinden geçirtecek bi fonksiyon bulursam tamamdır.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma kullandığınız kodu hızlandıracak eklemeyi yaptım. İncelermisiniz.

 

[Trilenium]

Şöyle bir durum var Korhan bey... Çalıştır dedigim an mouse resmen kilitleniyor... buna engel olmak icin doevents ile başladıysamda mouse yavaşlamaya devam ediyor....şunu yapamazmıyız?

A1 ile A5500 arasındaki hücreler içinde yap bunu diye? gibi...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Sub F2_ENTER()
    Dim i As Long
 
    Application.Calculation = xlCalculationManual
 
    Range("A1").Select
 
    For i = 1 To 5500
        SendKeys "{F2}"
        SendKeys "{ENTER}"
    Next i
 
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[Trilenium]

Korhan bey

Denedim yine olmadı...
Ekte örnegi gönderiyorum...Vaktiniz varsa bakabilirseniz sevinirim

Teşekkürler

 

[Merhum İdris SERDAR]

Sub test2()
    Dim c As Range
    For Each c In Range("A1:A6000").Cells
        c.Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
End Sub

Bunu deneyin.

 

[jarkov]

Bu durumdan muzdarip biri olarak çözümü basitlikte buldum.
B1 hücresine =A1+0(sıfır) yazın işe yarıyor..

 

[buggsbunny]

Sub test2()
    Dim c As Range
    For Each c In Range("A1:A6000").Cells
        c.Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
End Sub

Bunu deneyin.

her yerde aradığım kodu burada buldum tşklerr

 

[Metin_S]

Selamlar,

Metin olarak görünen değerleri aşağıdaki formülü kullanarak toplayabilirsiniz.

=TOPLA.ÇARPIM(--C1:C10)

Dosyanızın hacmi büyükse kod yavaş çalışabilir. Eğer ben kodla yapmak istiyorum derseniz kullandığınız koda küçük bir ekleme yaparak işlemi hızlandırabilirsiniz.

Option Explicit

Sub F2_ENTER()
    Dim i As Long
   
    Application.Calculation = xlCalculationManual
   
    Range("A1").Select
   
    For i = 1 To [A65536].End(3).Row
        SendKeys "{F2}"
        SendKeys "{ENTER}"
    Next i
   
    Application.Calculation = xlCalculationAutomatic
End Sub

korhan bey merhaba, verdiğiniz kodları bende kendi dosyamda kullanmak istedim. Yalnız bir sorun var. Benim tablomda A5 ile AA15 arasında içinde değer olan hücrelere F2+Enter yapmasını istiyorum kodu ona göre düzenledim ama sadece seçtiği ilk hücrede kalıyor aynı hücrede 15 defa F2+Enter yapıyor. Yardımcı olabilirseniz çok sevinirim.

Benim kullandığım kod bu şekilde;
Sub F2_ENTER()
Dim i As Long
Application.Calculation = xlCalculationManual
Range("A5").Select
For i = 1 To [AA15].End(3).Row
SendKeys "{F2}"
SendKeys "{ENTER}"
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Korhan Ayhan]

İlgili linkteki İdris beyin önerdiği kodu deneyiniz.

 

[Metin_S]

İlgili linkteki İdris beyin önerdiği kodu deneyiniz.

Merhaba, o kod hiç olmadı A5 ile AA15 arasını çok hızlı geçiyor ve sanki F2+Enter yapmıyor çünkü güncelleme yapmıyor, sonra AA16'dan aşağıya doğru 312.satıra kadar iniyor.

Kullandığım kod:
Sub test()
Dim c As Range
For Each c In Range("A5:AA15").Cells
c.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub

 

[Korhan Ayhan]

Dosyanızı paylaşabilir misiniz?

 

[Metin_S]

Dosyanızı paylaşabilir misiniz?

Üstat şirkete ait bir dosya paylaşmak doğru olmaz. İçinden o sayfaları alıp paylaşmak istedim ama bir çok yerden bilgi alıp verdiği için her yerde hata veriyor, o şekilde de olmadı maalesef.

 

[Korhan Ayhan]

Dosyanıza benzer örnek bir dosya paylaşabilirsiniz.

 

[Metin_S]

Dosyanıza benzer örnek bir dosya paylaşabilirsiniz.

Korhan bey, dosya hazırladım ama ekleme bölümü yok bende, acaba altın üye olmadığım için olabilir mi?

 

[Metin_S]

Dosyanıza benzer örnek bir dosya paylaşabilirsiniz.

Örnek bir dosya hazırlayarak onedrive da paylaştım. Şimdiden teşekkürler.

Onedrive

 

[YUSUF44]

Yapmak istediğiniz belirtilen hücrelerdeki metin biçimli sayıları sayıya dönüştürmek ise;

Boş bir hücreye 1 yazın (hücre biçimi sayı olsun)
Bu hücreyi kopyalayın
Düzletilecek hücreleri seçin
Sağ tıklayıp Özel yapıştır menüsünü açın
Değerleri ve Çarp'ı seçip işlemi tamamlayın.

 

[YUSUF44]

Örnek dosyanızda neden böyle bir işleme gerek duyuyorsunuz?