Ctrl + F Komutunu başka bir düğmeye atamak mümkün mü?

[izcik]

Değerli uzmanlarım Ctrl + F komutunu klavyedeki başka bir düğmeye atamanın mümkünü var mıdır? Yalnız şu var; tek düğme olmalı.

Örnek F12 düğmesi , Print Screen düğmesi, veya F10 düğmesi

Saygılar

 

[halit3]

bu kodu denermisiniz.

Sub Autpen()
Application.OnKey "{F12}", "Dialogbulma_penceresi"
End Sub
Sub Dialogbulma_penceresi()
On Error Resume Next
Application.Dialogs(64).Show
End Sub

 

[izcik]

Hem de tam istediğim gibi oldu Halit3 uzmanım. Elinize fikrinize sağlık.

Değerli uzmanım sadece merak ettiğim için soruyorum; Eğer bu düğmeyi Print Screen düğmesi olarak değiştirmek isteseydik o zaman F12 kısmına Print Screen mi yazmak gerekecektik.

 

[Metin Karaağaç]

F12 kısmını değil de "Application.Dialogs(64).Show" satırındaki 64 numarasını değiştirmek gerekir sanırım.
Ama print screen numarası nedir hiç sormayın, bilmiyorum.

 

[halit3]

"PRTSC" böyle oması gerekiyor ama buda çalışmıyor niye bilmiyorum

 

[hassan26]

Selam
vbKeySnapshot (44) olması lazım
bu vesile ile daha önce arayıp bulduğum mevcut olan key kodlarını buraya ekleyeyim bir arkadaşın işine yarar.
Saygılar.

 

[izcik]

Değerli uzmanlarım ben çalıştığım excel dosyamda

aşağıdaki kodları sürekli kullanıyorum.

Sub auto_open()
Sheets("STOKLAR").Select
End Sub
Function FontStili(cell)
Application.Volatile
FontStili = cell.Font.FontStyle
End Function
Function krenk(cell)
Application.Volatile
krenk = cell.Font.ColorIndex
End Function
Function dolgu(cell)
Application.Volatile
dolgu = cell.Interior.ColorIndex
End Function



Fakat Halit 3 uzmanımın verdiği

Sub Autpen()
Application.OnKey "{F12}", "Dialogbulma_penceresi"
End Sub
Sub Dialogbulma_penceresi()
On Error Resume Next
Application.Dialogs(64).Show
End Sub


Ctrl F kodunu da aynı sayfada kullanmak istiyorum.

Bu kodları da modüle ekleyince hata veriyor.


Hata vermemesi için nasıl eklemeliyim?

 

[Ömer]

Merhaba,

Sub Autpen()
Sheets("STOKLAR").Select
End Sub

Kodu aşağıdaki gibi değiştirin,

Sub Auto_Open()
Sheets("STOKLAR").Select
[COLOR=blue]Application.OnKey "{F12}", "Dialogbulma_penceresi"[/COLOR]
End Sub

.

 

[halit3]

sayın Ömer kardeşimiz çok hızlı cevap verniş bende tekrarlıyayım bu kodları denermisiniz.

Sub Autpen()
Sheets("STOKLAR").Select
Application.OnKey "{F12}", "Dialogbulma_penceresi"
End Sub
Sub Dialogbulma_penceresi()
On Error Resume Next
Application.Dialogs(64).Show
End Sub
Function FontStili(cell)
Application.Volatile
FontStili = cell.Font.FontStyle
End Function
Function krenk(cell)
Application.Volatile
krenk = cell.Font.ColorIndex
End Function
Function dolgu(cell)
Application.Volatile
dolgu = cell.Interior.ColorIndex
End Function

 

[izcik]

Seve seve denerim uzmanlarım. Yardımcı olmanız, hem de müsait olduğunuz ilk anda bunu yapmanız, öyle güven veriyor ki insana

Sağolun

 

[izcik]

İşlem tamam