santiagomf

santiagomf

Más de 35 años en la informática y más de 20 trabajando con Visual Basic, Access, Excel y otras B
 166K puntos  Castilla y León, España @santiagomf desde - visto
Preguntar

Respuestas en Microsoft Excel

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 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 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 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 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 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,...

¿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 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...

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...

Realizar un proceso sin repetir el código

¿Posible? Sin duda, SI. Pon aquí el código y miraré cómo hacerlo.