Sil ve kopyala kodları

[sward175]

Herkese merhabalar,

Aşağıdaki şekilde kod yazdım, kaydedip excel'e döndüm buton ekledim, ters tıklayarak macro ata dedim mocroyu bulduğum zaman tekrar kod düzenle penceresi geliyor ata seçimi vermiyor.
yardımlarınızı rica ederim.
Selamlarımla,


Sub deneme()
[c4:f9].Value
[c9:f9].Value
[d15:l26].Value
[d34:g35].Value
[c54:f61].Value
[h54:k61].Value
[ı68:j70].Value
[f84:h102].Value
[g108:n130].Value
[b138:f138].Value
[ı136:j136].Value
[ı138:j138].Value
[e79:e80].Value
[d68:d77].Value = [c68:c77].Value
[d84:d102].Value = [c84:c102].Value
[e108:e130].Value = [d108:d130].Value
[o108130].Value = [c108:c130].Value
End Sub

 

[YUSUF44]

Makro kaydetme şu anda çalışıyor olabilir mi?

 

[sward175]

YUSUF44,
Merhaba, tekrar deniyorum fakat bu defasında şöyle bir uyarı aldım. "object doesn't support this propety of methot" düzenle dediğimde de olmuyor.
Selamlar,

 

[YUSUF44]

Makronun adını değiştirip deneyin isterseniz.

 

[sward175]

Yusuf Be, Merhaba,
excel açık ,geliştirici, visual basic, ınsert, modüle, kodu yazıyorum, kaydet, excel' e dön, ekle düğme, boş hücreye tıkla, macro ata.... burada sadece düzenle tuşu aktif, kaydet tuşu pasif konumda. Düzenle dersem yine başa dönüyorum.
Selamlarımla,
sward175

 

[YUSUF44]

Buna benzer bir sorun benim de başıma gelmişti, makronun adını değiştirince düzelmişti.

 

[sward175]

Merhabalar,

1. mesajdaki kodu boş bir sayfada bir düğmeye "kopyala sil" ismi adında çalışır hale getirebilir misiniz. ben de kendi dosyama uygulamaya çalışayım.

saygılarımla,
sward175

 

[YUSUF44]

Kodu aşağıdaki gibi boş bir sayfada boş bir modüle eklediğimde düğmeye eklemekte sorun çıkarmadı. Ancak kodlarda sıkıntı var. ilk kısımdaki .value'den sonra bir komut olmadığı için hata veriyor:

Sub KopyalaSil()
[c4:f9].Value
[c9:f9].Value
[d15:l26].Value
[d34:g35].Value
[c54:f61].Value
[h54:k61].Value
[ı68:j70].Value
[f84:h102].Value
[g108:n130].Value
[b138:f138].Value
[ı136:j136].Value
[ı138:j138].Value
[e79:e80].Value
[d68:d77].Value = [c68:c77].Value
[d84:d102].Value = [c84:c102].Value
[e108:e130].Value = [d108:d130].Value
[o108:o130].Value = [c108:c130].Value
End Sub

 

[sward175]

sayın: YUSUF44,
Çok teşekkürler, elinize sağlık,
sward175