Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Selam arkadaslar
b kolonundan 1 den 5000 e kadar veri var
bunları
5 ini kesip sıra ile [c,d,e,f,g] satırlarını yapıstırmak ıstıyorum
sadece bir i için bir şey hazırladım ama oda cok amatorce oldu biraz kötü
Yardımcı olursanız sevininirim
Dosya Ek'te
Sub d1()
For i = 2 To 6
Range("b" & 2).Copy
Range("c" & 2).PasteSpecial
Range("b" & 3).Copy
Range("d" & 2).PasteSpecial
Range("b" & 4).Copy
Range("e" & 2).PasteSpecial
Range("b" & 5).Copy
Range("f" & 2).PasteSpecial
Range("b" & 6).Copy
Range("g" & 2).PasteSpecial
Next
Application.CutCopyMode = xlCut
End Sub
b kolonundan 1 den 5000 e kadar veri var
bunları
5 ini kesip sıra ile [c,d,e,f,g] satırlarını yapıstırmak ıstıyorum
sadece bir i için bir şey hazırladım ama oda cok amatorce oldu biraz kötü
Yardımcı olursanız sevininirim
Dosya Ek'te
Sub d1()
For i = 2 To 6
Range("b" & 2).Copy
Range("c" & 2).PasteSpecial
Range("b" & 3).Copy
Range("d" & 2).PasteSpecial
Range("b" & 4).Copy
Range("e" & 2).PasteSpecial
Range("b" & 5).Copy
Range("f" & 2).PasteSpecial
Range("b" & 6).Copy
Range("g" & 2).PasteSpecial
Next
Application.CutCopyMode = xlCut
End Sub