Joaquin Aravena

Chile @joaquinaravena desde 2018 - visto 2018

Preguntar

Actividad pública reciente

Fórmula con rango hasta ultima fila con datos

respondió:

Joaquin Aravena, Adjunto código con el desarrollo de tu consulta para su revisión. Sub FxContarSi() Range("K6") = Application.WorksheetFunction.CountIf(Range(Range("D3"), Range("D3").End(xlDown)), "<>#N/A") End Sub Espero que te sirva de ayuda y este...

1 respuesta

Macro que copie una fórmula hasta ultima fila con datos de una columna

respondió:

Joaquin Aravena, Adjunto código según requerimiento para su revisión. Asumiendo que en la columna A los datos inicia en la celda A1. Sub ejemplo() Dim UltFila As Long, Rango As String UltFila = Range("A1").End(xlDown).Row...

5 respuestas

Responder

Macro que copie una Columna tomando como criterio "Hasta la ultima fila con datos de la columna de al lado"

respondió:

Te anexo la macro, cada que la ejecutes te creará una hoja nueva. Sub Macro9() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets.Add(after:=Sheets(Sheets.Count)) u = h1.Range("A" & Rows.Count).End(xlUp).Row h1.Range("D2:D" & u & ",F2:F" & u &...