Ayuda Registros? D:
Publicado por Miqi666 (14 intervenciones) el 07/02/2018 16:53:38
Hola todos tengo un problema que no he podido solucionar :/
Necesito Registrar con un formulario pero empezando desde la celda A8 y las celdas de arriva son vacias, pero no se como hacer que este codigo empieze desde esa celda e ignora las vacias de arriva?
intente cambiar los valores de CELLS pero no me funciono y no se me ocurre otra cosa!
Alguien me puede orientar?
Gracias
Necesito Registrar con un formulario pero empezando desde la celda A8 y las celdas de arriva son vacias, pero no se como hacer que este codigo empieze desde esa celda e ignora las vacias de arriva?
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
Set TransRowRng = ThisWorkbook.Worksheets("Index").Cells(1, 8).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("Index")
.Cells(NewRow, 1).Value = Me.TextLTR
.Cells(NewRow, 2).Value = Me.TextPU
.Cells(NewRow, 3).Value = Me.TextPART
.Cells(NewRow, 4).Value = Me.ComboTYPE
.Cells(NewRow, 5).Value = Me.ComboSUB
.Cells(NewRow, 6).Value = Me.TextPLANNER
.Cells(NewRow, 7).Value = Me.ComboAssignee
.Cells(NewRow, 8).Value = Me.ComboEquip
.Cells(NewRow, 9).Value = Me.DTPicker1
.Cells(NewRow, 10).Value = Me.TextEstimated
.Cells(NewRow, 11).Value = Me.TextHour
.Cells(NewRow, 12).Value = Me.ComboStatus
.Cells(NewRow, 13).Value = Me.txtBadge
.Cells(NewRow, 14).Value = Me.TextObser
End With
'
MsgBox "Alta exitosa.", vbInformation, strTitulo
'
Unload Me
End Sub
intente cambiar los valores de CELLS pero no me funciono y no se me ocurre otra cosa!
Alguien me puede orientar?
Gracias
Valora esta pregunta
0