Excel ... Un macro plis

Hola
Tengo un problema que resolver y no sé muy bien cómo hacerlo ( o llego hasta la mitad de la solución)
Yo manejo datos en forma vertical " muchos datos " y estos datos tienen otros datos asociados en columnas pegadas ej
email adjunto
[email protected] archivo1.jpg
[email protected] archivo2.jpg
[email protected] archivo3.jpg
[email protected] archivo4.jpg
[email protected] archivo1.jpg
[email protected] archivo2.jpg
[email protected] archivo3.jpg
[email protected] archivo1.jpg
[email protected] archivo2.jpg
[email protected] archivo3.jpg
Lo que yo necesito es crear una macro que me deje los datos así.
email adjunto1 adjunto 2 adjunto 3 adjunto 4
[email protected] archivo1.jpg archivo2.jpg archivo3.jpg archivo4.jpg
[email protected] archivo1.jpg archivo2.jpg archivo3.jpg
[email protected] archivo1.jpg archivo2.jpg archivo3.jpg
alguien puede ayudarme plis+
Gracias a todos
Respuesta
1
En un excel
A B
A 1
A 2
A 3
A 4
A 5
B 1
B 2
B 3
B 4
B 5
Sean estos datos, empezando de la fila 1, y con este código:
Public Sub ordena()
Dim FILA, COLUMNA1 As Long
Const columna As Long = 2
COLUMNA1 = 3
For FILA = 2 To Hoja1.Rows.Count - 100
    If Hoja1.Cells(FILA, 1).Value = Hoja1.Cells(FILA - 1, 1).Value And Hoja1.Cells(FILA, 1).Value <> "" Then
        Hoja1.Cells(FILA - 1, COLUMNA1).Value = Hoja1.Cells(FILA, columna).Value
        Rows(FILA & ":" & FILA).Select
        Selection.Delete Shift:=xlUp
        COLUMNA1 = COLUMNA1 + 1
        FILA = FILA - 1
    Else
        COLUMNA1 = 3
    End If
Next FILA
End Sub
Ejecutalo a ver si es eso lo que quieres.
En mi excel 2007 lo intente aplicar con visual 6.5 que llama desde excel
no pude.. ¿o al menos no me dio el resultado ... a ti te funciono?
Gracias
msn... [email protected]
A mio me funciona en excel 2003, te mando el excel, que ejecta ese código.
Sigue la linea de todoexperos y deja el correo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo hacer una función SI() anidada, haciendo comprobaciones en cascada?

He creado una función para hacer comprobaciones en cascada, pero algo está mal y me da un aviso que la fórmula es incoherente, Me explico: Tengo una base de datos de pagos los cuales son a crédito, así que tengo los diferentes pagos en diferentes...
2 respuestas

Calculo de unidades por superficies

Necesitaría una fórmula que me calculara la cantidad mínima de piezas que necesito para cubrir 0.5 m2. (50anchox100alto cm) Tengo los siguientes descripciones: - Placa metálica de acero al carbono 60x60 cm. Me tendría que dar el valor 2, ya que con...
1 respuesta

Traspaso de valores con decimales en formulario de Escell

Tengo un formulario en el que tengo un capo de moneda, el primer problema es que tengo que utilizar la coma y no el punto y el segundo es que me traspasa los datos como texto y no como numero os adjunto el código Private Sub CommandButton1_Click()...
2 respuestas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
1 respuesta

Fórmula para poner en celda que haga la concatenación de celdas visibles en un rango dado.

NECesito una fórmula para poner en K1, según el cuadro que adjunto, para que en K1, me haga, de forma automática, la concatenación de las celdas que queden visibles en el rango k4:K11, YA que al filtrar se pueden mostrar todas o solo parte de ellas....
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
3 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
3 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas