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

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

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

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

Mi propuesta de solución es esta Hoja1. Range("A1") '(cambia esto por tu campo1) Hoja1. Range("B1") '(cambia esto por tu campo2) Private Sub CommandButton1_Click() Dim fila, final As Integer fila = 2 Do While Hoja3.Cells(fila, 1) <> Empty fila = fila...

Aquí la solución Dim fila As Integer fila = 2 Do While Hoja1.Cells(fila, 1) <> "" fila = fila + 1 Loop On Error Resume Next With Application.FileDialog(msoFileDialogOpen) .InitialFileName = Path .Title = "Abrir archivo PDF" .Filters.Clear...

Hace un tiempo tuve ese mismo problema, para solucionarlo antes de la línea que inserta los datos en la celda. Le di formato de texto, Ejemplo cells(1, fila).NumberFormat = "@"

https://drive.google.com/file/d/0B1UUB6fBagdmNkJPcV8xbk5RS28/view?usp=sharing Allí tienes un formulario que hace lo que necesitas, solo debes adaptarlo