Hola Elsa
Gracias por responder, hace unas semanas tu me ayudaste con un código para guardar los registros en diferentes hojas según la fecha, y ahora trate de hacer una búsqueda de los registros y realizar modificaciones, la búsqueda funciona bien pero al momento de actualizar los datos estos no se agregan. te muestro el código para que lo puedas ver.
Private Sub CommandButton5_Click()
ThisWorkbook.ActiveSheet.Activate
Sheets(nbremes).Activate
Sheets(nbremes).Range("A:BJ").Activate
listaMes = Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
mesi = Month(TextBox23.Value)
nbremes = listaMes(mesi - 1)
Do While ActiveCell.Value > ""
If ActiveCell.Value = DateSerial(Year(TextBox23), Month(TextBox23), Day(TextBox23)) Then
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 3).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
Exit Do
End If
ActiveCell.Offset(1, 0).Activate
Loop
MsgBox "Datos actualizados"
TextBox23.SetFocus
End Sub
al dar click en el botón me marca depurar y me aparece en amarillo este código
Sheets(nbremes).Activate
No sé si está bien utilizado lo de la listames.
Gracias por tu valioso tiempo.
Bendiciones.
Utilizo excel 2010.