Dwanny VH

James Bond respondió: Esta macro recorre todas las hojas descartando la hoja5, busca en estas la palabra proyecto e identifica la columna donde se encuentra por ejemplo si esta en la columna E entonces E sera igual a 5, si esta en DE, DE sera igual a 4, luego aplicando un...

James Bond respondió: Prueba con esta macro, solo cambia hoja1 por el nombre de la hoja donde quieras copiar tus datos. Sub copiar() hojas = Worksheets.Count - 1 x = 1 For Each hoja In Worksheets If Sheets(hoja.Name).Name <> "hoja1" Then Sheets(hoja.Name).Rows(44).Copy...

Anónimo respondió: Te dejo una imagen donde se ve en la celda B2 la fórmula aplicada (que debes copiar hacia abajo) Salu2

Dante Amor respondió: H ol a: Te anexo la macro Sub Insertar_Filas() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("H" & Rows.Count).End(xlUp).Row To 1 Step -1 num = Cells(i, "H") If num <> "" And IsNumeric(num) Then Rows(i).Copy Rows(i + 1 & ":" & i +...