Como hacer una macro en excel
Tengo una base de datos y quiero una macro que me busque un dato mediante msgbox y si lo encuentre lo seleccione y lo pegue en la columna siguiente
1 Respuesta
Respuesta de Adriel Ortiz Mangia
2
[Hola
Para buscar es el Inputbox
Te paso la macro
Valora la respuesta para finalizar saludos
Sub buscarx()
'//Todoexpertos
'[Por Adriel
'
buscar = InputBox("Buscar dato", "Buscar....")
If buscar = "" Then Exit Sub
'
col = "A" ' columna a buscar
col2 = "B" ' columna a pegar el dato encontrado
'
Set b = Columns(col).Find(buscar, lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
Cells(f, col2) = Cells(f, col)
End If
End Sub
