İmleç, satır numarası A1 de belirtilmiş satıra nasıl gider?

[Tevfik_Kursun]

Günaydın Arkadaşlar,
İmleç, satır numarası belli hücrede belirtilmiş satıra nasıl gider?
Bu soruya Korhan Ayhan Hocamın bir arkadaşa verdiği cevaptan esinlenerek tagdaki makroyu oluşturdum. Run time error 13; Type mismatch hatası verdi. Fark edileceği gibi 7. sütunda, numarası BB10 da yazılı satırı seçmek istiyorum.

Sub SatiraGit()
    ActiveCell.Offset(7, Range("BB10").Value).Select
End Sub

Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Sub Git()
Cells(Range("BB10").Value,7).Select
End Sub

 

[Tevfik_Kursun]

Günaydın Korhan Hocam,
İlginize çok teşekkür ederim. Ama aynı hatayı vermeye devam ediyor.
Saygılarımla

 

[YUSUF44]

Bu durumda BB10'da satır numarası olamayacak bir değer yazılı olabilir. Örneğin activecell A1 ise BB10'da -1 yazıyorsa A1'in üstünde ya da solunda başka hücre olmadığından hata verir.

 

[Tevfik_Kursun]

Sayın Yusuf44 Hocam,
Öncelikle ilginize teşekkür ederim. BB10 da 4816 gibi bir sayı var. Yani imlecin G4816 ya ulaşmasını sağlamak istiyorum.
Saygılarımla

 

[YUSUF44]

BB10 sayı biçimli olmayabilir.

Boş bir sayfada BB10 hücresine 4816 yazdım. Yukarda Korhan Bey'in vermiş olduğu

Sub Git()
Cells(Range("BB10").Value,7).Select
End Sub

Kodunu çalıştırdığımda G4816 hücresini seçti. Yani kodda bir sıkıntı yok.

Hatta BB10'u metin olarak biçimlendirerek denediğimde de sorun çıkmadı.

BB10'un başına/sonuna boşluk ekledim, yine çalıştı.

4816- yazdığımda 1004 hatası verdi.

 

[Korhan Ayhan]

Dosyanızda başka bir durumdan dolayı bu hata oluşuyor olabilir.

Dosyanızı görmek gerekir.

 

[Tevfik_Kursun]

Sayın Hocalarım,
Her ikinize de çok teşekkür ederim. Haklısınız metin olarak yazıyormuş, sayıya çevirince düşündüğüm gibi çalıştı. Sizlere ve Siteyi ayakta tutan tüm arkadaşlara teşekkür ediyor, sevgi ve saygılarımı sunuyorum.
İyi ki varsınız