Fotos en excel con macro, pesa mucho archivo final

Preguntas y respuestas relacionadas

Bloqueo automático de celdas

Tavo tengo el siguiente código Sub bloqueo() If Range("a1").Value <> Empty Then Range("A1").Select ActiveSheet.Unprotect "hola" Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect "hola", DrawingObjects:=True, Contents:=True,...
1 respuesta

Cambiar impresora predeterminada

Primeramente me gustaría darte las gracias por ayudarme. Estoy realizando una aplicación en Access2000 con VB y me gustaría saber como se puede hacer para cambiar la impresora predeterminada sin ir a configuración... Quiero hacer esto porque cuando...
3 respuestas

Ayuda para imprimir

Deseo imprimir un reporte creado en cristal report v 4.6, la base de datos esta en access xp y esta protegida por contraseña. Me gustaría que me regalaran un código de ejemplo para imprimir un reporte cuando la base esta con contraseña.
3 respuestas

Funcion dias festivos

Tengo una función que calcula días laborables de lunes a Viernes entre dos fechas de la siguiente forma: Function Dias_Laborables(ByVal fecha_inicio As Date, ByVal fecha_fin As Date) As Integer Dim i As Variant Dim num_dias As Integer On Error GoTo...
3 respuestas

Formulario dependiente que habrá en el último registro donde cerró

Espero me puedan ayudar quisiera saber si saben como abrir un formulario en el último registro donde quedó osea no en el ultimo registro sino en el registro que yo estaba modificando Por ejemplo son 100 registros y estaba en el numero 50...
2 respuestas

Variar el valor de celdas cuando cambie el valor de otra celda

Estoy haciendo una relación de pagos y necesito que cuando cambie la fecha en una celda aumente en 30 días el valor de otra y que solo se aumente 1 vez al mes. Me explico Tengo en la columna H1 :como titulo "ultima fecha de pago" y en la columna QUE...
1 respuesta

Implementar Progress Bar en macro para generar efecto visual

Sub Buscar() 'Mod.Por.DAM Application.ScreenUpdating = False Set h1 = Sheets("Estados de cuenta") Set h2 = Sheets("Cartera.") ' h1.Range("A18:E6000").ClearContents j = 18 Set r = h2.Columns("G") Set b = r.Find(h1.Range("A6"), LookIn:=xlValues,...
1 respuesta

¿Error 400 en visual basic de excel? ¿Cómo lo corrijo?

Tengo esta macro para eliminar filas vacias: Sub EliminarFilasVacias() Dim Cadena As String, Fila As Long With Worksheets("Hoja2") 'Nombre de la hoja For Fila = 1 To .UsedRange.Rows.Count If WorksheetFunction.CountA(.Rows(Fila)) = 0 Then Cadena =...
2 respuestas

Necesito hacer un formulario de búsqueda (urgente)

Tengo una tabla alumnos y de ahí tengo que hacer un formulario que tiene primer nombre, primer apellido y un botón que diga buscar... Bueno tengo que teclear en primer nombre o en primer apellido una letra o parte de un nombre o apellido y al...
2 respuestas

Quitar espacio en blanco de una celda con fecha en Excel

Un favor me puedes ayudar con este problema Tengo unos reporte de ventas que exporte de un sistema pero al momento de exportarlo en la columna de la fecha aparece un espacio en blanco al principio de la celda y esto hace que el dato de la celda este...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema