Commonbuttonda çalışan kod Module'de nasıl çalışır.

[leumruk]

Private Sub Commandbutton1_Click()    
        For i = ActiveSheet.Shapes.Count To 1 Step -1
        X = ActiveSheet.Shapes(i).TopLeftCell.Column
        If X = 1 Then ActiveSheet.Shapes(i).Copy
        Worksheets(Worksheets("AnaSayfa").Range("A5").Text).Select
        Range("A4").PasteSpecial
    Next
End Sub

Arkadaşlar,
Yukarıdaki kod Userforma bağlı commandbutton'da çalışıyor; fakat kodu Module uyarladığımda "compile error" şeklinde bir hata veriyor. Bunu module nasıl uyarlarız?
Saygılar...

 

[Levent Menteşoğlu]

Kodun normal modülde çalışmaması için bir sebep görünmüyor. Verdiği hata mesajı ile hata veren satırı eklermisiniz.

 

[leumruk]

X = ActiveSheet.Shapes(i).TopLeftCell.Column

Run time error
"Belirlenen koleksiyona olan dizin sınırlar dışında"
Hata msjı veriyor, fakat işlemi de gerçekleştiriyor.

Syn hocam,
Bir de kod a sütununu tarıyor, bunu a4 olarak sınırlayamaz mıyız?
Saygılar

 

[Levent Menteşoğlu]

Bu kodla ne yapmak istediğinizide açıklarmısınız belki ona göre farkı bir kod önerilebilir.

 

[leumruk]

Dosyayı ekliyorum, kod her seferinde farklı bir işlem ve hata vermeye başladı.
Kodun bağlı olduğu düğme "Düğme 24".
Amacım, Anasayfadaki resmi, resmin altında yazan ismin adına açılmış sayfaya kopyalamak.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub ResimKaydet()
Range("A4").Copy
Worksheets(Worksheets("AnaSayfa").Range("A5").Text).Select
Range("A4").Select
ActiveSheet.Paste
End Sub

 

[leumruk]

Levent hocam,
A4'teki resmi kopyalamıyor. Veriyi başka bir kodla kopyalıyorum zaten. Bana AnaSayfadaki A4 üzerindeki resmin diğer sayfaların A4'üne kopyalanması lazım.

 

[Levent Menteşoğlu]

Verdiğim kod resmide kopyalıyor. Ekli dosyayı inceleyin.

 

[leumruk]

Syn. Hocam,
Bende resmi almıyor. 5-6 defa gönderdiğiniz dosyayı denedim; ama olmadı.
Bunun bir ayarı olabilir mi?

 

[Levent Menteşoğlu]

Syn. Hocam,
Bende resmi almıyor. 5-6 defa gönderdiğiniz dosyayı denedim; ama olmadı.
Bunun bir ayarı olabilir mi?

Evet bir ayarı var. Araçlar-seçenekler-düzen-nesneleri hücrelerle birlikte kes,kopyala ve sırala kutusunun işaretli olması gerekiyor.

 

[leumruk]

Küçük bir ayrıntı nelere sebep oluyor. Sabahtan beri bununla uğraşıyorum.
Syn. hocam, bu ayar bu dosya için mi geçerli, yoksa dosyayı çalıştırdığım bilgisayarda bu ayarı sürekli yapmam mı gerekiyor?
Eğer her bilgisayarda yapmam gerekiyorsa, bu sekmeyi makroyla aktif hale getirmemiz mümkün müdür?

 

[Levent Menteşoğlu]

Küçük bir ayrıntı nelere sebep oluyor. Sabahtan beri bununla uğraşıyorum.
Syn. hocam, bu ayar bu dosya için mi geçerli, yoksa dosyayı çalıştırdığım bilgisayarda bu ayarı sürekli yapmam mı gerekiyor?
Eğer her bilgisayarda yapmam gerekiyorsa, bu sekmeyi makroyla aktif hale getirmemiz mümkün müdür?

Bu ayar tüm dosyalar için geçerlidir. Aşağıdaki kodu makronuzun içine yerleştirebilirsiniz.

Application.CopyObjectsWithCells = True

Not: Bu tür kodları makro kaydet yöntemi ele elde edebilirsiniz.

 

[leumruk]

Syn. hocam,
Çok teşekkür ederim. Epey vaktinizi aldım. Ellerinize sağlık.
Hayırlı sahurlar...

 

[Levent Menteşoğlu]

Rica ederim. Sizede hayırlı sahurlar.