belli bir karakterden sonrasını alt hücreye kopyalama

[cosarx]

daha önceden kaydedilmiş excel dosyasında d sütununda yeralan hücrelerden 200 karakteri geçen bir hücre varsa 200 karakterden sonrasını hemen altında insert row yaratıp o hücreye kaydetmesini istiyorum.yani örneğin butona tıkladığımda d4 'de 250 karakterli bir data varsa 50 karakteri d5'e kopyalaması gerekecek... yardımlarınız için şimdiden teşekkürler

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırın.
Sorunuzdan 200 karakterden fazlası kesilip alt satıra mı yazılacak yoksa kopyalanıp alt satıra mı yazılacak anlayamadım.
Kodlar kes/yapıştırır işlemi yapar. Eğer kopyalanıp yapıştırılacak ise önüne **** işareti koyduğum satırları silmelisiniz.
Kolay gelsin.

Sub Uzunu_Kes()
For i = 1 To [D65536].End(3).Row
    If Len(Cells(i, 4)) > 200 Then
        Kesilen = Right(Cells(i, 4), Len(Cells(i, 4)) - 200)
        Kalan = Left(Cells(i, 4), 200)'***
        Cells(i, 4).Value = Kalan '****
        Rows(i + 1 & ":" & i + 1).Select
        Selection.Insert Shift:=xlDown
        Cells(i + 1, 4).Value = Kesilen
    End If
Next
    Cells(i, 4).Select
    MsgBox "200 Karakterden Uzun Satırları Kesme İşlemi Tamamlandı", vbInformation, "Uyarı"
End Sub