luis45ccs respondió:
Si el form es continuo (registros en vertical) usa formato condicional Si no simplemente coloca en el evento afterupdate del combo v=combo="Arriendo" campotal.enabled=v o campotal.enabled=not(v)
galileogali respondió:
Sub test1() buscado = Application.InputBox("Indique su busqueda", Type:=2) If buscado = "" Then Exit Sub Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _...