Butona her bastığımda,tüm butona bastığım sonuçların birlikte tek bir çizelgede görün

[endless32]

Butona her bastığımda,tüm butona bastığım sonuçların birlikte tek bir çizelgede görünmesini istiyorum.

 

[Ömer]

Merhaba,

Kodları module kopyaladıktan sonra değiştiriciye atayın.

Sub Değiştir()
no = Range("J52") - 1
sut = 10
    For i = 40 To 43
        If sut > 0 Then
            sut = sut + 1
            Cells(no, sut) = Cells(19, i)
        End If
    Next i
End Sub

.

 

[endless32]

SELAMLAR

Gönderdiğin kodları değişkene kopyaladım,istediğim gibi sonuçlar sabit olarak butona tıkladığımda çizelgeye yansıyor ama sonuçların geldiği(an29 ile aq29) ile tablo uyuşmuyor,inceleyip bana dönebilirmisin?Ekte dosyayıda gönderiyorum.

Şimdiden tşk.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Range("K" & Range("J52") - 1 & ":N" & Range("J52") - 1).Value = Range("AN29:AQ29").Value
End Sub

 

[Ömer]

Merhaba,

Kod da 19 yazan bölgeyi 29 olarak değiştirin.

.

 

[endless32]

Çok teşekkür ederim.

İstediğime cevabımı çoğuyla aldım ama sonuç tablosunu oluşturmam için herzaman tek tek tıklamam gerekiyor.Peki butona ilk bastığım hücrede (0,90) ile son hücremdeki rakamda (2,00) diyelim ve bunlar arasındaki sonuçları tek bir hareketle tabloma yansıtabilirmiyim?

Tekrardan tşk