Auto open

[alipinar]

Merhaba arkadaşlar,
Hazırladığım dosya formlar üzerinde çalışılıyor. Bu nedenle excel sayfasını görünmesini istemiyorum. Bu arada başka excel sayfası açıksa bundan etkilenmesini istemiyorum.
Sitede bu konuda bulduğum

Sub Autpen()
ActiveWindow.Visible = False
UserForm2.Show
End Sub
kodunu Modül içine yazdım. Ancak aşağıdaki hata mesajını veriyor.

Run-time error '1004'
Method 'Sheets' of object '_Global' failed.

Debug tuşuna basınca da hatayı aşağıdaki ComboBox'ta ve alt satırlarında gösteriyor.

Private Sub UserForm_Activate()
ComboBox1.Value=Sheets("çıktı").Range("y3").Value
.
.
End Sub

Bu durumda hata neden kaynaklanıyor. Ne yapabilirim? Yardımlarınız için teşekkür ederim. İyi akşamlar.

 

[Levent Menteşoğlu]

Bu şekilde cevap vermek zor, dosyanızı eklerseniz onun üzerinden gidelim. Ön bilgi için aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=5008

 

[alipinar]

Değerli üstad, ilginize teşekkür ederim. Dosya ekte. Kırpa kırpa ancak bu kadar küçültebildim. İyi geceler.

 

[alipinar]

Arkadaşlar sonradan fark ettim de dosyayı boşuna kırpmışım. Orijinali ila arasında çok az bir fark var. Bundan dolayıo orijinal dosyayı gönderiyorum.

 

[alipinar]

Arkadaşlar ooijinal dosyaya(PROJE 1) Auto_open kodunu yazmayı unuttum. Modül içinde.

Sub Autpen()
ActiveWindow.Visible = False
anasayfa.Show
End Sub

Özür dilerim. İyi geceler. :arkadas:

 

[programer]

arkadaşım bende senin gibi aşağıdaki kodu kallanıyorum. benim tahminim, aktif sayfada böyle bi kod olmadığı için çalışmıyor. benimde istediğim açtığım excel dosyasını gizlemesi ama bende de hata veriyor. Sayın ustatlarımızdan bu konuda yardım bekliyoruz

ActiveWindow yerine çalışma kitabının adını yassak olurmu acaba.

Sub Autpen()
ActiveWindow.Visible = False
UserForm2.Show
End Sub

 

[alipinar]

:yardim: :yardim: :yardim: :hey:

 

[selami güzel]

merhaba
userFormunu "frmanasayfa" olarak değiştirdim.özür
UserForm_Initialize() a Form tam sayfa açılması için.
With frmanasayfa
.Height = Application.Height
.Width = Application.Width
End With
kodları ekledim.

module1 e
Sub Autpen()
Sheets("hat").Select
frmanasayfa.Show
End Sub

kodları yazınız.ben denedim çalışıyor.
kolaygelsin

 

[serdenm]

asagidakini yazinca excel tamami ile gizleniyor:
yani active window degilde application i hide yapmis oluyoruz.

Sub Autpen()

Application.Visible = False
anasayfa.Show
End Sub

fakat sonrasinda hata veriyo su satirda:
ComboBox1.Value = Sheets("çıktı").Range("y3").Value 'Hattın ismi

problemin cozumu ne olmali?
iyi aksamlar.

 

[selami güzel]

Sayın serdenm

ben sayın alipinar ın eklediği "PROJE1.rar" dosyasında
denedim.sorun gözükmüyor.

saygılarımla

 

[serdenm]

merhaba sn. selami,

calisan dosyayi gonderebilirmisiniz? bende her seferde farkli bir hata veriyor.

mesela runtime error 1004: method 'Sheets' of object '_global' failed
gibi.

yalniz sizden bir ricam var. dosyayi zip veya rar ile sikistirdiktan sonra uzantisini tekrar xls yaparmisiniz? firewalldan dolayi zip, rar, exe gibi dosyalari indiremiyorum.
tesekkurler. k::

 

[alipinar]

Sayın Selami Güzel ilginize ve yardımınıza çok teşekkür ederim. Elinize, aklınıza sağlık. k::
Sayın ustalar başka çalışmalarda "runtime error 1004: method 'Sheets' of object '_global' failed " hatası aldığımızda bu nasıl çözeceğiz?
Bu hata konusunda bizleri aydınlatırsanız kendi adıma mutlu olurum. Teşekkür eder, iyi çalışmalar dilerim.

 

[serdenm]

sn ali pinar calisan dosyayi gonderirmisiniz? (xls olarak).

tamam rar yapin, fakat sonra dosya uzantisini xls olarak degistirir misiniz? cunku belirli tipteki dosyalari cekemiyorum. (zip, rar, exe gibi).

bunu yapmak icin araclar, klasor secenekleri, gorunum sekmesinde "bilinen dosya turleri icnin uzantiyi gizle" senegi isaretldir. o isareti kaldirip tamam diyin. artik dosya uzantilarini gorebilirsiniz. sonra rar yaptiginiz dosyayi yeniden adlandirarak uzantisini xls olarak degistirin. proje1.xls gibi...

size verdigim rahatsizliktan dolayi ozur dilerim. tesukkurler.

 

[alipinar]

Sayın serdenm dosyayı XLS olarak gönderemem çünkü 2,70 MB. İstersenizi RAR olarak göndereyim.

 

[serdenm]

tamam rar yapin, fakat sonra dosya uzantisini xls olarak degistirir misiniz? cunku belirli tipteki dosyalari cekemiyorum. (zip, rar, exe gibi).

bunu yapmak icin araclar, klasor secenekleri, gorunum sekmesinde "bilinen dosya turleri icnin uzantiyi gizle" senegi isaretldir. o isareti kaldirip tamam diyin. artik dosya uzantilarini gorebilirsiniz. sonra rar yaptiginiz dosyayi yeniden adlandirarak uzantisini xls olarak degistirin. proje1.xls gibi...

size verdigim rahatsizliktan dolayi ozur dilerim. tesukkurler.

 

[alipinar]

Rica ederim. :hey:

 

[alipinar]

Özür dilerim. İsim değiştirmeden göndermişim. İyi çalışmalar :hey:

 

[Zeki Gürsoy]

...

 

[selami güzel]

sayın arkaşlarım;
Dosyayı zip ledim fakat gönderemedim çünkü 512 Kb dan fazla olduğu için.
Sn.alipinar ın PROJE1.XLS.rar dosyasını indirin.
ve aşağıdaki kodları ekleyin.

userFormunu "frmanasayfa" olarak değiştirdim.özür
UserForm_Initialize() a Form un tam sayfa açılması için aşağıdaki kod ları ekleyiniz..

With frmanasayfa
.Height = Application.Height
.Width = Application.Width
End With


modul 'e e Bu kodaları 'da eklerseniz açılışta "frmanasayfa" form uaçılır.

Sub Autpen()
Sheets("hat").Select
frmanasayfa.Show
End Sub

 

[selami güzel]

Sn. alipinar
rica ederim.sn.ustalardan öğrendiklerimizle yardımcı olabildiysem
ne mutlu bana. Çalışmalarınızda başarılar
saygılarımla