Bu sorunun aynısını bende yaşamaktayım. Userform içerisinde günlük, haftalık, aylık kayıt yapılan verileri kopyalayamadıklarından dolayı sürekli ekran görüntüsü ile işlem yapılmakta. Paylaşmış olduğunuz kodu uygulamak istediğimde hata almaktayım. Nerede hata yapmaktayım yada ne düzeltmem...
...Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1
Sub cek()
On Error Resume Next
DoEvents...
...Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C
Sub Selected_File()
Dim DialogBox As FileDialog, My_Picture As Picture, Alan As Range
Set DialogBox =...
...As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const VK_SNAPSHOT As Byte = 44
Private Const SW_SHOWMAXIMIZED = 3
Private Const VK_LCONTROL As Long = &HA2
Private Const VK_V = &H56
Private Const KEYEVENTF_KEYUP...
Hata veren kodun tamamını silin.
Yerine
Private Sub CommandButton1_Click()
keybd_event VK_SNAPSHOT, 1, 0, 0
ActiveSheet.Paste
End Sub
Bunu yazarak dosyanızı kaydedip kapatın.
Tekrar açarak; UserForm'daki CommandButton1'e tıklayın.
Not:
64 Bit işletim sisteminizdeki VBA Module kısmındaki...
...Win64. Yani Module1'deki kodlara göre şu kodları okumalı.
Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Ancak yine de düğmeye bastığımda userform'un fotosunu dahi...
...Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Dim blnAboveVer4 As Boolean
Sub takeScreenShot()
If blnAboveVer4 Then
keybd_event VK_SNAPSHOT, 0...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.