sadece tek olan hücreleri seçmek için ne yapmak gerekir..

[ensark]

arkadaşlar merhaba ben forumda yeni üyeyim ve excelde de acamiyim
şimdi geleyim soruya ; sadece tek haneli olan yani A1 A3 A5 A7 ........A3447 hücreleri seçmek istiyorum bunu için ne yapabilirim yarımlarınız için şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Sayın ensark Ctrl Tuşuna basılı tutup istediğiniz hücreleri mous ile tek tek seçili yapabilirsiniz.

 

[ensark]

onu bende biliyorum ama 3447 tane hücre olduğu için bunun kısa bir yolu var mı kodu felan varsa iyi olur

 

[omerceri]

Sn ensark
Biraz denedim vba ile yapmak mousla yapmaktan daha zor.
Bu hücreleri seçip ne yapmak istediğinizi yazarsanız döngü ile belki yapılabilinir.

 

[ensark]

hımm. bu hücrelerin içindeki bilgileri seçip kesip diğer sütuna yapıştırıcam eğer olrsa çok makbule geçer
mesela "A1 A3 A5" i b1 b3 b5 e kesip yapıştırmak istiyorum ,aslında vb de hücre seçme komutunu bilsem belki bende deneyebilirim 3-4 yıldan beri hiç kod yazmadım unutmuşum

 

[omerceri]

Aşağıdaki makroyu kendinize uyarlayın

Sub Makro1()

For i = 1 To 3447
If i Mod 2 <> 0 Then
Range("B" & i).Value = Range("A" & i)
Range("A" & i).Clear
End If
Next

End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Altarnatif.

Sub TEST()
For SUT = 1 To 3447 Step 2
Range("B" & SUT) = Range("A" & SUT).Value
Range("A" & SUT) = ""
Next
End Sub

 

[ensark]

Te&#350;ekk&#220;r Ed&#304;yorum &#304;&#350;&#304;me Yaradi

 

[Necdet]

Merhaba,

Arada boşluk olmasını istemezseniz, belki lazım olur :

Sub Makro1()
Sat = 0
For i = 1 To 3447 Step 2
    Sat = Sat + 1
    Cells(Sat, "B") = Cells(i, "A")
    Cells(i, "A").Clear
Next i
End Sub

 

[cerit2713]

&#231;ok &#351;ahane &#351;eyler bunlar excel bu kadar bilmiyodum.te&#351;ekk&#252;rler