Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para copiar ciertas celdas de una hoja y guardarlas en otra hoja
Prueba con esto: Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") uf = h1.Range("A" & Rows.Count).End(xlUp).Row Range("A" & uf & ":B" & uf & ",E" & uf).Copy uf = h2.Range("A" & Rows.Count).End(xlUp).Row + 1...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Mostrar Msgbox solo una vez al ingresar un dato erróneo en un textBox.
Si cambias el evento Chage por el evento Exit, lo tienes solucionado. El evento Exit sólo se ejecuta, cuando sales del control TextBox1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.MaxLength = 5 If Val(TextBox1) < 11...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pegar rango en otro libro nuevo y guardar
Esta macro hace lo que tu deseas. Sub Grabar_Rango_En_Libro_Nuevo() Dim NL As Workbook ruta = "u:/produccion/cuentas\" nombre = [a1] Range("B1:G40").Copy 'Guardamos el libro en una variable' Set NL = Workbooks.Add 'Pegamos los valores en el libro...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Ejecutar varias macros según valor en un rango de celdas
No has especificado si quieres que se vuelvan a ejecutar todas las macros que tengan 1 en su casilla correspondiente o sólo se ejecuten cuando se pone un 1. Para que se ejecute cuando se cambia el valor de la celda correspondiente a 1, pon esto en el...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Extraer un dato de un rango al encontrar una coincidencia
Coloca esta macro en la hoja que quieras controlar. Lo que hace es detectar si se ha hecho clic en alguna de las celdas del rango G12:K24. Si es así pone en B11 y en B12 los datos que deseas. Private Sub Worksheet_SelectionChange(ByVal Target As...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Macro que sume datos teniendo en cuenta el primer dígito de una cadena de números
Esta macro hace lo que tu quieres, independientemente del número de filas o columnas. Sub SumarCantidades() uf = Range("A" & Rows.Count).End(xlUp).Row uc = Range("A8").End(xlToRight).Column For t = 8 To uf For j = 3 To uc Select Case...
Respuesta
en
Microsoft Excel
a
Listas desplegables en excel con selección de más de una opción
Lo consigues poniendo la propiedad Multiselect de tu listbox con frmMultiSelectMulti Si te ha valido la respuesta.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para crear y luego eliminar tabla dinámica
El problema lo tienes porque no sabes si será Hoja1 la que tienes que borrar, puede ser hoja2, hoja3, etc. Para solucionarlo, guarda el nombre de la hoja al crearla y después usa este nombre para seleccionar la hoja, antes de borrarla. Asi: Sub...
Respuesta
en
Microsoft Excel
a
Como preparo un textbox en sus propiesdades para que me muestre formato de horas.
Debes formatear el valor de la celda al pasarlo al textbox, de esta forma TextBox1.Text = Format([B2], "hh:mm") Cambia el B2 por la celda que quieras que se muestre en el textbox, y también el TextBox1 por el nombre de tu textbox Si te ha valido la...
Respuesta
en
Microsoft Excel
a
¿Cómo agrupar los valores de una lista para que sumen cantidades lo más parecidas posibles?
A ver si te vale de esta forma. Se basa en los puntos de cada nadador/a, asignándole 3 puntos al primero, 2 al segundo y uno al tercero de cada prueba, de esta forma: donde : Los puntos máximos que podría tener un equipo sería 12 y el mínimo 4, con...