¿Qué macro utilizó para insertar una imagen en excel con referencia a una celda?

Preguntas y respuestas relacionadas

Combinar filas según el texto.

Tengo una planilla en Excel que lleva las horas de trabajo. La planilla va desde la celda d5 hasta la celda ai6. Desde la fila d5 a la fila ai5 llevo los días que trabajo de 20 a 8 ( horario nocturno) y de la fila d6 a la fila ah6 los días que...
1 respuesta

Borrar masivamente contenido de archivos Excel

Tengo alrededor de 6.000 archivos Excel, donde hemos cargado información en dos columnas, cada archivo tiene entre 5 y 100 registros. Necesito borrar todo el contenido menos la fila 1, donde están los encabezados de las dos columnas, y además...
2 respuestas

Marcar automáticamente datos iguales en celdas excel y contar datos iguales por línea

Pregunta dirigida a Dante Amor, Tras el uso de la macro que me facilitaste: ( la cual copio y pego). Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A:E")) Is Nothing Then...
1 respuesta

Macro Para filtro de datos en etiquetas de fila de tabla dinámica

Quisiera Filtrar los datos de cualquiera de los campos que están en las etiquetas de fila de una tabla dinámica de acuerdon con valores ingresados en celdas es decir: Al escribir la palabra que debe filtrar en las celdas de color moradas se filte la...
1 respuesta

Envío de correo desde VB

Antes se enviaba correo desde mi programa de VB utilizando: Set objSession = CreateObject("mapi.session") Actualmente ya se desinstalo Outlook y se instalo Outlook Express, esto ya no me funciona. ¿Cómo puedo enviar correos ahora? ¿Existe alguna...
4 respuestas

Buen día. Consulta con un código VBA

Tengo el siguiente código: Private Sub cmdConsulta_Click() Dim ApNom As String Dim idBusca As String Dim fila As Integer Application.ScreenUpdating = False Sheets("DIRECTORIO").Select fila = 0 ApNom = txtApellidoNombre Do While idBusca <> ApNom fila...
1 respuesta

Poder suprimir en esta macro

De esta macro: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range(" A12:E60000")) Is Nothing Then Target.Value = UCase(Target.Value) End Sub Poder suprimir la linea : "On Error Resume Next" Y que...
1 respuesta

Cifras de números a letras

Andi DE vuelta. Sabés que un importe, por ejemplo, 7.300.- aparece en letras SIETE TRESCIENTAS ¿Qué puede pasar?
1 respuesta

Al seleccionar los datos del listbox me muestre en la caja de imágenes la foto.

Una vez que listbox esta cargado con la información y selecciono cualquier fila de listbox deseo que me muestre la foto según la selección... Pero cuando ejecuto sale el msg no ha encontrado ruta de acceso... Las variables lo declare como string.
1 respuesta

Abrir userform celda en excel

Tengo el siguiente código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Retenciones.Show End Sub Que me abre un Userform (Retenciones)cuando hago doble clic en cualquier parte de la hoja activa. Lo...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema