Belirtilen değeri ilgili aralığa eklemek

[Excelexcellent]

Merhaba,
Çalışma sayfası B sütununda aşağıda belirttiğim gibi,

0
0
Boş satır
1
1
Boş satır
3
Boş satır
4
4
Boş satır
6

ve devam eden verilerim bulunuyor.
UserForm üzerindeki ComboBox'dan,
2 seçersem 1 ile 3 değerleri arasındaki boş satırın aktif olmasını
5 seçersem 4 ile 6 değerleri arasındaki boş satırın aktif olmasını
devam edecek şekilde 4 seçersem 4 değerinin altındaki boş satırın aktif olmasını istiyorum.

Bu işlem makro ile mümkünmüdür ?
Yardımlarınız için teşekkür ederim.

 

[merakli_72]

selam
eki deneyiniz,

Option Explicit


Private Sub ComboBox1_Change()
Dim sat As Byte

sat = Application.WorksheetFunction.Match(Val(ComboBox1), Range("B:B"), 1)

Do While Cells(sat, "B") <> ""
    If Cells(sat + 1, "B") = "" Then
        Range("B" & sat + 1).Select
        Exit Do
    End If
    
Loop

End Sub

Private Sub UserForm_Initialize()
    Veri_al
End Sub


Sub Veri_al()
'Referanslardan microsoft acitivex 2.8 data object library eklendi


Dim cn As Object, rs As Object
Dim sql
 
   
   sql = "SELECT DISTINCT [F1] FROM [Sayfa1$B1:B15000]  WHERE [F1]>0 ORDER BY [F1]"

Set cn = CreateObject("ADODB.Connection")
        
            cn.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _
                ";Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"";"
              
    Set rs = cn.Execute(sql)         'Alan adları yerine F1,F2.. yazılır
 

        'Range("G1").CopyFromRecordset rs
        UserForm1.ComboBox1.Column = rs.GetRows
 
rs.Close
cn.Close
 
 
Set rs = Nothing
Set cn = Nothing


 
End Sub

 

[Excelexcellent]

Sayın merakli_72 hocam,

Konu ile ilgilendiğiniz için teşekkür ederim.
Eklediğiniz dosyayı indiremediğim için inceleyemedim ancak, yukarıda verdiğiniz kodları kendi dosyamda uyguladım mükemmel.
Aynı kodları saat olarak biçimlendirilmiş diğer sütunda uyguladığım zaman ise hata alıyorum.
Saat olarak biçimlendirilen sütunda aynı işlemi yapabilmek için kodlarda hangi bölümü değiştirmeliyiz.

 

[Excelexcellent]

Saat olarak biçimlendirilen sütunda kendi uğraşlarım ile sonuca ulaşamadım.
Yukarıda Sayın merakli_72 tarafından verilen kodlarda nasıl değişikliklik yapmalıyım.
Yardımcı olabilirmisiniz lütfen.