Respuesta
en
Microsoft Excel
y en 1 temas más
a
Restar 2 fechas ingresadas en textbox
Este es el resultado de la macro y esta es la macro Private Sub TextBox2_AfterUpdate() fi = CDate(TextBox1.Text) ff = CDate(TextBox2.Text) dias = ff - fi horas = dias * 24 minutos = horas * 60 segundos = minutos * 60 hora = (horas Mod 24) - 1 minutos...
Respuesta
en
Microsoft Excel
a
No me están cargando algunas imágenes en la macro.. Ya mire el formato y están bien y sin espacios...
Checa las extensiones no todas son soportadas por VBA por ejemplo las extensiones PNG y TIFF no se pueden cargar.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para colocar negrita un texto específico dentro de una celda
Esta es la macro solo tienes que poner un botón de comando en la hoja y añadirle esta macro. Sub encontrar_y_poner_en_negritas() Set datos = Range("a1").CurrentRegion With datos For i = 1 To .Rows.Count celda = .Cells(i, 1) posicion =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo pegar datos en un rango de celdas dependiendo los valores de una columna?
Prueba con esta macro, te coloca la fórmula sin importar cuantas filas agregues o quites . Sub formular() Set datos = Range("a3").CurrentRegion datos.Cells(2, 1).Resize(datos.Rows.Count - 1, 1).Formula = "=b4-c4" End Sub
Respuesta
en
Microsoft Excel
a
¿Cómo crear un patrón de orden de números especial?
Usa esta fórmula para convertir los números a textos =texto(b2,"0"), luego copias y pegas (botón derecho del ratón, pegado especial, valores) en la misma columna como valores, borras la columna original y ordenas lo que te quede en forma ascendente,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para buscar, copiar y pegar
Prueba con esta macro Sub compara() Set h2 = Worksheets("hoja2") Set h3 = Worksheets("hoja3") Set datos = Range("a2").CurrentRegion Set datos2 = h2.Range("a2").CurrentRegion With datos2 .Sort key1:=h2.Range(.Columns(.Columns.Count).Address),...
Respuesta
en
Microsoft Excel
a
Macro para encontrar duplicados en una base de datos
Prueba esta macro te crea una lista de duplicados 'Sub buscar_duplicados() 'Dim unicos As New Collection ' 'Set datos = Range("a1").CurrentRegion ' 'With datos ' Set dup = .Columns(.Columns.Count + 2).Resize(1, 2) ' filas = .Rows.Count ' ' X = 1 '...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Combobox que se arme de acuerdo a las hojas del documento y elegir que hojas no aparezca en ese listado.
En tu código tienes la respuesta solo vas agregando en esa línea las hojas que no quieras que aparezcan if h.Name <> ActiveSheet.Name or ucase(h.Name) <> "AUXILIAR" Then
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito crear una macro que permita que el área seleccionada se convierta en tabla, pero dicha área es variable
¿Cómo estas escribiendo la instrucción regioncurrent?, ¿Te pone mensaje de error?, ¿Si es así que te pone?
Respuesta
en
Microsoft Excel
y en 3 temas más
a
¿Cómo seleccionar cierto rango de celdas en un libro diferente con Macros?
No entiendo donde da el error, funciona bien solo le hice algunas mejoras Sub Toma04() 'Seleccionar rango de celdas en el nuevo archivo Miarchivo = Application.GetOpenFilename Workbooks.Open Miarchivo ini = InputBox("Selecciona la celda", "AVISO")...