Joseph Sanchez

Abraham Valencia respondió: ¿Ya insertaste algún "UserForm" e igual esa opción sale sigue deshabilitada? Si la respuesta es no: Inserta un "UserForm" y ahora prueba a ver si ya se habilitó. De ser sí la respuesta en el "Cuadro de herramientas" dale click derecho y envíanos...

Yo lo haría de esta manera: Private Sub CommandButton1_Click() Dim celda As Object For Each celda In Range("Mi_Rango") celda.Select If Selection.Font.Bold = True Then 'aqui pones lo que quieres que haga si la celda esta en negrita End If Next End Sub

Esta función es para enviar por gmail, solo debes cambiar la ruta para adjuntar y listo... el correo gmal te pedirá que ajustes la seguridad o algo así no recuerdo, después del primer intento de envío te avisara gmail. En mi caso yo hice un...

Abraham Valencia respondió: Prueba así: Sub RecorrerLabels() Dim Etiqueta As OLEObject For Each Etiqueta In Worksheets("Hoja1").OLEObjects If Etiqueta.progID = "Forms.Label.1" _ Then Etiqueta.PrintObject = False Next End Sub Comentas Abraham Valencia

ok69 respondió: La pregunta es antigua, pero bueno... Primero, deberías añadir un botón para que realice el cálculo, por ejemplo.. <form name="formulario"> <input type="number" name="txtPrecio" placeholder="Precio" id="inputplanes"> <button...

Cyrus ... respondió: Prueba con MySQLi, que es más moderno, y te mostrara errores, mira el log sino, por si algo esta fallando, yo diría que son las comillas en el insert, el le campo fecha estas metiendo ese string y no la fecha, haz un die($_gravarSQL) para ver la...

Solo debes decirle a que hoja quieres que envíe el dato ejemplo Hoja2.Range("A1") = Me. TextBox1.Text esto lo puedes ejecutar desde cualquier hoja y te enviara el dato del textbox1 a la hoja2 en el rango A1

Creo de esta manera lo puedes hacer te buscara la ultima fila con datos en la hoja1 Luego la copiara en la hoja2 en la fila 1 solo debes adaptarla a lo que necesitas Private Sub CommandButton1_Click() Dim fila, final As Integer fila = 2 Do While...