Soru VBA ile Düşey Ara

gokhanboyaci

Destek Ekibi
Destek Ekibi
#1
Arkadaşlar,
Excel Sayfa1 de A sütünda 1'den - 2500. satıra kadar belirli isimler var. VBA ile bu sütunda nasıl istediğim ismi arayabilirim.
 

OrkmesB

Administrator
Yönetici
Admin
#2
Gökhan bey, bu gibi durumlar için makro kaydetme yöntemin öneririm.
Geliştirici sekmesinde bulunan "Makro Kaydet" butonuna tıkladıktan sonra, A1:A2500 aralığını seçip, CTRL + F tuşlarına basın ve aradığınız kelimeyi yazın.
Daha sonra yine aynı sekmeden "Kaydı Durdur" butonuna tıklayıp, ortaya çıkan kodları inceleyin.
Gereksiz kodlar çıkacaktır içlerinden ama size fikir verecektir.

Benim hala sıkça başvurduğum bir yöntemdir ve naçizane tavsiye ederim.

Selamlar,
 

metehan8001

Feyzullah - Www.ExcelDepo.Com
Yönetici
Moderatör
#3
A sütununda exceldepo yazan yeri bulup karşılığında B sütunda ki veri msgbox ile gösterir.
Kod:
Set Bul = Range("A:A").Find("exceldepo").row
if Not Bul is Nothing Then
Msgbox Cells(bul, "B").value
End if
Alternatif olarak; for döngüsü ile yapılırsa
Kod:
For ara = 1 to 2500
if cells(ara, "A").value = "exceldepo" then
Msgbox Cells(ara, "B"). Value
end if
Next ara
 

AhmetRasim

Destek Ekibi
Destek Ekibi
#5
Merhabalar;
Alternatif bir örnek;
- A sütununda arama sonucu bulunan değerlerin tümünü renklendirir.
Kod:
Sub ara_bul_renklendir()
bul = Application.InputBox("Aranacak Veriyi Yazınız", "Ara Bul Renklendir")
If bul = Empty Then Exit Sub
Range("A1:A2500").Interior.ColorIndex = xlNone
For Each x In Range("A1:A2500")
If x Like bul Then x.Interior.Color = vbRed
Next
End Sub
 

gokhanboyaci

Destek Ekibi
Destek Ekibi
#6
Selamlar,
Arkadaşlar dönüşleriniz için teşekkürler. Şu şekilde çözüm sağladım bende.
Kod:
Function markaKontrol(marka As String) As Boolean
Set MarkaBul = marka.Range("A:A").Find(marka, LookAt:=xlWhole)
If MarkaBul = marka Then
markaKontrol = True
Else
markaKontrol = False
End If
End Function
 
Üst