F2 ctrl+Shift+Enter

[tahsinanarat]

vba kodları ile F2 Ctrl+Shift+Enter kodu nasıl yazılıyor. Yardımcı olurmusunuz.

 

[Emir Hüseyin Çoban]

. . .

Range("E3").Select
SendKeys "{F2}"
SendKeys "+^~"

. . .

 

[tahsinanarat]

Sn. hüseyin hocam çok teşekkür ediyorum, sağolun.
Hocam birden fazla değişik(örn. E3, E4, D2, D5 Vb.) hücreleri seçtirmek nasıl olmalı.

 

[chngrcn]

Range("E3").Select
SendKeys "^"
Range("E4").Select
SendKeys "^"
Range("D2").Select
SendKeys "^"
Range("D5").Select

böyle deneyin..

 

[tahsinanarat]

Sn. chngrcn, olmadı. Ben belirtilen hücreler içinde f2 yapıp sonra ctrl shift enter yaptırmak istiyorum

 

[Emir Hüseyin Çoban]

Hucre adresleri array ile diziye alinip
dongu kurulabilir.
Pc basinda degilim sabah ornek gonderirim.

.

 

[Korhan Ayhan]

Deneyiniz.

Sub Makro()
    Adres = Array("E3", "E4", "D2", "D5")
    For X = 0 To UBound(Adres)
        DoEvents
        Range(Adres(X)).Select
        SendKeys "{F2}+^~", True
    Next
End Sub

 

[tahsinanarat]

hata veriyor

Korhan hocam kodu çalıştırdığımda ekte resimde görünen hata iletisini alıyorum.

 

[Korhan Ayhan]

Kodu sayfa üzerinde çalıştırmalısınız...

 

[tahsinanarat]

Korhan hocam, butona atayınca oldu, çok teşekkür ederim, elinize sağlık.