Sütunları belirtmek..

[aydgur]

Sub sayfalaraaktar()
Sheets("ANA").Select
For x = 2 To [a1000].End(3).Row
Set s2 = Sheets("" & Cells(x, 1).Text)
sira = s2.[a1000].End(3).Row + 1
For y = 1 To 5
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Next x
Sheets("ANA").Select
10 MsgBox "CARİ SAYFALARA AKTARILDI"
End Sub
Bu makroda "For y = 1 To 5 " yerine hangi sütünlarda verileri aktaracağını nasıl belirtebilirim. Yani 1 den 5 e kadar sütün değilde 1.3.4.5.8 sütündaki bilgileri aktar gibi.

 

[Ömer BARAN]

Merhaba.

Kullanılacak sütunlar arasında standart bir ritim varsa örneğin birer sütun atlanarak işlem yapılacaksa
ilk ve son sütun numarasını belirtip ... To ... 'dan sonra Step 2, ikişer atlanacaksa Step 3 diye ekleme yaparak halledebilirsiniz.

Tabi bunun için belli ritmin olması lazım, şu sütunda 5 atla, şu sütunda 2 atla gibi bir yapı sizi biraz uğraştırır diye düşünüyorum.

Belki de sütun başlıklarına belli bir standarda göre ad verirseniz bu adı taşıyan sütuna sıçrama gerçekleştirilebilir sanırım.
.

 

[aydgur]

Cevabınız için teşekkür ederim.Bu örnekte ;A sütünundaki sayfa adlarına göre 1.6.7.8.9.1011.12.sütünlardaki değeri aktarsın istiyorum.Yada G.H.I.J.K.L.M. sütünları aktar demem lazım.

 

[Ömer BARAN]

Bence sorunuzu örnek belge ile desteklemelisiniz.