Butona tek basışta ilk ve son rakamlarım arasındakileri çizelgeme nasıl yansıtırım

[endless32]

Selamlar


Sorunumu aktarmak istiyorum.

Öncelikle bir buton atadım ve butona bastığımda sonucu ilgili çizelgeye yazıyor.
Fakat 1000 kadar sonuç bulmam gerekiyor
Yani buda demekki ben 1000 kere butona basmam lazım.Dosyam biraz yüklü olduğundan tek basmamda dahi biraz bekliyorum.

Benim isteğim,butona tek basışta ilk ile son rakamlarımın arasında kalan sonuçların tabloma yazılması veya yansıması.
Arkadaşlar,site yöneticileri,uzman arkadaşlar çok zor durumdayım,elim kolum bağlı,bu benim bitirme projem ama zamanım çok az kaldı

Örnek bir dosyam içerisinde işleyiş ve hangi hücre hangisine bağlı olduğunu anlattım,dosyayı EK'ledim.

Bana yardım etmenizi bekliyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Dim X As Long
 
    Range("J52") = 55
 
    For X = 54 To Range("J65536").End(3).Row - 1
        Range("K" & X & ":N" & X).Value = Range("AN29:AQ29").Value
        Range("J52") = Range("J52") + 1
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[endless32]

Selamlar

İlgilendiğin için öncelikle tşk.

Verdiğin kodları yazdım ve şöle bir hata veriyor.Ek'te hata msjının jpeg resmini ve uyguladığım örnek dosyayı gönderiyorum.

 

[Korhan Ayhan]

Selamlar,

Excel versiyonu olarak 2007 yazdığınız için döngü satırını ona göre ayarlamıştım. 2003 versiyona ait bir dosyada kodu çalıştırırsanız hata mesajı alırsınız.

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[endless32]

çok teşekkür ederim.Süpersin

daha ne olsun