Valor automático para una celda
Estoy construyendo una hoja, donde tu escaneas los códigos de barras de las maletas chequeadas, pero antes de comenzar a escanear debes insertar la información general del vuelo, por ejemplo Vuelo No 60, el destino y si es entrada o salida. Tengo 3 columnas donde debe aparecer esa información, me gustaría saber si tienen algún código en visual basic que cada vez que vaya escaneando automáticamente esas celdas en E, F y G asuman los valores de la información insertada previamente.
Igualmente me gustaría crear una macro que cuando termines de insertar la información copie esa información en otra hoja y limpie la hoja original para insertar los datos del siguiente vuelo.
1 Respuesta
Pon este código en el modulo de la hoja
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ufila = Range("B" & Rows.Count).End(xlUp).Row
Cells(ufila, 3).Value = Range("k1")
Cells(ufila, 4).Value = Range("k2")
Cells(ufila, 5).Value = Range("k3")
End SubCambia "k1", "k2" , "k3" por tus celdas de datos, al escanear o escribir el codigo y salr de la celda se agregaran esos datos en las 3 columnas siguientes...
