Ayrı Sayfalara Matriks Veri Aktarımı

[baydeniro]

Arkadaşlar bir data veri listesinde ayrı sayfalara matriks tablo tarzında veri aktarmam lazım. Veriler DATA sayfasından var olan diğer sayfalara tarih ve
kod kesişimlerine göre aktarılacak.

Veriler :
* Şehir : Sayfa isimleri mevcut
* Tarih : Sayfalarda default var
* Kod : Sayfalarda mevcut
* Miktar : İlgili sayfa için sütunda bulunan tarihre o kodfa ait miktar yazılacak

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
On Error Resume Next
For a = 2 To [a65536].End(3).Row
ad = Cells(a, "a")
Set s1 = Sheets(ad)
sat = WorksheetFunction.Match(Cells(a, "b"), s1.[a:a], 0)
sut = WorksheetFunction.Match(Cells(a, "d"), s1.[1:1], 0)
s1.Cells(sat, sut) = Cells(a, "c")
Next
MsgBox "İşlem tamamlandı."
End Sub

 

[baydeniro]

Teşekkürler

Sayın leventm çok çok teşekkürler. Tek kelime ile şahane. Yani insan aklına fikir geldikçe geliyor. Bu koda şöyle bir özellik eklemek mümkün mü : Şehir isimlerine göre sayfaları kendisi açabilir mi ?

Yani bu sadece bir öneri. Kod için tekrar çok teşekkürler. Beyninize sağlık, iyi çalışmalar.