SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: sechg en Lunes 30 de Mayo de 2011, 20:54

Título: columnas impares
Publicado por: sechg en Lunes 30 de Mayo de 2011, 20:54

quiero saber como puedo pegar datos por medio de un boton  en las columnas impares y solo en un rango especifico de celdas y que el resto de hoja me quede bloqueado y no pueda hacer nada mas o por lo menos que no pueda copiar mas

Código: Visual Basic

1.  

With worksheets("Global")
          ActiveCell.Value = .Cells(ActiveCell.row, 3).Value
           End With


este es el codigo que me permite tomar el valor de la celda y copialo dond eeste parado y lo que necesito es que solamente sea en un rango en especifico y no mas me ayudan gracias

Título: Re: columnas impares
Publicado por: F_Tanori en Jueves 2 de Junio de 2011, 06:24

Hola, puedes poner un ejemplo mas claro?



VB6 --> VBA
Saludos

Título: Re: columnas impares
Publicado por: sechg en Jueves 2 de Junio de 2011, 14:41

mira el codigo completo es este

If (ActiveCell.Column = 2 * Int(ActiveCell.Column / 2)) Then
    MsgBox "Celda PAR "

     With worksheets("Global")
         If (.Cells(ActiveCell.row, 3).Value > 0) Then
             ActiveCell.Value = .Cells(ActiveCell.row, 3).Value
         End If
     End With

lo que quiero es que esto me funcione solamente en un rango de celdas es decir c10:h16 y que si me paro fuera de este rango que el boton no em haga nada te agradeceria la colaboracion