Enviar celdas a hoja 2 pero en diferentes columnas

[Moroquito23]

Buenos días:

 

Tengo el siguiente problema. 

Básicamente mi necesidad es de una lista datos que tengo en una hoja 1 pasarlo a la hoja 2.

La lista está en la columna B, cada nombre en la columna C esta clasifica según un código de ID, esto lo hago manual, 

Y en hoja 2 debo poner los datos de la columna B, en diferentes columnas de la hoja 2.

En la hoja 1 Puse una tabla sencilla colocando mi ID y la columna en donde deberá ir cada celda.

La idea es que con una macro revise la columna C de la hoja 1 y según el Id puesto deberá poner la celda B en la columna indicada.

Ejemplo: 

celda B3 (nombre) C3=código BN   En mi tabla el ID:BN debe ir en la columna B(hoja2) y así poner todas las celdas que correspondan.

 

Espero explicarme

Muchas gracias 

 

Enviar a hoja 2 condiciones.xlsx

[JSDJSD]

Prueba y comenta 

[JSDJSD]

Private Sub CommandButton1_Click(): Application.ScreenUpdating = False
    Dim hoja1 As Worksheet, hoja2 As Worksheet
    Dim ultimaFila As Long, i As Long
    Dim proximaFilaB As Long, columnaDestino As String
    
    Set hoja1 = Sheets("Hoja1")
    Set hoja2 = Sheets("Hoja2")
    
    ultimaFila = hoja1.Cells(hoja1.Rows.Count, "B").End(xlUp).Row
    
    For i = 5 To ultimaFila
        Select Case hoja1.Cells(i, "B").Offset(0, 1).Value
            Case "BN": columnaDestino = "B"
            Case "CO1": columnaDestino = "J"
            Case "CO2": columnaDestino = "N"
            Case "BN2": columnaDestino = "F"
            Case Else: columnaDestino = ""
        End Select
        If columnaDestino <> "" Then
            proximaFilaB = hoja2.Range(columnaDestino & hoja2.Rows.Count).End(xlUp).Row + 1
            hoja2.Cells(proximaFilaB, columnaDestino).Value = hoja1.Cells(i, "B").Value
        End If
    Next i
End Sub

 

Enviar a hoja 2 condiciones.xlsm