Saltar al contenido

Formulario de captura que guarda datos en otra hoja sin iniciar en celda a1

publicado

Tengo un problema, necesito que el formulario dependiendo de un criterio empiece a guardar la información desde la celda A1 o desde la celda A18.

Estoy utilizando el código:

Set Trasladar = ThisWorkbook.Worksheets("XXXXX").Cells(1, 1).CurrentRegion

NewRow = Trasladar.Rows.Count + 1

With ThisWorkbook.Worksheets("XXXXX")

.Cells(NewRow, 1).Value = Date

.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("D2")

.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("D4")

.Cells(NewRow, 4).Value = ThisWorkbook.Sheets(1).Range("D5")

.Cells(NewRow, 5).Value = ThisWorkbook.Sheets(1).Range("D6")

.Cells(NewRow, 6).Value = ThisWorkbook.Sheets(1).Range("D7")

.Cells(NewRow, 7).Value = ThisWorkbook.Sheets(1).Range("D8")

.Cells(NewRow, 8).Value = ThisWorkbook.Sheets(1).Range("D9")

.Cells(NewRow, 9).Value = ThisWorkbook.Sheets(1).Range("D11")

.Cells(NewRow, 10).Value = ThisWorkbook.Sheets(1).Range("D12")

End With

Pero cuando cambio el "Set Trasladar = ThisWorkbook.Worksheets("XXXXX").Cells(18.1).CurrentRegion"

solo guarda desde la primera fila y sobrescribe una y otra vez, ni empieza en la A18 ni se va corriendo una fila, para cada ingreso.

Agradezco la ayuda

Featured Replies

publicado
  • Autor

Lo único que necesito es que si se cumple un criterio en lugar que de empiece en (1,1) empiece en (18,1) pero por alguna razón no funciona al cambiarlo en la línea especificada.

publicado

?

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.