Dante Amor

En lugar de copiar, puedes "pasar" el dato de una hoja a otra, por ejemplo, solamente tienes que indicar cuál celda de la h2 va a ser igual a cuál celda de la h1 Sub Copiar_Datos() ' Set h1 = Sheets("orden de compra") 'hoja origen Set h2 =...

Te anexo la macro con los cambios Private Sub CommandButton2_Click() 'Por.Dante Amor ruta = "AL1" 'celda en donde se pondrá la ruta imagen = "T2" 'celda en donde se pondrá la imagen Application.ScreenUpdating = False With...

Utiliza la siguiente: Sub Copiar_Datos() Set h1 = Sheets("orden de compra") 'hoja origen Set h2 = Sheets("Auxiliar Provisorio") 'hoja destino u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 'QUE COLUMNA ENCONTAR VACIA PARA COMENZAR A COPIAR...

Prueba así y me comentas u = Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A" & u), , xlYes).Name = "Tabla13" sal u dos

Ese form lo abres desde el evento Private Sub Workbook_BeforePrint(Cancel As Boolean) Si la clave es correcta, entonces puede imprimir cualquier hoja, o si la clave es correcta que imprima la hoja activa?

Si no quieres copiar ningún botón, puede ser: Sub Copiar_Hoja() Application.CopyObjectsWithCells = False Sheets("hoja3").Copy after:=Sheets(Sheets.Count) Application.CopyObjectsWithCells = True End Sub Desactivamos la copia de objetos, se copia la...

Ya probé la macro y sí pone los datos en la C7, tal vez tengas espacios o blancos en alguna o algunas celdas de la columna E. Siempre vas a copiar desde la celda E2 hasta la E26, o hasta la última celda de la columna E. Porque entonces habría que...

En una lista de validación de datos no es posible. Pero se puede lograr el efecto con un ComboBox de Control AcrtiveX. Revisa la siguiente respuesta Como autocompletar Combobox en vba Avísame si necesitas ayuda para actualizar el código. . .

No entendí muy bien, puedes presionar varias veces el botón agregar, si es así, ¿qué debe ocurrir cada vez que se presione? Por qué quieres agregar el capítulo y subcapitulo al listbox, ya de alguna manera, tienes los datos en su respectivo combo.

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Count > 100 Then Exit Sub For Each c In Target If c.Value = "" Then...