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

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.

Hola [uSER=222547]@jj_po[/uSER]

Por adjunta un archivo como ejemplo y especifica un poco mas lo que necesitas.

Tambien te invito a que veas : Utilización - Funcionamiento

Saludos hermano.

?