Aynı kodlu ürünlerin miktarlarının alt alta yazılması

[izcik]

Değerli uzmanlarım sorum ektedir.

Saygılarımla.

Sayfa 1 deki liste Makro ile,

Sayfa 2 deki gibi aktarılacak.

 

[ersoyalan]

İzcik merhaba,

Sorularınızı lütfen ekli mesaj içeriğinde değilde konu içeriğinde anlatmaya özen gösteriniz.

Syg,

 

[izcik]

Derhal değerli Ersoyalan.

Sayfa 1 de ürünlerin miktarları yan yana sütun halinde yazılıdır.

A sütununda ürünün kodu B sütununda ve diğer sütunlarda ise kendilerine ait olan miktarları yazılı halde devam ediyor.

Bu şekilde ürün miktarları Makro düğmesine basılınca Sayfa 2 de örnek verdiğim şekilde dizilmesi gerekiyor.


saygılar

Saygılar

 

[meslan]

Merhaba

Sub AKTAR()
Sheets("Sayfa2 BÖYLE OLACAK").[a2:b65536].Clear
For i = 2 To [a65536].End(3).Row
For y = 2 To Rows(i).End(2).Column
Sheets("Sayfa2 BÖYLE OLACAK").[a65536].End(3)(2, 1) = Cells(i, 1)
Sheets("Sayfa2 BÖYLE OLACAK").[a65536].End(3)(1, 2) = Cells(i, y)
Next
Next
End Sub

Kolay gelsin.

 

[izcik]

Çok teşekkürler değerli Mehmet Arslan. Sağolun.

 

[izcik]

Değerli Mehmet Arslan, Eğer size zahmet olmazsa yukarıdaki soruya benzer bir küçük soru daha var. Onu da yapar mısınız?

 

[meslan]

Merhaba

Sub TOPLA()
Sheets("Sayfa2 BÖYLE OLACAK").[a2:b65536].Clear
For i = 2 To [a65536].End(3).Row
sut = Rows(i).End(xlToRight).Column
Sheets("Sayfa2 BÖYLE OLACAK").[a65536].End(3)(2, 1) = Cells(i, 1)
Sheets("Sayfa2 BÖYLE OLACAK").[a65536].End(3)(1, 2) = WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, sut)))
Next
End Sub

Kolay gelsin.

 

[izcik]

Son dosyamı da hemen yüklüyorum

Saygılarımla

 

[meslan]

Merhaba

Sub TOPLAMLAR()
Sheets("Sayfa2 BÖYLE OLACAK").[a2:b65536].Clear
For i = 2 To [a65536].End(3).Row
sut = Rows(i).End(xlToRight).Column
Sheets("Sayfa2 BÖYLE OLACAK").[a65536].End(3)(2, 1) = Cells(i, 1)
Sheets("Sayfa2 BÖYLE OLACAK").[a65536].End(3)(1, 2)= Tplm(Cells(i, 2))
Next
End Sub
Function Tplm(Adetler As String)
Application.Volatile
Tplm = Evaluate(Adetler)
End Function

 

[izcik]

Çok teşekürler elinize fikrinize sağlık Değerli Mehmet Arslan , dosyalara isminizi verdim.

bütün kodlar işimi gördü..


Saygılarımla

 

[meslan]

Rica ederim. Hayrını görün.

 

[izcik]

Saygılarımla

 

[meslan]

Sn. izcik Dosyanız hazır.

 

[izcik]

Ne kadar teşekkür etsem azdır değerli Mehmet Arslan.