Userform ile satır seçme kolaylığı

[krizantem_kasimpati]

Arkadaşlar merhaba.

Ekli dosyada görüldüğü gibi , "A" sütunu boyunca rakamsal değerler ve bir "ornek" butonu var.
Yapmak istediğim; sayfada ornek adlı butonuna basarak ekrana gelen userform menüsünde "ilk numara" ve "ikinci numara" kutucuklarına ilgili değerleri girip "tüm satırları seç" butonuna bastığımda , "A" sütununda bu değerleri bulup bu değerler ve arasındaki tüm satırları seçmesi.

Bu benim için bir başlangıç olacak.Yardımlarınızın şahsıma faydası elzemdir.Şimdiden çok teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
-- tüm satırı seçmek istiyorsanız mavi satırı,
-- A2:B8 gibi belli alanı seçmek istiyorsanız kırmızı satırı kullanın.
Kullanmadığınız satırı silin veya satırın sol başına TEK TIRNAK işareti ekleyerek işlem dışı bırakın.

TextBoxlara sayısal veri girişi yapılacağı ve boş bırakılmayacağı varsayıldı.
.

[B]Private Sub CommandButton1_Click()[/B]
[COLOR="Blue"]    ActiveSheet.Rows(Val(TextBox1) & ":" & Val(TextBox2)).Select[/COLOR]
[COLOR="Red"]    ActiveSheet.Range("[B][SIZE="4"]A[/SIZE][/B]" & Val(TextBox1) & ":[B][SIZE="4"]B[/SIZE][/B]" & Val(TextBox2)).Select[/COLOR]
[B]End Sub[/B]

 

[krizantem_kasimpati]

Ömer bey teşekkür ediyorum.Verdiğiniz tüm kodlar işe yarıyor.
Yalnız burda "TextBox" lar satır numarasına index li çalışıyor.Bunu hücrelere index li yapabilir miyiz? Yani kutucuklara girilen değerleri "A" sütununda bulacak ve bu bulunan hücreler arasındaki tüm satırları seçecek.
Saygılar sunarım..

 

[Ömer BARAN]

Tekrar merhaba.

Aşağıdaki gibi deneyin.
.

[B]Private Sub CommandButton1_Click()[/B]
Set wf = Application.WorksheetFunction
If wf.CountIf(ActiveSheet.[A:A], Val(TextBox1)) = 0 Or _
    wf.CountIf(ActiveSheet.[A:A], Val(TextBox2)) = 0 Then
    ActiveSheet.[A1].Activate
    MsgBox "TextBox'lara yazılan değerlerden en az biri A sütununda yok.", vbCritical
    Exit Sub
End If
ilk = wf.Match(Val(TextBox1), ActiveSheet.[A:A], 0)
son = wf.Match(Val(TextBox2), ActiveSheet.[A:A], 0)
ActiveSheet.Rows(ilk & ":" & son).Select
[B]End Sub[/B]

 

[krizantem_kasimpati]

Çok teşekkür ediyorum.Gerçekten hakkını veren bir paylaşım oldu.Saygılarımla..

 

[Ömer BARAN]

Çok teşekkür ediyorum.Gerçekten hakkını veren bir paylaşım oldu.Saygılarımla..

Eyvallah.
Kolay gelsin.
.