Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Se puede hacer una fórmula o macro para que recorra varias hojas contando lo que le especifique en otra celda?
H0la Chrisr: Costó, pero salió. Te dejo la macro para hacer lo que solicitas Function fcnCalcular(rngCeldaCat As Range, rngCeldaMes As Range) As Double 'Por GP' Dim strMeses() As Variant Dim i As Integer, nFilas As Integer strMeses = Array("Todos",...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Puedo hacer una fórmula o macro para crear una lista desplegable en excel dependiendo de los datos que se inserte en una celda?
H0la Chrisr: Supongamos que en A1 tienes las categorías de gasto (en adelante categorías) y que en B1 deseas agregar aquello que le llamaremos subcategorías de gasto (en adelante subcategorías). Para poder realizar lo que pides, crearemos una hoja en...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Se puede hacer un Scroll desde un UserForm en una hoja de excel
H0la José: Puedes utilizar esto en el evento Change del ScrollBar Private Sub ScrollBar1_Change() ActiveWindow.ScrollRow = Me.ScrollBar1.Value End Sub Debes definir el valor mínimo del ScrollBar en 1 y el máximo en 1048554 o la fila a la que quieres...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Reducir el proceso de la Macro
Suponiendo que vas ingresando los datos uno a uno, quizá esta macro te pueda servir Private Sub Worksheet_Change(ByVal Target As Range) Dim Duplicado As Long Application.ScreenUpdating = False 'MsgBox Target(1).Row & " " & Target(1).Column If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Porque la numeración automática cuando termino de eliminar el último registro me queda 1 en mi excel
H0la Cristian: El 1 sale de acá Range("A7").Value = 1 lo marqué en negrita dentro del código. Sub OrdenItemEspecialidad() On Error GoTo error Dim ContNum As Long Dim ultimalinea As Long ultimalinea = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Necesito crear un UserForm con información del cliente y deseo que al cerrar este formulario, se abra
Para avanzar un poco, supongamos que tu formulario de clientes se llama frmClientes y el formulario de pagos frmPagos. Si tu intención es que frmPagos se abra cuando frmClientes se cierre, entonces puedes usar este código en frmClientes Private Sub...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Crear varios archivos .html desde un archivo excel
H0la Ramiro, Intenta con esto Sub html() Open ThisWorkbook.Path & "\" & Range("A1").Value & ".html" For Output Lock Write As #1 i = 2 Do Until (Cells(1, i).Value = "") Print #1, Cells(1, i).Value i = i + 1 Loop Close #1 End Sub Crea un archivo en el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Colorear celda alterna al momento de ingresar un registro desde mi formulario.
H0la Brenda: ¿Has pensado en insertar una tabla para ingresar tus datos? Pestaña INSERTAR opción Tabla Nos quedaría así Al ir insertanto filas en la tabla, estas irían tomando el formato de la tabla. Dime si te es útil. S@lu2
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Extraer números de un libro y pegarlos en otro
H0la Beto: Supongamos que tu rango de origen es A1:J10 en la hoja1 y quieres pasarlo al rango que comienza en A1 en la hoja2. Ve si lo siguiente te sirve Sub subCopiar() dim i as Integer, j as Integer dim cont as String For i=1 to 10 For j=1 to 10...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Quiero pasar datos de una hoja a otra con VBA pero me copia las fórmulas del vinculo más no los valores
H0la Jesús: Supongamos que el dato está en la celda A1 de la hoja 1 y lo quieres copiar a la celda D1 de la hoja 3, el código para realizar la copia sería: Sheets("Hoja3").Range("D1").Value = Sheets("Hoja1").Range("A1").Value Cométame si eso resuelve...