Agregar bordes al guardar en macro
Expertos quisiera agregarle bordes a los cuadros de excel que guarda mi macro, les adjunto código:
Sub ACTUALIZAR() 'Por Adriel ' Set h1 = Sheets("Registro") Set h2 = Sheets("Datos") ' If h1.[D22] = "" Then MsgBox "Ingrese codigo " Exit Sub End If ' Set r = h2.Columns("A") Set b = r.Find(h1.[D22], lookat:=xlWhole) If Not b Is Nothing Then f = b.Row h2.Cells(f, "H") = h1.[E26] h2.Cells(f, "I") = h1.[C24] ' MsgBox "Kilometraje de Llegada Actualizado" Else MsgBox "Codigo no encontrado" End If End Sub
1 Respuesta
Respuesta de Abraham Valencia
1