- Katılım
- 21 Eylül 2006
- Mesajlar
- 91
- Excel Vers. ve Dili
- ver:2003 dil:ing
arkadaşlar merhaba ekte gönderdiğim sayfada A tabınki verilerin aynısını B tabında olan başlıklar altına yerleştirmek istiyorum yardımınız için şimdiden teşekkürler
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub aktar()
Dim b
b = 0
For Each aralik In Worksheets("A").Range("A3:A500")
If aralik <> 0 Then
b = b + 1
Worksheets("B").Cells(b, 1) = aralik
Worksheets("B").Cells(b, 2) = aralik.Offset(0, 1)
Worksheets("B").Cells(b, 3) = aralik.Offset(0, 2)
Worksheets("B").Cells(b, 4) = aralik.Offset(0, 10)
Worksheets("B").Cells(b, 5) = aralik.Offset(0, 9)
Worksheets("B").Cells(b, 6) = aralik.Offset(0, 7)
Worksheets("B").Cells(b, 8) = aralik.Offset(0, 11)
Worksheets("B").Cells(b, 9) = aralik.Offset(0, 14)
End If
Next
End Sub