Seleccionar celdas contiguas
Mediante un código como este:
Dim Celda As Range
For Each Celda In ActiveSheet.Range("A1:Z100")
If Celda = 4 Then
Celda.ClearContents
End If
Next Celda
Selecciono las celdas que necesito cuyo valor es 4 y las limpio.
Ahora lo que necesito es un código que seleccione las celdas inmediatamente inferiores a las que contenían un 4. Ejemplo: si A:1 contenía un 4 pues que seleccione A:2 y copie el contenido, por más vueltas que doy no doy con ello.
Dim Celda As Range
For Each Celda In ActiveSheet.Range("A1:Z100")
If Celda = 4 Then
Celda.ClearContents
End If
Next Celda
Selecciono las celdas que necesito cuyo valor es 4 y las limpio.
Ahora lo que necesito es un código que seleccione las celdas inmediatamente inferiores a las que contenían un 4. Ejemplo: si A:1 contenía un 4 pues que seleccione A:2 y copie el contenido, por más vueltas que doy no doy con ello.
2 Respuestas
Respuesta de paramisolo
2
Pues solo añadirle lo que quieres hacer en el lugar justo:
Dim Celda As Range
For Each Celda In ActiveSheet.Range("A1:Z100")
If Celda = 4 Then
Celda. ClearContents
ActiveCell. Offset(1,0). Copy 'Con esto copias la celda de debajo de la que tenia el 4
'Y aquí tienes que poner que hacer con el valor copiado
End If
Next Celda
>Un saludo
>Julio
Dim Celda As Range
For Each Celda In ActiveSheet.Range("A1:Z100")
If Celda = 4 Then
Celda. ClearContents
ActiveCell. Offset(1,0). Copy 'Con esto copias la celda de debajo de la que tenia el 4
'Y aquí tienes que poner que hacer con el valor copiado
End If
Next Celda
>Un saludo
>Julio
Respuesta de Elsa Matilde
1
Muy claro no me quedó, veamos si esto es lo que necesitas: ¿Qué luego de limpiarla copie lo que está en 1 celda+ abajo?
Entonces debiera quedarte así la parte del copiado:
f Celda = 4 Then
Celda.ClearContents
Celda = Celda.offset(1,0).value
End If
Pruébalo y si esto resolvió tu consulta no olvides finalizarla.
Entonces debiera quedarte así la parte del copiado:
f Celda = 4 Then
Celda.ClearContents
Celda = Celda.offset(1,0).value
End If
Pruébalo y si esto resolvió tu consulta no olvides finalizarla.
Gracias a tu ejemplo he podido encontrar la solución a mi problema.Tengo el combobox2 con un listado de números del 1-99 (nº de ubicación), y combobox1 con un listado de objetos.Por otra parte, en la hoja9 defino:Fila 27 = 1,2,3...24Fila 28 en blancoFila 29 = 25, 26, 27...48Fila 30 en blanco...y así sucesivamenteLa filas que están en blanco, sirven para definir lo que se encuentra dentro de cada ubicación.Así he podido solucionar este problema:Dim Celda As Range For Each Celda In Hoja9.Range("B27:Y36") If Celda.Value = ComboBox2.Text Then Celda.Offset(1, 0).Value = ComboBox1.Text End If Next CeldaSalu2,APolls. - Adrià Polls Pelegrí