hücre okuma ve alınan bilgiyi başka bir sayfada bulma

[green71tr]

merhaba,

pivot tabel da hazırladığım raporun üzerinde iken o hücredeki bilgiyi okutmak ve bu bilgiyi veri tabanının olduğu sayfada bulmak istiyorum.

örnek : bulunacak bilgi stok no. (stoklar veri tabanından sıralı biçimde)

herhangi bir stok kodunun üzerinde iken makro o stok kodunu hücreden okusun stk005 daha sonra veri tabanına gitsin ve stokkodu alanında bu hücreyi bulsun...

uzun süredir makrolar ile uğraşmadığımdan eski bilgileri karıştırmam gerek. pek zamanım yok ne yazık ki. hani armut piş ağzıma düş olacak ama yardımcı olabilirseniz sevinirim.

iyi akşamlar...

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[green71tr]

örnek dosya

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KAYIT_BUL()
    If ActiveCell = "" Then Exit Sub
    Set BUL = Sheets("veri").Cells.Find(ActiveCell, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Sheets("veri").Select
    Range(BUL.Address).Select
    End If
    Set BUL = Nothing
End Sub

 

[green71tr]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KAYIT_BUL()
    If ActiveCell = "" Then Exit Sub
    Set BUL = Sheets("veri").Cells.Find(ActiveCell, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Sheets("veri").Select
    Range(BUL.Address).Select
    End If
    Set BUL = Nothing
End Sub

mükemmel olmuş hocam, ellerin dert görmesin...

hoşçakalın,

 

[green71tr]

daha nasıl tarif edebilirim (kahve simgesi yoktu)

:keyif:

 

[Şeref1]

mükemmel olmuş hocam, ellerin dert görmesin...

hoşçakalın

 

[hmustafay]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KAYIT_BUL()
    If ActiveCell = "" Then Exit Sub
    Set BUL = Sheets("veri").Cells.Find(ActiveCell, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Sheets("veri").Select
    Range(BUL.Address).Select
    End If
    Set BUL = Nothing
End Sub

yukardaki kodu "veri" isimli sayfada değilde çalışma kitabindaki o an açık olan sayfada uygulayabilmek için nasıl bir değişiklik yapmak gerekir