Joseph Sanchez

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

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

Esta es mi propuesta de solución Private Sub CommandButton1_Click() Dim fila, c, final, colum, filac, finalc As Integer Dim registro As Integer fila = 1 Do While Hoja1.Cells(fila, 1) <> "" fila = fila + 1 Loop final = fila - 1 c = 3 For fila = 1 To...

Esta seria mi propuesta de solución: Hoja1. Range("V1") '(en este lugar pondrias el valor que quieres buscar) Nota: aunque dijiste que son 13 fila y 20 columnas lo hice de manera que pueda trabajar con más Saludos no olvides finalizar Private Sub...