Başharfe Göre Veri Seçme

[tiryaki1974]

Merhabalar.

Ekte gönderdiğim dosyada sozluk sayfasındaki kelimelerden b2 de yazılı harf ile başlayanları seçip Kelime_değistir sayfasını temizledikten sonra yapıştırmasını istiyorum. setirme işlemini bir türlü yapamadım. yardımcı olursanız sevinirim. teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneniyiz.

Option Explicit
Option Compare Text
Sub Aktar()
Dim i As Long
Dim j As Long
Dim syfs As Worksheet
Dim syfk As Worksheet
Set syfs = Sheets("Sozluk")
Set syfk = Sheets("Kelime_Sor")
syfk.Select
Application.ScreenUpdating = False
Range("A2:C" & [A65536].End(3).Row).ClearContents
j = 1
For i = 4 To syfs.[C65536].End(3).Row
    If syfs.Cells(i, "C") Like syfs.[B2] & "*" Then
        j = j + 1
        Cells(j, "A") = j - 1
        syfs.Range("C" & i & ":D" & i).Copy Cells(j, "B")
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[tiryaki1974]

hocam teşekkürler. tam istediğim gibi olmuş. iyi çalışmalar.