A Sütünündaki Kelimeleri İlgili Sayfaya Almak

[erd5334]

Arkadaşlar Merhaba İsteğim şudur. Sayfa 1 deki a sütününda kelimeler var bu kelimeleri aşağıdaki ilgili sayfaya almak istiyorum. örneğin a harfi ile başlayanlar a sayfasına b harfi ile başlayanlar b sayfasına gibi Şimdiden teşekkürler

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub gönder()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")

For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name <> s1.Name Then
Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name)
s2.Range("a2:a65536").ClearContents
End If
Next sayfa

For i = 2 To s1.Range("A65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(Left(s1.Cells(i, 1), 1))
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(i, 1)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

 

[erd5334]

Merhaba;

Sayfanın kod bölümüne;

Sub gönder()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")

For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name <> s1.Name Then
Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name)
s2.Range("a2:a65536").ClearContents
End If
Next sayfa

For i = 2 To s1.Range("A65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(Left(s1.Cells(i, 1), 1))
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(i, 1)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

Çok Teşekkür Ederim İşimi Gördü sağolasınız