Preguntas esperando respuesta
Actividad pública reciente
Ha valorado "Excelente" la respuesta
Crear una secuencia de distinción , Ejm Terraza A ,Terraza A , Terraza A Y que al final quede Terraza A,Terraza B,Terraza C .
Te anexo la macro actualizada Sub CargarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet h1.Cells.Clear tit = Array("LISTA DE MATERIALES / SPOOL A_PART...
Ha valorado "Excelente" la respuesta
2° PARTE DE Como ordenar datos con una macros en la cual están separados en distintos excel´s
Te anexo la segunda parte para ordenar Sub CargarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet h1.Cells.Clear tit = Array("LISTA DE MATERIALES / SPOOLA_PART...
Ha valorado "Excelente" la respuesta
Como ordenar datos con una macros en la cual están separados en distintos excel´s
Envíame un correo nuevo, en el asunto escribe tu nombre de usuario.
Ha preguntado en el tema en
Microsoft Excel
y en 1 temas más
Modificación de una macros, Que en ves de unir en hojas diferentes consolide une debajo de otra
Amigo Dante te envié a tu correo una macros, necesito que me ayude a modificarlo que en ves que una en un excel en diferentes hojas, que lo unas a nivel de consolidación uno debajo de otro todos los documentos .
Sin respuestas
Ha valorado "Excelente" la respuesta
Macros que en una columna te indique el nombre del excel del cual se extrajo.
H o l a: Tienes pendiente valorar esta respuesta: Macros que al encontrar la palabra "Isotype" dentro de la columna "A" Se añadan 2 filas encima de esta . Al final de mi respuesta hay 2 opciones para valorar: "Votar" y "Excelente", si todavía tienes...
Ha valorado "Excelente" la respuesta
Macros que al encontrar la palabra "Isotype" dentro de la columna "A" Se añadan 2 filas encima de esta .
H o l a: Te anexo la macro Sub AgregarFilas() 'Por.Dante Amor For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "A") = "Isotype" Then Rows(i & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If Next...
Ha empezado a seguir a