Joaom Manuel

Joaom Manuel

Me gusta la mecánica Pesada CAT/JD
 2.755 puntos  Venezuela @joaomm desde - visto

Actividad pública reciente

Voto positivo a la respuesta

Listbox de seleccion multiple da Error

respondió: [Hola Prueba así Private Sub CommandButton1_Click() Dim i As Byte, fila As Integer With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then fila = fila + 1 Range("A" & fila) = .List(i, 0) ' columna 1 End If Next End With End Sub Private...
Voto positivo a la respuesta

¿Cómo cargar Listbox con additem?

respondió: Creo que es un pequeño bug... VBA en el caso que sean más de 10 no puede asignarla una por una... tienes que crear un array y asignarlo toda de golpe... Algo así como: Dim miMatriz As Variant miMatriz = Range("A2:P30").Value Me.ListBox1.List =...
Ha empezado a seguir a
Ha valorado "Excelente" la respuesta

Editar macro para varios Formularios

respondió: Convierte tu procedimiento de la siguiente manera: Public Sub contador(elForm as form) For x = 0 To elForm.lista.ListCount - 1 If elForm.lista.List(x, 0) <> "" Then m = m + 1 End If Next elForm.txtExistencia.Value = m End Sub Y en la llamada al...
Ha empezado a seguir a
Ha respondido en

Código de Exel que deja de funcionar cuando se protege la hoja que lo lleva

Añade al inicio del código (evento) en ejecución esta línea ActiveSheet.Unprotect password:="852" 'desproteje hoja para su uso ''' Tu código 'Al final del código esta ActiveSheet.Protect password:="852" 'Vuelve a protejer la hoja para bloquear su uso
Ha valorado "Excelente" la respuesta

Error 1004 en tiempo de ejecución. Error definido por la aplicación o el objecto

respondió: Seguramente la hoja activa no es la que estás necesitando trabajar. Colocá esta línea justo antes de la que te marca error para verificar cuál es la hoja activa. Msgbox ActiveSheet.name Luego sigue: Set b = ...... Si no estás en la hoja que necesitas...
Voto positivo a la respuesta

Borrar contenido (en celdas especificas) al salir del libro

respondió: Voy a comentar algunos detalles, porque al seleccionar la hoja como bien dice James sucederán 2 cosas: - Que probablemente la instrucción te de error. En algunas versiones Sheets(hoja). Range(rgo).Select da error y requiere que sean separadas:...
Ha valorado "Buena" la respuesta

Insertar en la hoja seleccionada en el ComboBox

respondió: Quizás te aporte algo más estos ejemplos https://youtu.be/gqZzSfikEYY https://youtu.be/smL4A-aRjCM https://youtu.be/KCHAk9-dAPM https://youtu.be/sWrUt9kItsg https://youtu.be/7c7mV8fe4sw
Ha preguntado en el tema en

Crear nueva hoja si esta llego a 2500 líneas

Tengo una macro con la cual Válido un Nuevo Registro Private Sub cbtNueClien_Click() 'Entrada_Salida = Clear On Error Resume Next Dim fila As Integer Set ws = ActiveSheet 'xxxxxxxxxxxx 'Verifica si ya existe el nombre en data Set busco =...
Sin respuestas
Voto positivo a la respuesta

Descríbame los pasos para convcertir un archivo excel en txt

respondió: Existen varios formatos de archivos de texto. Para guardar el archivo: En excel, Presiona el botón de Office (esquina superior izuiqerda), En el menú que se abre, selecciona Guardar Como, Seleccoina Tipo, verás varias opciones. En la siguiente imagen...
Voto positivo a la respuesta

Se necesita soporte con una macro

respondió: Esto debiera servir para cualquier formato, ya sea que los tengas guardados como números o como texto: Cells(j, c) = Format(Cells(j, c), "000000000000") & " " & Format(Cells(j, k), "000000000000") Según la imagen la cantidad de dígitos son 12 por lo...

Experiencia

Larga experiencia en Caterpillar sobretodo, y tambien en John Deere.

Con 51 años de trabajo (desde los 17) bajando y subiendo maquinarias

Trabajo

  • Própio
    Própio , 1968 - actualidad

Educación

  • PDVSA
    Sobre calidad y afines en aceites lubricantes , 1987 - actualidad
  • Universidad/Tecnica
    Técnico especialista en mecánica Maquinaria Pesadapesada , 1972 - 1982
  • CATTERPILLAR
    Cursos , 1975
  • JOHN DEERE
    Cursos , 1987