Borrar columna A de excel si no es "créditos sobre clientes"

Hola, tengo un documento donde en la columna A hay 3700 entradas y quiero copiar unicamente las que comienzan por "créditos sobre clientes" ¿Podríais ayudarme?

Gracias

1 respuesta

Respuesta
1

No se condice el título con el contenido de la consulta, así que veamos si comprendí:

Recorrer la col A y si encuentra un texto que se inicia con 'créditos...' lo copie... ¿adónde? Imaginaré que se copia LA CELDA en OTRA HOJA, luego lo ajustas. Lee los comentarios para comprender lo que se realiza en cada paso y poder ajustarlo.

Sub copiaCeldas()
'x Elsamatilde
'recorre la hoja activa a partir de fila 1, hasta encontrar una celda vacía-Fin de rango
filx = 2 '1er fila destino
Range("A1").Select
While ActiveCell.Value <> ""
If Left(ActiveCell.Value, 23) = "créditos sobre clientes" Then
 'copia la celda en Hoja2
 ActiveCell.Copy Destination:=Sheets("Hoja2").Cells(filx, 1)
 filx = filx + 1
End If
'pasa a la fila sgte y repite el bucle
ActiveCell.Offset(1, 0).Select
Wend
End Sub

PD) Todo el tema 'bucles' lo podés encontrar en mi Guía N° 6:

http://aplicaexcel.galeon.com/guias.htm

Te recuerdo que la consulta sigue abierta... podes solicitar Aclaraciones o Finalizar.

Sdos

Elsa

En este foro las consultas deben finalizarse para poder seguir dejando otras en el tablón... trata de no quedan inhabilitado... repregunta o finaliza.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas