Hücre kopyalama makro

[ergunarat]

Merhaba arkadaşlar ekte dosyada her kayıtlar ikişer satır halinde listelenmiş. ben bunları başka sayfada tek satır halinde göstermem için nasıl bi makro kullanmalıyım. Normalde hücre eşitleme yöntemi ile yapoıyorum ancak bu sayfalardan 100 lerce var ve bi tanesinde hata yapsam tekrar baştan malisef.

Bu konuda yardımcı olursanız sevinirim.

 

[nsertoglu]

'Aşağıdaki kod isteğinizi karşılar:
' öncelikle sheet2 yaratın ve "" sayfanızdaki başlığı sheet2 ye kopyalayın.
' sonrada aşağıdaki kodu çalıştırın...

Sub SatrİkidenBire()

orj_sayfa = "sheet1"
yaz_sayfa = "sheet2"

Sheets(orj_sayfa).Select
Cells(1, 1).Select
sonr = Selection.End(xlDown).Row
yazr = 1
For r = 3 To sonr
If Len(Cells(r, "a")) < 11 Then
' bulunan ilk satırdır; 11 haneli olsaydı TCK nın bulunduğu 2nci satır olurdu
yazr = yazr + 1
Sheets(yaz_sayfa).Cells(yazr, 1) = Cells(r, 1)
Sheets(yaz_sayfa).Cells(yazr, 2) = Cells(r + 1, 1)
Sheets(yaz_sayfa).Cells(yazr, 3) = Cells(r, 2)
Sheets(yaz_sayfa).Cells(yazr, 4) = Cells(r, 3)
Sheets(yaz_sayfa).Cells(yazr, 5) = Cells(r + 1, 3)
Sheets(yaz_sayfa).Cells(yazr, 6) = Cells(r, 4)
Sheets(yaz_sayfa).Cells(yazr, 7) = Cells(r + 1, 4)
Sheets(yaz_sayfa).Cells(yazr, 8) = Cells(r, 5)
Sheets(yaz_sayfa).Cells(yazr, 9) = Cells(r + 1, 5)
Sheets(yaz_sayfa).Cells(yazr, 10) = Cells(r, 6)
Sheets(yaz_sayfa).Cells(yazr, 11) = Cells(r + 1, 6)
Sheets(yaz_sayfa).Cells(yazr, 12) = Cells(r, 7)
Sheets(yaz_sayfa).Cells(yazr, 13) = Cells(r + 1, 7)
Sheets(yaz_sayfa).Cells(yazr, 14) = Cells(r, 8)
Sheets(yaz_sayfa).Cells(yazr, 15) = Cells(r + 1, 8)
Sheets(yaz_sayfa).Cells(yazr, 16) = Cells(r, 9)
Sheets(yaz_sayfa).Cells(yazr, 17) = Cells(r + 1, 9)
Sheets(yaz_sayfa).Cells(yazr, 18) = Cells(r, 10)
Sheets(yaz_sayfa).Cells(yazr, 19) = Cells(r + 1, 10)
End If
r = r + 1 ' yazılan 2nci satırı atlat..
Next r

Sheets(yaz_sayfa).Select
End Sub

 

[ergunarat]

hocam eline sağlık mükemmel olmuş ancak bu ilk satırı almıyor. ben bunu başlıksız kullanacağım. direk verileri almasını nasıl sağlarım. yani direk A1 hücresinden başlasın.