copy same cell from multiple sheets to new sheet

[xdcfan]

hi there, 1st sorry about my english, i’ll do my best.
this is my 1st post here, i hope u can help me.

i have a workbook, with 40+ sheets named differents, not the usual “sheet 1, 2, etc.”
how can I copy the same cell of each sheet, in a new sheet, omitting the name of the sheet
ex. cell A1 of each sheet, contains the name of the sheet, I have 40+ sheets, in a new sheet I want to copy cell A1 of each sheet vertically.

i put this formula to retrive the sheet name in A1 each cell

Spanish:

=DERECHA(CELDA(“filename”;A1);LARGO(CELDA(“filename”;A1))-ENCONTRAR("]";CELDA(“filename”;A1)))

English

=RIGHT(CELL(“filename”,A1),LEN(CELL(“filename”,A1))-FIND("]",CELL(“filename”,A1)))

---

in a summary sheet i want to put cell A1 of sheet 1, cell A1 of sheet 2, etc

Results: (Spanish again)

• Sheet 1= MASCOTA ALIMENTO
• Sheet 2= MASCOTA CUIDADO E HIGIENE
• Sheet 3= MASCOTAS ACCESORIOS

[schiavinatto]

Ejecutar la macro siguiente y copiar del msgbox y pegar en la hoja de cálculo

Sub NombresHojaCálculo
	Dim oPlan
	Dim nome As String
	Dim cont As Integer
		oPlan = ThisComponent.Sheets
			For cont = 0 To oPlan.getCount() - 1
			nome = nome & oPlan(cont).Name &Chr(10)
			Next
	msgBox (nome, 0, "Hojas de trabajo existentes:" )			
End Sub

---

En el caso de que la respuesta responda a su necesidad, por favor, haga clic en la bolita a la izquierda de la izquierda respuesta, para finalizar la pregunta. O de más detalles de la necesidad.

[xdcfan]

Gracias, funcionó, solo tuve que cambiar el nombre de la función, por alguna razon al ejecutarla se truncaba.

Sub NombresHojas
    Dim oPlan
    Dim nome As String`Ingrese el código aquí`
    Dim cont As Integer
        oPlan = ThisComponent.Sheets
            For cont = 0 To oPlan.getCount() - 1
            nome = nome & oPlan(cont).Name &Chr(10)
            Next
    msgBox (nome, 0, "Hojas de trabajo existentes:" )           
End Sub

[xdcfan]

Gracias, funcionó, solo tuve que editar el nombre de la funcion porque al ejecutar me lo acortaba.

Sub NombresHojas
    Dim oPlan
    Dim nome As String
    Dim cont As Integer
        oPlan = ThisComponent.Sheets
            For cont = 0 To oPlan.getCount() - 1
            nome = nome & oPlan(cont).Name &Chr(10)
            Next
    msgBox (nome, 0, "Hojas de trabajo existentes:" )           
End Sub

Ahora, alguna forma de hacerlo con formulas??
de todas maneras muchas gracias.

---

thx, it work’s, but… i’m trying to avoid macros, theres any way posibilities to do this with a formula??

thx in advace.