Posicionarme dentro de un formato
Publicado por Jaqueline Romero (1 intervención) el 26/09/2019 19:43:34
Buen dia, estoy trabajando en un formato para controlar gastos en base a una orden de compra, encontre el macro para crear base de datos y lo quiero aplicar a mi formato (mi macro anterior fue grabado y es muy lento por la cantidad de pasos que grabe), el problema es que la informacion la pasa en la fila debajo del formato donde quiero que lo pase; tengo los primero 4 renglones de encabezado y en la columna A es una clave que necesito para otra hoja; por lo cual quiero que pegue la informacion a partir de la celda B5, pero si mi formato tiene 300 renglones empieza a pasar la informacion en la fila B305 que no tiene formulas ni formato.
Este es el codigo del macro que quiero utilizar
Este es el codigo del macro que quiero utilizar
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
Sub ADD_INV_PARCIAL()
'Declaración de variables
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim Ultima As Long
Dim Limpiar As String
'
strTitulo = "Orden de Compra"
'
Continuar = MsgBox("Registrar Factura?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub'
Set TransRowRng = ThisWorkbook.Worksheets("CONTROL OC").Cells(5, 2).CurrentRegion
Ultima = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("CONTROL OC")
.Cells(Ultima, 2).Value = Now()
.Cells(Ultima, 3).Value = ThisWorkbook.Sheets(1).Range("d4")
.Cells(Ultima, 4).Value = ThisWorkbook.Sheets(1).Range("g12")
End With
'
MsgBox "Registro Exitoso", vbInformation, strTitulo
End Sub
Valora esta pregunta
0
