Jump to content

jose lopez contreras

Members
  • Content Count

    145
  • Joined

  • Last visited

  • Country

    United States

About jose lopez contreras

  • Rank
    Advanced Member

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. buenas tardes amigos tengo una un archivo con varias columnas con información, quisiera ver si alguien me ayuda con una macro para unir todas las columnas existentes en una sola columna. gracias de ante mano por su ayuda
  2. Lo que requiero es que al apretar el boton Generar UserPass del archivo que envie salte un userform con un textbox, lo que escriba yo en el texbox1 sustituya en la siguiente linea lo que esta dentro de las comillas. ActiveCell.FormulaR1C1 = "joloco61" y que después continué la macro
  3. No es lo que busco amigo, pero gracias por tu apoyo
  4. Lo que requiero es que al apretar el boton Generar UserPass salte un userform con un textbox, lo que escriba yo en el texbox1 sustituya en la siguiente linea lo que esta dentro de las comillas. ActiveCell.FormulaR1C1 = "joloco61" y que después continué la macro
  5. Hola amigos buenos dias hoy traigo la siguiente macro que hice con la grabadora, pero quisiera y me ayudaran para que a la hora de dar clic en el botón de generar UserPass salte textbox y me pregunte que poner en la celda A, B y C. Gracias por su apoyo macro userpass.xlsm
  6. Disculpa amigos por la prisa no puse lo requerido. Requiero adaptar esta macro para que antes de eliminar la fila seleccionada del Listbox y de la hoja10 la copie en otro libro llamado "Resguardo entregado" en la ultima fila vacia de la hoja1, anexando una columna mas con fecha y hora del copiado. espero apoyo de los especialista. gracias por su atencion
  7. Sub eliminarProducto() Dim Dato As String Dim C As Range Dim uf As Long uf = Hoja10.Range("A" & Rows.Count).End(xlUp).Row With ListBox1 For x = 0 To .ListCount - 1 If .Selected(x) Then Dato = ListBox1.Text With Hoja10.Range("A2:A" & uf) Set C = .Find(Dato, LookIn:=xlValues, lookat:=xlWhole) If Not C Is Nothing Then C.Rows.EntireRow.Copy C.Rows.EntireRow.Delete UserForm_Initialize MsgBox "Ha eliminado la clave " & Dato Exit Sub End If End With End If Next End With End Sub
  8. Muchas gracias a ambos por su aportación, ambas sirven al 100, les dejo mi solución espero y también les guste. Aunque coloque un 5° textbox oculto jajaja, pero funciono. TextBox5.Text = Evaluate(TextBox3.Text) TextBox4.Value = Format(CDbl(TextBox1) * CDbl(TextBox2) * CDbl(TextBox5), "#,##0.00")
  9. Hola amigos tengo un userform con 4 texbox, en el texbox1 coloco un numero entero , en el texbox2 un numero decimal y en el texbox3 un numero en fracción, algo parecido a esto: 2 x 1.5 x 1/2 y cuyo resultado lo debe dar en el texbox4 (el resultado seria en este caso 1.5) estoy usando esta macro pero me marca error. Alguien podra ayudarme de favor. Private Sub CommandButton1_Click() TextBox4.Value = CDbl(TextBox1) * CDbl(TextBox2) * CDbl(TextBox3) End Sub
  10. Amigo te comento, desinstale totalmente office y lo instale nuevamente bajado de la pagina oficial lo active y actualice, pero no paso nada sigue todo igual. pregunta tu anexo funcionara en una pc con win 7, por que es lo único que tengo a la mano aparte de mi pc para poder hacer la prueba haber si se cierra automáticamente
  11. Seguí tus recomendaciones y no hay ninguna que diga FALTA:xxx o MISSING:xxx, anexo referencias marcadas. Espero comentario Rferencias marcadas
  12. Pues esta raro la verdad en esta maquina me han sucedido algunas cosas raras, la llevare a que le den una rameada como dicen acá en México, gracias
  13. Yo lo estoy probando en una maquina Con windows 10 pro x64 bits y office profesional plus 2016 x 32 bits y la verdad que no se cierra automáticamente, tu que estas utilizando amigo. intentare en otra maquina. Saludos
×
×
  • Create New...

Important Information

Privacy Policy