İstenilen hücrede durmasını istiyorum.

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Aşağıdaki kodla Stok No hücresinin altında bulunan kodların hangi aralıkta olduğunu kod bana mesajla gösteriyor. İsteğim şu;

Kod çalışması bittikten sonra Stok No hücresinde durmasını istiyorum. Range("...").Select gibi bu nasıl yapılır.

Sub StokNo_Bul()

Dim bul As Range, ws As Worksheet, lastCell As Range
' Aktif çalışma sayfasını al
Set ws = ActiveSheet
Set bul = ws.Cells.Find("Stok No", , xlValues, 1) ' (Stok No) yazısını aramak için
If Not bul Is Nothing Then
Set lastCell = ws.Cells(ws.Rows.Count, bul.Column).End(xlUp) ' (Stok No) yazısının bulunduğu hücrenin bir altındaki hücreden başlayarak aşağıya in ve son hücreyi bulmak için
MsgBox "Stoklar: " & bul.Offset(1).Address(0, 0) & " ile " & lastCell.Address(0, 0) & " arasındadır"
Else
MsgBox "Stok No bulunamadı", vbCritical, "Hata"
End If
Set bul = Nothing
Set ws = Nothing
Set lastCell = Nothing



End Sub

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

 

[Korhan Ayhan]

Bu işlemde "bul" ile hücreyi tanımlamış oluyorsunuz. Eğer tanımlanan hücre bulunmuşsa bul.Select yazılması yeterli olacaktır.

 

[Hacı Bayram ÖZKAN]

Teşekkürler sayın abim, dua ile kal