bul kes yapıştır.

[ildizim]

dosyada a sutununda 32 karekler uzunlugunda satırı bul kes a4 yapıştır.
sonra a5 den itibaren yine 32 karekter uzunlugunda satır varsa a6 ya yapıştır.
Son olarak a7 den başalyarak 32 karakter uzunlugunda satır varsa kes ve a8e yapıştır.

Bu koda çok ihtiyacım var. teşekkürler

 

[Kemal Demir]

Sn.İldizim
Affınıza Sıgınarak Sunu sormak istiyorum.

Neden Tekrar A Kolonu yazdırıyorsunuz Size Şöle Bir Öneri
de Bulunsam

Buldukları veriyi b kolonunda +1 satır a yazdırsa daha mantılı olur dıye dusundum.
Ama Sorunuza Göre Cevak Aşagıdadır.
[vb:1:9d2dbfc7d3]Sub otuzikibul()
For x = 1 To 19
If Len(Cells(x, 1)) = 32 Then
Cells(x, 1).Copy
Cells(x + 1, 1).PasteSpecial
End If
Next
End Sub[/vb:1:9d2dbfc7d3]
*****Şayet Dedim Gibi Yaparsanız B Klonundaki İfadesi de budur******

[vb:1:9d2dbfc7d3]Sub otuzikibul()
For x = 1 To 19
If Len(Cells(x, 1)) = 32 Then
Cells(x, 1).Copy
Cells(x + 1, 2).PasteSpecial
End If
Next
End Sub[/vb:1:9d2dbfc7d3]