Dante Amor

Puedes poner un par de ejemplos resueltos, es decir, en el lunes para Beti Jai, ¿Cuál es el resultado?

Prueba la siguiente macro Sub copiarcolumnas() Dim i As Long For i = Columns("B").Column To Columns("N").Column Range(Cells(1, i), Cells(Cells(Rows.Count, i).End(3).Row, i)).Copy Range("A" & Rows.Count).End(3)(2) Next End Sub

No se si debo ingresarles el código que tengo para el Botón editar o el botón Ingresar. Sí, por favor, pon todo tu código. O mejor aún, si puedes compartir tu archivo en google drive, comparte el enlace para cualquiera, copia el enlace y pega aquí....

[Hola Emilio y bienvenido a todoexpertos. Prueba lo siguiente: Sub copiardatos() Dim lr As Long ' Range("C6:G" & Rows.Count).ClearContents lr = 6 Sheets("Hoja2").Range("Tabla1[#All]").AdvancedFilter Action:=xlFilterCopy, _...

Sería ideal ver un ejemplo para ayudarte con la fórmula. Revisa los siguientes ejemplos e intenta construir la fórmula: Fórmula excel con condición y subtotales, en la celda A Contar palabras después de filtrar Si tienes dudas, comparte un archivo en...

¿Pero de cuál casilla es la que debe cambiar?

Prueba lo siguiente: Sub reiniciar() Dim pwd As Variant pwd = InputBox("Captura el password", "INICIAR") If pwd = "" Then Exit Sub If pwd <> "abc" Then MsgBox "Password incorrecto" Exit Sub End If ' 'continuarcon tu código ' End Sub

Debes desproteger la hoja antes de afectar la celda. Al finalizar la macro debes proteger nuevamente la hoja, por ejemplo:

El editor de la página de todoexpertos no permite poner el texto : Puedes escribirlo con espacios algo como esto: Chr ( 10 ) o escribe Chr_(_10_) Y explica que los guiones deben ser eliminados, ya que el editor no permite poner el texto mencionado....

Puedes compartir tu libro en google drive para revisarlo Comparte el archivo para cualquiera que tenga el enlace. Copia el enlace y lo pegas aquí