otreblig
02 de Diciembre del 2005

Hola Rosi grcias por el apoyo de los texbox vacios deshabilitar una pregunta mas quiero copiar el contenido de la celda A1 de la hoja1 y pegarla en Hoja2 Celda Rango(A1) pulsando previamente Un Botton, para la siguiente pulsacion quisiera que el pegado fuera en la celdaRango( A2) del la hoja2 mil gracias

Rosa
02 de Diciembre del 2005

Hola, si lo que quieres es que se intercale el pegado en la hoja2 A1 贸 A2 seg煤n como se va pulsando el bot贸n, creo que esto te puede ayudar:

Dim Contador As Byte

Private Sub CommandButton1_Click()

If Contador Mod 2 = 0 Then
Hoja2.Cells(1, 1) = Hoja1.Cells(1, 1)
Else
Hoja2.Cells(2, 1) = Hoja1.Cells(1, 1)
End If
Contador = Contador + 1
If Contador >= 255 Then
Contador = 0
End If

End Sub