Rango de celdas usando una macro

Buenos Tardes jcgonzalez31, quiero pedirte un gran favor, acerca de una macro que estoy haciendo en excel, pero la verdad humildemente te digo que no soy un experto, y tengo problemas para obtener el resultado deseado, bueno aquí les planteo mi problema.
Quiero validar la celda a1, si se cumple la condición que me despliegue un resultado en la celda b1 y en la celda c1 ( esto ya lo hace), pero solo funciona en la celda A1, y yo la necesitopa desde la A1 hasta la A1000
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = "SUB1" Then
Sheets("Hoja1").Range("b1").Value = "DESC1"
Sheets("Hoja1").Range("c1").Value = "CLASIF1"
ElseIf Range("A1").Value = "SUB2" Then
Sheets("Hoja1").Range("b1").Value = "DESC2"
Sheets("Hoja1").Range("c1").Value = "CLASIF2"
ElseIf Range("A1").Value = "SUB3" Then
Sheets("Hoja1").Range("b1").Value = "DESC3"
Sheets("Hoja1").Range("c1").Value = "CLASIF3"
Else: Range("C1").Value = "ERRORSOTE"
End If
End Sub
Pero esta macro solo funciona en la celda A1, si me posiciono en la celda A2, ya no hace nada, y yo la necesito desde la A1 hasta la A1000
Te agradezco tu atención. "saludos"

1 respuesta

Respuesta
1
Prueba así:
If ActiveCell.Value = "SUB1" Then
Sheets("Hoja1").Range("b1").Value = "DESC1"
Sheets("Hoja1").Range("c1").Value = "CLASIF1"
ElseIf ActiveCell.Value = "SUB2" Then
Sheets("Hoja1").Range("b1").Value = "DESC2"
Sheets("Hoja1").Range("c1").Value = "CLASIF2"
ElseIf ActiveCell.Value = "SUB3" Then
Sheets("Hoja1").Range("b1").Value = "DESC3"
Sheets("Hoja1").Range("c1").Value = "CLASIF3"
Else: Range("C1").Value = "ERRORSOTE"
End If
[email protected]
Primeramente gracias por contestarme, ya me toma encuenta si tecleo un valor en la columna A, ya sea A1, A2, A3, AX, sin embargo el resultado lo despliega solo en las celdas B1, C1, es decir
si yo introduzco valor en la celda A1, me despliega el resultado en las CELDAS B1, Y C1
si yo introduzco valor en la celda A2, me sigue desplegando el resultado en la celda B1 Y C1
como le puedo hacer para que me despliegue el resultado depediento de la fila en donde este, ejemplo:
a1, resultado en b1, c1
A2, resultado en B2, C2, y asi sucesivamente.
Gracias, anticipadas
Si estamos hablando de la primera hoja, sería:
ActiveCell.OffSet(0,1).Value = "DESC1"
ActiveCell.OffSet(0,2).Value = "CLASIF1"
Y así sucesivamente.
Perfecto, Muchísimas gracias por tu apoyo, me ha sido de gran utilidad, espero algún día corresponderte.
Un Abrazo, que estés muy bien, y muchas gracias de nuevo.
"saludos"
Víctor A.H.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Buscar V usando una macro

Intento realizar una búsqueda vertical en un numero indeterminado de datos. La idea es que cuando yo ingrese un valor en la casilla "F1" de la hoja N° 1 me de los datos almacenados en la hoja 2 dispuestos en la calumna AyB(estos datos los puedo...
1 respuesta

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta

"VLOOKUP" la segunda y la tercera coincidencia

Buscando un dato con "VLOOKUP" me da la primera coincidencia pero tiene 3 coincidencias como pedir la segunda y la tercera
1 respuesta

¿Puedo extraer el valor de una misma celda en varias hojas diferentes y que aparezca en otra hoja?

Quería saber si existe alguna función en excel con la que pueda extraer el valor de una misma celda pero de varias hojas diferentes y que aparezca en otra hoja. Por ejemplo si tengo Hoja1, Hoja2 y Hoja3 tengo que hacer que el valor de la celda A1 de...
1 respuesta

Buscar datos en diferentes hojas

Tengo 2 hojas en excel, donde cada hoja tiene en promedio 1000 registros, ademas en cada hoja hay datos de clientes, cada hoja tiene 3 campos (DNI, Nombres, Dirección). Lo que deseo es buscar a los clientes de la hoja 2 q se repiten en la hoja 1 y me...
5 respuestas

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Macro para contar y sumar valores

Esta pregunta es para el experto Luis Mondelo: Tengo las columna CP y CZ en la hoja1, necesito que en la primera me cuente las celdas no vacías y la segunda me haga una sumatoria de todos los valores que encuentre. Los dos resultados me los copie en...
1 respuesta