Aneudys Martinez

¿Por qué major no la eliminas ya están vacíos no tiene ningún valor? Para ocultar seria de esta manera Sub ocultar() Final = Range("a10000").End(xlUp).Row For Each celda In Range("a2:a" & Final) If celda = "" Then celda.EntireRow.Hidden = True End If...

Eso se puede deber a muchas fórmula en la hojas trata de eliminar algunas fórmulas [email protected] permite ver la hoja a ver que puedo hacer

[email protected] trabajemos en ellos enumerando lo que requires

[email protected] si es possible solo escribeme para enviarte un archivo

¿Lo qué requires es que se copia el duplicado? ¿O qué actualice los datos con la información nueva? [email protected] enmumera lo que require y la pregunta del foro

Seria de la siguiente manera Sub copier_celda_hacia_arriba() ActiveCell.Copy Range(ActiveCell, ActiveCell.End(xlUp)).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

[email protected] trabajemos en eso que requiee solo enumera los puntos

Seria de la siguiente manera Sub Completar() Dim rango As Range Set rango = Sheets("Hoja1").Range("E1:E10000") fecha = Sheets("Actualizacion").[E4] For Each celda In rango If celda.Value = "SI" and celda.offset(0,1) = "" Then celda.Value = "SI"...

Prueba usando estos hojax.Visible = xlSheetVisible .....macro de los combobox hojax.Visible = xlSheetVeryHidden Donde hojax es la hoja que quiere ocultar Si te silve no olvide valora para cerrar la pregunta

Sería de la siguiente =suma.si.conjunto(B1:B12;A1:A12;D1) Si te silve no olvides valora para cerrar la pregunta