bul kes yapıştır.

Katılım
30 Kasım 2004
Mesajlar
180
Excel Vers. ve Dili
2003 ingilizce
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

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
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]
 
Üst