Mostrar conteos mediante macro.

[josez]

Mi consulta es como hacer una macro que al presionar el botón calcular me genere un cuadro de mensaje con los cálculos que muestro en el cuadro conteo pero que se muetre hasta presionar el botón.

Gracias por la ayuda.

Conteo.rar

[Aline Flores]

quieres que el cuadro de conteo se muestre hasta que presiones el botón o quieres un msgbox que se muestre cuando presiones el botón sin que aparezca el cuadro de mensaje o como?

[josez]

Hola!

Gracias por la ayuda.

Lo que me gustaría es que el msgbox aparezca con los resultados al presionar el botón, (no sé si será posible un conteo o aviso de algún registro que halla quedado en blanco por omisión, pero con lo primero me seria suficiente.).

[Enigma25]

Hola

Ve si esto es lo que necesitas :

Dim A, B, C As String
Dim D, E, F As Long

'    MsgBox Application.WorksheetFunction.Sum(Range("H2:H4"))
With Hoja1

A = .Range("G2")
B = .Range("G3")
C = .Range("G4")

D = .Range("H2")
E = .Range("H3")
F = .Range("H4")

MsgBox "Conteo" & vbNewLine & A & "=" & D & vbNewLine & B & "=" & E & vbNewLine & C & "=" & F & vbNewLine & "Total : " & D + E + F



End With

Saludos

[josez]

Saludos!

[uSER=98799]@Enigma25[/uSER]. Gracias nuevamente.

Excelente como se presentan los datos pero lo que quería era realizar también los calculos mediante la macro para eliminar los campos con las formulas ya que en el archivo completo no voy a tener espacio para colocar dichos campos y me queda mejor presentar la información con el msgbox.

[josez]

Saludos!

[uSER=98799]@Enigma25[/uSER]. Gracias nuevamente.

Excelente como se presentan los datos pero lo que quería era realizar también los calculos mediante la macro para eliminar los campos con las formulas ya que en el archivo completo no voy a tener espacio para colocar dichos campos y me queda mejor presentar la información con el msgbox.

Y así si se ingresa algún nuevo tipo registro lo pueda reconocer automáticamente.