alexfpi

Cadipas spain respondió: Creo que la macro tiene que estar en un modulo y que la ejecutes dentro de este lazo: For hoja = 1 To Sheets.Count Sheets(hoja).Range("a1") = 15 Next '--------- En este ejemplo al ejecutar la macro, en todas las hojas en la celda A1 pongo el número...

calvuch respondió: Con este sub creas hojas dándole el nombre de lo que tengas en columna A de hoja1 Tal vez lo puedas adaptar a tu proyecto Sub crea_hoja() Dim i As Integer Worksheets.Item(1).Select [a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)" For i = 1 To...