Arama yaparak bulduğum hücrenin yanındaki hücreyi seçme

[Korhan Ayhan]

Selam arkadaşlar,

A sütununda aşağıdaki kodla bul makrosunu çalıştırıyorum. Bulunan hücrenin yanındaki hücreyi nasıl seçili hale getirebilirim.

BUL = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate

İyi çalışmalar dilerim. :hey:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:e065c52040]BUL = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
activecell.offset(0,1).select[/vb:1:e065c52040]

 

[Ali]

Sub ActivateNextBlankToRight()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub

 

[Korhan Ayhan]

Selam arkadaşlar,

Vermiş olduğunuz kodlar işimi gördü çok teşekkür ederim. Benim vermiş olduğum kodda aramayı tüm sayfada yapıyor bunu sadece C sütunu için nasıl değiştirebiliriz.

İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:ea54708e01]BUL = [c1:c65536].Find(TextBox1.Value).Activate
activecell.offset(0,1).select [/vb:1:ea54708e01]

 

[Korhan Ayhan]

Sn. leventm,

Benim vermiş olduğum kodu kısaltmadan C sütunu için uygulayamazmıyız. Ben denedim ama (Object variable or With block variable not set) uyarısı verdi.

İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Kendi kodunuzdaki cells ifadesinin yerine [c1:c65536] yazın.

 

[Korhan Ayhan]

Selam arkadaşlar,

Aşağıdaki kodda yapmak istediğim işlem Textbox1 e girilen değeri A sütununda arasın bulursa yanındaki hücreyi seçip Textbox2 ye girilen değerle aynı olup olmadığını kontrol etsin istiyorum eğer değerler farklı ise uyarı versin.

Dim BUL As Range
For Each BUL In Worksheets("Veri").Range("A1:A65536")
If TextBox1.Text = BUL.Text Then
.......
End If
Next BUL

İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:45e0947b4b]Dim BUL As Range
For Each BUL In Worksheets("Veri").Range("A1:A65536")
If TextBox1.Text = BUL.value Then
if textbox2.value<>sheets("veri").cells(BUL.row,2).value then msgbox "VERİ AYNI DEÐİLDİR"
End If
Next BUL
[/vb:1:45e0947b4b]