Excel tablosu içinde bir değeri arayıp bulan bir makro ?

[ALPEN]

hakkatten metettiğiniz kadar varmış.

dedik ya...
function arama. pro version. diye. :mrgreen:

 

[Guest]

Gerçekten Güzel Çalışma;
Ancak, hücre alt+enter ile açıılmış ve hücreye iki veya daha fazla veri girilmiş ise arama yapmıyor.
bunun sağlanması mümkün mü ?
Ayrıca bulunun değerin yer aldığı satır çalışma sayfasında renk değiştirerek görünebilir mi ?
İlginiz için teşekkürler

 

[Guest]

sanırım mümkün değil. Teşekkürler

 

[Guest]

Evet gerçekten güzel bir makro;
Benim öğrenmek istediğim, bulunan değerin yer aldığı satır aynı makro içersinde seçili duruma getirilebilir mi ? yani makro ile bulunan değerin yer aldığı hücre değil satır seçili duruma gelebilir mi? Hatta birde reklendirilebilse ..........

 

[Levent Menteşoğlu]

Aşağıdaki kod veriyi alt-enterle yazılmış bile olsa bulur ve bulunduğu satırı seçer.

Sub bulvesec()
On Error GoTo 10
ara = InputBox("ARANACAK VERİYİ YAZIN")
If ara = "" Then Exit Sub
sat = ActiveSheet.Cells.Find(What:=ara).Row
Rows(sat).Select
Exit Sub
10 MsgBox ("VERİ BULUNAMADI")
End Sub

Bu kodda veriyi sayfa içinde bulur, bulunduğu hücreyi seçer ve satırı renklendirir.

Sub bulverenklendir()
Cells.Interior.ColorIndex = xlNone
On Error GoTo 10
ara = InputBox("ARANACAK VERİYİ YAZIN")
If ara = "" Then Exit Sub
sat = ActiveSheet.Cells.Find(What:=ara).Row
Rows(sat).Interior.ColorIndex = 6
ActiveSheet.Cells.Find(What:=ara).Select
Exit Sub
10 MsgBox ("VERİ BULUNAMADI")
End Sub

 

[Guest]

İyiki varsınız. Sonsuz Teşekkür

 

[erselsmsk]

Benim de bir sorum olacak. Excel'de bir sütunda değer aratıp bulunan değer ile aynı satırda olan başka sütunda ki bir kutuya 1 değeri girecek bir makro yazmak istiyorum. yani diyelim ki ben A sütununda 21 değerini arattım A30'da değeri buldu. K30'a 1 değeri atayacak bir makro. lütfen çok acil yardım )

 

[BedriA]

Aşağıdaki kod veriyi alt-enterle yazılmış bile olsa bulur ve bulunduğu satırı seçer.

Sub bulvesec()
On Error GoTo 10
ara = InputBox("ARANACAK VERİYİ YAZIN")
If ara = "" Then Exit Sub
sat = ActiveSheet.Cells.Find(What:=ara).Row
Rows(sat).Select
Exit Sub
10 MsgBox ("VERİ BULUNAMADI")
End Sub

Bu kodda veriyi sayfa içinde bulur, bulunduğu hücreyi seçer ve satırı renklendirir.

Sub bulverenklendir()
Cells.Interior.ColorIndex = xlNone
On Error GoTo 10
ara = InputBox("ARANACAK VERİYİ YAZIN")
If ara = "" Then Exit Sub
sat = ActiveSheet.Cells.Find(What:=ara).Row
Rows(sat).Interior.ColorIndex = 6
ActiveSheet.Cells.Find(What:=ara).Select
Exit Sub
10 MsgBox ("VERİ BULUNAMADI")
End Sub

Aynı veriden birden fazla varsa, en altta olanı seçiyor.
Veriyi sütunda sayması mümkün mü acaba? Kaç tane var diye...

 

[Korhan Ayhan]

Deneyiniz.

Sub VERİ_SAY()
    Dim Aranan As Variant
    Aranan = InputBox("Aradığınız veriyi yazınız!")
    MsgBox Aranan & " verisinden toplam ; " & WorksheetFunction.CountIf(Range("A:A"), Aranan) & " adet bulunmuştur!"
End Sub

 

[BedriA]

Deneyiniz.

Sub VERİ_SAY()
    Dim Aranan As Variant
    Aranan = InputBox("Aradığınız veriyi yazınız!")
    MsgBox Aranan & " verisinden toplam ; " & WorksheetFunction.CountIf(Range("A:A"), Aranan) & " adet bulunmuştur!"
End Sub

Çok teşekkür ederim.