SoloCodigo

k ttal amigos tengo una duda, este codigo lo hice en el editor de visual basic osea en excell, se podrá pasar a basic este codigo?
Necesito me ayude porfavor y gracias de antemano.

Saludos y k Dios les bendiga,

Option Explicit


Private Sub CdmAceptar_Click()
ValidarCampos
End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub Combopersonal_Change()
If Len(Combopersonal.Text) = 12 Then
TextSinicial.SetFocus
End If
End Sub



Private Sub CdmTerminar_Click()
Unload UserForm
End Sub

Private Sub TextFecha_Change()
If Len(TextFecha.Text) = 10 Then
End If
End Sub

Private Sub Textcantidad_Change()
If Len(Textcantidad.Value) = 7 Then
End If
End Sub

Private Sub Textcantidad_Enter()
Textcantidad.Value = (Textsecuenciaf.Value - TextSinicial)
End Sub

Private Sub Textestimadoh_Enter()
If TextMinuto.Value < TextMinuto2.Value Then
    Textestimadoh.Value = (Texthora2.Value - Texthora.Value)
Else
    Textestimadoh.Value = (Texthora2.Value - Texthora.Value) - 1
End If
End Sub

Private Sub Textestimadom_Enter()
If TextMinuto.Value < TextMinuto2.Value Then
    Textestimadom.Value = (TextMinuto2.Value - TextMinuto.Value)
        If Textestimadom.Value <= 9 Then
            Textestimadom.Value = "0" & Textestimadom.Value
        End If
Else
    Textestimadom.Value = (60 - TextMinuto.Value) + TextMinuto2.Value
        If Textestimadom.Value <= 9 Then
            Textestimadom.Value = "0" & Textestimadom.Value
        End If
End If
End Sub

Private Sub TextFecha_Enter()
TextFecha.Value = Date
End Sub

Private Sub TextMinuto_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextMinuto.Value <= 9 Then
        TextMinuto.Value = "0" & TextMinuto.Value
    End If
End Sub

Private Sub TextMinuto2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextMinuto2.Value <= 9 Then
        TextMinuto2.Value = "0" & TextMinuto2.Value
    End If
End Sub

Private Sub Textsecuenciaf_Change()
If Len(Textsecuenciaf.Value) = 7 Then
Textcantidad.SetFocus
End If
End Sub

Private Sub Textestimadom_Change()
If Len(Textestimadom.Value) = 7 Then
Textsecuenciaf.SetFocus
End If
End Sub

Private Sub Textestimadoh_Change()
If Len(Textestimadoh.Value) = 7 Then
Textestimadom.SetFocus
End If
End Sub

Private Sub TextMinuto2_Change()
If Len(TextMinuto2.Value) = 7 Then
Textestimadoh.SetFocus
End If
End Sub

Private Sub Texthora2_Change()
If Len(Texthora2.Value) = 3 Then
TextMinuto2.SetFocus
End If
End Sub

'aki se coloca la hora de inicio 1
Private Sub Texthora_Change()

If Len(Texthora.Value) = 3 Then
TextMinuto.SetFocus
End If
End Sub

'aki se coloca el minuto 1
Private Sub Textminuto_Change()
If Len(TextMinuto.Value) = 3 Then
Texthora2.SetFocus
End If
End Sub


Private Sub TextSinicial_Change()
If Len(TextSinicial.Text) = 12 Then
Texthora.SetFocus
End If
End Sub


Private Sub UserForm_initialize()
    ActiveSheet.Range("b4").Activate
    'Buscar la primera fila sin
    Do While Not IsEmpty(ActiveCell)
      ActiveCell.Offset(1, 0).Activate
    Loop
End Sub

Private Sub ValidarCampos()

Dim Error As String
Dim ValorMensaje As Integer

    Error = "Error en los datos del formulario"
 
    If Len(Textsecuenciaf.Text) = 0 Then
       
        ValorMensaje = MsgBox("El campo Numero de Secuencia inicial está vacio", _
        vbOKOnly, Error)
       
        TextSinicial.SetFocus
    Else
       
        If Len(Textsecuenciaf.Text) = 0 Then
           
            ValorMensaje = MsgBox _
            ("El campo Secuencia final de serie está vacio", vbOKOnly, Error)
           
            Textsecuenciaf.SetFocus
        Else
With ActiveCell
.Value = Combopersonal
.Offset(0, 1).Value = TextSinicial
.Offset(0, 2).Value = Texthora
.Offset(0, 3).Value = ":"
.Offset(0, 4).Value = TextMinuto
.Offset(0, 5).Value = Texthora2
.Offset(0, 6).Value = ":"
.Offset(0, 7).Value = TextMinuto2
.Offset(0, 8).Value = Textestimadoh
.Offset(0, 9).Value = ":"
.Offset(0, 10).Value = Textestimadom
.Offset(0, 11).Value = Textsecuenciaf
.Offset(0, 12).Value = Textcantidad
.Offset(0, 13).Value = Combojornada
.Offset(0, 14).Value = TextFecha

           End With
   
           ActiveCell.Offset(1, 0).Activate
         
           BorrarFormulario
       End If
     End If
 End Sub



Private Sub BorrarFormulario()
    Combopersonal.Text = ""
    TextSinicial.Text = ""
Texthora.Text = ""
TextMinuto.Text = ""
Texthora2.Text = ""
TextMinuto2.Text = ""
Textestimadoh.Text = ""
Textestimadom.Text = ""
Textsecuenciaf.Text = ""
Textcantidad.Text = ""
Combojornada.Text = ""
TextFecha.Text = ""

End Sub

Si se puede. Ya que lo que acabas de poner es el script de excel para tratamiento de datos.

Si sabes visual basic, lo que te falta es enlazar EXCEL con tu aplicacion VB que haga lo que supone pusiste en el mensaje.

Ahora bien, como no todo es facil en esta vida, siempre hay que poner de nuestra cosecha, te envio un codigo, de como abrir un archivo excel, guardar datos.

Solo bastara que tu lo modifiques a tu gusto para que haga lo que desees, usando "Casi" exactamente el codigo scripts de excel.

Espero te resulte. A mi me han resultado sin problemas.

Muchas gracias jose