tibo

Dante Amor respondió: Te anexo el código: 'Por. Dante Amor hoja = InputBox("Nombre de la hoja a crear:", "CREAR HOJA") If hoja = "" Then Exit Sub Set h2 = Sheets.Add(after:=Sheets(Sheets.Count)) h2.Name = hoja ' 'aquí debe continuar tu código para guardar en h2 ' Saludos....

Dante Amor respondió: Te anexo el código Application.ScreenUpdating = False For i = 9 To 50 If Cells(i, "A") <> "" Then Rows(i).Copy Sheets("pedidos").Range("a2").PasteSpecial Paste:=xlValues Sheets("pedidos").Rows(2).EntireRow.Insert End If Next MsgBox "Procedso...

Dante Amor respondió: Para pasar a otra hoja puedes hacerlo de esta forma, con esto no es necesario que selecciones la hoja destino, es decir, si estás en la hoja1, se va a guardar en la hoja2, cambia en la macro "Hoja2" por la hoja que desees. Private Sub...

Dante Amor respondió: Tendría que ver cómo tienes los datos en la hoja y cómo cargaste el listbox para borrar. Envíame tu archivo con tu formulario. Explícame cómo funciona. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “tibo” y el...

Dante Amor respondió: Después de ejecutar tu macro ejecuta el siguiente código: Sub FijarList() Sheets("Hoja1").ListBox1.ListFillRange = "A2:B6" End Sub Cambia Hoja1 por el nombre de la hoja donde se encuentra el listbox y cambia "A2:B6" por el rango de celdas que quieras...

Dante Amor respondió: Solamente se pueden cargar hasta 10 columnas con el método additem, para cargar más de 10 columnas tienes que usar la propiedad List o rowsource. Con la siguiente opción puedes cargar las 22 columnas o las que necesites: Private Sub...