I have a column of 11,000 entries. These are stock numbers for a website
store. The image that goes with each item has the same number. I need to add
".jpg" to even entry in that column without doing it one-by-one. Can anyone
tell me how to do it?
--
NC designer

Hi,

This assumes column A so change to suit.
Right click your sheet tab, view code and paste this in.
WARNING this will add .jpg to everything in that column and even convert
formula to values with .jpg on the end. If there are other data in the column
then post back with details.

Sub appendJPG()
Dim MyRange As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value < "" Then
c.Value = c.Value & ".jpg"
End If
Next
End Sub

Mike

"NCdesigner" wrote:

I have a column of 11,000 entries. These are stock numbers for a website
store. The image that goes with each item has the same number. I need to add
".jpg" to even entry in that column without doing it one-by-one. Can anyone
tell me how to do it?
--
NC designer

may be ?

=SUBSTITUTE(A2,A2,A2&".jpg") and drag it down





On Oct 13, 4:32*pm, NCdesigner
wrote:
I have a column of 11,000 entries. These are stock numbers for a website
store. The image that goes with each item has the same number. I need to add
".jpg" to even entry in that column without doing it one-by-one. Can anyone
tell me how to do it?
--
NC designer

Thanks so much for your vuick response...I followed your instructions:
highlighted the column, right clicked the sheet tab, clicked the view tab,
and pasted in the code. The pull down menus at the top read (general) and
appendJPG. After doing this do I save "Book 1"?

I actually clicked FileClose and return to MicroSoft Excel but I didn't see
".jpg" added to the entries in the column. (I am using column A)
--
NC designer

"Mike H" wrote:

Hi,

This assumes column A so change to suit.
Right click your sheet tab, view code and paste this in.
WARNING this will add .jpg to everything in that column and even convert
formula to values with .jpg on the end. If there are other data in the column
then post back with details.

Sub appendJPG()
Dim MyRange As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value < "" Then
c.Value = c.Value & ".jpg"
End If
Next
End Sub

Mike

"NCdesigner" wrote:

I have a column of 11,000 entries. These are stock numbers for a website
store. The image that goes with each item has the same number. I need to add
".jpg" to even entry in that column without doing it one-by-one. Can anyone
tell me how to do it?
--
NC designer

Did you run the code?

Tools|Macro|Macros
select this workbook
Select the macro
Click Run

Mike


"NCdesigner" wrote:

Thanks so much for your vuick response...I followed your instructions:
highlighted the column, right clicked the sheet tab, clicked the view tab,
and pasted in the code. The pull down menus at the top read (general) and
appendJPG. After doing this do I save "Book 1"?

I actually clicked FileClose and return to MicroSoft Excel but I didn't see
".jpg" added to the entries in the column. (I am using column A)
--
NC designer

"Mike H" wrote:

Hi,

This assumes column A so change to suit.
Right click your sheet tab, view code and paste this in.
WARNING this will add .jpg to everything in that column and even convert
formula to values with .jpg on the end. If there are other data in the column
then post back with details.

Sub appendJPG()
Dim MyRange As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value < "" Then
c.Value = c.Value & ".jpg"
End If
Next
End Sub

Mike

"NCdesigner" wrote:

I have a column of 11,000 entries. These are stock numbers for a website
store. The image that goes with each item has the same number. I need to add
".jpg" to even entry in that column without doing it one-by-one. Can anyone
tell me how to do it?
--
NC designer

Thanks Mike, You've save me a lot of frustration and time.
--
NC designer


"Mike H" wrote:

Did you run the code?

Tools|Macro|Macros
select this workbook
Select the macro
Click Run

Mike


"NCdesigner" wrote:

Thanks so much for your vuick response...I followed your instructions:
highlighted the column, right clicked the sheet tab, clicked the view tab,
and pasted in the code. The pull down menus at the top read (general) and
appendJPG. After doing this do I save "Book 1"?

I actually clicked FileClose and return to MicroSoft Excel but I didn't see
".jpg" added to the entries in the column. (I am using column A)
--
NC designer

"Mike H" wrote:

Hi,

This assumes column A so change to suit.
Right click your sheet tab, view code and paste this in.
WARNING this will add .jpg to everything in that column and even convert
formula to values with .jpg on the end. If there are other data in the column
then post back with details.

Sub appendJPG()
Dim MyRange As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value < "" Then
c.Value = c.Value & ".jpg"
End If
Next
End Sub

Mike

"NCdesigner" wrote:

I have a column of 11,000 entries. These are stock numbers for a website
store. The image that goes with each item has the same number. I need to add
".jpg" to even entry in that column without doing it one-by-one. Can anyone
tell me how to do it?
--
NC designer