Tüm excel kitabında belirli bir değeri aramak ve seçmek hk.

[elevisse]

Merhabalar,
Açık olan excel kitabında tüm sayfalarıdaki (yaklaşık 10 farklı sayfa olabilir) ' A1:CC3 hücreleri arasında 'Tipi' kelimesinin geçtiği sayfayı ve hücreyi bulup aktif hale getirecek makroya ihtiyacım vardır. Yardımınızı rica ederim. Teşekkürler.


Saygılarımla,
H.Erol

 

[Orion1]

Niye aktif etmek istiyorsunuz?

 

[elevisse]

Merhabalar,
Sayfayı ve hücreyi aktif ettikten sonra başka bir makro çalışacak. Bu nedenle bu verinin olduğu sayfanın seçilmesi gerekiyor.
Dışarıdan veriler içeren sayfalar olacak günlük ve her seferinde bu sayfaların adları değişebileceği için sadece içinde 'Tipi' kelimesi geçen sayfayı bulmak istiyorum.


BR
H.Erol

 

[Orion1]

Bu excel sayfasını ve hücreleri seçmedende işlem yapabilirsiniz.

 

[elevisse]

Merhabalar,
Bu kod işimi görüyor.


Sub Bul()
Dim ws As Worksheet
Dim vBUL As Range

StartOver:
MyVal = ("Tipi")
If MyVal = "False" Then Exit Sub
On Error Resume Next

For Each ws In Worksheets
Set vBUL = ws.Cells.find(MyVal, LookIn:=xlValues, LookAt:=xlPart)
If Not vBUL Is Nothing Then
ws.Activate
vBUL.Select
Set vBUL = Nothing
Exit Sub
End If
Next ws

'MsgBox "Veri Bulunamadi"
GoTo StartOver

End Sub

 

[Orion1]

Mümkün olduğunca aşağıdaki kodu kullanmayın.
Hatayı bulun ve hata hangi satırda oluşuyorsa o satırı düzenleyiniz.

On Error Resume Next