James Bond

El problema es que el listbox no soporta por additems cargar ams de 10 columnas de datos en tu caso tienes 11, prueba esta nacro tienen menos código y no tiene el problema de la limitante de columnas, te recomiendo usar tablas insertadas, la macro...

Prueba esta macro leerá tus datos y buscara los 1 y 2 dependiendo de lo que que tengas en la columna grupo insertara 1 fila abajo en caso de 2 i una fila arriba en caso de 1 Sub insertar_filas() Set datos = Range("a1").CurrentRegion With datos cuenta...

Esta es la imagen inicial de tu planteamiento como ves el texto esta separado por una diagonal este es el resultado parcial de la macro aquí se abre un inputbox y vas marcando las celdas destino, seleccionas con el maouse ypones una coma de separador...

No me queda mu claro lo que quieres, pero si te quieres mover entre un libros abiertos, es crear en una de las dos hojas una macro que mande llamar la información de los libros que debe quedar así, x = Workbooks("libro2").Sheets("hoja1").Range("a1")...

Cuando combinas una celda por ejemplo de A1:A7 la fórmula toma el valor de la primera celda A1, si haces lo que dices de recorrer la fórmula esta ira tomando valores de la celda A2, A3, A4, A5 y al estar estas vacías el resultado sera nulo, lo que...

Cambia esto en tu macro, solo cambia las comas en el 0 por ; el address le idica a la macro si la fórmula tienen candado ($a$1) o no (A1), para el primero caso se escribe .address(1,1) Sub formula() With Range("n19") .Locked = True .formula =...

Probé la modificación que hice a tu macro y este es el resultado, no se presento ningún problema

Este es el resultado de la macro, pasa lo siguiente los números dentro de un textbox siempre serán texto y como tales no pueden hacer se operaciones con ellos, primero tienes que convertirlos a VAL, este es un ejemplo de como se hace, no incluí la...

Prueba esta macro Sub copiar() Sheets("hoja1").Range("a1").AutoFilter filas = Sheets("hoja1").Range("a1").CurrentRegion.Rows.Count Sheets("hoja1"). Range("a2"). Resize(filas - 1). Copy Sheets("hoja2"). Range("a2"). PasteSpecial End Sub

Cambia la macro por estay esta es la macro Private Sub CommandButton1_Click() FILAS = Range("A3").CurrentRegion.Rows.Count TextBox1.Text = FILAS For I = 2 To 4 VALOR = Val(UserForm1.Controls("TEXTBOX" & I).Text) If IsNumeric(VALOR) Then SUMA = VALOR...