Dante Amor

Te anexo la macro, considerando que los datos empiezan en la columna A y que tienes los encabezados en la fila 1; y los datos quedarán en la "hoja2" en las columnas A, B y C, empezando en la fila 2. Si no tienes los así los datos, entonces tienes que...

H o la: Para copiar de forma automática la fila de un libro a otro, se tiene que poner la macro en los eventos de la hoja "DataBase Bewerber". También es necesario que me digas, si en la columna "X" escribes la palabra "activo" o es resultado de...

La macro no está completa. Puedes enviarme tu archivo y me explicas qué vas a hacer y en dónde quieres la barra.

Se puede hacer una macro que seleccione, por ejemplo, desde la celda A2 hasta la última fila con datos de la columna A, los copie y los pegue en otra hoja. Pero para hacer la macro, me tienes que decir lo siguiente: Cómo se llama la hoja con...

Para poner las posiciones relativas en un a fórmula, debes conocer en cuál celda vas a poner la fórmula. Si no tienes en cuál celda vas a poner la fórmula, entonces hay que poner la referencia tal como lo indicas A$3:A3 Sub Macro5() '...

H ol a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Set Rng = Range("B4:B444") If Not Intersect(Target, Rng) Is Nothing Then Application.ScreenUpdating = False ActiveSheet.Unprotect...

Pero la revisión la hace con una celda. Para pasarlo a un módulo necesitas decirme cuál celda, ¿o qué sea la celda que selecciones?

Te anexo la macro Sub Macro1() 'Por.Dante Amor With Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row) .SpecialCells(xlCellTypeBlanks) = "=R[-1]C" .Value = .Value End With End Sub La macro busca la última fila en la columna A, si la última fila...

H o l a : Te anexo la macro actualizada Sub correo() 'Por.Dam ufila = Range("B" & Rows.Count).End(xlUp).Row col = Range("H1").Column For i = 2 To ufila Set dam1 = CreateObject("outlook.application") Set dam2 = dam1.CreateItem(olMailItem) dam2.To =...

H o l a: Le hice el cambio de la fila para que empiece a pegar desde la fila 32. También declaré las variables, por si tienes activado la opción de requerir la declaración de variables. Por lo demás la veo bien: Sub Copiar() Dim h1, h2, fila, u1, u2,...