hücrede bulunan değeri yazınca o hücreye gitme

[meda58]

arkadaşlar tabloda c sütununda 1-3000 arasında sayılar var ben herhangi bir sayıyı yazınca o hücreye gitmek istiyorum

örneğin 500 yazınca c sütununda 500 yazan hücreye gitsin

elimde hücreye giden makro var aşağıya ekledim ama bir türlü bu dediğimi yapamadım yardımcı olursanız sevinirim



Sub hücresec()
'Gitmek istenilen hücreyi seçer
Dim Rng As Range

On Error Resume Next
Set Rng = Application.InputBox(prompt:="Gitmek istediğiniz Hücreyi Yazınız", Type:=8)
If Rng Is Nothing Then
MsgBox "Seçimden vazgeçtiniz"
Else
Rng.Select
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub hücresec()
    'Gitmek istenilen hücreyi seçer
    Dim Rng As String
    Rng = InputBox("Gitmek istediğiniz Hücreyi Yazınız")
    If Rng = "" Then
        MsgBox "Seçimden vazgeçtiniz"
    ElseIf Not IsNumeric(Rng) Or Rng > Rows.Count Or Rng < 1 Then
        MsgBox "Buraya sadece 1-" & Rows.Count & " arasında bir rakam girişi yapabilirsiniz."
        Exit Sub
    Else
        Cells(Rng, "C").Select
    End If
End Sub

 

[Korhan Ayhan]

Alternatif..

Option Explicit

Sub Goto_Range()
    On Error GoTo 10
    Range("C:C").Find(InputBox("Aranan değeri giriniz..."), , xlWhole).Select
    Exit Sub
10: MsgBox "Aranan değer bulunamadı!", vbCritical
End Sub

 

[meda58]

Merhaba.

Sub hücresec()
    'Gitmek istenilen hücreyi seçer
    Dim Rng As String
    Rng = InputBox("Gitmek istediğiniz Hücreyi Yazınız")
    If Rng = "" Then
        MsgBox "Seçimden vazgeçtiniz"
    ElseIf Not IsNumeric(Rng) Or Rng > Rows.Count Or Rng < 1 Then
        MsgBox "Buraya sadece 1-" & Rows.Count & " arasında bir rakam girişi yapabilirsiniz."
        Exit Sub
    Else
        Cells(Rng, "C").Select
    End If
End Sub

hocam hücresel bazda gayet güzel çalışıyor yalnız ben c sütununda hücrelerin içerisinde bulunan değere gitmek istiyorum
örneğin 400. hücrenin karşısında c sütununda 461 değer bulunmakta ben 461 yazınca buraya gitmesini istiyorum

 

[meda58]

Alternatif..

Option Explicit

Sub Goto_Range()
    On Error GoTo 10
    Range("C:C").Find(InputBox("Aranan değeri giriniz..."), , xlWhole).Select
    Exit Sub
10: MsgBox "Aranan değer bulunamadı!", vbCritical
End Sub

hocam bir türlü çalışmadı aradığınız bulunamadı diyor

 

[Korhan Ayhan]

Sayılar elle girilmiş sayılar mı? Ondalıklı mı?

 

[meda58]

Sayılar elle girilmiş sayılar mı? Ondalıklı mı?

hocam genel olarak da sayı olarak da denedim normal sayı örneğin 46 gibi

 

[Muzaffer Ali]

Deneyiniz.

Sub hücresec()
    Dim Rng As Range
    Dim Aranan As String
    Aranan = InputBox("Gitmek istediğiniz Hücreyi Yazınız")
    If Aranan = "" Then
        MsgBox "Seçimden vazgeçtiniz"
        Exit Sub
    End If
    Set Rng = Range("C:C").Find(What:=Aranan, LookIn:=xlValues, LookAt:=xlWhole)
    If Rng Is Nothing Then
        MsgBox "Aradığınız değer bulunamadı"
    Else
        Rng.Select
    End If
End Sub

 

[meda58]

Deneyiniz.

Sub hücresec()
    Dim Rng As Range
    Dim Aranan As String
    Aranan = InputBox("Gitmek istediğiniz Hücreyi Yazınız")
    If Aranan = "" Then
        MsgBox "Seçimden vazgeçtiniz"
        Exit Sub
    End If
    Set Rng = Range("C:C").Find(What:=Aranan, LookIn:=xlValues, LookAt:=xlWhole)
    If Rng Is Nothing Then
        MsgBox "Aradığınız değer bulunamadı"
    Else
        Rng.Select
    End If
End Sub

hocam muhteşemsiniz başka diyecek şey bulamıyorum teşekkürler

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[Korhan Ayhan]

Böyle deneyiniz.

Option Explicit

Sub Goto_Range()
    On Error GoTo 10
    Range("C:C").Find(InputBox("Aranan değeri giriniz..."), LookIn:=xlValues).Select
    Exit Sub
10: MsgBox "Aranan değer bulunamadı!", vbCritical
End Sub

 

[meda58]

Böyle deneyiniz.

Option Explicit

Sub Goto_Range()
    On Error GoTo 10
    Range("C:C").Find(InputBox("Aranan değeri giriniz..."), LookIn:=xlValues).Select
    Exit Sub
10: MsgBox "Aranan değer bulunamadı!", vbCritical
End Sub

hocam gayet güzel çalışıyor çok çok teşekkürler