jgirj

Ya encontré la falla. Aquí esta el código Sub Copiar_Celdasimportes() Sheets("Hoja1").Unprotect Dim Columna As Integer Dim FilaAgregar As Integer Dim Recorrer As Integer Dim NumDatos As Integer Dim Encontrados As Long FilaAgregar = 0...

Ya encontré la falla. Aquí esta el código Sub Copiar_Celdasimportes() Sheets("Hoja1").Unprotect Dim Columna As Integer Dim FilaAgregar As Integer Dim Recorrer As Integer Dim NumDatos As Integer Dim Encontrados As Long FilaAgregar = 0...

Solo tienes que ubicarte en la celda deseada, ir a la barra de menu Formato... Formato Condicional... en la primera lista desplegable seleccionar fórmula y en la siguiente casilla escribir =NO(ESBLANCO($D$17)). Click en formato, elijes Tramas.. El...

Si vas a ubicar el control en una, basta con que en tiempo de diseño, hagas click derecho sobre el control, abras la ventana de propiedades, y ajustes la propiedad LinkedCell a A1, por ejemplo. Para este mismo control, puedes ajustar la propiedad...

Esta es la solución que encontré, un poco complicado pero va: Option Base 1 Option Explicit Public Function ModaTj(ByRef Rango As Excel.Range, Orden As Integer) As String 'Rango: Lista de Valores 'Orden: Jerarquia del elemento a encontrar. Obviamente...

El siguiente código asume que tus datos están en la columna A y desde la Fila 1 y que los datos se extraerán en las columnas siguientes, es decir de la B en adelante: Sub Filas_Columnas() Datos = WorksheetFunction.CountA(Hoja1.Range("A1:A65536"))...

Si lo que euieres es agregar un item a tu barra de herramientas puedes guiarte por este ejemplo: Sub Auto_Open() On Error Resume Next For Each mb In MenuBars With mb.Menus("Tools") Call .MenuItems.Add("Mi Suma", "Mi_Suma") End With Next mb End Sub...

Puedes hacerlo de dos formas: Por fórmula: Supongamos que tus datos están en la columna A, creemos entonces en la columna B un mensaje que nos diga si el dato esta repetido: En la primera celda de la columna B escribe esta fórmula...

Yo he usado esta macro para actualizar gáficas y me ha dado resultado: ActiveSheet. ChartObjects("Gráfico N"). Activate ActiveChart.SeriesCollection(1).XValues = Hoja1.Range(Cells(2, 1), Cells(VarI, 1)) ActiveChart.SeriesCollection(1).Values =...

Esnayé este código y funcionó: Dim NomCarpeta As String ChDrive "D" NomCarpeta = "D:" DoEvents Application.Dialogs(xlDialogOpen).Show (NomCarpeta)