makro ile arama yapmak

[SCOCUK]

Öncelikle merhaba bu site sayesine makrolar ile çalışmayı makrolar ile neler yapılacağını öğrendim ve (7) kişilik bir çalışma ofisinde (1) kişi ile işleri yürütebilmenin rahatlığını yaşamaktayım. Bu sayfa sayesinde bir çok işi kolaylaştırdım ve yine bir çalışma yapmaya başladım burada ise işin içinden çıkamadığım bir konu oldu sorunum şu

D sütununda tamamen formüllü ben ise D220000 arasında formüllü olan hücrelerdeki en küçük değeri içeren hücre adresini (örneğin E125) ve en büyük değeri içeren hücre adresini değişken olarak bulmak istiyorum. Yazdığım değişkenler ile en küçük ve en büyük değeri bulabiliyorum ama bu değerlerin hangi hücrede olduğunu bulamıyorum. Yardımcı olabilirseniz çok sevinirim. Tek sorunum sütunun tamamı formüllü onun için sürekli hatalı sonuçlar alıyorum.

 

[acar6783]

Öncelikle merhaba bu site sayesine makrolar ile çalışmayı makrolar ile neler yapılacağını öğrendim ve (7) kişilik bir çalışma ofisinde (1) kişi ile işleri yürütebilmenin rahatlığını yaşamaktayım. Bu sayfa sayesinde bir çok işi kolaylaştırdım ve yine bir çalışma yapmaya başladım burada ise işin içinden çıkamadığım bir konu oldu sorunum şu

D sütununda tamamen formüllü ben ise D220000 arasında formüllü olan hücrelerdeki en küçük değeri içeren hücre adresini (örneğin E125) ve en büyük değeri içeren hücre adresini değişken olarak bulmak istiyorum. Yazdığım değişkenler ile en küçük ve en büyük değeri bulabiliyorum ama bu değerlerin hangi hücrede olduğunu bulamıyorum. Yardımcı olabilirseniz çok sevinirim. Tek sorunum sütunun tamamı formüllü onun için sürekli hatalı sonuçlar alıyorum.

Kodlarla yapıyorsanız Address komutunu kullanın.
Formülle yapıyorsanız

=ADRES(KAÇINCI(MAK(D:D);D:D;0);4)

 

[SCOCUK]

Peki arama yapmak istediğim başka bir sayfada ise nasıl bir kod yazabilirim acaba makro olarak

 

[acar6783]

Peki arama yapmak istediğim başka bir sayfada ise nasıl bir kod yazabilirim acaba makro olarak

Sub MS()
Set s1 = Sheets([COLOR="Red"]"Sayfa11"[/COLOR])
maks = WorksheetFunction.Max(s1.Range("D1:D" & Rows.Count))

kacıncı = WorksheetFunction.Match(maks, s1.Range("D1:D" & Rows.Count), 0)

MsgBox s1.Range("D" & kacıncı).Address

End Sub

Sayfa adını kendinize göre uyarlayın.

 

[SCOCUK]

Sub MS()
Set s1 = Sheets([COLOR="Red"]"Sayfa11"[/COLOR])
maks = WorksheetFunction.Max(s1.Range("D1:D" & Rows.Count))

kacıncı = WorksheetFunction.Match(maks, s1.Range("D1:D" & Rows.Count), 0)

MsgBox s1.Range("D" & kacıncı).Address

End Sub

Sayfa adını kendinize göre uyarlayın.

Üstadım yardımınız için çok ama çok teşekkür ederim 3-4 gündür üzerinde uğraştığım şey buymuş ilginiz ve alakanız için çok ama çok teşekkür ederim bu sayfanın gerçekten amacına ulaşabilmesi için sizin gibi bilgisini hapsetmeyip paylaşanlara ihtiyacı var inşallah bir gün bizlerde sizlerden öğrendiğimiz şeyleri başkaları ile paylaşacak duruma geliriz. Tekrar Tekrar çok teşekkür ederim.

 

[Orion1]

Alternatif.

Sub maksimum59()
Dim sh As Worksheet, maksimumx As Double, k As Range
Set sh = Sheets("Sayfa1")
maksimumx = WorksheetFunction.Max(sh.Range("D:D"))
Set k = sh.Range("D:D").Find(maksimumx, , xlValues, xlWhole)
If Not k Is Nothing Then MsgBox "Adres : " & k.Address & vbLf _
& "evrengizlen@hotmail.com"
End Sub

 

[acar6783]

Üstadım yardımınız için çok ama çok teşekkür ederim 3-4 gündür üzerinde uğraştığım şey buymuş ilginiz ve alakanız için çok ama çok teşekkür ederim bu sayfanın gerçekten amacına ulaşabilmesi için sizin gibi bilgisini hapsetmeyip paylaşanlara ihtiyacı var inşallah bir gün bizlerde sizlerden öğrendiğimiz şeyleri başkaları ile paylaşacak duruma geliriz. Tekrar Tekrar çok teşekkür ederim.

Rica ederim. Ben de buradan öğrendiklerim ile birşeyler yapıyorum
Ispatı mı;
İlk mesajıma bakabilirsiniz. ben mi sormuşum diyorum şimdi.