ilk numerik değere kadar olan veriyi aktarma

[metinavci23]

merhaba arkadaşlar
ekte gönderdiğim dosyada sayfa 1'de A sütununda olan veriyi sayfa 2'ye aktarmak istiyorum ancak Sayfa 1'den A sütunundaki verinin numerik değere kadarını.umarım izah edebilmişimdir sorunumu.ekteki dosyadan ne yapmak istediğim zaten anlaşılacaktır

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Public Sub Aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Dim i, Sat As Integer
s2.[A2:A65536].ClearContents
Sat = 1
For i = 3 To s1.[A65536].End(3).Row
    For j = 1 To Len(s1.Cells(i, "A"))
        If IsNumeric(Mid(s1.Cells(i, "A"), j, 1)) = True Then
            Exit For
        End If
    Next j
    If j < Len(s1.Cells(i, "A")) Then
        Sat = Sat + 1
        s2.Cells(Sat, "A") = Left(Cells(i, "A"), j - 1)
    Else
        Sat = Sat + 1
        s2.Cells(Sat, "A") = s1.Cells(i, "A")
    End If
Next i
MsgBox "İşlem Tamamdır...."
End Sub

 

[metinavci23]

cevap

Teşekürler Sn.Necdet Yeşertener
Ellerinize sağlık.Ayrıca da atamızın ismini görmek çok daha güzel birşey.tekrar teşekür ederim

 

[Necdet]

Güle güle kullanınız Sayın Metin Avcı.

 

[Kemal Demir]

İyi geceler,

Necdet hocamın izni ile aşagıya bir link yazmak isterim.

http://www.excel.web.tr/showthread.php?t=53151

Bilgi niyetine.

Teşekkurler Necdet Hocam