Código para validar una celda
Tengo la siguiente macro. La cual se ejecuta mediante un botón
Pero necesito que si al ejecutar el botón la celda E18 esta vacía que no se ejecute la macro y me arroje un mensaje de "ingrese legajo y luego si poder ejecutarla
Sub BuscarLegajo()
ActiveSheet.Unprotect "manuel"
Sheets("NOMINA TODOS").Select
ActiveWindow.SmallScroll Down:=-15
Selection.AutoFilter
Range("A2:R328").Select
Selection.AutoFilter
ActiveWindow.SmallScroll Down:=-177
Sheets("Menu").Select
Dim SearchRange As Range
Dim FindRow As Range
Dim xlRange As Range
Dim hojaDato As Worksheet
Dim xlSheet As Worksheet
Dim valorBuscado As String
Set hojaDato = ActiveWorkbook.Worksheets("MENU")
valorBuscado = hojaDato.Range("E18")
Set xlSheet = ActiveWorkbook.Worksheets("NOMINA TODOS")
Set xlRange = xlSheet.Range("B1:B65536")
Set FindRow = xlRange.Find(valorBuscado, LookIn:=xlValues, lookat:=xlWhole) 'Legajo a buscar
'BuscarLegajo = "B" & FindRow.Row
xlSheet.Range("G" & FindRow.Row, "P" & FindRow.Row).Value = hojaDato.Range("E83:N83").Value
hojaDato.Range("Q22:Q71").Value = ""
MsgBox ("Menu copiado!!!"
1 Respuesta
Lo primero que debería hacer la macro es justamente eso... algo como
Sub BuscarLegajo()
If Range("E18") = "" Then
MsgBox "Ingrese el legajo"
Exit Sub
End If
'...sigue tu código...Salu2