select data 3nbase fam

as show here

b1111.PNG

here the file
29088846a__3n_fam_to.xlsb
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
Please give this a try...
Sub FAM_CC_CD()
Dim lr As Long, i As Long, j As Long
Dim x, y()
Dim NumStr As String
Application.ScreenUpdating = False

lr = Cells(Rows.Count, "CC").End(xlUp).Row
x = Range("CC7:CD" & lr).Value
ReDim y(1 To UBound(x, 1), 1 To 1)

For i = 1 To UBound(x, 1)
    If Not IsError(x(i, 1)) And Not IsError(x(i, 2)) Then
        If x(i, 1) <> "" And x(i, 2) <> "" Then
            If IsNumeric(x(i, 1)) And IsNumeric(x(i, 2)) Then
                y(i, 1) = x(i, 1) & x(i, 2)
            End If
        End If
    End If
Next i
Range("CE7:CE" & UBound(x, 1)).NumberFormat = "@"
Range("CE7").Resize(UBound(x, 1), 1).Value = y
Application.ScreenUpdating = True
End Sub

Open in new window

29088846a__3n_fam_to.xlsb
1
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
I edited my last post to tweak the code and upload the correct workbook.
Please test the attached file now.
1
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Great Job
 Best expert !
1
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.