• Domingo 5 de Abril de 2020, 18:09

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - arielb

Páginas: 1 ... 35 36 [37]
901
Visual Basic 6.0 e inferiores / Cambiar El Codigo
« en: Viernes 23 de Julio de 2004, 15:54 »
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

902
Visual Basic 6.0 e inferiores / Re: Tiempo
« en: Miércoles 14 de Julio de 2004, 16:16 »
k tal amigo estuve revisando y no me aparece la opcion de timer, yo tengo office 200 standar, habrá otra forma?

903
Visual Basic 6.0 e inferiores / Tiempo
« en: Martes 13 de Julio de 2004, 20:17 »
k tal amigos necesito de su ayuda, hay un modulo hecho en excell y hay un textbox que presenta la hora, pero no se actualiza si no le doy un clip, como se puede hacer para k el tiempo corra de forma correcta sin necesidad de darle click
la opcion k tengo ahorita es

 textbox1.value=time
pero supongo que le falta algo más par que el tiempo camine como debe ser.

gracias de antemano.  :blink:

904
Visual FoxPro / Consulta
« en: Viernes 25 de Junio de 2004, 16:02 »
k tal amigos como puedo hacer para ver una base de datos.

lo que hago es lo siguiente pero no me permite

USE c:\directorio\nombre.extension IN 0 SHARED.

Les agradezco compartan sus conocimientos con este principiante.
 :unsure:

905
Visual FoxPro / Re: Manual Para Principiante
« en: Jueves 17 de Junio de 2004, 19:42 »
k tal amigo estamos en las mismas, yo encontré en www.portalfox.com

suerte :comp:

906
Visual FoxPro / Re: Pregunta
« en: Jueves 17 de Junio de 2004, 01:48 »
Gracias muy buena  :kicking:

907
Visual FoxPro / Re: Pregunta
« en: Miércoles 16 de Junio de 2004, 19:27 »
k tal ciclok tienez razón pero es k no me habia dado cuenta de lenguaje k habia puesto en realidad mi pregunta tenia k ver con Visual basic, gracias. si sabes de este te lo agradecería  B)

908
Visual FoxPro / Pregunta
« en: Miércoles 16 de Junio de 2004, 03:01 »
K tal amigos alguien sería tan amable de decirme donde puedo bajar programas gratis hechos con visual fox pro que sirvan de guia..
Se los agradezco amigos  :whistling:

909
Visual Basic 6.0 e inferiores / Re: Tabla
« en: Lunes 14 de Junio de 2004, 21:58 »
Bueno resulta que al intentarla abrir para ver su contenido me dice que no es una tabla y no me permite. pero la misma es extension dbf.
Osea que hago el procedimiento para ver lo que contienen una tabla pero esta no permite.

910
Visual FoxPro / Tabla
« en: Lunes 14 de Junio de 2004, 20:30 »
k tal amigos, necesito me ayuden por favor estoy tratando de abrir una tabla con vf7 y me dice que no es una tabla, pero la tabla está perfecta, kisiera por favor compartieran sus valiosos conocimientos y me ayuden. gracia
 :comp:

911
Visual Basic 6.0 e inferiores / Tabla
« en: Lunes 14 de Junio de 2004, 20:19 »
k tal amigos tengo una tabla que necesito ver el contenido pero al momento de abrirla me manda el error que no es una tabla y no me permite abrirla.
La tabla está en perfecto estado.
agradezco su ayuda

912
Visual Basic 6.0 e inferiores / Re: Validación
« en: Domingo 6 de Junio de 2004, 00:51 »
Que tal amigos alguien me puede ayudar en esto. Lo k necesito es cuando cuando le doy Aceptar (validarcampos) y baja a las celdas las formulas no lo ven. por favor alguien  :comp:

913
Visual Basic 6.0 e inferiores / Re: Validación
« en: Viernes 28 de Mayo de 2004, 21:27 »
Blag si me hace la operación de calculo pero no hace k la formula lo reconozca (me refiero de la celda de excell )

914
Visual Basic 6.0 e inferiores / Validación
« en: Viernes 28 de Mayo de 2004, 20:58 »
que tal amigos tengo una pregunta para ver si me pueden ayudar con un codigo.
Resulta que tengo un informe en excell con formulas donde trabajo con varias cantidades. bueno el pequeño modulo consiste en tomar el textbox1 y el textbox2 y sumarlos en el textbox3 y al darle clip para validacion a las celdas seleccionadas la misma se copia pero el problema está que en la parte superior tengo una formula que sumas esas celdas, pero al validar el total que está en los textbox no lo suma. les copio el codigo para k lo observen.
Private Sub CommandButton1_Click()
ValidarCampos
End Sub

Private Sub CommandButton2_Click()
Unload Sumar
End Sub

Private Sub TextBox3_enter()

     TextBox3.Value = (-TextBox2.Value - TextBox1.Value)
       
       
End Sub




Private Sub ValidarCampos()

Dim Error As String
Dim ValorMensaje As Integer

    Error = "Error en los datos del formulario"
 
    If Len(TextBox1.Text) = 0 Then
       
        ValorMensaje = MsgBox("El campo Numero 1 está vacio", _
        vbOKOnly, Error)
       
        TextBox1.SetFocus
    Else
       
        If Len(TextBox2.Text) = 0 Then
           
            ValorMensaje = MsgBox _
            ("El campo numero 2 está vacio", vbOKOnly, Error)
           
            Textsbox2.SetFocus
        Else
       
With ActiveCell
.Value = TextBox3


           End With
   
           ActiveCell.Offset(1, 0).Activate
         
           BorrarFormulario
       End If
     End If
 End Sub
 Private Sub BorrarFormulario()
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    End Sub


bueno trataré de ser mas especifico pork pienso k no fui muy claro.
Tengo text1 y text2 que el total queda en el text3 al darle validar los campos los copia en las celdas pero no afecta en el total de la formula que es =SUMA(H5:H6)
pero si lo hago manual si.
Espero que sean tan amables or favor y me ayuden en esto.
Ah cabe señalar que soy principiante en esto.
 :(
Gracias

915
Visual Basic 6.0 e inferiores / Re: Reportes En Word
« en: Lunes 17 de Mayo de 2004, 19:05 »
k tal amigo tienes k ser mas especifico para poder ayudarte, que reporte y k es lo ke kieres hacer

916
Visual Basic 6.0 e inferiores / Traer Datos
« en: Jueves 6 de Mayo de 2004, 19:25 »
K tal amigos

Necesito me ayuden con esto. Tengo un modulo hecho en excel con el editor de vb y ya se capturan los datos, bueno kisiera saber si me puede ayudar a realizar en el mismo modulo una busqueda por el numero de etiqueta y me aparezcan los datos que están con ese numero y los pueda modificar o leerlos. los datos se guardan en los campos de excell para ser exacto lo k necesito es k el modulo busque en esos campos la informacion por el numero que anteriormente habia guardado y los presente en el modulo para poder modificarlo
Cabe señalar k soy principiante.

De ante mano les agradezco

917
que tal amigo

supongamos que la tabla se llama ver.dbf para poder verla tendrias k hace esto

use c:\ubicaciondelatabla\ver.dbf in 0 shared
browse last

esto te funciona para ver el contenido de la tabla
si la tabla la tienes en el disco c utilizas la unidad c como aparece arriba, luego pones el nombre donde se encuentra la tabla y por ultimo el nombre de la tabla
y le dices si lokieres exclusivo o no exclusivo
luego le das enter y un browse
saludos espero te sirva

918
Visual Basic 6.0 e inferiores / Macros En Excell
« en: Jueves 29 de Abril de 2004, 21:08 »
Un saludos para todos. Para empezar soy principiante en el area de programación he estado aprendiendo atraves de manuales y consultas. Estoy haciendo un modulo en el area de excell llamado frminventario donde capturo los datos de un inventario de activos cuando kiero usar un combox para desplegar una lista pero no doy como hacerlo, ejemplo kiero poner en ese combo un grupo de activos que cuando lo seleccione y al final al terminar de llenar la pantalla al darle aceptar se guarde en las celdas de excell. ya he trabajado con los texbox y me funcionan pero no doy como hacerlo con los combo, Les agradezco de antemano por su ayuda y si pueden pasarme un ejemplo del codigo seria mejor.
Adjunto una copia de lo k estoy haciendo verán k las variables son un monto pero estoy pensando cuando tengo definido bien como es restructurla para k no tenga tantas,

gracias

Páginas: 1 ... 35 36 [37]