Bir sayfadaki hücre değeriyle tanımlanmış sayfaya gitme

[umutozkans]

Ekteki dosyada görüldüğü gibi Daily sayfasındaki sol iki sütundaki değerlere göre, o satırdaki değerleri, B sütunundaki değerin adı altındaki sayfaya, belirtilen değerdeki tarih sütununun altına atamak istiyorum. Aynı günde birden fazla program çalıştırılmış olabiliyor.

Örneğin: Daily sayfasındaki B4'teki "28119974" değeriyle aynı isimde olan sayfaya, B4 satırındaki değerler(C4:L4), "28119974" sayfasına sütun olarak atılacak; hangi sütuna atması gerektiğini de Daily sayfasındaki A4 hücresindeki tarih değerine göre(14.01.2007) "28119974" sayfasının birinci satırındaki tarih değerleriyle(Q1 bu örnek için) eşleşerek atılacak. Ayrıntıları mavi ile dosya üzerinde belirttim.

Ayrıca ekteki dosyada dikkat edileceği gibi Daily sayfasındaki 14.11.2007 tarihine ait 2 program adı var. Daily sayfasına veri eklerken eklenilen satırdaki tarih ve program adını buldurup(B4 ve C4 hücreleri;B5 ve C5 hücreleri) o program ismindeki sayfalara da(28119974 ve 470211000ALT) aynı bilgileri yazdırılabilir mi, daha mı kolay olur? Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("daily")
For a = 3 To s1.[a65536].End(3).Row
Set s2 = Sheets("" & s1.Cells(a, "b"))
s1.Range("C" & a & ":L" & a).Copy
s2.Cells(4, Day(s1.Cells(a, "a")) + 3).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
Application.CutCopyMode = False
End Sub

 

[umutozkans]

Kodları Daily sayfasına ekledim. Pembe ile işaretlediğim yeni bir satır ekledim, ama gitmesi gereken pembe sekmeli sayfaya gidip aynı rakamları eklemedi. "Subscript out of range" uyarı mesajını veriyor. Ne yapmalıyım? Ekteki dosyadan yaptıklarımı inceleyebilirsiniz. Teşekkürler..