ara ve git

[yetenekci]

arkadaşlar sayfa 1deki ben K7 sutunundaki hücreye tıklayınca sayfa 2deki c sutununu baştan sona aramasını ve aynı verinin olduğu satırı göstermesini istiyorum bunu nasıl yapabilirim

 

[Necdet]

Merhaba,

Ekli dosyayı inceleyiniz. Sayfanın Kodu :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [K7]) Is Nothing Then Exit Sub
Set s2 = Sheets("Sayfa2")
For i = 2 To s2.[C65536].End(3).Row
     If [K7] = s2.Cells(i, "C") Then
          s2.Select
          s2.Range("C" & i).Select
          Exit For
    End If
Next i
End Sub

Not : Sayın yetenekci, lütfen aynı konuyu defalarca foruma yazmayınız

 

[yetenekci]

saol emeğin için tesekkur ederim

 

[yetenekci]

bi isteğim daha olacak arkadasım ben bunu değiştiremedim k3 ile 150 arasında olan herhangı bırıne tıklayınca dıye yardımcı olabılırmısın acaba

 

[Necdet]

Merhaba Sayın yetenekci,

Kodları aşağıdaki gibi değiştirin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [K3:K150]) Is Nothing Then Exit Sub
Set s2 = Sheets("Sayfa2")
[COLOR=red][B]Deger = Target[/B][/COLOR]
For i = 2 To s2.[C65536].End(3).Row
     If [COLOR=red][B]Deger = s2.Cells(i, "C")[/B][/COLOR] Then
              s2.Select
              s2.Range("C" & i).Select
              Exit For
     End If
Next i
End Sub

 

[yetenekci]

saol arkasım ama bu konuda son bi sorum daha olacak kusura bakma bu aramaya baska bir excel dosyasında yaptırırsam koda nasıl bı ekleme yapmam gerek? kitab1.xls tıklayıp kitab2.xls e gıtsın