Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Eliminar columnas

07/12/2006 - 18:58 por Alejandro Garcia | Informe spam
Ayuda Hacer una pregunta
Tengo el siguiente macro que alguien me lo dio en algun momento que
estaba necesitando:

Sub concatena()
Dim celda As Range
For Each celda In Selection
celda = celda.Offset(0, 1) & " " & celda.Offset(0, 2) & " " &
celda.Offset(0, 3)
Next celda
End Sub

Me gustaría, si es posible eliminar las columnas que concatene, es
decir, aplico la rutina en la columna A y me concatena las columnas B,
C y D. Luego, deseo eliminar estas ultimas columnas.

Gracias.
email Siga el debateRespuesta 10 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 J.P.
07/12/2006 - 20:10 | Informe spam
Buena tarde

Despues de la linea Next celda agregue

Columns("B:D").Select
Selection.Delete Shift:=xlToLeft
Range("A1").selec
Alejandro Garcia ha escrito:


Tengo el siguiente macro que alguien me lo dio en algun momento que
estaba necesitando:

Sub concatena()
Dim celda As Range
For Each celda In Selection
celda = celda.Offset(0, 1) & " " & celda.Offset(0, 2) & " " &
celda.Offset(0, 3)
Next celda
End Sub

Me gustaría, si es posible eliminar las columnas que concatene, es
decir, aplico la rutina en la columna A y me concatena las columnas B,
C y D. Luego, deseo eliminar estas ultimas columnas.

Gracias.

Preguntas similares

 

Busqueda sugerida :