1004 hatası

[Tevfik_Kursun]

Merhaba Arkadaşlar,

    Dim Son As Integer
    Dim OgNo As Integer
    Dim Sat As String
    OgNo = InputBox(Prompt:="Giden Öğrenci No : ")
    Range("B:B" & Son).Select
    Sat = Cells.Find(What:=OgNo, LookAt:=xlPart).Row
    Range(Sat).Select

1004 hatası alıyorum, nasıl giderebilirim? Yoksa Dim yanlış mı yazılmış?
Saygılarımla

 

[Ömer]

Merhaba,

Bir çok yeri hatalı.

son değişkeni yok,
range("b:b"&son) ilk yazılan b hangi satırdan başlayacak,
Range(Sat).Select, sütun belirtilmemiş.

Yapmak istediğiniz InputBox daki değeri B sütununda arattırıp bulduğu hücreyi seçmek mi?

Sub test()

    Dim Son As Integer, OgNo As Variant, c As Range
    
    Son = Cells(Rows.Count, "B").End(xlUp).Row
    If Son < 1 Then Exit Sub
    
    OgNo = InputBox(Prompt:="Giden Öğrenci No : ")
        
    Set c = Range("B1:B" & Son).Find(What:=OgNo, LookAt:=xlPart)
    If Not c Is Nothing Then
        c.Select
    End If

End Sub

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
İlginize çok teşekkür ederim.
Saygılarımla