Ne znam da li ti je šifra artikla broj ili string.
Evo jedan primer ako je string.
Code:
Option Explicit
Private Sub Pronadji()
Dim brRedova As Long
Dim i As Long
Dim trazim As String
trazim = InputBox("Unesite podatak koji se trazi", "Pretraga")
If trazim = "" Then MsgBox ("Niste uneli podatak za traženje. Pokušajte ponovo")
brRedova = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To brRedova
If trazim = Sheets("Sheet1").Cells(i, 2).Value And Sheets("Sheet1").Cells(i, 5).Value > 0 Then
Sheets("Sheet1").Cells(i, 2).Select
Exit Sub
End If
Next i
MsgBox ("Trazeni podatak nije pronadjen")
End Sub
Ako pak nije string nego broj, moraš reći u kom rasponu su ti brojevi.
Evo jedan primer pod pretpostavkom da će ti raditi sa šiframa koje su integer.
Code:
Option Explicit
Private Sub Pronadji()
Dim brRedova As Long
Dim i As Long
Dim Unos As String
Dim trazim As Integer
Unos = InputBox("Unesite šifru koja se trazi", "Pretraga")
If IsNumeric(Unos) = False Then
Call MsgBox("Morate uneti brojcanu vrednost za pretragu. Pokusajte ponovo.", vbCritical, "Greska!")
Exit Sub
Else
trazim = Int(Unos)
End If
brRedova = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To brRedova
If trazim = Sheets("Sheet1").Cells(i, 2).Value And Sheets("Sheet1").Cells(i, 5).Value > 0 Then
Sheets("Sheet1").Cells(i, 2).Select
Exit Sub
End If
Next i
Call MsgBox("Trazeni podatak nije pronadjen", vbInformation)
End Sub
[Ovu poruku je menjao Blue82 dana 02.08.2018. u 18:33 GMT+1]