Ingresar datos en hoja de excel

25/04/2008 - 04:01 por Bennet | Informe spam
Muy buenas a todos: En el Libro Captura1 utilizo un UserForm para ingresar
los datos al libro con el siguiente còdigo en un botòn de comando:
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 del libro Captura1
Cells(fila, col) = " "
Cells(fila, col + 1).Value = TextBox29.Value
Cells(fila, col + 2).Value = TextBox30.Value

Set CeldaInicial = Nothing
End if

Esto funciona perfectamente, mi pregunta es como puedo hacer para que
ingrese los datos simultàneamente al Libro Captura1 y al Libro Resultados.

Mil gracias
S@lu2...
 

Preguntas similares