Dante Amor

¿En qué parte del código se demora más? ¿En la parte donde borras? ¿O en la parte donde agregas los registros? ¿Cuántos registros estás agregando? ¿Es necesario agregar el registro al inicio de la tabla? Eso implica que debes recorrer los 6000...

[Ho la y bienvenida a TodoExpertos! Hice algunos ajustes, prueba el siguiente: Sub Copiar_Hoja() 'Definir objetos a utilizar Dim wsOrigen As Worksheet Dim sPath As String, Nombrearchivo As String Dim NombreCopy As String, NombrePDF As String Dim...

Te sugiero que la hoja destino esté vacía. En la macro le indiques en cuál columna quieres cada semestre. Por ejemplo: I col W II col W III col A IV col A Etc. Entonces buscas en la hoja origen el semestre I, copias todas las filas y las pegas en la...

Prueba lo siguiente: Debes utilizar "set" cada vez que le vas a asignar un rango. Sub pruebas() Dim Fecha As Date Dim Rango As Range, RangoF As Range, RangoC As Range Dim FechaFinal As Range, FechaInicio As Range Dim TurnoX As Variant Dim...

Te falta un espacio después de "explorer.exe " Call Shell("explorer.exe " & ruta3, vbNormalFocus)

Puedes explicar con ejemplos qué tienes y qué esperas de resultado.

[Ho la y bienvenido a TodoExpertos. Prueba lo siguiente: Sub Recibo() Dim sh1 As Worksheet Dim i As Long, j As Long Dim ruta As String, libro As String, id As Variant ' Application.ScreenUpdating = False ' ruta = ThisWorkbook.Path & "\RECIBOS\" Set...

Olvidemos el código por un momento. Podrías explicar qué datos tienes, cuáles son las reglas y qué esperas de resultado. Utiliza imágenes para tus explicaciones.

Supongo que en la celda tienes varias líneas, cada línea la insertaste con Alt + Enter eso significa que es le caracter (10). Entonces en base al número de líneas es como vamos a ajustar el tamaño de la letra. Prueba lo siguiente: Private Sub...

Te explico por qué excel deja de funcionar. Con lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) Call opcion1 End Sub Sub opcion1() For Each cell In Range("C2:C13") cell.Offset(, 1) = Int(cell.Value) Next cell End Sub Cada vez que...