help with this macro

[JasonLeVan]

Below is my macro and it almost works, its only problem is I want it to search ALL of column B for a "*". if it finds one to execute the macro and repeat till all rows are checked, but i can only get it to work by going to a specific cell. Any help

Sub Macro1()
Sheets("Sheet1").Select
Range("B8").Select
Again:
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value = "*" Then
Number = ActiveCell.Row
Range("B" & Number).CLEAR
Description = Application.InputBox("Please enter the Descripton:", "Description")
Cost = Application.InputBox("Please enter the Cost:", "Cost")
Retail = Application.InputBox("Please enter the Retail:", "Retail")
Range("B" & Number).CLEAR
Range("G" & Number).Value = Description
Range("K" & Number).Value = Cost
Range("M" & Number).Value = Retail
ActiveCell.Offset(1, 0).Select
GoTo Again
Else
ActiveCell.Offset(1, 0).Select
GoTo Again
End If
End Sub

 

[MrKowz]

Give this a shot:

Public Sub JasonLeVan()
Dim i   As Long, _
    LR  As Long
LR = Range("B" & Rows.Count).End(xlUp).row
For i = 1 To LR
    If Range("B" & i).Value = "*" Then
        Range("G" & i).Value = InputBox("Please enter the Description:", "Description")
        Range("K" & i).Value = InputBox("Please enter the Cost:", "Cost")
        Range("M" & i).Value = InputBox("Please enter the Retail:", "Retail")
        Range("B" & i).Clear
    End If
Next i
End Sub

 

[JasonLeVan]

that works perfect, I got one more quirk I though of to add, in column e I have the item name, is there anyway to make the imput box show the item name for the row it is working on?

Give this a shot:

Public Sub JasonLeVan()
Dim i   As Long, _
    LR  As Long
LR = Range("B" & Rows.Count).End(xlUp).row
For i = 1 To LR
    If Range("B" & i).Value = "*" Then
        Range("G" & i).Value = InputBox("Please enter the Description:", "Description")
        Range("K" & i).Value = InputBox("Please enter the Cost:", "Cost")
        Range("M" & i).Value = InputBox("Please enter the Retail:", "Retail")
        Range("B" & i).Clear
    End If
Next i
End Sub

 

[MrKowz]

Something like this?

Public Sub JasonLeVan()
Dim i   As Long, _
    LR  As Long
LR = Range("B" & Rows.Count).End(xlUp).row
For i = 1 To LR
    If Range("B" & i).Value = "*" Then
        Range("G" & i).Value = InputBox("Please enter the Description for " & Range("E" & i).Value & ":", "Description")
        Range("K" & i).Value = InputBox("Please enter the Cost for " & Range("E" & i).Value & ":", "Cost")
        Range("M" & i).Value = InputBox("Please enter the Retail for " & Range("E" & i).Value & ":", "Retail")
        Range("B" & i).Clear
    End If
Next i
End Sub

 

[JasonLeVan]

that is perfect...thanks

Something like this?

Public Sub JasonLeVan()
Dim i   As Long, _
    LR  As Long
LR = Range("B" & Rows.Count).End(xlUp).row
For i = 1 To LR
    If Range("B" & i).Value = "*" Then
        Range("G" & i).Value = InputBox("Please enter the Description for " & Range("E" & i).Value & ":", "Description")
        Range("K" & i).Value = InputBox("Please enter the Cost for " & Range("E" & i).Value & ":", "Cost")
        Range("M" & i).Value = InputBox("Please enter the Retail for " & Range("E" & i).Value & ":", "Retail")
        Range("B" & i).Clear
    End If
Next i
End Sub

 

[JasonLeVan]

not sure if you can help me out again, but I am trying to get the macro you made to also look at the text in column e of the row it stops in and add the date to it. So for example if that cell reads abc then it would now read abcmm/dd or abc2/25

that is perfect...thanks

 

[MrKowz]

Like this?

Public Sub JasonLeVan()
Dim i   As Long, _
    LR  As Long
LR = Range("B" & Rows.Count).End(xlUp).row
For i = 1 To LR
    If Range("B" & i).Value = "*" Then
        Range("G" & i).Value = InputBox("Please enter the Description for " & Range("E" & i).Value & ":", "Description")
        Range("K" & i).Value = InputBox("Please enter the Cost for " & Range("E" & i).Value & ":", "Cost")
        Range("M" & i).Value = InputBox("Please enter the Retail for " & Range("E" & i).Value & ":", "Retail")
        Range("E" & i).Value = Range("E" & i).Value & Application.Text(Date, "mm/dd")
        Range("B" & i).Clear
    End If
Next i
End Sub

 

[JasonLeVan]

perfect.........finally done
thanks man

Like this?

Public Sub JasonLeVan()
Dim i   As Long, _
    LR  As Long
LR = Range("B" & Rows.Count).End(xlUp).row
For i = 1 To LR
    If Range("B" & i).Value = "*" Then
        Range("G" & i).Value = InputBox("Please enter the Description for " & Range("E" & i).Value & ":", "Description")
        Range("K" & i).Value = InputBox("Please enter the Cost for " & Range("E" & i).Value & ":", "Cost")
        Range("M" & i).Value = InputBox("Please enter the Retail for " & Range("E" & i).Value & ":", "Retail")
        Range("E" & i).Value = Range("E" & i).Value & Application.Text(Date, "mm/dd")
        Range("B" & i).Clear
    End If
Next i
End Sub