Belirtilen Karakter İle Başlayan İlk Hücreye Git

[ZuCChiNi]

Makro atanmış düğmeye tıklandığında makroda belirtilmiş karakter ile başlayan A sütunundaki ilk hücreye gitmek istiyorum.
Bir nevi sözlük gibi düşünebilirsiniz.
Örneğin Makroda "C" belirtilmiş ise C ile başlayan ilk hücreye gitsin.
Farklı şekillerde örneklere ulaştım ama bu şekilde bulamadım.

 

[ÖmerFaruk]

Sub SatıraGit()
    Veri = Range("A2:A9999").Value
    For i = 1 To 9999
        If Left(Veri(i, 1)) = "C" Then
            Range("A" & i).Select
            Exit Sub
        End If
    Next i
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Alternatif olsun. Tabi eğer A sütununu boşaltabilirseniz!
Datalarınızı B sütununa yazıp, İLK HARF YAZ makrosunu çalıştırınız, A sütununa ilk harfleri yazacaktır. Renkli C1 hücresine aradığınız harfi yazıp ve ARANAN HARFİ BUL makrosunu çalıştırınız. Aynı makroyu tekrar çalıştırdığınızda sonraki aynı harfle başlayan cümleye gidecektir.
İyi çalışmalar

 

[ZuCChiNi]

Cevaplarınız için teşekkür ederim.

Ömer Bey, "Left" için "Argumant not optional" hatası verdi.

Tevfik Bey, yapmak istediğim gibi olmasa da işe yarıyor.

 

[ÖmerFaruk]

Bu Left ve Right işlevleri bazen bende de sorun yaratıyor. Sebebini bilemiyorum. Sonra kendiliğinden düzeliyor.

 

[Haluk]

If Left(Veri(i, 1), 1) = "C" Then

.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Kısa bir örnek koymuş olsanız, daha farklı çözülebilirdi.
İyi çalışmalar

 

[excelokyanus500]

Sanırım böyle birşey işinizi görür.

Sub Diger()

lRow = Range("A" & Rows.Count).End(xlUp).Row
Set MR = Range("A2:A" & lRow)
x = InputBox("Lütfen kriter harfi girin", "Tek bir harf kullanın")
For Each cell In MR
If Left(cell.Value, 1) = x Or Left(cell.Value, 1) = LCase(x) Then
cell.Select
Exit Sub
End If
Next

End Sub

 

[Tevfik_Kursun]

Sayın ZuCChiNi,
Bir de bunu deneyin lütfen
iyi çalışmalar

 

[YUSUF44]

Cevaplarınız için teşekkür ederim.

Ömer Bey, "Left" için "Argumant not optional" hatası verdi.

Tevfik Bey, yapmak istediğim gibi olmasa da işe yarıyor.

Bu Left ve Right işlevleri bazen bende de sorun yaratıyor. Sebebini bilemiyorum. Sonra kendiliğinden düzeliyor.

If Left(Veri(i, 1), 1) = "C" Then

.

Sayın Haluk düzeltmeyi yapmış, ben de bu hatanın nedenini açıklamaya çalışayım:

Left ve Right yani SOLDAN ve SAĞDAN işlevlerinin/komutlarının iki değişkeni vardır. Birincisi hangi veri üzerinde işlem yapılacağı, ikincisi ise kaç karakterin formülde değerlendirileceği. Siz komutta hangi verinin değerlendirileceğini belirlemişsiniz ama o verinin SOLDAN kaç karakterinin kullanılacağını belirtmemişsiniz. Haluk üstadımız o eksikliği tamamlamış.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Goto_Cell()
    On Error GoTo 10
    Application.Goto Range("A:A").Find(Application.InputBox("Lütfen bir harf yazınız...") & "*", Cells(Rows.Count, 1), , xlWhole)
    Exit Sub
10  MsgBox "Lütfen bir harf yazınız!", vbCritical
End Sub

 

[ZuCChiNi]

Herkese ayrı ayrı teşekkür ediyorum.
Benim için en uygun çözüm @ÖmerFaruk Beyin kodu oldu.
Aşağıdaki şekilde kendime göre uyarladım.
Bir hata satırı ekleyince tamam olacak.

Korhan Beyin güzel çalışmasında ilk harfe göre değil de harfi ilk bulduğu hicreye gidiyor.
Örnek "C" için BİLECİK'e gidiyor. Normalde bulamaması lazım.

Sub SatıraGit()
    Dim Harf As String
    Harf = "Ç"
    Veri = Range("A2:A9999").Value
    For i = 1 To 9999
        If Left(Veri(i, 1), 1) = Harf Then
            Range("A" & i + 1).Select
            Exit Sub
        End If
    Next i
End Sub

 

[ÖmerFaruk]

Nasıl bir hata için istiyorsunuz?

 

[Korhan Ayhan]

Önerdiğim koda küçük bir ekleme yaptım. Tekrar deneyiniz.

 

[ZuCChiNi]

Korhan Bey, yeni ekleme ile istediğim gibi oldu.

Ömer Bey, eğer aranan değeri bulamazsa mesaj yazması için bir hata satırı lazımdı. Onu ekledim.

Tekrar teşekkür ederim.

Yapmak istediğim -en başta göndermem gereken- örnek dosyanın son halini ekliyorum.