AccessTr.neT

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Hata bende alıyorum. Visual Basic Module1 (Code) Compile Error Cant find project or library uyarısı veriyor.
Sub auto_open() komutunu sarı renkli olarak işaretlemiş.

Kod:
Sub auto_open()

Sheets("ANA").Select

    x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor

    Y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor

    ActiveWindow.Zoom = 70 * x / 1024

    Application.DisplayFullScreen = True

    Sheets("ANA").Select

sayın @karakan ofis sürümünüzü belirtir misiniz?
referansları kontrol eder misiniz, her hangi birinde missing yazıyor mu?
vba penceresi (alt+F11)-->tools-->references
Not: modüle aşağıdaki kodu ekleyip dener misiniz

Kod:
#If VBA7 And Win64 Then '64 bit için 

    Public Declare ptrsafe Function GetSystemMetrics Lib "user32.dll" (ByVal index As Long) As Long   

#Else '32 bit için

    Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal index As Long) As Long

#End If

Merhabalar, bunu 70 daire için nasıl uzatabiliriz.

teşekkürler

Sheets("ANA").Select

Hatası alıyorum yardımcı olurmusunuz_?

merhaba ,
linkte sorun mu var , indiremedim. Yardımcı olurmusunuz lütfen...

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

karakan

berduş

gltsry-emre

soltay

Ali Emre Seçgin

hamdi35