karakter sayısı

[erzen]

Arkadaşlar merhabalar. Bir sütundaki hücreler içinde bulunan rakamlardan 8 haneden fazla olan hücreleri yan taraftaki hücreye kesip yapıştıracak bir makroya ihityacım var.
Örneğin F1 den F4251 arası hücreleri tarayacak 8 karakterden fazla veriye sahip olan hücrenin içini boşaltıp değeri bir yandaki hücreye yazacak. umarım anlatabilmişimdir.

 

[Ömer]

Merhaba,

Sub Deneme()
For i = 1 To [F65536].End(3).Row
    If Len(Cells(i, "f")) > 8 Then
        Cells(i, "g") = Cells(i, "f")
        Cells(i, "f").ClearContents
    End If
Next i
End Sub

Denermisiniz.

 

[Orion1]

Sub sekizkarakter()
Dim sat As Long, i As Long
Application.ScreenUpdating = False
Range("G1:G65536").ClearContents
sat = Cells(65536, "F").End(xlUp).Row
For i = 1 To sat
    If Len(Cells(i, "F").Value) > 8 Then
        Cells(i, "G").Value = Cells(i, "F").Value
        Cells(i, "F").ClearContents
    End If
Next i
Application.ScreenUpdating = True
MsgBox "8 karakterden büyük değerler G sütununa aktarılmıştır" _
& vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub