Sayfalar Arası Veri Aktarımında Hata

[selveroz]

Merhabalar,

Yazdığım makroda I sütunun da yer alan numaralara göre sayfa açıp aynı numaralara ait verileri açtığım sayfaya aktarıyorum. İlk işlem başarıyla yapılıyor ama ikinci işlem de açılan sayfaya değil aynı sayfaaktarılıyor.

Hatanın nerede olduğuna bakabilir miyiz?

Teşekkürler,

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub RakamlaraGoreSayfayaAktar()
  Application.DisplayAlerts = False
        For i = Sheets.Count To 1 Step -1
            If Sheets(i).Name <> "2009_11_09" Then Sheets(i).Delete
        Next
  Application.DisplayAlerts = True
  
  With Sheets("2009_11_09")
        For i = 2 To .[i65536].End(3).Row
            Sheets.Add: ActiveSheet.Name = .Cells(i, "i")
            ActiveSheet.[a1:g1] = .[a1:g1].Value
        Next
    .Select
        For ii = 2 To .[c65536].End(3).Row
            For j = 2 To .[i65536].End(3).Row
                If .Cells(j, "i") = .Cells(ii, "c") Then
                    s = Sheets("" & Cells(j, "i") & "").[a65536].End(3).Row + 1
                    Sheets("" & Cells(j, "i") & "").Range("a" & s & ":g" & s) = .Range("a" & ii & ":g" & ii).Value
                End If
                Sheets("" & Cells(j, "i") & "").Cells.EntireColumn.AutoFit
            Next
        Next
    End With
End Sub

 

[selveroz]

Çok teşekkürler Hamitcan. Makro süper çalışıyor ancak bana son sütunun ortalama değeri de gerekiyor. Bunu da son sütunun hemen yanındaki sütuna (H sütunu) yazdırmak istedim ama 2009_11_09 adlı sheete yazdı? :???:

 

[hamitcan]

Tam olarak anlamadım. Dosya içinde bir örnekle açıklayın.