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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

26/04/2009 - 00:32 | Informe spam

hola, !

En un userform tengo un boton... para volcar informacion en la hoja1 el cual funciona perfectamente.
Que otro codigo necesitaria... para ingresar simultaneamente la misma informacion en la hoja1 y la hoja2.

op1: repetir cada una de las instrucciones que tienes con "Cells(fila, col
calificando antes con el nombre de la hoja: worksheets("hoja2").cells(fila, col

op2: seleccionar ambas hojas y dar entrada una sola vez a cada registro en el mismo lugar de la primera (?)

op3: comentar el por que seria necesario "duplicar" en dos hojas con los mismos registros (exactamente iguales ?)
si esto fuera indispensable, (quiza) te convendria hacer una copia de la hoja1 (original ?) al termino de tus procesos (?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ fraccion de codigo expuesto __

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 cual es la ultima 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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida