Joseph Sanchez

No tengo idea de que sucede, necesito agregar controles pero no aparecen

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

Tengo un formulario en excel el cula tiene algunos label los cuales no quiero que se impriman, se que puedo cambiar la propiedad una a la vez, pero lo que quiero es aprender y agilizar trabajo. Gracias por la atención prestada Ejemplo de como lo...

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

De esta manera lo puedes hacer Private Sub UserForm_Activate() Dim fila, final As Integer For fila = 2 To 5000 If Hoja2.Cells(fila, 1) = "" Then final = fila - 1 Exit For End If Next For fila = 2 To final Me.ComboBox1.AddItem Hoja2.Cells(fila,...

Seria de esta manera =SI(A1<>"";A1;HOY())

Si seria asi como lo pusiste =SI(A1="nombre"; " ";A2)

Esta macro es de exceltotal: hace lo que necessitas https://exceltotal.com/convertir-numeros-a-letras-en-excel/ Function CONVERTIRNUM(Numero As Double, Optional CentimosEnLetra As Boolean) As String Dim Moneda As String Dim Monedas As String Dim...