bulduğumuz satıra gitmek

[stackbyte]

ekteki dosyada 88. satırdaki kodu bulduğu zaman oraya girek nasıl gider biz sayfayı aşağı indirmek istemiyoruz otomatik bulup gitsin

 

[chngrcn]

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Sayfa1")
For i = 2 To s1.[C65536].End(3).Row
If s1.Cells(2, 1).Value = s1.Cells(i, "C").Value Then
    s1.Cells(i, 3).Select
    End If

Next
End Sub

worksheet change olayına ekleyiniz.. saygılar..

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2]) Is Nothing Then Exit Sub
sat = WorksheetFunction.Match(Target, [c:c], 0)
Cells(sat, "c").Select
End Sub

 

[stackbyte]

verdiğiniz kodlarla sadece buluyor o satıra atmıyor imleci otomatik o satıra nasıl iner imlec

 

[chngrcn]

verdiğiniz kodlarla sadece buluyor o satıra atmıyor imleci otomatik o satıra nasıl iner imlec

250. satirdaki "C250" hücresine 250 yazın, "A2" hücresine gidip 250 yazın bakın bakalım o satıra atıyor mu atmıyor mu ?

 

[Orion1]

verdiğiniz kodlarla sadece buluyor o satıra atmıyor imleci otomatik o satıra nasıl iner imlec

!!!!!!!!!!!!!!!!!!!!!

 

[stackbyte]

250. satirdaki "C250" hücresine 250 yazın, "A2" hücresine gidip 250 yazın bakın bakalım o satıra atıyor mu atmıyor mu ?

gitmiyor o satırı buluyor fakat mouse ile sayfayı aşağı çekersem iniyor direk o satıra gitmesini sağlayamaz mıyız mouse ile sayfayı aşağı çekmeden

 

[Seyit Tiken]

Bu şekilde kodlarınıza ekleyip değeri kendinize göre ayarlayın.

ActiveWindow.ScrollRow = 3

 

[stackbyte]

Bu şekilde kodlarınıza ekleyip değeri kendinize göre ayarlayın.

ActiveWindow.ScrollRow = 3

değer derken acemiyim örnekle gösterebilir misiniz acaba rica etsem ?

 

[Seyit Tiken]

Kodun sonunda görülen "3" değerini değiştirerek kendinize uyarlayınız.

 

[Korhan Ayhan]

Merhaba,

Alteratif olarak aşağıdaki koduda kullanabilirsiniz.

Sayfanızın kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Set BUL = Range("C:C").Find(Target, , , xlWhole)
        If Not BUL Is Nothing Then BUL.Activate
    End If
End Sub

 

[stackbyte]

peki ekteki dosyada A2 de ne aratırsam otomatik satıra atacak mı kodla 250. satıra scroll inecek mi 3 yerine rakamsal bir değer mi gireceğim yoksa C mi kusura bakma saçma soruyor olabilirim mazur gör

 

[stackbyte]

teşekkürler oldu işime yaradı teşekkür ederim yardımcı olan herkese