SoloCodigo

Ya lo logre Brroz.

Pero me gustaria que me lo abriera en una hoja de excel nueva, es decir que no exista, para que al momento de querer cerrarla me aparezca si deseo guardar los cambios y si le doy que si que me pregunte en que ruta quiero guardarlo.

Espero y me haya explicado.

Saludos.

Ya logre hacerlo de todas formas gracios por tu ayuda ebolo.
Les pongo el codigo por si a alguien le interesa:

Public Function NumericOnly(KeyAscii As Integer, Optional extrachar As Variant) As Integer
    On Error GoTo NumericOnlyErr
    Select Case Chr$(KeyAscii)
        Case "0" To "9", Chr$(vbKeyBack)
            NumericOnly = KeyAscii
        Case Else
            NumericOnly = 0
            If Not IsMissing(extrachar) Then
                If InStr(extrachar, Chr$(KeyAscii)) Then
                    NumericOnly = KeyAscii
                End If
            End If
    End Select
    Exit Function
NumericOnlyErr:
    NumericOnly = 0
    Exit Function
End Function


Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case Index
        Case 3
        Case Else
            KeyAscii = NumericOnly(KeyAscii)
    End Select
End Sub

Hola amigos.
He intentado que mi Text1.Textbox solo admita numeros. Lo he hecho con el keypress pero sin ningun exito. Alguien podria darme alguna pista??

Gracias

Hola amigos, tengo el siguiente codigo el cual me incrementa las columnas del Msflexgrid en .5 pero quiero que me las incremente en 0.0020 No he podido lograrlo espero y alguien pueda darme un tip.

Codigo:

Private Sub Command3_Click(Index As Integer)
tabla.Clear
Command2.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Label7.Visible = True
Label8.Visible = True
Label3.Visible = True
Label4.Visible = True
tabla.Visible = True

Dim SG2, SG602 As Single
Dim T As Single
Dim C, R As Integer
Dim BT As Integer

BT = 60

If ((a1.text <> "") And (a2.text <> "") And (t1.text <> "") And (t2.text <> "")) Then

    tabla.Cols = (a2 - a1) * 2 + 2
    tabla.Rows = (t2 - t1) * 2 + 2
   
    T = t1
    R = 0
    While (T <= t2)
       
        SG2 = a1
        C = 0
        While (SG2 <= a2)
   
            If (C = 0) Then
                tabla.Col = C
                tabla.Row = R + 1
                tabla.text = T
            End If
            If (R = 0) Then
                tabla.Col = C + 1
                tabla.Row = R
                tabla.text = SG2
            End If
               
            SG602 = calcular_SG2(SG2, T)
           
                           
            tabla.Col = C + 1
            tabla.Row = R + 1
            tabla.text = SG602
            tabla.text = Format(tabla.text, "#,##0.0000")
               
                If ((SG2 >= 0.6535) And (SG2 <= 0.7795) And (T >= 150) And (T <= 200)) Then
                SG602 = SG602
                tabla.CellForeColor = &HFF0000
                End If
               
                If ((SG2 >= 0.7795) And (SG2 <= 0.825) And (T >= 200) And (T <= 250)) Then
                SG602 = SG602
                tabla.CellForeColor = &HFF0000
                End If
               
                If ((SG2 >= 0.825) And (SG2 <= 1.076) And (T >= 250) And (T <= 300)) Then
                SG602 = SG602
                tabla.CellForeColor = &HFF0000
                End If
                       
               
           
            SG2 = SG2 + 0.5
            C = C + 1
        Wend
   
   
        T = T + 0.5
        R = R + 1
    Wend
   
   



Else
MsgBox ("Faltan datos por capturar")
End If







End Sub

Hola amigos, quiero saber como pasar todos los datos que obtengo en el Msflexgrid a Excel mediante un Command button pero no logro tener exito.

He visto varios de los codigos que han puesto aqui pero ninguno me ha dado ideas para lograr mi objetivo. Si alguien puede ayudarme se lo agradecere.

Saludos

Muchas Gracias Brroz. Me funciono a la primera.

De verdad agradezco tu apoyo.

Estamos en contacto.

Saludos.

Muchas gracias por tu orientacion, seguire intentando lo que me dijiste.

Hasta luego

Hola amigos, alguien sabe como realizar iteraciones?? he utilizado los textboxs pero me da muchos problemas. De hecho un textbox para cada operacion y de ahi voy sumndolos, multiplicandolos, etc.

Alguien me podria guiar??
Gracias

Que tal observador, de verdad te agradezco por la ayuda que me has brindado y si en algo puedo ayudarte con mucho gusto lo hare. Lo que me diste a conocer me sirvio a la perfeccion.

Cuidate, y nos estamos viendo por aqui

Gracias de nuevo. Nos estamos viendo