error 91 variable de objeto o bloque with no establecido
publicado
tengo un problema al momento de querer editar un dato en mi hoja de excel al ejecutar el boton de modificar me manda error 91 variable de objeto o bloque with no establecido ya le busque y no le encuentro
adjunto el archivo el problema es el la pestaña AUSENCIAS espero me logren ayudar gracias!!!!
Private Sub BtnEditarAUS_Click()
Dim Rango As Range
Dim NuevaFila As Long
Dim Valor As String ' lo puse como string por que el dato de la columna A es 1-1
Dim mensaje As String
mensaje = MsgBox("ESTAS SEGURO DE EDITAR LOS DATOS", vbQuestion + vbYesNo, "EDITAR DATOS")
If mensaje = vbYes Then
Set Rango = ThisWorkbook.Sheets("BASE.AUS.").Range("A1").CurrentRegion
Valor = Me.ListView5.SelectedItem
NuevaFila = Rango.Find(what:=Valor, lookat:=xlWhole).Row ' aqui me manda el error
With Rango
tengo un problema al momento de querer editar un dato en mi hoja de excel al ejecutar el boton de modificar me manda error 91 variable de objeto o bloque with no establecido ya le busque y no le encuentro
adjunto el archivo el problema es el la pestaña AUSENCIAS espero me logren ayudar gracias!!!!
Private Sub BtnEditarAUS_Click()
Dim Rango As Range
Dim NuevaFila As Long
Dim Valor As String ' lo puse como string por que el dato de la columna A es 1-1
Dim mensaje As String
mensaje = MsgBox("ESTAS SEGURO DE EDITAR LOS DATOS", vbQuestion + vbYesNo, "EDITAR DATOS")
If mensaje = vbYes Then
Set Rango = ThisWorkbook.Sheets("BASE.AUS.").Range("A1").CurrentRegion
Valor = Me.ListView5.SelectedItem
NuevaFila = Rango.Find(what:=Valor, lookat:=xlWhole).Row ' aqui me manda el error
With Rango
.Cells(NuevaFila, 1).Value = Me.TextBox85.Value
.Cells(NuevaFila, 2).Value = Me.TextBox69.Value
.Cells(NuevaFila, 3).Value = Me.TextBox70.Value
.Cells(NuevaFila, 4).Value = Me.TextBox71.Value
.Cells(NuevaFila, 5).Value = Me.TextBox72.Value
.Cells(NuevaFila, 6).Value = Me.TextBox73.Value
.Cells(NuevaFila, 8).Value = Me.TextBox74.Value
.Cells(NuevaFila, 9).Value = Me.TextBox75.Value
.Cells(NuevaFila, 14).Value = Me.TextBox76.Value
.Cells(NuevaFila, 15).Value = Me.TextBox77.Value
.Cells(NuevaFila, 16).Value = Me.TextBox78.Value
.Cells(NuevaFila, 17).Value = Me.TextBox79.Value
.Cells(NuevaFila, 18).Value = Me.TextBox80.Value
.Cells(NuevaFila, 19).Value = Me.TextBox81.Value
.Cells(NuevaFila, 20).Value = Me.TextBox82.Value
.Cells(NuevaFila, 21).Value = Me.TextBox83.Value
.Cells(NuevaFila, 22).Value = Me.TextBox84.Value
End With
Call cargarhoja5
MultiPage1.Value = 4
MsgBox "DATOS EDITADOS CON EXITO", vbInformation, "EDITAR DATOS"
Exit Sub
Else
MsgBox "CAPTURA CANCELADA", vbExclamation
End If
End Sub
CONSULTA DE ESCALAFON MANTTO. INSTTOS.xlsm