Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Enviar celdas a hoja 2 pero en diferentes columnas

publicado

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

Featured Replies

publicado
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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.