Dante Amor

Puedes explicarlo con una imagen de lo que tienes. Y otra imagen con el resultado.

Prueba la siguiente: Sub copiarceldas() Sheets("Hoja1").Range("A1:E10").Copy Sheets("Hoja2").Range("A" & Rows.Count).End(3)(2) End Sub

Puedes poner las celdas que quieres copiar. Solamente pusiste la celda A46. Y a partir de cuál fila quieres pegar. Supongo que empieza en la fila 5, el siguiente pegado deberá ser en la fila 6.

[Ho la y bienvenido a TodoExpertos! Es difícil trabajar con celdas combinadas, y tú tienes las celdas de la columna "EX" combinadas. Pero además tienes un filtro en la columna "EG". Necesito ver la hoja sin filtros y ver también los números de filas....

Al parecer tienes demasiadas líneas de código en tu userform o en tu módulo. Debes separar en módulos el código que tienes demasiado largo. Pon aquí todo tu código y te ayudo a separarlo en módulos. O comparte tu archivo en googledrive para revisarlo.

Pon lo siguiente en los eventos de tu hoja precios: Private Sub Worksheet_Deactivate() Call CreaPDF("precios") End Sub Pon el siguiente código en la misma hoja precios o en un módulo: Sub CreaPDF(nombre As String) Dim RutaArchivo As String...

Pon el siguiente código en los eventos de la hoja "Portada" Private Sub Worksheet_Activate() Dim sh As Worksheet For Each sh In Sheets If LCase(sh.Name) <> LCase("Portada") Then sh.Visible = xlSheetHidden End If Next End Sub Sigue las Instrucciones...

Lo mejor para buscar es método Find. Sub Prueba_Buscar() Dim f As Range Set f = Range("A:A").Find("valor", , xlValues, xlWhole, , , False) If Not f Is Nothing Then MsgBox "La fila es: " & f.Row Else MsgBox "dato no encontrado" End If End Sub

Revisa los enlaces que puse en esta respuesta: Excel: Macro para filtrar entre dos fechas obtenidas de dos celdas

Private Sub CommandButton1_Click() ActiveSheet.CommandButton1.BackColor = vbBlack End Sub Y cómo lo regresas a blanco? Sería mejor si tienes ToggleButton. Algo como esto: Para eso son. Puedes apagar y prender. Entonces las combinaciones serían:...