Copiar datos de una hoja a otra

25/04/2009 - 19:27 por Bennet | Informe spam
Muy buenas tardes de ante mano mil gracis por su colaboraciòn:
En un userform tengo un boton de comando con èste còdigo para volcar
informaciòn en la hoja1 el cual funciona perfectamente.
Que otro còdigo necesitarìa en el botòn de comando para ingresar
simultaneamente la misma informaciòn en la hoja1 y la hoja2.

Còdigo

On Error GoTo Fin
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A7"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 8
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
'Comienza a copiar los valores del UserForm a la hoja
Cells(fila, col) = " "
Cells(fila, col + 1).Value = TextBox29.Value
Cells(fila, col + 2).Value = TextBox30.Value
 

Preguntas similares