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 - harot

Páginas: [1]
1
Aprender a programar desde cero / Re:busqueda en visual basic 6.0
« en: 28 de Agosto 2014, 21:50 »
amigo me gustaria enviarte el archivo de excel para que lo vieras pesa un mega por lo cual no puedo enviarlo dejo el link por si me ayudas https://onedrive.live.com/redir?resid=5106B0D523C7B15C%21506 para abrir USUARIO: harot PASS:020278

de ante mano muchas gracias

2
Aprender a programar desde cero / busqueda en visual basic 6.0
« en: 28 de Agosto 2014, 18:20 »
amigos del foro una gran consulta que para muchos sera algo facil, tengo un pequeño programita de visual con excel el cual registra busca y elimina personal, me lo paso un amigo en otro foro era un programita de inventario y modifique , lo que necesito es que en vez de buscar por el rut, lo haga por el nombre e intentado con lo poco que se de hacerle modificacion y hasta ahora todo bien excepto por este detalle alguien me puede ayudar muestro el codigo a continuacion:

Código: [Seleccionar]
Private Sub CommandButton3_Click()
    Dim Fila As Integer
    Dim Final As Integer
    Dim Registro As Integer
   
       
        For Fila = 1 To 1000
            If Hoja11.Cells(Fila, 1) = "" Then
                Final = Fila
                Exit For
            End If
        Next
       
       
        For Registro = 2 To Final
            If Hoja11.Cells(Registro, 1) = Val(Me.txt_CodProd) Then
                Me.txt_CodProd.BackColor = &H8080FF
                MsgBox ("Registro ya existe" + Chr(13) + "Ingrese un RUT diferente")
                Me.txt_CodProd.SetFocus
                Exit Sub
                Exit For
            End If
        Next
       
      If MsgBox("Son correctos los datos?" + Chr(13) + "Desea proceder?", vbOKCancel) = vbOK Then
                Me.txt_CodProd.BackColor = &HFFFFFF
                Hoja11.Cells(Final, 1) = Val(Me.txt_CodProd)
                Hoja11.Cells(Final, 3) = Me.txt_validador
                Hoja11.Cells(Final, 4) = Me.txt_Nombre
                Hoja11.Cells(Final, 5) = Me.txt_instalacion
                Hoja11.Cells(Final, 6) = Me.txt_inicio
                Hoja11.Cells(Final, 7) = Me.txt_termino
                Hoja11.Cells(Final, 8) = Me.txt_Direccion
                Hoja11.Cells(Final, 9) = Me.txt_oficina
                Hoja11.Cells(Final, 10) = Me.txt_Comuna
                Hoja11.Cells(Final, 11) = Me.txt_ciudad
                Hoja11.Cells(Final, 12) = Me.txt_telfijo
                Hoja11.Cells(Final, 13) = Me.txt_contacto1
                Hoja11.Cells(Final, 14) = Me.txt_puesto1
                Hoja11.Cells(Final, 15) = Me.txt_celularcontacto1
                Hoja11.Cells(Final, 16) = Me.txt_telfijocontacto1
                Hoja11.Cells(Final, 17) = Me.txt_correo1contacto1
                Hoja11.Cells(Final, 18) = Me.txt_correo2contacto1
                Hoja11.Cells(Final, 19) = Me.txt_contacto2
                Hoja11.Cells(Final, 20) = Me.txt_puesto2
                Hoja11.Cells(Final, 21) = Me.txt_celularcontacto2
                Hoja11.Cells(Final, 22) = Me.txt_telfijocontacto2
                Hoja11.Cells(Final, 23) = Me.txt_correo1contacto2
                Hoja11.Cells(Final, 24) = Me.txt_correo2contacto2
                Hoja11.Cells(Final, 25) = Hoja8.Range("G1")
                '-----------------------------------------------
                Me.txt_CodProd = ""
                Me.txt_validador = ""
                Me.txt_Nombre = ""
                Me.txt_instalacion = ""
                Me.txt_inicio = ""
                Me.txt_termino = ""
                Me.txt_Direccion = ""
                Me.txt_oficina = ""
                Me.txt_Comuna = ""
                Me.txt_ciudad = ""
                Me.txt_telfijo = ""
                Me.txt_contacto1 = ""
                Me.txt_puesto1 = ""
                Me.txt_celularcontacto1 = ""
                Me.txt_telfijocontacto1 = ""
                Me.txt_correo1contacto1 = ""
                Me.txt_correo2contacto1 = ""
                Me.txt_contacto2 = ""
                Me.txt_puesto2 = ""
                Me.txt_celularcontacto2 = ""
                Me.txt_telfijocontacto2 = ""
                Me.txt_correo1contacto2 = ""
                Me.txt_correo2contacto2 = ""
                Me.txt_CodProd.SetFocus
            Else
                Exit Sub
    End If
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Páginas: [1]

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación

Preguntas y respuestas

¿Cómo establecer o cambiar la imagen asociada (avatar) de usuario?
  1. Inicia sesión con tu nombre de usuario y contraseña.
  2. Pulsa en perfil --> perfil del foro
  3. Elige la imagen personalizada que quieras usar. Puedes escogerla de una galería de imágenes o subirla desde tu ordenador.
  4. En la parte final de la página pulsa el botón "cambiar perfil".