Visual Basic para Aplicaciones - Ayuda Registros? D:

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Miqi666

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?


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