1 satır atlayıp satır seçmek

[honion]

merhabalar ben tek haneli satırları seçmek istiyorum kod varmış ama bulamadım

Sub seçim()
'
' seçim Makro
'

'
Range("1:1,3:3,5:5,7:7,9:9,11:11,13:13,15:15,17:17,19:19,21:21,23:23,25:25") _
.Select
Range("A25").Activate
End Sub

böyle bir kodu elimle yaptım ama basit bir şekli varmı ya da bunu tüm satırlara uygulayabilirmiyim malum sadece 25. satıra kadar var.

 

[Zeki Gürsoy]

Merhaba,

Sub secc()
Dim arr$(), arrStr$, i&, j&

For i = 1 To [COLOR=Blue][B]20[/B][/COLOR] Step 2
    j = j + 1
    ReDim Preserve arr(j - 1)
    arr(j - 1) = i & ":" & i
Next

arrStr = Join(arr, ",")

Range(arrStr).Select
Range("a" & i - 2).Activate

Erase arr
End Sub

 

[honion]

eyvallah üstad ama sadece 20. satıra kadar seçiyor
son satıra kadar seçmesi için ne yapmam gerek
saygılarımla

 

[Zeki Gürsoy]

Örnekte "20" görünen yeri istediğiniz değerle değiştiriniz.

 

[honion]

evet yaptım zaten ama hata veriyor

 

[uzmanamele]

merhaba
alternatif, dener misiniz.

A1:A10 arasında verileriniz varsa;
tek satırlar için

=TOPLA.ÇARPIM((A1:A10)*(SATIR(A1:A10)=TEK(SATIR(A1:A10))))

çift satırlar için

=TOPLA.ÇARPIM((A1:A10)*(SATIR(A1:A10)=ÇİFT(SATIR(A1:A10))))

 

[Zeki Gürsoy]

Çoklu seçimlerde sınır olsa gerek. Bu seçimle ne yapmak istiyorsunuz?
Belki daha iyi çözüm bulunabilir.

 

[honion]

a1 hücresinde ad a2 hücresinde soyad var yine b1 b2 gibi devamlılık arzediyor ve bu 2000 satır falan devam ediyor birer satır atlatıp yanyana getirmem gerek anlatabilmişimdir umarım

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili açıklamalı örnek dosya eklermisiniz.

 

[E.TAH]

örnek bir dosya olsa çok güzel olur.

 

[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çmek istiyorum.
yazılan makrolardaki rakamı değiştirince hata veriyor.
yardımlarınız için teşekkürler.

buraya yazayım derken hücre seçme başlıkla yere de yazmışım. kirlilik için özür dilerim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Column = 3 Then
        If Target.Row Mod 2 <> 0 Then
            Target.Offset(1, 0).Select
        End If
    End If
End Sub

 

[sertac78]

Merhaba,
Kodlar herhangi bir işlem yapmıyor ama hata da vermiyor.

 

[Necdet]

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

buraya yazayım derken hücre seçme başlıkla yere de yazmışım. kirlilik için özür dilerim.

Satırı seçipte ne olacak?

Seçtikten sonra yapılacak işlemi söylerseniz ona göre kod yazılabilir.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodu sayfanızın kod bölümüne uygulamanız gerekiyor. Eğer modüle uyguladıysanız çalışmaması normaldir. Ayrıca üstteki mesajımdaki kod sadece aşağıya doğru ilerlediğinizde çalışıyordu. Ekteki dosya daha sağlıklı çalışmaktadır.

C sütununda aşağı ve yukarı ok tuşlarıyla ilerlediğinizde kod çalışmaktadır.

 

[Murat OSMA]

Sanırım 2. mesajda Zeki Bey' in önerdiği kodun çalışma mantığı gibi isteniyor. :dusun: Ama Necdet Bey'in de belirttiği gibi: seçildikten sonra ne işlem yapılacak ?

 

[sertac78]

Yanlış anlattım sanırım arkadaşlar,
C sütunundaki tüm çift satırdaki değerleri başka bir sayfaya/dosyaya kopyalama işlemi yapmak için aynı anda seçmek istiyorum.
c2,c4,....,c2000 aynı anda kopyalanabilmeli.
Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Ben seçmek ifadenizden satırlarda birer satır atlayarak gezinmek istediğinizi düşünmüştüm.

Aşağıdaki kod ile satır seçebilirsiniz.

Sub SEÇ()
    Dim X As Long, Alan As Range
    
    For X = 2 To 2000 Step 2
        If Alan Is Nothing Then
            Set Alan = Cells(X, "C")
        Else
            Set Alan = Application.Union(Alan, Cells(X, "C"))
        End If
    Next
            
    Alan.Select
End Sub

 

[sertac78]

Günaydın,
ben tam açıklayamamıştım. Emeğinize sağlık, teşekkür ederim istediğim gibi çalışıyor.
Zahmet verdim, hakkınızı helal edin.

 

[taisenberg]

Merhaba. Böyle bir tablo var. Sayı ile başlayan satırlar B sütununa, altında gelen bir sonraki satırı C sütununa daha sonra gelen satırıda D sütununa boşluksuz taşımak istiyorum. Ne önerirsiniz acaba?