Duda en manejo de rango

27/07/2005 - 08:36 por gazu | Informe spam
Su ayuda para resolver la siguiente duda:

Como puedo hacer que si se insertan celdas se modifique ( o se cambie el
rango N8:N16 a N8:N17 si se inseta un fila) en "Loceq" ya que lo uso para
indicar el rango de trabajo y pasar ese valor a otra instruccion (tambien se
modifica "j")

Sub VerificaCelda()

Workbooks("PUNTAS ver final.xls").Activate
Sheets(Julio).Activate

If NumEquipo1 = "Quasi 550" And TipoPuntas = "UQ P" Then
Loceq = "N8:N16": i = 8: j = 16: Localiza 'Si coinciden ambos valores
se trasnfiere el control a Localiza
else
msgbox "error en captura"
end if
end sub
 

Leer las respuestas

#1 KL
27/07/2005 - 09:06 | Informe spam
Hola gazu,

A ver algo asi:

Sub VerificaCelda()
Workbooks("Simplificar Formula.xls").Sheets("Sheet2").Activate
If NumEquipo1 = "Quasi 550" And TipoPuntas = "UQ P" Then
Loceq = "N8:N16"
i = 8
With Range(Loceq)
j = .Rows(.Rows.Count).Row
End With
Localiza
Else
MsgBox "error en captura"
End If
End Sub

Saludos,
KL


"gazu" wrote in message
news:
Su ayuda para resolver la siguiente duda:

Como puedo hacer que si se insertan celdas se modifique ( o se cambie el
rango N8:N16 a N8:N17 si se inseta un fila) en "Loceq" ya que lo uso para
indicar el rango de trabajo y pasar ese valor a otra instruccion (tambien
se
modifica "j")

Sub VerificaCelda()

Workbooks("PUNTAS ver final.xls").Activate
Sheets(Julio).Activate

If NumEquipo1 = "Quasi 550" And TipoPuntas = "UQ P" Then
Loceq = "N8:N16": i = 8: j = 16: Localiza 'Si coinciden ambos valores
se trasnfiere el control a Localiza
else
msgbox "error en captura"
end if
end sub


Preguntas similares