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
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
Visual Basic
a
Uso tu macro de correos masivos pero me gustaría saber como agregar una imagen o recorte en el mensaje
Aquí tengo un ejemplo para enviar una imagen en el correo Envío de emal por Outlook desde excel
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í...
Respuesta
en
Visual Basic
y en 2 temas más
a
Como validar campos en blanco en un formulario de vba en excel y si están llenos aceptar y guardar los datos.
Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1 = "" Then MsgBox "Captura el dato en textbox1" TextBox1.SetFocus Exit Sub End If If TextBox2 = "" Then MsgBox "Captura el dato en textbox2" TextBox2.SetFocus Exit Sub End If '...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Obtener la suma de cada fila en la primera columna vacía.
Puedes poner una imagen de cómo tienes tus datos, procura que se vean las filas y las columnas de excel. Y en otra imagen pon en dónde quieres las sumas.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macros para insertar filas según condición y copiar datos de filas
Suponiendo tus datos en la "Hoja4" de esta manera: Los resultados en la "Hoja5" Cambia en la macro "Hoja4" y "Hoja5" por los nombres de tus hojas. Sub insertar_filas() Dim a As Variant, b As Variant, sh As Worksheet Dim i As Long, j As Long, k As...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Sumar el total de una tabla en una celda diferente
Para sumar una columna de una Tabla debes poner el campo de la suma: =SUMA(Tabla1[Total]) Pero si quieres la suma de un campo filtrado, entonces utiliza SubTotales: =SUBTOTALES(9;Tabla1[Total])
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Sumar datos filtrados al final de la lista de datos
Para sumar necesitas evaluar una fórmula como esta: =SUMPRODUCT(SUBTOTAL(9,OFFSET(E$6:T$4000,ROW(E$6:E$4000)-ROW(E$6),0,1))) Otra opción es realizar en memoria un ciclo con todos loa datos y evaluar los datos según la condición del filtro y sumar los...