Respuesta
en
Visual Basic
y en 1 temas más
a
¿Crear procedimiento para vaciar los items de un listbox de cualquier formulario?
En principio no parece necesario vaciar un listbox quitando uno a uno sus elementos. Si el listbox fue rellenado con AddItem, prueba con NombreListbox. Clear Y si fue rellenado con RowSource: NombreListbox.RowSource="" Saludos_
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Error al quiere poner una fórmula en una celda desde vba
Intente: temporal.Range("B2:B" & uFila).FormulaLocal = "=SI(LARGO(A2)-LARGO(SUSTITUIR(A2;""\"";""""))>1;EXTRAE(A2;ENCONTRAR(""\"";A2;2)+1;9);ESPACIOS(EXTRAE(SUSTITUIR(A2;"" "";REPETIR("" "";99));2;99)))" aunque resulta difícil saber si funcionará, al...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Obtener Ultima Celda con valores
Pruebe con: Public Function ÚltimaCeldaLibroCerrado(sLibro As String, sHoja As String) As Variant 'Nota1: dependiendo de la versión de Excel, puede ser necesario establecer una referencia a la _ librería Microsoft ActiveX Data Objects que tenga la...
Respuesta
en
Microsoft Excel
a
Mensaje emergente, si dos celdas cumplen con una palabra aparezca mensaje de aviso
Prueba con una validación de datos (solapa 'Datos') para la celda G7. En Configuración, Fórmula: =(E7="TERCERO")*O(G7="GIRO";G7="COBRO";G7="EMISION")=0 y en Mensaje de error "NO CORRESPONDE"
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro Pasar tabla filtrada a Matriz
De momento no se me ocurre una forma más corta de hacerlo: Option Explicit Option Base 1 Sub prueba() Dim Rango As Range Dim iÁrea As Integer, iFila As Integer, iColumna As Integer Dim MATRIZ() Dim iFilaM As Integer Set Rango =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro VBA que extraiga valores repetidos de dos rangos
Parece que se puede hacer con fórmulas. Teniendo seleccionado el rango W2:AF2, pega esta fórmula en la barra de fórmulas: =SI.ERROR(K.ESIMO.MAYOR(SI(NO(ESERROR(COINCIDIR(SI(A2:J2<>"";A2:I2);L2:U2;0)));A2:I2);COLUMNA()-22);"") y termínala pulsando...
Respuesta
en
Microsoft Excel
a
Algunos datos fecha me arroja ######## en tabla dinámica
Esos # se producen si, por ejemplo, las fechas son los resultados de cálculos que salen negativos. Sin ver los datos es difícil precisar, pero yo intentaría ponerle a la columna donde estén esas fechas un formato numérico (no de fecha) de forma...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro VBA para concatenar y sacar permutaciones de datos en diferentes rangos
Prueba con: Sub prueba() Dim wksH As Worksheet Dim iFila As Integer Dim a As Byte, b As Byte, c As Byte Dim x As Byte, y As Byte, z As Byte Dim iCol As Integer Set wksH = ThisWorkbook.Worksheets("Hoja1") With wksH For iFila = 4 To...
Respuesta
en
Microsoft Excel
a
Averiguar fecha del lunes de la semana anterior
Para el lunes de la semana anterior a hoy: =SI(DIASEM(HOY()-7)=2;HOY()-7;HOY()-7-DIASEM(HOY()-2)) y para el de esta semana: =SI(DIASEM(HOY())=2;HOY();HOY()-DIASEM(HOY()-2)) Creo que funcionan, pero habrá que hacer pruebas. Saludos_