Jump to content

vrfreres

Members
  • Content Count

    18
  • Joined

  • Last visited

About vrfreres

  • Rank
    Member
  • Birthday 04/15/1989

Converted

  • Campos
    ,

Recent Profile Visitors

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

  1. Hola dogwall, muchas gracias por tu ayuda, he probado el código y selecciona correctamente el rango que es dinámico, pero los títulos no los ha copiado al correo, adjunto una muestra
  2. Estimados, Estoy usando un código para remitir un rango de celdas seleccionadas desde una hoja de Excel vía Outlook, lo encontré entre los casos resueltos de la página http://www.rondebruin.nl/win/s1/outlook/bmail3.htm, mi problema es que quisiera modificarlo para que los rangos remitidos puedan ser uno predeterminado que corresponde a los títulos (Rango A1:J3) y que el otro rango corresponda a las celdas que seleccione en la hoja con el cursor. Agradeceré vuestra ayuda ya que no he encontrado vueltas al caso. Ejemplo.xlsm
  3. @Leopoldo No quisiera abusar de tu gentileza, pero si quisiera que solo tenga en cuenta las celdas visibles (exceptuar las celdas que ocultaré), que cambios debería hacer en la macro?
  4. @Leopoldo Muchas gracias Gurú. Me ha servido mucho tu ayuda. Tema resuelto.
  5. Estimados Gurúes, Tengo una macro que he adaptado para que me avise si las fechas que se encuentran en la columna "H" tienen más de 4 días. El problema es que quiero que si se cumple esa condición me de aviso mediante MsgBox, pero no he logrado esto. Adjunto mi ejemplo y agradeceré vuestra ayuda. Además consulto sobre la posibilidad de que dicha macro se ejecute en dos horarios específicos, por ejemplo a las 09:00 hs. y las 15:00 hs. ya que actualmente la he creado como para vincularla a un botón o a algún Call para cuando el libro se abra. Cordiales Saludos Ejemplo_vrf4.xlsm
  6. @Haplox Disculpas, Mientras analizaba tu respuesta y mis fórmulas hallé la solución, lo que hice fue cambiar en la línea: 'Insertar datos capturados Cells(fila, 2).Value = UserForm2.TextBox1.Value Cells(fila, 3).Value = UserForm2.TextBox2.Value Cells(fila, 4).Value = UserForm2.TextBox3.Value Cells(fila, 5) = CDbl(TextBox4) Agradezco muchísimo tu cordial ayuda, Tema resuelto.
  7. @Haplox Muchas gracias por tu ayuda, no obstante sigo con un pequeño inconveniente. Con la opción: Cells(1, 1) = CDbl(TextBox4) Me copia el valor en la fila 1, columna 1. No he sido muy claro en mis consultas y error mío no haber subido el archivo de ejemplo. Lo que me gustaría es que al darle Click al Botón 1, los datos capturados en el Textbox 4 se peguen en la columna E pero en la siguiente fila disponible, que así lo tiene el formulario de captura que utilizo. Subo mi archivo de ejemplo para poder explicarme mejor. Ejemplo_vrf.xlsm
  8. Hola Gurúes, Probablemente este sea un tema gastado para vosotros, he buscado en temas resueltos y encontré algunas opciones pero no logro llegar a la solución que requiero. Me gustaría que en un TextBox4 al cargar los números me vaya separando en miles y que muestre decimales, o por lo menos al salir de dicho Textbox, además me gustaría que al pasar los datos a la celda los pegue como números. He conseguido ambas cosas por separado copiando de otros temas resueltos pero no logro unificar ambas soluciones. A continuación las formulas que he hallado: Para que utilice el formato numérico: Por Gerson Pineda Private Sub TextBox4_Change() Dim vpn As Boolean: Dim vpl As Integer vpn = VBA.IsNumeric(Me.TextBox4) vpl = VBA.Len(VBA.Trim(Me.TextBox4)) If Not vpn And vpl Then Me.TextBox4 = VBA.Left(Me.TextBox4, vpl - 1) End Sub Private Sub TextBox4_Enter() Me.TextBox4 = Empty End Sub Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox4 = VBA.Format(Me.TextBox4, "#,##0.00") End Sub *** Por otra parte tengo esta fórmula que me permite pegar los datos del TextBox a la celda como si fueran números: Private Sub TextBox4_Change() TextBox4.Text = Val(TextBox4.Text) End Sub No he podido combinarlos y he intentado demasiadas veces con muchos otros ejemplos, Agradeceré vuestra cordial ayuda.
  9. @HaploxGurú, muchas gracias! Me ha sido de mucha utilidad tu ayuda, en principio me arrojaba un error 13 en el tiempo de ejecución pero logré solucionarlo. Muchas gracias nuevamente.
  10. @HaploxGurú, Es similar pero no es lo mismo ya que en este caso estoy usando ListBoxt y UserForm. La solución anterior me ha servido bastante y la estoy aplicando e incluyendo modificaciones para que copie en dos hojas, pero para otro tipo de casos me gustaría utilizar el modelo adjunto.
  11. Hola Gurúes, Tengo un inconveniente con una macro. Mediante un Userform se listan datos de una hoja para copiarla a la otra, mi primer problema es que me gustaría que solo copie a la hoja 2 las filas visibles y que no sean repetidas, es decir que ya no se hayan copiado previamente a dicha hoja 2, la comprobación podría hacerlo verificando con la columna B (ID) el cual será un valor único e irrepetible en la hoja 1, además me gustaría que copie en la siguiente fila disponible de la hoja 2 ya que actualmente traspone o las coloca en cualquier parte. Por último, me gustaría que las filas copiadas las oculte, de manera a que cuando vuelva a llamar al Userform no aparezcan entre las opciones. Adjunto mi archivo de ejemplo. Gracias por vuestra ayuda. Ejemplo2_vrf.xlsm
  12. @Haplox Muchas gracias por tu ayuda! Es la solución que necesitaba! Gracias Gurú!
  13. @Haplox He encontrado una solución pero es justamente agregando otra macro y llamándola antes de que se termine la macro actual: ... End With Call OcultaLin End Sub Sub OcultaLin() CharKey = "Si" Range("K5").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Value = CharKey Then ActiveCell.EntireRow.Hidden = True End If ActiveCell.Offset(1).Select Loop End Sub ....
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png