Respuesta
en
Microsoft Excel
a
Macro función de suma de rango
Podrías usar este códigos: Sub sumaColumnaI() Dim i As Long Dim totalSuma As Double totalSuma = 0 For i = 2 To 20000 If IsNumeric(Cells(i, 9)) Then totalSuma = totalSuma + Cells(i, 9) Next i Range("x2").Value = Range("i2").Value / totalSuma End Sub
Respuesta
en
Microsoft Excel
a
Replicar Macro de Excel a dos hojas distintas del mismo libro
Para lo que haces deberías poner la macro en un módulo (menú insertar-módulo). Estando así la macro será para todo el libro. En el código pones "worksheets("mapa")". Eso claramente hace referencia a la página "mapa" pero si quieres hacer referencia a...
Respuesta
en
Microsoft Excel
a
Validar contraseña en macros. Ayuda
Un par de cosas: - Acostúmbrate a poner "me." delante de los nombres de objetos que pertenezcan al formulario (clave y ncuenta). Así se entenderá mejor el código y no habrá dudas sobre a quién se refiere. - Al principio del módulo (o del código del...
Respuesta
en
Microsoft Excel
a
Como puedo desplazarme por celdas mediante macros
En el código VBa de "ThisWorkbook" pon el siguiente: Option Explicit Dim antCelda As String Dim snAuto As Boolean Private Sub Workbook_Open() antCelda = ActiveCell.Address snAuto = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As...
Respuesta
en
Microsoft Excel
a
Macro que borre datos de otras hojas
Podrías poner algo así if sheets(nombrePagina).range("G1")=sheets(nombrePagina).range("G3") then sheets(nombrePagina).range("E3")="" sheets(nombrePagina).range("F3")="" sheets(nombrePagina).range("G3")="" end if
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Ayuda VLOOKUP usado con VBA
Prueba con este código: Sub buscar() Dim valBuscar As Variant Dim aux As Variant Dim snAlgunOk As Boolean snAlgunOk = False valBuscar = Reporte.Range("B2") On Error Resume Next aux = Application.WorksheetFunction.VLookup(valBuscar,...
Respuesta
en
Microsoft Excel
a
¿Cómo puedo tomar la posición de un dato de excel a través de una macro?
Prueba este código. Espero haber sido claro con las explicaciones. Private Sub UserForm_Initialize() Dim aux As String Dim txt As String Dim nomHoja As String Dim nCol As Integer Dim nLin As Long Dim i As Integer ' Leemos el origen del control aux =...
Respuesta
en
Microsoft Excel
a
Contar feriados entre dos fechas
La fórmula de la celda C2, suponiendo que los días de fiesta están en la columna "A" de la "Hoja2", sería: =CONTAR.SI(Hoja2!A:A;"<=" &B2)-CONTAR.SI(Hoja2!A:A;"<" &A2) Lo que hace es contar el número de días festivos que se encuentra hasta la fecha...
Respuesta
en
Microsoft Excel
a
Invertir orden de datos en excel
Yo incluiría un procedimiento como el siguiente para dar la vuelta a las líneas (al final te pongo una forma de llamarlo). Option Explicit Sub invertirDatosDeUnRango(ByRef rangoDatos As Range) Dim numLin As Long Dim numCol As Integer Dim i As Long...
Respuesta
en
Microsoft Excel
a
Realizar un proceso sin repetir el código
¿Posible? Sin duda, SI. Pon aquí el código y miraré cómo hacerlo.