Enrique Bernal

Esta macro hace lo que necesitas, ojo al seleccionar las celdas tienes que seleccionarlas todas como si no fueran consecutivas, asi lo estén, caso contrario no funciona la macro. Sub Copia_pega() dirección = Selection.Address largo =...

De loq ue observo el orden de los códigos estaría mal, prueba con este cambio y me avisas: Entrada = InputBox("Ingrese contraseña para continuar", "PROCESO PROTEGIDO") If Entrada = "HOLA" Then Application.ScreenUpdating = False...

Hay dos formas la fácil y la difícil (je je) la fácil es con funciones personalizadas 1) Vas al editor de vba y pegas estos códigos Function NumComa(x) Dim Largo, J As Integer Letra As String Largo = Len(Trim(x)) For J = 1 To Largo Letra = Mid(x, J,...

Esa condición en una fórmula solo la he visto vía macro. SIguiendo tu ejemplo debías colocar la siguiente macro: Sub formula() ruta = Range("A1").value nombre = Range("A2").value Range("A3").value = "=suma(" & ruta & nombre & "A1:A30)" End Sub El...

No entiendo edl todo tu pregunta, pero eso de acomodar la ubicación correcta, como estamos hablando de excel y no de un programa lo debes hacer ubicando en diferentes celdas los valores, y como ayuda puedes considerar el ancho y el alto de las...

Las celdas de excel están por defecto protegidas, por tanto si colocas una clave de protección en la hoja bastaría. Vas a Revisar, das click en proteger hoja, colocas una clave(por favor que no sea 1234) la repites y listo. A menos que desbloqueen...

Estas lineas hacen lo que necesitas. Ojo la macro esta hecha para la columna A, y se pega en a hoja 2 desde la celda A1, si lo necesitas de otra manera debes modificar los códigos. Sub primera_ultima() ultima = Range("A" &...

La pregunta sería como determinas cuando empiezas un nuevo libro, porque lo sencillo es crear un libro y por cada vez que das un click que en ese nuevo libro cree una hoja nueva, pero no sabría como le dices al programa que empiece creando un nuevo libro.

Yo cambiaría esta parte del código: Range("B2500").Select Selection.End(xlUp).Select Selection.Offset(1, -1).Select Por esta: k = Range("B" & Cells.Rows.Count).End(xlUp).Row + 2 Range("B" & k).select Prueba y me avisas, la idea es que pegue dejando...

Quieres eliminar todas la repetidas, o solo eliminar las repetidas cuando son consecutivas, si es lo primero en datos hay un comando para quitar duplicados. Si lo que necesitas es que elimine solo si la repetición es consecutiva una macro te serviría.