Userformun hakkında

[zfr10]

Selam arkadaşlar sayfamdaki icmal sayfasına uyguladığım userformu diğer sayfalara da uygulamak istiyorum ama kod hatası veriyor.
Yardımlarınızı bekliyorum.

 

[zfr10]

userforma eklediğim kod

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const GWL_STYLE As Long = (-16)
Private wHandle As Long

Private Sub UserForm_Initialize()
On Error Resume Next
ShowAtCell
Dim frm As Long, frmstyle As Long

If Val(Application.Version) >= 9 Then
wHandle = FindWindow("ThunderDFrame", Me.Caption)
Else
wHandle = FindWindow("ThunderXFrame", Me.Caption)
End If
If wHandle = 0 Then Exit Sub
frm = GetWindowLong(wHandle, GWL_STYLE)
frm = frm Or &HC00000
SetWindowLong wHandle, -16, frmstyle
DrawMenuBar wHandle
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Code to drag the form
If wHandle = 0 Then Exit Sub
If Button = 1 Then
ReleaseCapture
SendMessage wHandle, &HA1, 2, 0
End If
End Sub
modül 1 e eklediğim kod
Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, _
lpRect As RECT) As Long
Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Const HWNDDESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Sub ShowAtCell()
Dim DC As Long
Dim WinFont As Integer
Dim ZoomFactor As Single
Dim winRect As RECT
Dim hWndXL As Long
Dim hWndXLDesk As Long
Dim hWndXLChart As Long
Dim ChtObj As ChartObject
Dim TargetRange As Range
Set TargetRange = Sheets("İCMAL").[K1]
Set ChtObj = ActiveSheet.ChartObjects.Add(0, 0, 20, 20)
With ChtObj
.Top = TargetRange.Top
.Left = TargetRange.Left
.Activate
End With
hWndXL = FindWindow("XLMAIN", Application.Caption)
hWndXLDesk = FindWindowEx(hWndXL, 0&, "XLDESK", vbNullString)
hWndXLChart = FindWindowEx(hWndXLDesk, 0&, "EXCELE", vbNullString)
GetWindowRect hWndXLChart, winRect
ChtObj.Delete
DC = GetDC(HWNDDESKTOP)
WinFont = GetDeviceCaps(DC, LOGPIXELSX)
ReleaseDC HWNDDESKTOP, DC
ZoomFactor = (ActiveWindow.Zoom - 100) * 0.005
With UserForm2
.StartUpPosition = 0
.Top = (winRect.Top * 72 / WinFont) + ZoomFactor
.Left = (winRect.Left * 72 / WinFont) + ZoomFactor
.Show
End With
End Sub

 

[zfr10]

Arkadaşlar bi yardım lütfen

 

[paranormal]

Arkadaşlar bi yardım lütfen

Dosyadaki ICMAL 'i tikladigimda bazen tam ortaya yatay ve upuzun bir dugme geliyor, zannediyorum bu bir hata. Siz hangi userform u diger tum syafalrda istiyorsunuz tam aciklarmisiniz..bir de yukarida 3 tane dugme var bunlari mi kasdediyorsunuz...

 

[zfr10]

Sayın Paranormal Bey düğmeler değil icmal sayfasında çıkan userform gibi diğer sayfalara da userform uygulamak istiyorum hücreyi esas alan userform kodlarını gönderdim.Sorunum şu diğer sayfalara userform uyguluyorum ve gönderdiğim kodları uyguluyorum ama kodlar hata veriyor

 

[zfr10]

Arkadaşlar yardım edecek yok mu

 

[zfr10]

Tekrar selam arkadaşlar ykarıdaki örnekte olduğu gibi başlıksız ve hücreyi esas alan userformu tüm sayfalara uygulamak istiyorum yardımcı olur musunuz?

 

[mustafakoker]

Tekrar selam arkadaşlar ykarıdaki örnekte olduğu gibi başlıksız ve hücreyi esas alan userformu tüm sayfalara uygulamak istiyorum yardımcı olur musunuz?

selam
anladığım kadarı ile userformu her sayfada üstte sabit tutmaya çalışıyorsunuz doğru anlamış isem eki inceleyin

 

[zfr10]

Mustafa Bey ekleyeceğim farklı userformları yukarıda tutmak istiyorum

 

[mustafakoker]

bunu denermısın