Splitting text in two columns based on condition and deleting row

[rdev]

I have the following in cell C4

*****2018_Land and Building

I need to split the 2018 to column F , making the 2018 which is a text to a number and split the "Land and building" to column G of same row , further if "_" is not found in row 4 , then the row is to be deleted altogether. The first line of data is in cell C3

How can this be automated, the procedure should cover up to the last row in Coumn C

Thx

 

[My Aswer Is This]

This looks like a similar post you posted earlier today. We answered that question but you have never responded back as to if our answer helped you:

Your previous post is here: http://www.mrexcel.com/forum/excel-questions/980162-copy-cell-based-value-another-c.html

 

[JoeMo]

I have the following in cell C4

*****2018_Land and Building

I need to split the 2018 to column F , making the 2018 which is a text to a number and split the "Land and building" to column G of same row , further if "_" is not found in row 4 , then the row is to be deleted altogether. The first line of data is in cell C3

How can this be automated, the procedure should cover up to the last row in Coumn C

Thx

Assuming your data have only * as the leading characters, see if this works for you.

Sub rdev()
Dim R As Range, i As Long, V As Variant
Set R = Range("C3:C" & Cells(Rows.Count, "C").End(xlUp).Row)
Application.ScreenUpdating = False
For i = R.Rows.Count To 1 Step -1
    If InStr(R(i), "_") = 0 Then
        R.Rows(i).EntireRow.Delete
        GoTo Nx
    Else
       V = Split(Replace(R(i), "*", ""), "_")
       R(i).Offset(0, 4).Value = V(0)
       R(i).Offset(0, 5).Value = V(1)
    End If
Nx:
Next i
Application.ScreenUpdating = True
End Sub