Arama makrosu

[atöz]

Herkese selamlar,

Aşağıda arama yaparken kullandığım yapı aradığım öğenin aynısını bulmamı sağlamıyor sanırım.Örneğin "Kremalı" öğesini belli bir sütünda aratıp bulduğu satırı almak istediğimde daha önceki satırdaki " Kremal pasta" yı bulup onun satırını alıyor.Birebir aynısını bulmasını nasıl sağlayabilirim.

Teşekkürler

j2="Kremalı"
With Worksheets("PASTANE").Range("A:A")
Set AA = .Find(j2, LookIn:=xlValues)
End With
satırno = AA.Row

 

[omerceri]

Herkese selamlar,

Aşağıda arama yaparken kullandığım yapı aradığım öğenin aynısını bulmamı sağlamıyor sanırım.Örneğin "Kremalı" öğesini belli bir sütünda aratıp bulduğu satırı almak istediğimde daha önceki satırdaki " Kremal pasta" yı bulup onun satırını alıyor.Birebir aynısını bulmasını nasıl sağlayabilirim.

Teşekkürler

j2="Kremalı"
With Worksheets("PASTANE").Range("A:A")
Set AA = .Find(j2, LookIn:=xlValues)
End With
satırno = AA.Row

renkli satırı anlamadım ama aşağıdaki makro kaydet ile oluşturduğum kodlar işinizi görür
Range("a1").Select
Columns("A:A").Find(What:="Kremalı", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ekleme:
satır=ActiveCell.Row

 

[haydar]

Merhaba,

Arama yaptırıyorum;

Hücre içindeki değerin aynısını yazarsam buluyor,
ama yarısını yazarsam bulmuyor.

Örneğin sütun içinde bir hücrede "14587-65423" rakamları var olsun

Ben sadece 14587'yi yazıp ara deyince o hücreyi bulabilmeli...

Selamlar.

 

[Mahmut Bayram]

[vb:1:29f5b09308]Sub Bul_Adres()
Find = InputBox("Aranan değer?", "Ara-bul-rapor")
On Error GoTo yok
bul = Cells.Find(Find).Address
MsgBox bul, vbInformation, "Aradığınız kaydın bulunduğu hücre:"
Exit Sub
yok:
MsgBox "Kayıt bulunamadı", vbCritical
End Sub[/vb:1:29f5b09308]

 

[haydar]

Teşekkür ederim. : )

 

[suleymanozkoc]

şartlı koşul

bana yardım edermisin kardeş

 

[Korhan Ayhan]

Selamlar,

Sn. suleymanozkoc dikkat ettinizmi acaba sorunuzun bu başlıkla ne alakası var ?

Lütfen forum kurallarını okuyunuz ve sorularınızı uygun başlıklar altında sorunuz. :arkadas:

 

[suleymanozkoc]

tamam da acemiyiz bir yardım ederseniz sevinirim.
nasıl olacak

 

[suleymanozkoc]

tamam da acemiyiz bir yardım ederseniz sevinirim.
nasıl olacak

 

[mehmett]

Sn suleymanozkoc,

Aşağıda ve yukarıda iki yerde yer alan "Yenibaşlık" tuşlarından birini tıklayın ve sorunuzu ayrı bir başlık halinde sorun.

Bir de sorunuzu uygun bir bölümde sorun. Örneğin "Excel'e Yeni Başlayanlar" bölümünde sorabilirsiniz.