Hücre seçme

[mamus165]

örneğin seçili hücrem a1 ve oradan den a20 ye kadar hücreler cümlelerle dolu.

ben istiyorumki a1 den a20 ye kadar olan kısım a1 hücresinden bir satır atlayarak a2 ye ordan a4 e ordan a6 ya ve son a20 ye kadar tarasın ve taradığı hücreyi kopyalanmak üzere aktif hale getirsin.
misal. fornext olayıyla küçük bir kodla a1 den a20 ye kadar olan yerleri a2 =1 a4=2 a4=3 ......a20=10 yazdırabiliyorum.mantığınıda anlayabiliyorum.ama o hücrelere 1 2 3 4 yazdırmaktansa bunun yerine bu hücreleri söylediğim gibi sadece kopyalanacak durumda aktif hale getirilmesini istiyorum.makrolarda yeniyim . ama bunu iş içinde yapmak zorundayım.lütfen bana basit anlayabileceğim komutlarla bir kod yazabilirmisiniz.

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:a20]) Is Nothing Then Exit Sub
ActiveCell.Offset(2).Copy
End Sub

 

[Necdet]

Merhaba,

Tam olarak ne demek istediğinizi anlamadım. Eğer çift satırları seçmek istiyorsanız aşağıdaki kodları deneyiniz.

Public Sub Sec()
Dizi = Cells(2, 1).Address
For i = 4 To 20 Step 2
    Dizi = Dizi & "," & Cells(i, 1).Address
Next i
Range(Dizi).Select
End Sub

 

[sertac78]

Merhaba arkadaşlar,
buna benzer bir sorum var benim de.
ekteki dosyada c2,c4,c6,....,c1000 gibi sadece çift numaralı c hücrelerini seçkem istiyorum.
yardımlarınız için teşekkürler.

 

[Necdet]

Merhaba,

Seçmektan kastınız nedir?

 

[sertac78]

kopyalama için aktif hale getirmek
teşekkürler