en son boş hücreye toplam almak

[ozmacig]

arkadaşlar ; A ve B sutunları sayfa2 aktarıcam aktarır iken sayfa 2 deki B sutunun en son boş satırına toplam almak istiyorum .

Yardımcı olursanız sevinirim….

 

[halit3]

bu kodu denermisiniz.

Sub AKTAR()
Worksheets("Sayfa2").Range("A2:B65536").ClearContents
For i = 2 To Worksheets("Sayfa1").[A65536].End(3).Row
Sheets("Sayfa2").Cells(i, 1).Value = Sheets("Sayfa1").Cells(i, 1).Value
Sheets("Sayfa2").Cells(i, 2).Value = Sheets("Sayfa1").Cells(i, 2).Value
Next i
Sheets("Sayfa2").Cells(i + 1, 1).Value = "Taplam"
Sheets("Sayfa2").Cells(i + 1, 2).Value = WorksheetFunction.Sum(Worksheets("Sayfa2").Range("B2:B" & i))
MsgBox " İşlem tamam"
End Sub

 

[ozmacig]

hocam ilgin için sağol ancak 428 Run-Time error " object doesn't support this property or methot" hatası veriyor.

 

[rhombeus]

Lütfen ekteki dosyayı deneyin.

 

[ozmacig]

hocam çok sağ olun ilginiz için bir sorum daha olacak . bu sistemi listbox da süzme işleminden sonra aktar dediğimde listboxtan sayfaya aktarır iken son boş hücreye toplamı nasıl yazdırırım acaba ...

 

[halit3]

hocam ilgin için sağol ancak 428 Run-Time error " object doesn't support this property or methot" hatası veriyor.

kodun bu bölümündeki boşluğu kaldırın yani kırmızı renkli yazının

Worksheets("Sayfa2").Range("A2:B65536").[B][COLOR=red]ClearConte nts[/COLOR][/B]

 

[ozmacig]

hocam ellerine sağlık halletim; bir soru daha olacak ekte göndermiş olduğum programda listbox ile tarihe göre süz işlemi yapıyorum ve sayfa 2 ye aktarma yapıp, sayfa 2 K sutunun en son boş hücresine toplam alıyorum ancak her süz işelmi yaptıktan sora toplam sutunu 20 hanede kalıyor bunu nasıl ayarlayabilirim yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton2_Click()
    Sayfa2.Range("A2:k1000").ClearContents
    For I = 2 To Worksheets("VERİ").[A65536].End(3).Row
    Set s1 = Sheets("sayfa2")
        sat = ListBox1.ListCount
        sut = ListBox1.ColumnCount
        s1.Range(s1.Cells(2, 1), s1.Cells(sat + 1, sut)) = ListBox1.List
    Next I
    Sheets("Sayfa2").Cells(65536, 1).End(3).Offset(1, 0).Value = "Toplam"
    Sheets("Sayfa2").Cells(65536, 11).End(3).Offset(1, 0).Value = WorksheetFunction.Sum(Worksheets("Sayfa2").Range(" K2:K" & I))
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[ozmacig]

Hocam çok sağolun kot tamamdır. ilginiz için teşekürler.

 

[Excelexcellent]

Sayın rhombeus tarafından hazırlanan, #4 numaralı mesaj ekinde verilen örnek dosyada veriler aktarılır iken aynı isimde olanlar yine alt alta sıralanıyor. Aynı isimde olanların toplamı için nasıl düzenleme yapılması gerekir.
(Mesela G ismindeki veri ikinci defa veya daha fazla girilince karşısındaki rakamların toplamını almak.)

Teşekkür ederim