hata

[zulfuernek]

Private Sub UserForm_Activate()
Dim lngFormHwnd As Long
Dim lngFormStyle As Long

If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, (-16))
lngFormStyle = lngFormStyle And Not &H800000
SetWindowLong lngFormHwnd, (-16), lngFormStyle
DrawMenuBar lngFormHwnd
End Sub

yukarıdaki formülde farklı bir userformda çalışmasına rağmen diğer excel projesinde kırmızı renkli kısımda uyarı veriyor.

bilgisi olan varmı.

userform başlığını gizlemek için kullandığım formül

 

[BedriA]

Çalışan userformda başka bir başvuru kaynağı da vardır, o yüzden orda çalışıyordur.

Çalışan userformdaki kodları kontrol edin, bahsettiğiniz işlev için bir başvuru kaynağı daha olmalı.

 

[zulfuernek]

aynı userformda değil ancak farklı bir userformda mevcut aynı kod.

 

[BedriA]

Çalıştığı userformdaki tüm kodları # işaretine tıklayarak eklemeniz mümkün mü?

 

[Korhan Ayhan]

Çalışan dosyanızda UserForm'unuzun kod bölümünde en üstte API kodları vardır. Onları da yeni dosyanıza aktarmanız gerekiyor.