ayrı hücreleri satırda toplamak

[diyakes]

Merhabalar,

bir for üzerindeki ayrı ayrı hücreleri bir satırda toplayıp o satırıda başka bir formda listelemek istiyorum.

konu ile sitede araştırma yaptığımda bir makro buldum. kendime uyarladım fakat makro sadece kendi sayfasında çalışıyor.

bu makroyu başka formdaki en son satıra atmak için nasıl bir değişiklik yapmam gerekiyor.

teşekkürler...

iyi çalışmalr.

Sub ekle()
Dim oSat As Integer


oSat = ActiveSheet.UsedRange.Rows.Count + 1


'verileri hücrelere yazalım
Cells(oSat, 5).Value = Cells(2, 6).Value
Cells(oSat, 6).Value = Cells(3, 6).Value
Cells(oSat, 7).Value = Cells(4, 6).Value
Cells(oSat, 8).Value = Cells(5, 6).Value
Cells(oSat, 11).Value = Cells(6, 6).Value
Cells(oSat, 13).Value = Cells(7, 6).Value
Cells(oSat, 14).Value = Cells(8, 6).Value
Cells(oSat, 15).Value = Cells(9, 6).Value
Cells(oSat, 16).Value = Cells(10, 6).Value
Cells(oSat, 17).Value = Cells(11, 6).Value


End Sub

 

[fedeal]

başka form derken başka çalışma sayfasımı?
öyle ise;

Sub ekle()
Dim oSat As Integer
oSat = Sheets("sayfaadınıyazın").Range("A65536").End(xlUp).Row + 1
'verileri hücrelere yazalım
With Sheets("sayfaadınıyazın").
Cells(oSat, 5).Value = Cells(2, 6).Value
Cells(oSat, 6).Value = Cells(3, 6).Value
Cells(oSat, 7).Value = Cells(4, 6).Value
Cells(oSat, 8).Value = Cells(5, 6).Value
Cells(oSat, 11).Value = Cells(6, 6).Value
Cells(oSat, 13).Value = Cells(7, 6).Value
Cells(oSat, 14).Value = Cells(8, 6).Value
Cells(oSat, 15).Value = Cells(9, 6).Value
Cells(oSat, 16).Value = Cells(10, 6).Value
Cells(oSat, 17).Value = Cells(11, 6).Value
End With

End Sub

 

[diyakes]

Merhabalar,

başka bir kitaptaki listenin sonuna aktarmaya çalışıyorum.

Ekte konu ile ilgili formlar bulunmaktadır.

içlerine açıklamalar ekledim. umarım yardımcı olur.

teşekkürler..

iyi çalışmalr.

 

[diyakes]

Merhabalar,

bu konuda yardımcı olabilir misniz?

teşekkürler...