** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Problemas con CurrentRegion
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoProblemas con CurrentRegion

 Responder Responder
Autor
Mensaje
armgb Ver desplegable
Nuevo
Nuevo


Unido: 20/Noviembre/2018
Localización: Argentina
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Problemas con CurrentRegion
    Enviado: 20/Noviembre/2018 a las 13:45
Buenos días. 
Tengo el siguiente código (de ejemplo) que al ejecutar el botón de carga, va completando en la siguiente hoja los datos uno abajo del otro: 

Private Sub CommandButton1_Click()

 Dim strTitulo As String
    Dim Continuar As String
    Dim RangoDatos  As Range
    Dim NuevaFila As Integer
    Dim ActOpt  As Integer
    Dim Limpiar As String
    '
    strTitulo = "Carga de datos"
    '
    Continuar = MsgBox("¿Desea cargar los datos?", vbYesNo + vbExclamation, strTitulo)
    If Continuar = vbNo Then Exit Sub
    '
    Set RangoDatos = ThisWorkbook.Worksheets("Hoja2").Cells(1, 1).CurrentRegion
    '
    NuevaFila = RangoDatos.Rows.Count + 1
    '
    With ThisWorkbook.Worksheets("Hoja2")
        .Cells(NuevaFila, 1).Value = Date
        .Cells(NuevaFila, 2).Value = TextBox1
        .Cells(NuevaFila, 3).Value = TextBox2
    End With
    '
    MsgBox "Carga exitosa.", vbInformation, strTitulo
    '
    Limpiar = MsgBox("¿Desea agregar más datos? ", vbYesNo, strTitulo)
    '
    If Limpiar = vbYes Then
        TextBox1 = ""
        TextBox2 = ""
    Else
        UserForm1.Hide
    End If
        

End Sub


Hasta acá todo perfecto, el problema está en que si quisiera cambiar el RangoDatos (en rojo) por ejemplo a (100, 1) no lo toma como tal y se completa en cualquier lado. 

¿Alguna idea en qué me puedo estar equivocando? 
Gracias. 
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11858
Enlace directo a este mensaje Enviado: 20/Noviembre/2018 a las 15:54
(te he movido el hilo al foro adecuado)

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: ROC, NY
Estado: Sin conexión
Puntos: 3326
Enlace directo a este mensaje Enviado: 21/Noviembre/2018 a las 03:32
Te doy la solución a lo que pides

Set RangoDatos = ThisWorkbook.Worksheets("Hoja2").Cells(100, 1).CurrentRegion
    '
NuevaFila = RangoDatos.Rows.Count + 100

¿Ves lo que pasa? Smile

Luis
Those are my principles, and if you don't like them... well, I have others. Groucho Marx
Arriba
armgb Ver desplegable
Nuevo
Nuevo


Unido: 20/Noviembre/2018
Localización: Argentina
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 21/Noviembre/2018 a las 16:48
Buen día Luis, muchas gracias por la solución. 
Evidentemente no tuve en cuenta cambiar también ese dato. 

Funciona perfecto. Clap
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable