• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hata..!

S

sensizsoldum

Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
Run-time error ‘1004
Range sınıfının Hidden özelliği kurulamıyor.

Bu hatayı nasıl çözüme götürebilirim.

.Range("A:AX,BF:IV").EntireColumn.Hidden = True
 
Kod satırının en solundaki (.)nokta işaretini silip deneyiniz.
 
Merhaba

Aynı kodu defalarca denedim hata almadım.
range'den önceki . onunda ne olduğunu açarmısınız.

Ayrıca sayfanızıda bağlı olabilir.yeni bir kitap açıp sadece gönderdiğiniz kodları çalıştırınız.
 
Bitişik olmayan aralıkları gizlemeye çalıştığınız için yapıyor diye düşünüyorum.
 
Denedim olmadı ya arkadaşlar bu kod sorunsuz çalışıyordu. Sayın Korhan beyin yazdığı bir kod bu ve onun bıraktığı gibi aynı koddan başka sayfalarda da var, anlamıyorum durduk yere de kod bozulmaz ki değil mi ama arkadaşlar… Sizden bu kod özelliklerini nasıl kişiye özel olmasını sağlayabiliriz. Sayfaya kod erişimini kesinlikle kapatan yol var mıdır?
 
Son düzenleme:
Merhaba

Öncelikle 1. sorununuzu çözelim.
sorunuza 4 adet cevap verilmiş bunları bakıp ,denedinizmi.
dosyanızı buraya ekleyebilirseniz sonuca daha çabuk ulaşırız.
 
Merhaba Zafer Bey,
Dosyayı buraya ekleyemiyorum, şirkette olduğumdan sistem izin vermiyor. akşam falan ekleyebilirim ancak
 
Merhaba

Sayfa koruması varsa o yapabilir.
 
Neden hep son soru cevaplanır ve sorulan soruya net yanıtlar verilmez ?
Anlayamıyorum... :dusun:
 
Bir deneme yapalım.

Aşağıdaki kodu aynı sayfada çalıştırın.

Bu bende çalışıyor.

Kod: 
Sub dene()
Range("A:AX,BF:IV").EntireColumn.Hidden = True
End Sub

.
 
Merhaba

Murat OSMA' Alıntı:
Neden hep son soru cevaplanır ve sorulan soruya net yanıtlar verilmez ?
Anlayamıyorum... :dusun:
Genişletmek için tıkla ...

Size katılıyorum Murat Bey

"korumayıda kontrol ettim olmadı"

Ben sayfada koruma varmı yokmu sadece onun cevabını istiyordum
Ayrıca 3 ve 6. mesajlarıma hiç bakılmamış sanıyorum.Bunlara ait geri dönüş olmadı.
 
Merhaba,
Sayfada 144 tane bu şekilde çalışılan köprü var,
Ancak sadece 1 bölümü yani 12 tanesi bu hatayı veriyor, aynı koddan başka sayfayı açan konum var, orda sıkıntı yok, anlamış değilim.
 
Merhaba sayın yurttaş butonsuz olmalı sadece belirttiğim kısım hata veriyor.


Select Case Cells(3, Target.Column)
Case "KALİTE"
.Range("L:IV").EntireColumn.Hidden = True
Case "TERBİYE"
.Range("A:J,V:IV").EntireColumn.Hidden = True
Case "DOKUMA"
.Range("A:T,AF:IV").EntireColumn.Hidden = True
Case "FİZİK ICS"
.Range("A:AD,AP:IV").EntireColumn.Hidden = True
Case "ÜRGE KARTELA"
.Range("A:AN,AZ:IV").EntireColumn.Hidden = True
Case "KILAVUZ ASTAR"
.Range("A:AX,BF:IV").EntireColumn.Hidden = True
Case Else
.Cells.EntireRow.Hidden = False
.Cells.EntireColumn.Hidden = False
End Select
 
.

Pes doğrusu!

Verdiğim kodu denediniz mi? Çalışıyor mu, çalışmıyor mu?

Soru bu kadar basit.

Neden sorulan soruya değil de başka şeyler söylüyorsunuz?

.
 
.

Dosyanızda ne kadar koruma varsa kaldırın.

Eğer korumalar kodla sağlanıyorsa, kodu şimdilik silin veya devre dışı bırakın

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst