VBA to extract digits

[Shadkng]

Hi, I have been searching to find a simple code to extract a set of digits from a numeric string. I would normally present some code but I haven't been able to formulate anything that is close to what I want.

My data will be always 12 digits (actually a UPC code). For example, 093427123456. I need to extract the 7th digit thru the 11th digit, so 12345. It would need to run through all the cells of one column, say col "G". The new data can replace the original data in the same cell.

Thanks for the help!

Steve

 

[Fluff]

How about

Sub Shadkng()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate("if({1},""'""&mid(" & .Address & ",7,5))")
   End With
End Sub

 

[Shadkng]

How about

Sub Shadkng()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate("if({1},""'""&mid(" & .Address & ",7,5))")
   End With
End Sub

This didn't work either. I formatted the column from "general" to "text" and ran the previous code and it worked fine. I need a line of code to format a column "text" if you can provide. Thanks

 

[Fluff]

How about

Sub Shadkng()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .NumberFormat = "@"
      .Value = Evaluate("if({1},""'""&mid(" & .Address & ",7,5))")
   End With
End Sub

 

[Shadkng]

How about

Sub Shadkng()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .NumberFormat = "@"
      .Value = Evaluate("if({1},""'""&mid(" & .Address & ",7,5))")
   End With
End Sub

Thanks I'm good to go.

 

[Fluff]

You're welcome & thanks for the feedback.