Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate ahora y podrás: / 💪 Hacer preguntas a los expertos / ⬇️ Descargar ejemplos y plantillas / 🏅 Acceder a contenidos premium

Regístrate gratis

rellenar campos en base a un valor capturado

Antonio3324

New member
Buenas tardes, quiero que cuando en una columna se repita el mismo codigo se autocomplete los demas campos. Por ejemlplo
1617659128786.png
Si la orden 601 se repite que automáticamente rellene los datos de las celdas C-F
 

Gastar

Member
Buenos dias,

Abre el codigo de la hoja y pega la siguiente macro y arreglado.

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Column = 1 And Target(1, 1).Row > 1 Then

    For i = 0 To 100000000000#
   
    If ActiveSheet.Cells(2 + i, 1) = Target Then
   
    For j = 3 To 6
   
    ActiveSheet.Cells(Target.Row, j) = ActiveSheet.Cells(2 + i, j)
   
    Next j
   
    Exit For
   
    End If
   
    If ActiveSheet.Cells(2 + i, 1) = "" Then
   
    Exit Sub
   
    End If
   
    Next i

End If
End Sub


Espero que te solucione el problema.

Saludos
 

Antonio3324

New member
Muchas gracias, solo que la columna E es el total de conectores, hace una multiplicación de la columna c*d, al usar el codigo que me dio se estropea la función al momento de capturar un nuevo valor
1617999300279.png
No podemos hacer que omita la columna E para que la ecuación se haga automaticamente al completar los campos de la columna C,D Y F?
 

Temas similares

Arriba