Cuestión : Botón de VB en salida a Excel

Hola, el

I tiene código que las salidas para sobresalir del acceso y preformateen la hoja de balance. estoy mirando para incorporar los botones de un algún VB en el spreadsheet.

So que quisiera que el botones dieran las opciones a usuario al número más elevado de la clase al número más bajo cerca en cierto columns

So por ejemplo,

Is de la columna B. allí me cifro puedo incorporar en el botón que crearía estos botones en el spreadsheet.

Thanks,
Seamus

Here de la salida del acceso soy mi código actual:
Dim del

Private Command5_Click () strFile como String
strFile = de datos de Me.Missing, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, “enchufe de datos perdido”, acFormatXLS, strFile, oXL de False

Dim como oWB de Object
Dim como oWS de Object
Dim como Object
Dim FormulaRow como oWB del oXL del
Set de Long
= del
Set de CreateObject acOutputForm del
'DoCmd.OutputTo de “F:\MissingDataOutput.xls ", enchufe (“Excel.Application”) = oWS del
Set de oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow de 1)
With =. Células (. Rows.Count, “b”). Extremo (- 4162). Fila + 2 'xlUp
. Cells.Font.Size = 10
. Filas (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (“b: h”) .NumberFormat = “0.00%; [Rojo] 0.00% "
.range (“b: h”) .NumberFormat = “#, ##0.00; [Rojo] #, ##0.00 "
.range (“c: e”). Estilo = el “por ciento "
.range (“b: b”) .NumberFormat = “£#, ##0.00; £# [del rojo], ##0.00 "
.range (“f: h”) .NumberFormat = “£#, ##0.00; £# [del rojo], ##0.00 " extremo With

/>oXL.Visible = oWS de True

Set = oWB de Nothing
Set = oXL de Nothing
Set = Nothing
End Sub class= del

Respuesta : Botón de VB en salida a Excel

Por lo que el código para los botones, usted puede conseguir a menudo un comienzo registrando una macro para hacer la tarea en la pregunta, entonces corrigiéndola según lo necesitado.