por avac » 09 Mar 2010 10:10
Por favor necesitó su ayuda tengo un USER que al abrirlo
Me graba algunos datos en una lista pero metoma la raferenci de la hoja en la que abro
Esta es el user
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
Hoja2.Cells(fila, col).Value = TextBox1.Value
Hoja2.Cells(fila, col + 1).Value = TextBox2.Value
Hoja2.Cells(fila, col + 2).Value = TextBox3.Value
Set CeldaInicial = Nothing
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
Cuando se ejecuta graba datos en una columna de la hoja 2
Pero cuando lo abro en la hoja 1 me toma rejarencia de la hoja 1 y no de la hoja 2
El problema es esta parte
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
Aquí tendría que ir nombre de la hoja 2 como referencia pero no se como va me pueden ayudar
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.