Dante Amor

Pon la siguiente función en un módulo de VBA Function ConcatenaRango(rango As Range) For Each celda In rango cadena = cadena & celda.Value Next ConcatenaRango = cadena End Function Sigue las Instrucciones para una Función Abre tu libro de excelPara...

Te anexo el código, rellena desde la celda B1 hasta B y última fila de la columna A Sub Rellenar() Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value = "SI" End Sub . .Sal u dos. Dante Amor. R ecuerda valorar la respuesta. G racias .

Te anexo la macro para eliminar el contenido de la celda Sub Macro1() ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") If h1.AutoFilterMode Then h1.AutoFilterMode = False u = h1.Range("A" & Rows.Count).End(xlUp).Row h1.Range("A1:A" & u).AutoFilter...

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

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...

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.