VBA Code to extract number and paste

[Wafee]

Hi,
I am trying to paste data from A,B columns from sheet1 to Aand B sheet2. For the A column , while pasting data I want to paste only numbers from each cells of sheet1. And for B column while pasting i want to remove first 10 letters from left and the paste it. Can someone help me with a code which works faster and dynamic as I am dealing with large amounts of data. Thanks in advance.

 

[Wafee]

Ok, but I still need a sample of your actual data.

Hi Fulff,
Attached image is what I can provide due to confidentiality of the data. But I assure that the "A" column data is same as the original data. I basically want to have the level in numerics and Range as per the level. Thanks in advance.

 

[Fluff]

Try

Sub Wafee()
   Dim Ary As Variant
   Dim i As Long
   With Sheets("Sheet1")
      Ary = Range("A1:B" & .Range("A" & Rows.Count).End(xlUp).Row).Value2
   End With
   For i = 1 To UBound(Ary)
      Ary(i, 1) = val(Ary(i, 1))
      Ary(i, 2) = Mid(Ary(i, 2), 11)
   Next i
   Sheets("Sheet2").Range("A1").Resize(UBound(Ary), 2).Value = Ary
End Sub

If this does not work then you will need to supply some sample data. I cannot do anything with an image, especially when it does not show what is in column B.
To get help, there are times you need to help us.

 

[Wafee]

Try

Sub Wafee()
   Dim Ary As Variant
   Dim i As Long
   With Sheets("Sheet1")
      Ary = Range("A1:B" & .Range("A" & Rows.Count).End(xlUp).Row).Value2
   End With
   For i = 1 To UBound(Ary)
      Ary(i, 1) = val(Ary(i, 1))
      Ary(i, 2) = Mid(Ary(i, 2), 11)
   Next i
   Sheets("Sheet2").Range("A1").Resize(UBound(Ary), 2).Value = Ary
End Sub

If this does not work then you will need to supply some sample data. I cannot do anything with an image, especially when it does not show what is in column B.
To get help, there are times you need to help us.

That worked perfectly. Thank you mate??

 

[Fluff]

You're welcome & thanks for the feedback.