Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Copiar automaticamente datos

Jorge Castruita

Recommended Posts

Jorge Castruita Novato

Jorge Castruita

publicado
publicado

Buen día, soy un poco nuevo en estos temas de excel, no sé como hacer alguna función o macros para hacer cierto procedimiento en excel, la problemática es la siguiente, hay una lista de datos en una columna y lo que se requiere es que de esa lista de datos seleccionar aleatoriamente datos con la tecla Ctrl o hacer una función como un check en las celdas para seleccionar los datos que requiero y al seleccionar el dato que se pasen esos mismos datos a otra columna de esa misma hoja en excel.

Desarrollé una macros que al seleccionar datos aleatoriamente con un botón le indico en que columna requiero pegarlos y los pega en forma de lista y lo que requiero es algo similar pero de manera automática, selecciono el dato 1 de la columna A y lo coloque automáticamente en la columna B.

No sé si sea esto posible pero si me logran apoyar se los agradecería bastante

Jorge Castruita Novato

Jorge Castruita

publicado
  • Autor
publicado

Bueno en la imagen uno tengo los datos así que están de manera aleatoria en la columna A, B, C, D, los selecciono con la tecla ctrl y al oprimir el botón de copiar filas seleccionadas me arroja un mensaje en donde quiero que coloque los datos seleccionados y por ejemplo selecciono la columna G y ahí es donde me los coloca.

Lo que busco es que al seleccionarlos con la tecla Ctrl se pasen automáticamente a la columna G sin necesidad de un botón sin decirle a donde quiero que me los mande o dejar predefinida alguna celda y que siempre se coloquen ahí, la finalidad de esto es que tengo que colocar datos en una celda especifica y que al seleccionar estos datos se coloquen en esa celda específicamente.

Una macro que tenga una celda definida a donde se van a colocar los datos que yo seleccione de distintas columnas, el ejemplo que te estoy mostrando es que yo le digo a que celda se vayan esos datos y no lo quiero así, por ejemplo dejar predefinida la columna G y de la columna A, B, C, D, E, F que es donde tengo los datos aleatorios, los seleccione y se vayan a la columna G de manera automática.

 

Espero poder haberme explicado correctamente con este ejemplo.

1.png

JSDJSD Mentor

JSDJSD

publicado
publicado

Hola Jorge Castruita, prueba el adjunto y comenta, te dejo dos opciones :

1ª Pasar datos en tiempo real, es decir al hacer doble click en la celda esta se colorea en verde y pasa su contenido a la primera celda           disponible de la columna G.

2ª Haciendo doble click en todas las celdas que quieras, esta se colorean en color verde y al hacer click en el botón Pasar selección múltiple te pasará todo lo seleccionado a la columna G.

Colorear.xlsm

Jorge Castruita Novato

Jorge Castruita

publicado
  • Autor
publicado

Hola que tal buenos días, el ejemplo de colorear me sirvió y es lo que exactamente estaba buscando, debo de agradecerte por eso, pero tengo otra duda ¿Como es que en el código puedo cambiar la columna a donde mando los datos?

En este caso es la columna G pero checo en el código y trato de cambiar a cualquier columna pero me sigue mandando los datos a la columna G ¿Como es que puedo cambiar esto? De antemano te lo agradecería mucho.

Jorge Castruita Novato

Jorge Castruita

publicado
  • Autor
publicado
En 14/3/2020 at 5:34 , JSDJSD dijo:

Hola Jorge Castruita, prueba el adjunto y comenta, te dejo dos opciones :

1ª Pasar datos en tiempo real, es decir al hacer doble click en la celda esta se colorea en verde y pasa su contenido a la primera celda           disponible de la columna G.

2ª Haciendo doble click en todas las celdas que quieras, esta se colorean en color verde y al hacer click en el botón Pasar selección múltiple te pasará todo lo seleccionado a la columna G.

Colorear.xlsm 28 kB · 10 descargas

Hola que tal buenos días, el ejemplo de colorear me sirvió y es lo que exactamente estaba buscando, debo de agradecerte por eso, pero tengo otra duda ¿Como es que en el código puedo cambiar la columna a donde mando los datos?

En este caso es la columna G pero checo en el código y trato de cambiar a cualquier columna pero me sigue mandando los datos a la columna G ¿Como es que puedo cambiar esto? De antemano te lo agradecería mucho.

JSDJSD Mentor

JSDJSD

publicado
publicado
Hace 1 hora, Jorge Castruita dijo:

Hola que tal buenos días, el ejemplo de colorear me sirvió y es lo que exactamente estaba buscando, debo de agradecerte por eso, pero tengo otra duda ¿Como es que en el código puedo cambiar la columna a donde mando los datos?

En este caso es la columna G pero checo en el código y trato de cambiar a cualquier columna pero me sigue mandando los datos a la columna G ¿Como es que puedo cambiar esto? De antemano te lo agradecería mucho.

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ufh1 As Long
    
    ufh1 = Hoja1.Range("G" & Rows.Count).End(xlUp).Row
    
    If Not Application.Intersect(Target, Range("A:F")) Is Nothing Then
        If ActiveCell <> "" Then
        ActiveCell.Interior.ColorIndex = 4
        Hoja1.Cells(ufh1 + 1, 7) = ActiveCell
        End If
    End If

End Sub

Cambia los valores que están resaltados en color verde por los que quieras, es decir si por ejemplo quieres mandarlo a la Columna I, cambia la G por I y el 7 por 9 que si cuentas las columnas veras que I corresponde a la columna 9. Un saludo.

Jorge Castruita Novato

Jorge Castruita

publicado
  • Autor
publicado
Hace 1 hora, JSDJSD dijo:

Cambia los valores que están resaltados en color verde por los que quieras, es decir si por ejemplo quieres mandarlo a la Columna I, cambia la G por I y el 7 por 9 que si cuentas las columnas veras que I corresponde a la columna 9. Un saludo.

Si logré dar con lo que buscaba, estuve haciendo pruebas con el código y logré lo que quería pero tengo otra duda, al momento de seleccionar cualquier dato lo coloca siempre en la fila dos, por ejemplo si coloco los datos en la columna I siempre lo pega en la fila 2, en el código de tu ejemplo ¿Hay manera de ponerlo donde sea? El código de tu ejemplo lo pone siempre en la columna G2 porque la G1 dice Datos ¿Hay maneras de posicionar el dato en cualquier campo?

Espero haberme explicado

JSDJSD Mentor

JSDJSD

publicado
publicado
Hace 1 hora, JSDJSD dijo:

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ufh1 As Long
    
    ufh1 = Hoja1.Range("G" & Rows.Count).End(xlUp).Row  '(ufh1 identifica la última celda de la columna G en este caso con datos)
    
    If Not Application.Intersect(Target, Range("A:F")) Is Nothing Then
        If ActiveCell <> "" Then
        ActiveCell.Interior.ColorIndex = 4
        Hoja1.Cells(ufh1 + 1, 7) = ActiveCell '(Aquí le decimos que coloque los datos en la siguiente celda con datos de la columna 7                                                                                  que corresponde a G)
        End If
    End If

End Sub

Con lo que comento en la cita anterior, quiere decir que cambiando estos valores según tu propósito puedes colocarlo donde desees, si no te queda claro pon un ejemplo de donde quieres colocarlo y te subo el código para que lo veas.

Jorge Castruita Novato

Jorge Castruita

publicado
  • Autor
publicado
Hace 4 horas, JSDJSD dijo:

Con lo que comento en la cita anterior, quiere decir que cambiando estos valores según tu propósito puedes colocarlo donde desees, si no te queda claro pon un ejemplo de donde quieres colocarlo y te subo el código para que lo veas.

Mira en el archivo excel que te anexo, pongo en la columna L una breve explicación de la duda que tengo, partiendo de cualquier posición de la columna donde quiero que se agreguen los datos.

De antemano muchas gracias por tu ayuda.

 

¡Saludos!

Pasar Datos.xlsm

Archivado

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

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 
    • JSDJSD
      Surtido de Mercancía

      Por JSDJSD · publicado

      Podrías compartir tu solucion

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.