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
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?
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
Valora esta pregunta
0