Dante Amor

Prueba lo siguiente: Sub blanco_agendaHoy_ars() Dim f As Range, col As Long Set f = Rows(2).Find("Titulo", , xlValues, xlWhole) If Not f Is Nothing Then col = f.Column - 1 Sheets("ABM").Select On Error Resume Next If Sheets("ABM").AutoFilterMode Then...

Pon el siguiente código en los eventos de la hoja "Historico" Private Sub Worksheet_Activate() Dim f As Range With Sheets("Indicadores") Set f = Rows(2).Find(.Range("B3"), , xlFormulas, xlWhole) If Not f Is Nothing Then Cells(3, f.Column).Value =...

Y bienvenida a TodoExpertos. Podrías poner un ejemplo del nombre del destinatario y cómo se llama el archivo. ¿En cuál carpeta se encuentran los archivos? ¿Cada mes cambian de nombre? Si cambian de nombre, ¿puedes poner ejemplos?

La primer página es la número 0, entonces si quieres activar la página "validaciones", según la imagen es la número 5, entonces: Private Sub UserForm_Activate() MultiPage1.Value = 5 End Sub

Esta línea debería tomar la fila del dato seleccionado: fila = list_confirmacio.List(list_confirmacio.ListIndex, 8) Debería ser: fila = list_confirmacio.List(x, 8) Le hice unos ajustes a tu código. No es necesario seleccionar la celda, puedes...

Simplemente pon en una macro las que quieres habilitar de esta manera: Sub enhab() Application. OnKey "^c" Application. OnKey "^v" End Sub Y ejecuta la macro.

Si ya no necesitas poner los datos en un nuevo libro, supongo entonces que ya no es necesario abrirlo. Podría ser así: Private Sub Imprimirparte_Click() Dim final As Long With ThisWorkbook '.Worksheets("Hoja1").Range("parte").ClearContents...

Si copias y pegas, tal como comenta @Abraham Valencia, entonces deberías pasar los datos utilizando el valor de la celda destino = al valor de la celda origen. Es decir, si tienes algo como esto: Range("A5"). Copy range("B7") Entonces puedes poner...

¡H o l a y bienvenida a TodoExpertos: Revisa la macro en esta respuesta: Macro para ajustar alto de fila en celdas combinadas

Te anexo una macro, realiza lo mismo pero utiliza otro enfoque. Sub copiar() Application.ScreenUpdating = False Sheets("Hoja2").Rows("2:" & Rows.Count).ClearContents With Sheets("Hoja1") If .AutoFilterMode Then .AutoFilterMode = False .Range("A1:D" &...