Sayfalara dağıtma

[Barons]

Merhaba
Ekteki dosyada I kolonundaki harflere dağıtım yapmak istiyorum.
Şimdiden çok teşekkürler

 

[Barons]

Biraz eksik açıklama olmuş sanki...kısaca I kolonunda hangi harf var ise, o satırı komple harfi temsil eden sayfaya aktarmak.Örnek: A var ise; tüm satırı A sayfasına atmak istiyorum.Tabi birden fazla aynı harfden olabilir,o zamanda altalta atması için yardımlarınızı bekliyorum.
Tekrar teşekkürler

 

[Orion1]

Bu şekilde hiç bir zaman cevap alamazsınız.Çünkü cevap almamak için elinizden ne gelmişse yapmışsınız.VBA Şifreli.

 

[Barons]

Evren hocam...farkettim kusura bakmayın...hemen düzelttim.dosyayı güncelledim...uyarınız için teşekkürler

 

[Barons]

Merhaba
daha açıklayıcı olur düşüncesiyle, dosyada ana sayfasındaki verilerin diğer sayfalara dağıtılmış şeklini yani olması gerekeni yolluyorum.
yardımcı olacak arkadaşlara çok teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SayfayaAktar()
Dim i As Long
Dim SonSatır As Long
Dim Sayfa As String
Dim s1 As Worksheet
Set s1 = Sheets("ANA")
For i = 2 To [A65536].End(3).Row
    Sayfa = Cells(i, "I")
    SonSatır = Sheets(Sayfa).[A65536].End(3).Row + 1
    Range("A" & i & ":W" & i).Copy Sheets(Sayfa).Range("A" & SonSatır)
Next i
MsgBox "Sayfalara Aktarılmıştır...", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[Barons]

Tam istediğim gibi...Allah razı olsun...çok makbule geçti..Sn.Necdet bey.

 

[Necdet]

Güle güle kullanınız.

Aslında ilgili sayfa yoksa onu da otomatik açmak gerek.