Visual Basic - Problema a grabar o copiar datos. TransRowRng.Rows

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 10
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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.


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder