Birer satır atlayan dynamic range

[berkay18]

Öncelikle Dynamic Range ile ilgili çok güzel bir dosyayı tekrar yüklediğiniz için teşekkür ediyorum.Açıklamalar da çok güzel.

Benim bu kullanımın daha ileri bir yönüyle ilgili bir sorum olacak.

A1'den itibaren itibaren satır atlayarak gitmek istiyorum.Yani A3,A5,A7,A9... gibi hücrelere eğer kullanıcı bir giriş yaparsa bu hücreler Deneme isimli Range'ye dahil olsun istiyorum.Bu hücreler arasına giriş varsa A4,A6,A8...gibi, bunlar dahil olmasın istiyorum.

Acaba bir yolu var mı?

 

[Orion1]

Böyle bir şeymi istiyorsunuz.

Sub m()
Dim adrs As String, i As Long, adr As String, hcr As Range
adrs = "A1"
For i = 3 To Cells(65536, "A").End(xlUp).Row Step 2
    adr = "," & Cells(i, "A").Address
    adrs = adrs & adr
Next
For Each hcr In Range(adrs)
    MsgBox hcr.Value
Next
End Sub

 

[berkay18]

Teşekkür ediyorum,
Kodu yazdım ve çalıştırdım birer satır atlayarak giren değerleri gösteriyor.
Fakat bunu yani bu range'yi nasıl kullanacağımı anlayamadım çünkü range'nin ismini bulamadım ?

Bu range'yi daha sonra solver'da kullanacağım için range'nin ismini yazmam gerekiyor.
Yani hangi range ismi altında kaydedildiğini nasıl belirteceğim ?

 

[Orion1]

Teşekkür ediyorum,
Kodu yazdım ve çalıştırdım birer satır atlayarak giren değerleri gösteriyor.
Fakat bunu yani bu range'yi nasıl kullanacağımı anlayamadım çünkü range'nin ismini bulamadım ?

Bu range'yi daha sonra solver'da kullanacağım için range'nin ismini yazmam gerekiyor.
Yani hangi range ismi altında kaydedildiğini nasıl belirteceğim ?

Çalışma sayfasında ekleden alan adı tanımlamak ve onu kullanmatan kastediyorsunuz.
Aşağıdaki kodu kullanın sizie alan adı altında çalışma sayfasında bir alan oluşturacaktır.

Sub Alan_Tanimi()
Dim adrs As String, i As Long, adr As String, hcr As Range
adrs = "A1"
For i = 3 To Cells(65536, "A").End(xlUp).Row Step 2
    adr = "," & Cells(i, "A").Address
    adrs = adrs & adr
Next
ActiveWorkbook.Names.Add Name:="alan", RefersToR1C1:=Range(adrs)
End Sub

 

[berkay18]

evet istediğim buydu tekrar teşekkürler kodlu anlatımınız için

 

[Orion1]

evet istediğim buydu tekrar teşekkürler kodlu anlatımınız için

Rica ederim.
İyi çalışmalar.