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!

1 Respuesta

Respuesta
1
Veo que no pones atención a las dos respuestas. En la primera querías en la B y te dí la modificación y en la segunda te puse que tienes que crear un código similar. PERO Lógicamente con la modificación de la primera respuesta.
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
ws.Cells(iFila, 2).Value = Me.ufCODIGO.Value
Me.ufCODIGO.Value = ""
Me. UfCODIGO. SetFocus

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas