Diğer sayfada arama

[zuzucuk]

Merhaba

ekteki calisma kitabimda 2 sayfa bulunmakta 1 ci safyada raf numaraları bulunuyor sadece ve bu sayfadan diğer sayfa içinde arama yapmak istiyorum.

mesela B13 hücresine KALEM yazdığımda bu kalem RAF1 sayfasında bulunan raf sıralamasında kaçıncı rafda olduğunu bulmak örnekte şablon mevcut bir göz atıp konu hakkında yardımcı olur iseniz çok memnun olurum şimdiden ilgilenen bütün arkadaşlara teşekkür ederim.

Pardon dosyayı siteye ekledim.

 

[Ali]

Dosyanızı siteye yüklermisiniz

 

[N.Ziya Hiçdurmaz]

Sub adagore()
Set s1 = Sheets("Sıralama")
Set s2 = Sheets("RAF1")
For i = 2 To 26
s1.Select
If [b13] = s2.Range("b" & i) Then
s2.Select
Range("b" & i).Select
s1.Select
[b14] = s2.Range("b" & i).Address
End If
Next
End Sub
Sub numarayagore()
Set s1 = Sheets("Sıralama")
Set s2 = Sheets("RAF1")
For i = 2 To 26
s1.Select
If [l13] = s2.Range("c" & i) Then
s2.Select
Range("c" & i).Select
s1.Select
[l14] = s2.Range("c" & i).Address
End If
Next
End Sub

 

[zuzucuk]

hocam bu vermiş olduğunuz kodu vba nın siralama adli sayfasina ekledim fakat exel sayfamda gerekli yere bilgi girince sonuç alamıyorum yanlışmı yapıyorum acaba?

 

[zuzucuk]

konu hakkında yardımcı olabilmeniz mümkünmü acaba sayın hocalar. Şuan verilmiş olan kodları vba sıralama adlı sayfaya ekledim fakat işlem göremiyorum yinede

 

[Necdet]

Sayın V.Basic For Applications'ın kodlarını butona bağladım.

Dosyanızı inceleyiniz.

 

[zuzucuk]

SAYIN Necdet_Yesertener yardımınız için teşekkür ederim şuan kodalr işlev görüyor fakat tam randumanlı çalışmıyor misal silgi 1 silgi 2 silgi 3 şeklinde farklı kayıtlarda arama yapmıyor sanırım bahsettiğim şekilde bir çalışma olmuyor.

 

[Necdet]

SAYIN Necdet_Yesertener yardımınız için teşekkür ederim şuan kodalr işlev görüyor fakat tam randumanlı çalışmıyor misal silgi 1 silgi 2 silgi 3 şeklinde farklı kayıtlarda arama yapmıyor sanırım bahsettiğim şekilde bir çalışma olmuyor.

Diğer sütunlarda da arama sağlandı. İnceleyiniz Sayın zuzucuk

 

[zuzucuk]

Merhaba arkadaşlar forumlarda aşağıdaki kodları buldum ama bu kodlarda sorun yaşıyorum öncelikle çalışma kitabımı kapatıp açtığımda en son seçili kalan hücre renkli olarak kalıyor biçimlendirmedende düzelmiyor, sonra hücre kopyalatmıyor acaba kodlardamı bi sorun var göz atabilirmiyiz mümkünse.
Birde bukodlarda seçili hücrede yazı renginin değişmesini istiyorum hücreden çıkınca yine normal rengine dönmesi lazım.
Şİmdiden teşekkür ederim.




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub