kod düzeltme

[wirtue]

arkadaşlar merhaba ;

konuyu daha öncede dile getirmiştim fakat çözemedim.ekteki dosyayı inceler yardımda bulunursanız sevinirim Tşk ler

 

[leumruk]

Sub Auto_Open
MsgBox "xxxxxxxxx.", vbCritical, " XXX."
Makro1
Application.OnKey "^{s}", "Makro1"
End Sub

Bu şekilde dener misiniz?

 

[Recep İpek]

İlk Autpen kodundaki Uyarı Mesajı ne işe yarıyor?

 

[wirtue]

küçük bir uyarı yazmıştım onun görünmesini istemiştim sadece

 

[Recep İpek]

Makro1'deki kodlara bağlı bir uyarı değil ise ;

Sub Auto_Open
MsgBox "xxxxxxxxx.", vbCritical, " XXX."
Application.OnKey "^{s}", "Makro1"
End Sub

olarak deneyiniz.

 

[wirtue]

Ynt :

Sub Auto_Open
MsgBox "xxxxxxxxx.", vbCritical, " XXX."
Makro1
Application.OnKey "^{s}", "Makro1"
End Sub

Bu şekilde dener misiniz?

recep hocam tşk ler sizede sayın leumruk,,yanlız hocam sayfa koruması ile ilgili vermiş olduğunuz kod tüm sutunları kitliyor sebebi ne olabilir vermiş olduğum sutunları yazmışsınız koda ellerinize sağlık ama diğer sutunlarda kilitli duruma geçiyor

 

[leumruk]

recep hocam tşk ler sizede sayın leumruk,,yanlız hocam sayfa koruması ile ilgili vermiş olduğunuz kod tüm sutunları kitliyor sebebi ne olabilir vermiş olduğum sutunları yazmışsınız koda ellerinize sağlık ama diğer sutunlarda kilitli duruma geçiyor

Syn. wirtue,
Korumayı açın, tüm hücreleri seçin, hücre biçimlendirden, koruma sekmesindeki kilitli kutucuğunu boşaltıp, yeniden deneyin. Ben sadece belirlediğiniz çerçevede yapacağınızı düşündüğümden tüm hücreleri kilitleyip, ona göre kod yazmıştım.

 

[wirtue]

tüm hücreleri klitlemek istememiştim aslında sadece belittiğim sutunları A-B-F ve G sutunlarını hücre biçimelndirden klitli lutucuğunuda boş bıraktığımda olmuyor

 

[wirtue]

Re :

Syn. wirtue,
Korumayı açın, tüm hücreleri seçin, hücre biçimlendirden, koruma sekmesindeki kilitli kutucuğunu boşaltıp, yeniden deneyin. Ben sadece belirlediğiniz çerçevede yapacağınızı düşündüğümden tüm hücreleri kilitleyip, ona göre kod yazmıştım.

Hocam isterseniz tabloyu gönderiyim,,

 

[leumruk]

tüm hücreleri klitlemek istememiştim aslında sadece belittiğim sutunları A-B-F ve G sutunlarını hücre biçimelndirden klitli lutucuğunuda boş bıraktığımda olmuyor

Syn. wirtue,
Olmaması diğer başlıkta verdiğiniz örnekte yeniden uyguladım. Tüm hücrelerin kilidini açınca bende oldu. Bir yerlerde hata yapmış olabilirsiniz.
Ya da ben yanlış anlıyorum. Benim anladığım şu, yanılıyorsam düzeltin:
Belirttiğiniz sütunlardaki dolu hücrelerde işlem yapılamasın; fakat boş hücrelerde yapılabilsin. Ayrıca, bu sütunlar dışındaki hücrelerde dolu da olsa, boş da olsa işlem yapılabilsin.
Yanılıyor muyum?
Dosyayı ekleyebilirseniz, söylediğim işlemi ben yapabilirim.

 

[wirtue]

Ynt :

Syn. wirtue,
Olmaması diğer başlıkta verdiğiniz örnekte yeniden uyguladım. Tüm hücrelerin kilidini açınca bende oldu. Bir yerlerde hata yapmış olabilirsiniz.
Ya da ben yanlış anlıyorum. Benim anladığım şu, yanılıyorsam düzeltin:
Belirttiğiniz sütunlardaki dolu hücrelerde işlem yapılamasın; fakat boş hücrelerde yapılabilsin. Ayrıca, bu sütunlar dışındaki hücrelerde dolu da olsa, boş da olsa işlem yapılabilsin.
Yanılıyor muyum?
Dosyayı ekleyebilirseniz, söylediğim işlemi ben yapabilirim.

Evt hocam doğrudur sanırım ben bir yerde yanlış yapıyorum..kontrol edin lütfen.sğl un

 

[leumruk]

For i = 2 To 10

For i = 2 To 300

Örnekteki kodu aynen kendi dosyanızı uygulamışsınız. 1. kod size verdiğim kodun ilk satırı. Gireceğiniz hücre sayısına göre kodun bu satırında değişiklik yapacaksınız. Ben 300'e çevirdim. Daha da artırabilirsiniz. Yalnız unutmayın, sayı arttıkça makro yavaşlayacaktır.
UYARI: Yeni girilen verilerde koruma işleminin etkin olabilmesi için, kodu tekrar çalıştırmanız gerekir.

 

[wirtue]

Evet hocam şimdi incelrken farkettim For i = 2 To 10 u

elinize sağlık çok tşk ler

 

[leumruk]

Evet hocam şimdi incelrken farkettim For i = 2 To 10 u

elinize sağlık çok tşk ler

Rica ederim.