** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Copiar Celdas con un bucle
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCopiar Celdas con un bucle

 Responder Responder
Autor
Mensaje
basualtotj Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 02/Junio/2005
Localización: Chile
Estado: Sin conexión
Puntos: 384
Enlace directo a este mensaje Tema: Copiar Celdas con un bucle
    Enviado: 10/Noviembre/2017 a las 18:28
Hola Amigos, un gusto saludarles, tengo la necesidad de usar excel y un codigo que me ayude a copiar de forma rapida la informacion de una celda a otra... bueno suena sencillo pero paso a explicar a que me refiero.

Actualmente tengo un dato que viene consultado por un codigo de barra mediante una pistola capturadora y me escribe el codigo de barra en alguna celda de la columna "A" la primera es A2, la siguiente A3... y asi sucesivamente.

Tengo tambien la columna "B" que toma ese primer dato y con un BUSCARV me trae la info del articulo asociado segun el codigo de las celdas de la columna "A" a la celda de la columna B por ejemplo:

A2 ------> B2
A3 ------> B3
...
...
...
...

Pero este dato que me trae necesito modificarlo y ahora aparece la columna C que si lo hago manualmente copiar la celda "B2" por ejemplo y pego solo valores en la celda "C2".

Esto logre hacerlo con codigo pero necesito esto lo haga automaticamente despues de escanear el codigo de barra y entonces me copie la celda de la columna B a la columna C en el numero que este activo el procedimiento.

¿me pueden dar una mano con esto?

Saludos y desde ya muchas gracias!

Trust in Jehova!
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 4992
Enlace directo a este mensaje Enviado: 10/Noviembre/2017 a las 21:56
¿Cómo es la fórmula que tienes en B2?

Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
basualtotj Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 02/Junio/2005
Localización: Chile
Estado: Sin conexión
Puntos: 384
Enlace directo a este mensaje Enviado: 11/Noviembre/2017 a las 12:51
Hola! Gracias por responder, es un BuscarV pero ya encontre finalmente lo que queria, quedo asi:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Cells(Target.Row, "C") = Cells(Target.Row, "B")
    End If
End Sub

Gracias nuevamente y espero a alguien mas le sirva este codigo.

Saludos!



Trust in Jehova!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable