Problema a grabar o copiar datos. TransRowRng.Rows
Publicado por Ivana (5 intervenciones) el 16/08/2019 22:34:16
Hola! por favor, podrían ayudarme con este código.
Tengo un formulario que luego de rellenarlo graba los datos ingresados en la hoja "planilla". Hasta ahí todo perfecto, el tema es que agregue formulas en la hoja "Planilla" que iran trabajando con los datos que se vayan agregando. Pero al estar las formulas la macro saltea esa fila porque detecta que ya hay datos. Por más que la columna que contiene las formulas sera la 18 o R.
Necesito que grabe los datos, sin importar que haya formulas en otra columna, sin ir pisando o sobre escribiendo los datos que se vayan grabando.
No se que le estaría faltando. Por favor.
Tengo un formulario que luego de rellenarlo graba los datos ingresados en la hoja "planilla". Hasta ahí todo perfecto, el tema es que agregue formulas en la hoja "Planilla" que iran trabajando con los datos que se vayan agregando. Pero al estar las formulas la macro saltea esa fila porque detecta que ya hay datos. Por más que la columna que contiene las formulas sera la 18 o R.
Necesito que grabe los datos, sin importar que haya formulas en otra columna, sin ir pisando o sobre escribiendo los datos que se vayan grabando.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
Sub Guardar_registro()
'Declaración de variables
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String
'
'
Continuar = MsgBox("Dar de alta los datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub'
Set TransRowRng = ThisWorkbook.Worksheets("Plantilla").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
'
With ThisWorkbook.Worksheets("Plantilla")
.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("H8")
.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("W8")
.Cells(NewRow, 4).Value = ThisWorkbook.Sheets(1).Range("K16")
.Cells(NewRow, 5).Value = ThisWorkbook.Sheets(1).Range("K18")
.Cells(NewRow, 6).Value = ThisWorkbook.Sheets(1).Range("S20")
.Cells(NewRow, 7).Value = ThisWorkbook.Sheets(1).Range("AA22")
.Cells(NewRow, 8).Value = ThisWorkbook.Sheets(1).Range("E22")
.Cells(NewRow, 9).Value = ThisWorkbook.Sheets(1).Range("U22")
.Cells(NewRow, 10).Value = ThisWorkbook.Sheets(1).Range("O14")
.Cells(NewRow, 11).Value = ThisWorkbook.Sheets(1).Range("Y14")
.Cells(NewRow, 12).Value = ThisWorkbook.Sheets(1).Range("S16")
.Cells(NewRow, 13).Value = ThisWorkbook.Sheets(1).Range("S18")
.Cells(NewRow, 14).Value = ThisWorkbook.Sheets(1).Range("G33")
.Cells(NewRow, 15).Value = ThisWorkbook.Sheets(1).Range("H28")
.Cells(NewRow, 16).Value = ThisWorkbook.Sheets(1).Range("Y28")
.Cells(NewRow, 17).Value = ThisWorkbook.Sheets(1).Range("Y30")
End With
'
MsgBox "Alta exitosa.", vbInformation, strTitulo
'
End Sub
No se que le estaría faltando. Por favor.
Valora esta pregunta
0