Belirli Sütunların Aktarılması

[talatcd]

Slm Arkadaşlar Üstadlar Belirli veriye göre belirli sütunların aktarılmasını ve alttoplam alınması makro kodu lazım. Yardımcı olabilirmisiniz.

Örnek: Sayfa1 in A2>0 ise B2, C2, H2,I2,K2.M2 hücrelerinin Sayfa2 ye katarılması A2 den başlayarak sırasıyla sütunlara aktarılmas. Sayfa1 in son dolu satırına kadar aktarmasını ve Sayfa2 de işlem bittikten sonra son satıra toplam almasını istiyorum. yardımcı olursanız sevinirm. şimdiden herkese teşekkürler. kolay gelsin üstadlar.

 

[Orion1]

Küçük bir örnek dosya yollamanız doğru olacaktır.

 

[veyselemre]

Sub dene()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
a = Array(2, 3, 8, 9, 11, 13)
sat = 1
For x = 2 To [a65536].End(3).Row
    If Cells(x, 1) > 0 Then
        sat = sat + 1
        For y = 1 To 6
            s2.Cells(sat, y) = s1.Cells(x, a(y - 1))
        Next
    End If
Next x

For y = 1 To 6
    s2.Cells(sat + 1, y) = WorksheetFunction.Sum(Range(s2.Cells(2, y), s2.Cells(sat, y)))
Next
End Sub

 

[talatcd]

teşekkürler veyselemre ellerine sağlık üstadım.

 

[talatcd]

Birde toplam alımında belirli sütunların toplamının alınmasını nasıl yaparız.
Örnek: C, K, H sütunlarının toplanmasını istiyoruz.

 

[veyselemre]

Sub dene()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

a = Array(2, 3, 8, 9, 11, 13)
sat = 1
For x = 2 To [a65536].End(3).Row
    If Cells(x, 1) > 0 Then
        sat = sat + 1
        For y = 1 To 6
            s2.Cells(sat, y) = s1.Cells(x, a(y - 1))
        Next
    End If
Next x
a = Array(2, 3, 5)
For y = 0 To 2
    s2.Cells(sat + 1, a(y)) = WorksheetFunction.Sum(Range(s2.Cells(2, a(y)), s2.Cells(sat, a(y))))
Next
End Sub

 

[talatcd]

teşekkürler üstad ellerine sağlık tam istediğim gibi