Joseph Sanchez

Joseph Sanchez

 7.900 puntos  Venezuela @josephsa desde - visto

Preguntas y respuestas en Visual Basic

Respuesta en y en 1 temas más a

Encontrar celdas en negrita sin macro o con macro

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
Respuesta en y en 1 temas más a

Macro en donde se mande un email y se adjunte un PDF cuya ruta (directorio) está escrito en una celda del excel

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...
Respuesta en y en 2 temas más a

Macro para seleccionar datos de la ultima columna y copiarlos?

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...
Respuesta en y en 1 temas más a

Como puedo utilizar los datos de una hoja en un combobox situado en otra hoja

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,...
Respuesta en y en 1 temas más a

"Función si" que devuelva el valor de una celda si se cumple o no la condición

Si seria asi como lo pusiste =SI(A1="nombre"; " ";A2)
Respuesta en y en 1 temas más a

Localizar números que se repiten, anotarlos e indicar en que filas están

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...
Respuesta en y en 1 temas más a

Macro Excel crear una base de datos

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...
Respuesta en y en 2 temas más a

Cargar un pdf mediante UserForm y que se pegue en base de datos

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...
Respuesta en y en 1 temas más a

Por el amor de dios, ¿Porqué excel no deja de darme vuelta las fechas?

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 = "@"
Respuesta en y en 2 temas más a

Como hacer un formulario de login para excel ?

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