C ve F sütunu

[k0081]

Merhaba Arkadaşlar;

Sadece C ve F sütunun da arama yapan bir makroyu bir butona atama nasıl yapabiliriz..? CTRL+F ile arama yapılıyor fakat,, iki harfli bir arama yapıyorum mesela,, istediğim değeri buluncaya kadar bir çok seçenek gösteriliyor...

Yardımcı arkadaşa şimdiden teşekkürler..

 

[Orion1]

Aşağıdakş kod işinizi görecektir.

Sub ara_59()
'C ve F sütunu
'aktif sayfada arabul
'coder:evrengizlen@hotmail.com
'25.11.2011
Dim k As Range
Dim deg As Variant
deg = InputBox("ARA-BUL:", "ARA - BUL")
If deg = "" Then Exit Sub
Set k = Range("C:C,F:F").Find(deg, ActiveCell, xlValues, xlWhole, , xlNext)
If Not k Is Nothing Then k.Select
End Sub

 

[k0081]

çok teşekkürler.. sağolasın..