Señores favor su ayuda para modificar esta macro
señores tengo la siguiente macro que recupere de internet pero tengo un problema necesito que los datos se traspasen a la hoja 2 y no en la misma hoja 1 se las dejo para su revisión
Private Sub cmdAceptar_Click()
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
'Comienza a copiar los valores del UserForm a la hoja
Cells(fila, col).Value = TextBox1.Value
Cells(fila, col + 1).Value = TextBox2.Value
Cells(fila, col + 2).Value = TextBox3.Value
Set CeldaInicial = Nothing
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
1 Respuesta
La macro no indica ninguna hoja, por lo tanto trabaja sobre la hoja activa. Lo que podrías hacer es seleccionar previamente la hoja y luego si necesitas regresar a la hoja1 agregar esa instrucción al final.
Por ej:
Application.ScreenUpdating = False
Sheets("Hoja2").Select
Set CeldaInicial = Range(CeldaInicial)
Y luego antes del End Sub esta otra para regresar.
Sheets("Hoja1").select
Elsa muchas gracias por responder tan pronto, en la realidad la macro que estoy tratando de modificar es tuya, realize los cambios propuestos, traspaso los datos a la hoja 2 pero solo
ingresa datos hasta la la columna dos y después solo reemplaza los valores en esa columna
no permite agregar datos hacia las demás columnas.
Si, me pareció conocida la macro.
Efectivamente esta macro es para volcar datos en 3 columnas. Cada vez que la ejecutas agrega en nuevas filas la información en 3 col.
¿Qué necesitas? ¿Agregar datos de otros textbox a más col? Si es así tenés que repetir la instrucción siguiente incrementando la col y ajustando el nombre del control.
Cells(fila, col + 2).Value = TextBox3.Value
Si no es eso aclarame un poco más tu proceso, considerando que tu consulta se trataba de indicar la hoja de destino ... nada más.
