Llevar datos a fila en serie
Buenos días tengo un textbox que me lleva los datos a una hoja en a la fila A1 en serie, A1, A2, etc..
Pero no se como hacer para que esto me lo haga en la fila B desde B10 hasta B25 en serie.
Adjunto código.
Private Sub UserForm_Click()
Private Sub UFAGREGAR_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)
iFila = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.ufCODIGO.Value) = "" Then
Me.ufCODIGO.SetFocus
MsgBox "DEBE INGRESAR UN CODIGO"
Exit Sub
End If
ws.Cells(iFila, 1).Value = Me.ufCODIGO.Value
Me.ufCODIGO.Value = ""
Me.ufCODIGO.SetFocus
End Sub
Ayer me dijiste que debía crear un código similar para la columna B No se como se hace ya que este código lo copie de otra macro. Por fa colaborame porque no se como se hace
GRACIAS!
Pero no se como hacer para que esto me lo haga en la fila B desde B10 hasta B25 en serie.
Adjunto código.
Private Sub UserForm_Click()
Private Sub UFAGREGAR_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)
iFila = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.ufCODIGO.Value) = "" Then
Me.ufCODIGO.SetFocus
MsgBox "DEBE INGRESAR UN CODIGO"
Exit Sub
End If
ws.Cells(iFila, 1).Value = Me.ufCODIGO.Value
Me.ufCODIGO.Value = ""
Me.ufCODIGO.SetFocus
End Sub
Ayer me dijiste que debía crear un código similar para la columna B No se como se hace ya que este código lo copie de otra macro. Por fa colaborame porque no se como se hace
GRACIAS!
1 respuesta
Respuesta de Juan Carlos González Chavarría
1