Muchas gracias por el aporte ,y también a Jefferson Valladares . Modifiqué la macro para que pueda empezar desde la columna y fila que queramos , solo deben cambiar los valores de "x" e "y" en la macro . X para la fila comenzaremos y Y la ubicación de la columna donde están los metrados , en este caso x=6 / y= 3. Éxitos !! Sub Generar_items() i = 0 index1 = 0 Dim x As Variant, y As Variant x = 6 y = 3 Do While Cells(x + i, y) "" If Cells(x + i, y).IndentLevel = 0 Then index1 = index1 + 1 index2 = 0 Cells(x + i, y - 1) = "'" & Format(index1, "00") ElseIf Cells(x + i, y).IndentLevel = 1 Then index2 = index2 + 1 index3 = 0 Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") ElseIf Cells(x + i, y).IndentLevel = 2 Then index3 = index3 + 1 index4 = 0 Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") ElseIf Cells(x + i, y).IndentLevel = 3 Then index4 = index4 + 1 index5 = 0 Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") & "." & Format(index4, "00") ElseIf Cells(x + i, y).IndentLevel = 4 Then index5 = index5 + 1 Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") & "." & Format(index4, "00") & "." & Format(index5, "00") End If i = i + 1 Loop End Sub
Excelentes aportes llevaba años buscando tutoriales de excel para mejorar la apariencia de mis memorias de cálculo, y pues ayuditas con otros temas, muchas gracias y ojalá colgara más videos de excel para estructuras.
Hola he seguido su video y me funciona correctamente. Es perfecto. ¿Una pregunta como guardo esta información en una base de datos? Imaginemos que esto corresponde a un árbol de fabricación de un articulo, puedo recorrer fila y columna y guardarlo, pero el espacio de tabulación ¿Cómo lo guardo? Y si desde una BBDD, quiero otro articulo que incluya una parte del anterior ¿Cómo debería guardarse? ¿de forma individual y luego ir añadiendo? Gracias
Excelente vídeo; si me puede ayudar, como hacer que las partidas al igual que lo niveles (1,2,3), en la misma columna ponga "p" y se genere normal los items pero que sean color normal (color de la tarea en el ejemplo), pero que su generación de item sea condicionada si es "p" y sino no es vació no genere (modifiqué e hice que cuando ponga el numero de nivel 1,2,3, ese nivel de items me genera sin importar de la sangría por decir si nivel 1 me genera 01, si es nivel 2 genera 01.01 y así sucesivamente y cuando no pongo nada no me genera; pero ahora tengo un problema que deseo que cuando ponga solo P me genera items correctos como los de las tareas en tu ejemplo, ya que estoy acondicionando para una hoja de metrados, tengo títulos, partidas y detalles estos últimos no llevan items)
No habría una mejor forma de identificar los títulos?, por ejemplo un comando que identifique si la sangría de la celda de abajo es inferior a al primera, si es que da verdadero, se le podria considerar como titulo, y si la sangria es igual o mayor, se le considera como partida
Amigo amigo me sale un error al saltarme un tipo de sangria, por ejemplo que después del titulo principal el siguiente sea tarea 1, 01.01.02, cuando debería reiniciarse, no se reinicia el conteo
Todo el trabajo que has presentado en tu canal realmente es un aporte de mucho valor.
Muchas gracias por el aporte ,y también a Jefferson Valladares .
Modifiqué la macro para que pueda empezar desde la columna y fila que queramos , solo
deben cambiar los valores de "x" e "y" en la macro . X para la fila comenzaremos y Y la ubicación de la columna donde están los metrados , en este caso x=6 / y= 3. Éxitos !!
Sub Generar_items()
i = 0
index1 = 0
Dim x As Variant, y As Variant
x = 6
y = 3
Do While Cells(x + i, y) ""
If Cells(x + i, y).IndentLevel = 0 Then
index1 = index1 + 1
index2 = 0
Cells(x + i, y - 1) = "'" & Format(index1, "00")
ElseIf Cells(x + i, y).IndentLevel = 1 Then
index2 = index2 + 1
index3 = 0
Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00")
ElseIf Cells(x + i, y).IndentLevel = 2 Then
index3 = index3 + 1
index4 = 0
Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00")
ElseIf Cells(x + i, y).IndentLevel = 3 Then
index4 = index4 + 1
index5 = 0
Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") & "." & Format(index4, "00")
ElseIf Cells(x + i, y).IndentLevel = 4 Then
index5 = index5 + 1
Cells(x + i, y - 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") & "." & Format(index4, "00") & "." & Format(index5, "00")
End If
i = i + 1
Loop
End Sub
y cuando tienes descripciones metrados, pero no se le quiere q se enumere?
@@Ausmolder le aumentas una sangría mas
para los que no sufran como yo...
Sub Generar_items()
i = 0
index1 = 0
Do While Cells(8 + i, 2) ""
If Cells(8 + i, 2).IndentLevel = 0 Then
index1 = index1 + 1
index2 = 0
Cells(8 + i, 1) = "'" & Format(index1, "00")
ElseIf Cells(8 + i, 2).IndentLevel = 1 Then
index2 = index2 + 1
index3 = 0
Cells(8 + i, 1) = "'" & Format(index1, "00") & "." & Format(index2, "00")
ElseIf Cells(8 + i, 2).IndentLevel = 2 Then
index3 = index3 + 1
index4 = 0
Cells(8 + i, 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00")
ElseIf Cells(8 + i, 2).IndentLevel = 3 Then
index4 = index4 + 1
index5 = 0
Cells(8 + i, 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") & "." & Format(index4, "00")
ElseIf Cells(8 + i, 2).IndentLevel = 4 Then
index5 = index5 + 1
Cells(8 + i, 1) = "'" & Format(index1, "00") & "." & Format(index2, "00") & "." & Format(index3, "00") & "." & Format(index4, "00") & "." & Format(index5, "00")
End If
i = i + 1
Loop
End Sub
te ganaste el cielo
SOS UN ANGEL MI HERMANO!!!
TE MERECES UNA CHELA CAUSA
Grande Papu !!
te mereces el cielo x 2
Excelentes aportes llevaba años buscando tutoriales de excel para mejorar la apariencia de mis memorias de cálculo, y pues ayuditas con otros temas, muchas gracias y ojalá colgara más videos de excel para estructuras.
Ho muy Bueno Gracias por su tema, es muy motivador a aprender una extra más. Que Dios te bendiga.
Muchas gracias por la información 👍
Excelente tutorial 👍
genial maestro, muchas gracias, bendiciones.
CAPO, GRACIAS
Muchas gracias.
Muy pero que muy interesante
Hola he seguido su video y me funciona correctamente. Es perfecto. ¿Una pregunta como guardo esta información en una base de datos?
Imaginemos que esto corresponde a un árbol de fabricación de un articulo, puedo recorrer fila y columna y guardarlo, pero el espacio de tabulación ¿Cómo lo guardo? Y si desde una BBDD, quiero otro articulo que incluya una parte del anterior ¿Cómo debería guardarse? ¿de forma individual y luego ir añadiendo?
Gracias
Excelente tutorial
Exelente hermano !
LO MAXIMO .. !!!
Excelente vídeo; si me puede ayudar, como hacer que las partidas al igual que lo niveles (1,2,3), en la misma columna ponga "p" y se genere normal los items pero que sean color normal (color de la tarea en el ejemplo), pero que su generación de item sea condicionada si es "p" y sino no es vació no genere (modifiqué e hice que cuando ponga el numero de nivel 1,2,3, ese nivel de items me genera sin importar de la sangría por decir si nivel 1 me genera 01, si es nivel 2 genera 01.01 y así sucesivamente y cuando no pongo nada no me genera; pero ahora tengo un problema que deseo que cuando ponga solo P me genera items correctos como los de las tareas en tu ejemplo, ya que estoy acondicionando para una hoja de metrados, tengo títulos, partidas y detalles estos últimos no llevan items)
No habría una mejor forma de identificar los títulos?, por ejemplo un comando que identifique si la sangría de la celda de abajo es inferior a al primera, si es que da verdadero, se le podria considerar como titulo, y si la sangria es igual o mayor, se le considera como partida
Buenas, una consulta
Y si empiezo con el item 02
Disculpa la casilla B7 me corre hacia el infinito no se cual podría ser el problema , gracias
ME FUNCIONA PERO SOLAMENTE HASTA LA FILA 25? DESPUES YA NO HACE NADA. COMO SOLUCIONARLO?
gracias
no se por que me sale erro de compilacion
amigazo que tal... te consulto.. ese simbolito que indicas en el minuto 8.. cual es? como se le escribe?
aun estas hay? tengo consultas
Amigo amigo me sale un error al saltarme un tipo de sangria, por ejemplo que después del titulo principal el siguiente sea tarea 1, 01.01.02, cuando debería reiniciarse, no se reinicia el conteo
Cuando borro la descripción no se borra los items
PODRÍA SUBIR EL ARCHIVO FINAL
no se ah definido sub o funcion
POR FAVOR SUBE EL ARCHIVO DE NUEVO, YA NO EXISTE
th-cam.com/video/JKBfoMNEQoc/w-d-xo.html, les paso mi hoja, gracias a este video pude desarrollarlo
muy interesante , gracias pasame tu hoja de calculo porfas resnickalonso@gmail.com