Cargar valor de un textbox a Celda Hoja activa

Saludos estimados expertos tengo la siguiente Instrucción:
Private Sub
Aceptar_Click()
Ultimafila
uf =
Sheets("B01").Range("F" &
Cells.Rows.Count).End(xlUp).Row + 1
Sheets("B01
").Range("F" & uf) = LblCheque.Value
'Sheets("B01
").Range("G" & uf) = TextBox6.Value
ActiveCell.Offset(0, 1).Select
UltimaFila Es una macro que Busca la última fila vacía
y selecciona la que contiene datos columna fija (en mi caso la “F”), ya que las demás columnas poseen datos este procedimiento funciona muy bien pero mi problema es que tengo 6 hojas B01 hasta B06, con diferentes nombres desearía que se ejecutara en cualesquiera de ella todas tienen la misma estructura, solo varia la cantidad de datos que se cargan o existan al momento de abrirlas.
Gracias por su ayuda

1 Respuesta

Respuesta
1

SI cambias Sheers("B01") por ActiveSheet

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas