Sheetleri gizledikten sonra formum hata veriyor.

[Amaxx]

Merhaba, çalıştığım programımda Ana sayfadaki formu çalıştırınca programım hata veriyor. Bu hata veryhidden yaptığım sheetlerden sonra oldu. Sheetleri açmadan bu sorunu çözemez miyim?

Formu çalıştır deyince "Worksheet sınıfının Select yöntemi başarısız" mesajı veriyor.....

 

[uzmanamele]

merhaba
gizli sayfayı nasıl seçsin ki?
kodlarınızda .Select kullanmadan deneyebilirsiniz
kodların başına "on error resume next" yazarak sorun çözülebilir

 

[Ayhan Ercan]

Merhaba,

Muhtemelen formunuzda gizlediğiniz sayfa ile ilgili direk yazılı kodlar vardır.
Gizli olan sayfa için kod yazılımını dolaylı yapıp deneyin.

Mesela:
Sheets("Sayfa1").Select
Range("A1").Value = "ALİ"

yerine
Sheets("Sayfa1").Range("A1").Value = "ALİ"
yazın.

.select
.activate
gibi kullanımları varsa gizli sayfanın, bahsettiğiniz hatayı almaya devam edeceksiniz....

 

[Amaxx]

evet select kodunu oldukça fazla kullandım bi bakiiimmmm.....1575 satırda dolaşmam gerekiyor. e biraz uraşcam galiba :mrgreen:

dediğiniz gibi yapmaya başladım umarım çabuk biter...

 

[Amaxx]

Bu kodları select olmadan nasıl yazarız?

Sheets("form").Select

ComEn.ColumnCount = 1
ComEn.RowSource = "L5:L36"
ComAmac.ColumnCount = 1
ComAmac.RowSource = "n2:n20"
ComYuk.ColumnCount = 1
ComYuk.RowSource = "M2:M3"
ComRenkKap.ColumnCount = 2
ComRenkKap.RowSource = "I2:J10"

Şu doğru olabilir mi acaba?

ComEn.ColumnCount = 1
ComEn.RowSource = Sheets("form").range(L5:L36)

 

[Ayhan Ercan]

Merhaba,

Şu şekilde deneyiniz....:

ComEn.ColumnCount = 1
ComEn.RowSource = "Form!L5:L36"