Seleccionar celdas automaticamente

Hola!
Tengo una hoja de excel, con numeros para imprimir:
de la celda A1 a la P1 estan del 1 al 16 correlativamente
de la A2 a la P2, del 17 al 32 y asi hasta el 96.
Me gustaria poder hacer, que poniendo un numero en alguna celda, cuadro de texto, o donde sea, se seleccionaran las celdas desde el 1 hasta el numero puesto.
Gracias anticipadas.

1 respuesta

Respuesta
1
Disculpa pero me has pillado muy liado
Si lo sigues necesitando dimelo y lo intentare este fin de semana
Si, si, por favor.
Disculpa de nuevo por la tardanza
Lo cierto es que intente algo mas sencillo pero no me sale, cree el codigo siguiente que aunque es muy largo funciona perfecto
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Q1") = 1 Then
  Range("A1").Select
End If
If Range("Q1") = 2 Then
  Range("A1:b1").Select
End If
If Range("Q1") = 3 Then
  Range("A1:c1").Select
End If
If Range("Q1") = 4 Then
  Range("A1:d1").Select
End If
If Range("Q1") = 5 Then
  Range("A1:e1").Select
End If
If Range("Q1") = 6 Then
  Range("A1:f1").Select
End If
If Range("Q1") = 7 Then
  Range("A1:g1").Select
End If
If Range("Q1") = 8 Then
  Range("A1:h1").Select
End If
If Range("Q1") = 9 Then
  Range("A1:i1").Select
End If
If Range("Q1") = 10 Then
  Range("A1:j1").Select
End If
If Range("Q1") = 11 Then
  Range("A1:k1").Select
End If
If Range("Q1") = 12 Then
  Range("A1:l1").Select
End If
If Range("Q1") = 13 Then
  Range("A1:m1").Select
End If
If Range("Q1") = 14 Then
  Range("A1:n1").Select
End If
If Range("Q1") = 15 Then
  Range("A1:o1").Select
End If
If Range("Q1") = 16 Then
  Range("A1:p1").Select
End If
If Range("Q1") = 17 Then
  Range("A1:p1,A2").Select
End If
If Range("Q1") = 18 Then
  Range("A1:p1,A2:B2").Select
End If
If Range("Q1") = 19 Then
  Range("A1:p1,A2:c2").Select
End If
If Range("Q1") = 20 Then
  Range("A1:p1,A2:d2").Select
End If
If Range("Q1") = 21 Then
  Range("A1:p1,A2:e2").Select
End If
If Range("Q1") = 22 Then
  Range("A1:p1,A2:f2").Select
End If
If Range("Q1") = 23 Then
  Range("A1:p1,A2:g2").Select
End If
If Range("Q1") = 24 Then
  Range("A1:p1,A2:h2").Select
End If
If Range("Q1") = 25 Then
  Range("A1:p1,A2:i2").Select
End If
If Range("Q1") = 26 Then
  Range("A1:p1,A2:j2").Select
End If
If Range("Q1") = 27 Then
  Range("A1:p1,A2:k2").Select
End If
If Range("Q1") = 28 Then
  Range("A1:p1,A2:l2").Select
End If
If Range("Q1") = 29 Then
  Range("A1:p1,A2:m2").Select
End If
If Range("Q1") = 30 Then
  Range("A1:p1,A2:n2").Select
End If
If Range("Q1") = 31 Then
  Range("A1:p1,A2:o2").Select
End If
If Range("Q1") = 32 Then
  Range("A1:p1,A2:p2").Select
End If
If Range("Q1") = 33 Then
  Range("A1:p2,A3").Select
End If
If Range("Q1") = 34 Then
  Range("A1:p2,A3:b3").Select
End If
If Range("Q1") = 35 Then
  Range("A1:p2,A3:c3").Select
End If
If Range("Q1") = 34 Then
  Range("A1:p2,A3:b3").Select
End If
If Range("Q1") = 35 Then
  Range("A1:p2,A3:c3").Select
End If
If Range("Q1") = 36 Then
  Range("A1:p2,A3:d3").Select
End If
If Range("Q1") = 37 Then
  Range("A1:p2,A3:e3").Select
End If
If Range("Q1") = 38 Then
  Range("A1:p2,A3:f3").Select
End If
If Range("Q1") = 39 Then
  Range("A1:p2,A3:g3").Select
End If
If Range("Q1") = 40 Then
  Range("A1:p2,A3:h3").Select
End If
If Range("Q1") = 41 Then
  Range("A1:p2,A3:i3").Select
End If
If Range("Q1") = 42 Then
  Range("A1:p2,A3:j3").Select
End If
If Range("Q1") = 43 Then
  Range("A1:p2,A3:k3").Select
End If
If Range("Q1") = 44 Then
  Range("A1:p2,A3:l3").Select
End If
If Range("Q1") = 45 Then
  Range("A1:p2,A3:m3").Select
End If
If Range("Q1") = 46 Then
  Range("A1:p2,A3:n3").Select
End If
If Range("Q1") = 47 Then
  Range("A1:p2,A3:o3").Select
End If
If Range("Q1") = 48 Then
  Range("A1:p2,A3:p3").Select
End If
If Range("Q1") = 49 Then
  Range("A1:p3,A4").Select
End If
If Range("Q1") = 50 Then
  Range("A1:p3,A4:B4").Select
End If
If Range("Q1") = 51 Then
  Range("A1:p3,A4:c4").Select
End If
If Range("Q1") = 52 Then
  Range("A1:p3,A4:d4").Select
End If
If Range("Q1") = 53 Then
  Range("A1:p3,A4:e4").Select
End If
If Range("Q1") = 54 Then
  Range("A1:p3,A4:f4").Select
End If
If Range("Q1") = 55 Then
  Range("A1:p3,A4:g4").Select
End If
If Range("Q1") = 56 Then
  Range("A1:p3,A4:h4").Select
End If
If Range("Q1") = 57 Then
  Range("A1:p3,A4:i4").Select
End If
If Range("Q1") = 58 Then
  Range("A1:p3,A4:j4").Select
End If
If Range("Q1") = 59 Then
  Range("A1:p3,A4:k4").Select
End If
If Range("Q1") = 60 Then
  Range("A1:p3,A4:l4").Select
End If
If Range("Q1") = 61 Then
  Range("A1:p3,A4:m4").Select
End If
If Range("Q1") = 62 Then
  Range("A1:p3,A4:n4").Select
End If
If Range("Q1") = 63 Then
  Range("A1:p3,A4:o4").Select
End If
If Range("Q1") = 64 Then
  Range("A1:p3,A4:p4").Select
End If
If Range("Q1") = 65 Then
  Range("A1:p4,A5").Select
End If
If Range("Q1") = 66 Then
  Range("A1:p4,A5:B5").Select
End If
If Range("Q1") = 67 Then
  Range("A1:p4,A5:c5").Select
End If
If Range("Q1") = 68 Then
  Range("A1:p4,A5:d5").Select
End If
If Range("Q1") = 69 Then
  Range("A1:p4,A5:e5").Select
End If
If Range("Q1") = 70 Then
  Range("A1:p4,A5:f5").Select
End If
If Range("Q1") = 71 Then
  Range("A1:p4,A5:g5").Select
End If
If Range("Q1") = 72 Then
  Range("A1:p4,A5:h5").Select
End If
If Range("Q1") = 73 Then
  Range("A1:p4,A5:i5").Select
End If
If Range("Q1") = 74 Then
  Range("A1:p4,A5:j5").Select
End If
If Range("Q1") = 75 Then
  Range("A1:p4,A5:k5").Select
End If
If Range("Q1") = 76 Then
  Range("A1:p4,A5:l5").Select
End If
If Range("Q1") = 77 Then
  Range("A1:p4,A5:m5").Select
End If
If Range("Q1") = 78 Then
  Range("A1:p4,A5:n5").Select
End If
If Range("Q1") = 79 Then
  Range("A1:p4,A5:o5").Select
End If
If Range("Q1") = 80 Then
  Range("A1:p4,A5:p5").Select
End If
If Range("Q1") = 81 Then
  Range("A1:p5,A6").Select
End If
If Range("Q1") = 82 Then
  Range("A1:p5,A6:B6").Select
End If
If Range("Q1") = 83 Then
  Range("A1:p5,A6:c6").Select
End If
If Range("Q1") = 84 Then
  Range("A1:p5,A6:d6").Select
End If
If Range("Q1") = 85 Then
  Range("A1:p5,A6:e6").Select
End If
If Range("Q1") = 86 Then
  Range("A1:p5,A6:f6").Select
End If
If Range("Q1") = 87 Then
  Range("A1:p5,A6:g6").Select
End If
If Range("Q1") = 88 Then
  Range("A1:p5,A6:h6").Select
End If
If Range("Q1") = 89 Then
  Range("A1:p5,A6:i6").Select
End If
If Range("Q1") = 90 Then
  Range("A1:p5,A6:j6").Select
End If
If Range("Q1") = 91 Then
  Range("A1:p5,A6:k6").Select
End If
If Range("Q1") = 92 Then
  Range("A1:p5,A6:l6").Select
End If
If Range("Q1") = 93 Then
  Range("A1:p5,A6:m6").Select
End If
If Range("Q1") = 94 Then
  Range("A1:p5,A6:n6").Select
End If
If Range("Q1") = 95 Then
  Range("A1:p5,A6:o6").Select
End If
If Range("Q1") = 96 Then
  Range("A1:p5,A6:p6").Select
End If
End Sub
Cuando introduces el valor en la celda Q1 y pulsas enter te selecciona desde 1 hasta el valor introducido
esto lo has de insertar en el codigo de la hoja
si te vale cierra la pregunta y si necesitas alguna aclaracion no dudes en pedirmela
Salu2
Hola.
Vaya curro que te has pegado... Tambien me vendra bien para otras cosas.
Como tardabas tanto en contestar, pregunt por otro sitio, y me han contestado esto:
Sub SelRange()
If Range("A13") < 1 Or Range("A13") > 96 Then Exit Sub
R = Range("A1:J5"). Find(What:=Range("A13"), LookAt:=xlWhole). Row
C = Range("A1:J5"). Find(What:=Range("A13"), LookAt:=xlWhole). Column
If R = 1 Then
Range(Cells(1, 1), Cells(1, C)). Select
Else
Set R1 = Range(Cells(1, 1), Cells(R - 1, 10))
Set R2 = Range(Cells(R, 1), Cells(R, C))
Set RT = Union(R1, R2)
RT. Select
End If
End Sub
Espero que te sirva tambien.
Gracias por tu tiempo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que copie encabezado de una hoja a otra

Sigo en la novatez con vba pero poco a poco le agarro el gusto a este lenguaje, sin embargo sigo topándome con cuestiones como ésta que les platico: Tengo un libro, donde en cada hoja que tiene algunas filas coloreadas, bien, estoy trabajando con una...
1 respuesta

Actualizar un registro de una tabla con macros.

Soy muy asiduo a esta web, es muy interesante y útil, me incribi para preguntar por primera vez y ojala la respuesta sea pronta. Mi problema es.. Tengo una hoja (INGRESO) la cual ingresa productos a una tabla que esta en otra hoja (INV-08) y el...
1 respuesta

Unir dos hojas en excel

As) necesito me ayuden en lo siguiente: tengo dos hojas de cálculo, en cada una de ellas hay varios datos con un campo en común. Deseo saber los campos que son iguales.
1 respuesta

Concatenar datos por filas

Quiero una macro q me concatene filas fila = celdas: a2,b2,c2...m2 Quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y...
1 respuesta

Hay alguna manera de repetir un numero 5 veces.

Tengo en la Hoja1 rango A1 un numero 40125, en el A2 el seguíente 40126 y asi sucesivamente, lo que necesito hacer es que en la Hoja2 igual a partir del rango A2 me repita el mismo numero pero 5 veces, ejemplo... A1: 40125 A2: 40125 A3: 40125 A4:...
1 respuesta