Dante Amor

Excel está preparado para completar el año, si solamente pones 8 nov 8-11 8/11 Excel completa el año actual con 2021. Pero si no indicas el mes, entonces excel no completa el año. Asume que si pones 8, estás poniendo solamente un número. Si quieres...

Suponiendo que las columnas son A, B, C y que los datos empiezan en la fila 2. Prueba esto: Sub SeleccionarPrimerCeldaVisible() Dim c As Range For Each c In Range("C2", Range("C" & Rows.Count).End(3)) If c.EntireRow.Hidden = False Then c.Select Exit...

Revisa el siguiente enlace: https://support.microsoft.com/es-es/office/crear-funciones-personalizadas-en-excel-2f06c10b-3622-40d6-a1b2-b6748ae8231f

Realiza lo siguiente: 1. Pon el siguiente código en los eventos de tu libro. Private Sub Workbook_Open() Sheets("Hoja9").Range("B2").Value = (Date - Sheets("Hoja9").Range("A1").Value) / 100 + 0.01 End Sub Instrucciones para poner la macro en los...

La siguiente macro multiplica por 1 la columna B de todas las hojas del libro: Sub multiplicar_por_uno() Dim lr As Long Dim sh As Worksheet ' Application.ScreenUpdating = False lr = Range("B" & Rows.Count).End(3).Row + 1 With Range("B" & lr) .Value =...

Realiza lo siguiente: 1. Crea un userform 2. En el userform crea un control Frame1, con un ancho (Width) de 200 3. Dentro del Frame1 agrega un Label1: 4. Pon todo el siguiente código dentro del userform: Option Explicit ' Sub Combinar_New() Dim...

Veo que tienes preguntas sin valorar: https://www.todoexpertos.com/preguntas/8pfexcpl7hg5yqwu/cambiar-color-al-cambiar-de-una-celda-a-otra-excel-2003...

[Ho la y bienvenido a TodoExpertos! Prueba la siguiente macro. Primero selecciona las filas a copiar, por ejemplo puedes seleccionar de la celda A8 a A25. Después selecciona la celda destino. No es necesario que selecciones las filas destino, basta...

Prueba la siguiente macro. Cambia en la macro "C:\trabajo\archivos\" por el nombre de la carpeta donde tienes los archivos. Sub Guardar_Archivos_Como_2003() 'Por Dante Amor Dim ruta As String, arch As Variant Dim l2 As Workbook '...

Puedes platicar qué necesitas hacer. i = 0 If Range("Infor!H24") <> Range("Datos!B2").Offset(i, 0) Then Tu código inicia con una comparación de las celdas H24 y B2 Si son iguales, entonces Range("Datos!B2").Offset(i, 0) = Range("Infor!H24")...