Vengo buscando ayuda en un código que me esta complicando bastante ya que debo usar (al menos eso creo) el método Range. Find, el cuál no he logrado saber como funciona.
Lo que requiero es un código con el cual se puedan introducir nuevas filas en blanco en una hoja de excel, está fila se debe introducir si se cumplén ciertas condiciones.
Tengo una hoja en excel que contienen unos "Subcapitulos" e "Items", existe la posibilidad de que se deban crear nuevos Items y para eso el usuario tiene el siguiente formulario:
El código hasta ahora lee el dato del campo "Inserte el Nombre del Subcapitulo" y lo va buscar a la hoja "BDusuario1"
Ahora lo que sigue (y es la parte en la que necesito ayuda) es que una vez localizado el objeto de búsqueda la macro se debe:
- Desplazarse 2 columnas a la izquierda y leer un código que allí se encuentra, almacenarlo en una variable y sumarle 1
- Luego en otra variable se debe almacenar el código que se encuentra una fila abajo del anteriormente mencionado.
- Luego se deben comparar ambas variables y si son iguales ambas variables se deben desplazar una fila hacia abajo y hacer la misma comparación; si son diferentes se debe crear una fila en blanco en la mitad de las 2 variables
Nota: Los códigos solo pueden llegar hasta que terminen en 99 por ejemplo 4011099
, si se llego a ese limite y no se encontró ningún espacio para agregar el nuevo ítem se debe mostrar un mensaje informándole.
Adjuntare una copia básica del archivo original, ya que no puedo enviar el original, pero espero que les sea suficiente para trabajar. Los campos importantes para esta macro son los que les encierro en azul y resalto en amarillo, el resto lo pueden ignorar.
Espero haber logrado hacerme entender, si necesitan más información o mayor claridad en algo con gusto tratare de dárselas.
Esta es la parte del código en la que necesito ayuda, coloque comentarios de lo que debe hacer cada linea para lo que espero sea una mejor claridad.
Cod = ActiveCell.Offset(0, -2) 'Aca intento hacer una vez encontrado el dato de la variable "nomSubc" se mueva 2 filas a la izquierda y lea un código que allí se encuentra
'''Cod = a.Cells(fila, "A").Value
'-------------------------
For itm = 1 To 99
Cod1 = ActiveCell.Value 'en esta parte lo que quiero es que una vez sea lea ese código se guarde en una variable
Cod1 = Cod1 + 1 'y se le sume 1
'---------------------------
Cod2 = ActiveCell.Offset(1, 0) 'Aca lo que busco que se lea en código que esta de bajo del que se guardo en la variable "Cod1"
'---------------------------
If Cod1 <> Cod2 Then 'En estás lineas se debe hacer una comparacion,
ActiveCell.EntireRow.Insert 'Si son diferentes se debe crear una fila vacia en la mitad de Cod1 y Cod2
'ActiveCell.Offset(2, 0) 'Si Cod1 y Cod2 son iguales Cod1 debe pasar a leer Cod2 y Cod2 debe pasar a leer el código de abajo
Else
MsgBox "Error", vbExclamation
End If
Next itm
End If
End Sub