İstediğim hücreye gitme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyasının A sütununda sıra no var, B sütununda değişik rakamlar var, C sütununda isimler var.

Benim istediğim F1 hücresine rakam yazıyorum, imlecin yazdığım rakamın bulunduğu hücreye gitmesini istiyorum.

Yardımcı olur musunuz?

 

[Korhan Ayhan]

DÜŞEYARA fonksiyonunu kullanabilirsiniz.

 

[ASLAN7410]

Sayın Korhan Bey, ilginiz için çok teşekkür ediyorum.

Gönderdiğim excel dosyasının G1 hücresinde zaten düşeyara formülü mevcut.

Benim istediğim F1 hücresine rakam yazıyorum, imlecin yazdığım rakamın bulunduğu hücreye gitmesini istiyorum.

Göndermiş olduğum ekran alıntısı resmindeki gibi olmasını istemiştim.

 

[ASLAN7410]

Sayın arkadaşlar, aşağıdaki kod tam benim istediğimi yapıyor, ancak Application.InputBox mesaj kutusu yerine sayfadaki F1 hücresi gösterilse, istediğim olacak.

Kodu uyarlamaya çalıştım ancak olmadı.

Kodlar alıntıdır.

Sub hücresec()
   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

 

[ASLAN7410]

Sayın yönetici arkadaşlar konu günceldir.

 

[Orion1]

Dosya ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [F1]) Is Nothing Then Exit Sub
Set k = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Find(Range("F1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, 0).Select
End If
End Sub

 

[ASLAN7410]

Sayın Evren Bey ilginize çok teşekkür ediyorum, emeğinize sağlık, gerçekten çok işime yaradı.

Hayırlı günler, hayırlı çalışmalar diliyorum.

 

[askm]

Aşapıdaki şekilde deneyin. Site yöneticisi değilim yalnız ben.

Sub hücresec()
Dim Rng
On Error Resume Next
Rng = Range("F1").Text
If Rng <> "" Then
    Range(Rng).Select
End If
End Sub

 

[Orion1]

Sayın Evren Bey ilginize çok teşekkür ediyorum, emeğinize sağlık, gerçekten çok işime yaradı.

Hayırlı günler, hayırlı çalışmalar diliyorum.

Rica ederim.
İyi çalışmalar.

 

[ASLAN7410]

Sayın askm sizede çok teşekkür ediyorum.
Hayırlı günler, hayırlı çalışmalar.