Soru Ürün Adına Göre Kaydet - Kategorize Et

[ywzyilmaz]

Merhabalar

Fatura yazdırmak ve yazdırdığım faturaları takip etmek için kullandığım excell kitabım var.

Firma Adı
İlgili Kişi
Torba Adeti
Palet Adeti

Bunlar fatura kestiğim firma bilgileri ve sürekli değişken ;

Elma	3
Armut	4
Kiraz	8
Vişne	12

Bunlarda fatura içeriği.


Makro şöyle çalışıyor. Üstteki 2 topladaki bilgileri belirlediğim düzende hizalayıp etiket ve fatura hazırlıyor. İlk tablodaki bilgileri rapor adlı sayfaya sıralı olarak kaydediyor.

Tarih

Firma Adı

Ürün Kodu

Torba Adet

Ben bunun yanında ürünlerin miktarlarını da takip etmek istiyorum. Ürün isimlerim hiçbir zaman değişmiyor.

A2:A18 aralığında yazan isimlerin karşılığındaki miktarları, rapor sayfasındaki I1:I18 aralağında yazan başlıklara uygun olanların en alttaki boş satırına kopyalayacak bir makroya ihtiyacım var.

Umarım derdimi anlatabilmişimdir.

Şimdiden teşekkür ederim.

 

[ywzyilmaz]

yaz = Sayfa2.Range("A10000").End(xlUp).Row
For a = 2 To Sayfa1.Range("A10000").End(xlUp).Row
sutun = Find(What:=Sayfa1.Cells(a, "A"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
Sayac = 1
 For i = 1 To 1
Sayfa2.Range(sutun & yaz) = Sayfa1.Cells(a, "B")
 Next i
Next a

Şöyle bir kod ile yapmaya çalıştım ama çalışmıyor.