Personas normales y formulianos

[Antoni]

¿ Como escribe una macro para Guardar como una persona normal ?

Sub MacroNormal()

Retorno = Application.Dialogs(xlDialogSaveAs).Show

MsgBox "FIN"

End Sub

[/CODE]

¿ Y como la escribe un formuliano ?

[CODE]Sub MacroFormuliana()
SendKeys "{F12}": MsgBox "F" + "I" + "N"
End Sub
[/CODE]

ja,ja,ja........

Eso si, paz y amor,.....y humor, mucho humor

[Fleming]

¡¡MACRÓFAGO!! No sé qué te traes entre manos, pero te la estás jugando.

Voy a tener que llamar a Octavio...Ja, ja, ja...

[sailepaty]

¿Como suma un rango una persona normal?

=SUMA(A1:A10)[/CODE]

¿Y como suma un rango un macroniano?

[CODE]=SumaMacro(A1:A10)

Function SumaMacro(rRng As Range)
Dim rCell As Range
Dim lSum As Long
On Error GoTo NoSeSumar
For Each rCell In rRng
lSum = lSum + rCell.Value
Next rCell
SumaMacro = lSum
On Error GoTo 0
Exit Function

NoSeSumar:
On Error GoTo 0
MsgBox "Vas a necesitar la calculadora..."
End Function[/CODE]

Saludos :peaceful::peaceful::peaceful:

[Antoni]

Hola Sailepaty:

Olvidaste:

If isNumeric([COLOR=#333333]rCell.Value) =False then

   MsgBox " La c a g a s t e  Burt Lancaster"

   Exit sub

End If


Ahora en serio, espero que no estés en la costa este.


Saludos. 



[/COLOR][/CODE]

[sailepaty]

Definitivamente pulir código es lo suyo Don Macro!!!

Te comento que afortunadamente no nos encontramos por esa zona, pero desafortunadamente si tenemos varias sucursales en la costa Este y por lo tanto muchos compañeros de la empresa. Hasta el momento no se han reportado mayores daños a las instalaciones y sobretodo estamos felices que todo el personal se encuentra bien. Te agradezco que preguntaras y nos estamos encontrando en el foro.

Saludos

[Abraham Valencia]

Mucha discusión y pocos logros, aquí los que conquistaremos el mundo somos los de VB, VB.Net y VSTO :star:

Public Class ThisWorkbook


    Private Sub ThisWorkbook_Open() Handles Me.Open

        MsgBox("Hola macro y formulianos")

    End Sub


End Class

[/CODE]

Abraham