Respuesta
en
Microsoft Excel
y en 1 temas más
a
Problema con macro para forzar escritura en mayúsculas
Revisa si lo siguiente te ayuda: Private Sub worksheet_change(ByVal Target As Range) Dim c As Range ' On Error GoTo enEvent Application.EnableEvents = False For Each c In Target If Not c.HasFormula And c.Value <> "" Then If Not IsNumeric(c.Value) And...
Respuesta
en
Microsoft Excel
a
Realizar sumatoria de diferentes columnas según condición
Pon la siguiente fórmula: =SUMAPRODUCTO((A7:A15=B2)*(B6:G6=B1)*(B7:G15))
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para excel vba para Ingresar valores en una base de datos solo si están en otra
Tengo en este caso tres hojas. Cierre, creditos y abonos. Puedes realizar lo siguiente y en este orden: 1. Poner una imagen de cada una de tus hojas con datos genéricos. 2. Poner otras 3 imágenes donde muestres el resultado esperado. Es decir, 6...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar un registro en la columna "F"
Ya te había entregado un código para buscar el registro. No entiendo algunas cosas: 1. Con el código que te envié no es necesario hacer visible la hoja. ¿Por qué regresaste a tu código? 2. Si estás en un userform, para qué pones un input box....
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Tengo problemas con una macro que ya estaba terminada
Ejecuta nuevamente la macro, cuando aparezca el error, presiona el botón Depurar. Pon el cursor sobre la variable i para ver el número de fila. Con ese número de fila ve a la celda C y número de fila de la hoja que estás cargando. Tal vez la celda en...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que redondea y elimina puntos de números
Puedes utilizar la siguiente fórmula en B1 y la copias hacia abajo: =SUSTITUIR(IZQUIERDA(A1;LARGO(A1)-3);".";"")+REDONDEAR(DERECHA(A1;3);0)
Respuesta
en
Visual Basic
y en 2 temas más
a
No me funciona la parte del código donde tiene que comprobar si ya existe el registro.
¿La hoja6 y la hoja "Clientes" es la misma? Si es así, para buscar un dato no es necesario mostrar la hoja, puede ser así: Private Sub btn_Registrar_Click() Dim f As Range, h As Worksheet ' If Txt_NIF = "" Then MsgBox "Captura el NIF" Exit Sub End If...
Respuesta
en
Microsoft Excel
a
Buscarv en una celda formulada es posible?
¿En "basededatos" tienes números como textos o como valores numéricos? Si tienes valores numéricos entonces en A2 pon la fórmula: =EXTRAE(A1,5,4)+0 O puedes hacerlo directamente en una fórmula: =BUSCARV(EXTRAE(A1, 5,4)+0, basededatos, 2,0) Otro...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Comando para limpiar registros en Tabla dinámica y filtrar por fecha actual
Prueba lo siguiente, cambia los datos por tus datos: Sub Macro3() Dim sh As Worksheet, pt As PivotTable Set sh = Sheets("Hoja6") Set pt = sh.PivotTables("Tabla dinámica1") pt.ClearAllFilters pt.PivotFields("FECHA").PivotFilters.Add Type:=xlDateToday...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Calcular una celda antes de copiar y pegar vba
En VBA puedes utilizar cualquiera de estas opciones: s = Trim(Range("A1").Value) s = WorksheetFunction.Trim(Range("A1").Value) Pero cómo estás copiando? ¿Estás copiando todo un rango de celdas? ¿Estás pegando solamente valores? Tal vez si pones aquí...