Excel - Buscar Valores en un rango y copiarlas en otro rango

   
Vista:

Buscar Valores en un rango y copiarlas en otro rango

Publicado por karla (1 intervención) el 12/09/2017 20:33:21
Hola Buenas Tardes. Soy nueva aquí, y necesito de su ayuda, estoy trabajando con excel en macros y me gustaria que al buscar un valor en un rango me lo agregara en otro rango ya sea B2:B7 pero si ese valor no se encuentra que pase a verificar otros valores, lo que he hecho es esto
1
2
3
4
5
6
7
8
9
10
Dim rng As Range
Set rng = Range("F7:F101").Find(What:="Secretaria", _
            LookAt:=xlWhole, LookIn:=xlValues)
If rng = Range("F7:F101").Find(What:="Secretaria") Then
'Set rng = Range("F7: F101").Find(What:="Auxiliar de Contabilidad")
'If rng Is Nothing Then
Range("B7:B101") = ""
Else
    Range("B7:B101") = "A"
End If
eh especificado un texto a copiarse si se encuentra el valor buscado, pero lo malo es que se copia en todo el rango, alguien podria ayudarme?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder