Ayuda con código
Estoy trabajando en un archivo de vba, y necesito que me ejecute cualquiera de las condiciones siguientes pero al ejecutarlo solo me ejcuta una este es el código, ¿estoy haciendo lo correcto?
Private Sub Guardar3_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)
'encuenta la siguiente fila vacía
If iFila = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 2).Row Or iFila = ws.Cells(Rows.Count, 5) _
.End(xlUp).Offset(1, 5).Row Then
ws.Cells(iFila, 2).Value = Me.deudor.Text
ws.Cells(iFila, 5).Value = Me.part.Text
End If
Me.deudor = ""
Me.part = ""
End sub
Private Sub Guardar3_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)
'encuenta la siguiente fila vacía
If iFila = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 2).Row Or iFila = ws.Cells(Rows.Count, 5) _
.End(xlUp).Offset(1, 5).Row Then
ws.Cells(iFila, 2).Value = Me.deudor.Text
ws.Cells(iFila, 5).Value = Me.part.Text
End If
Me.deudor = ""
Me.part = ""
End sub
1 Respuesta
Respuesta de Raul Hernandez
1