COmandos VBA Excel, List Object
Enviado por Omar Calderón • 11 de Diciembre de 2019 • Apuntes • 617 Palabras (3 Páginas) • 140 Visitas
SI(CONTARA(#¡REF!)=0,1,BUSCAR(10000,#¡REF!)+1)
Lista Desplegable Tabla Dinamica.
Horario_Diario = DESREF('Calendario de Citas'!A8,0,0,CONTARA('Calendario de Citas'!A8:A103)-CONTAR.SI('Calendario de Citas'!A8:A103,""))
Function BuscarDocIdentidad(Valor As Long) As Integer
Dim Rango As Range
Dim ValorBusqueda As Integer
Set Rango = Worksheets("Pacientes").Range("H:H")
ValorBusqueda = Application.WorksheetFunction.CountIf(Rango, Valor)
BuscarDocIdentidad = ValorBusqueda
End Function
----
Sub Buscar_Paciente()
Dim ValorBuscado As String
Dim busco As Object
Dim Numfilas As Integer
Dim FilaCopiada As Integer
ValorBuscado = Sheets("Registro_Cita").Range("G7").Value
Application.ScreenUpdating = False
'MsgBox (ValorBuscado = "")
'MsgBox ValorBuscado
Sheets("Registro_Cita").Visible = False
Sheets("Pacientes").Visible = True
Sheets("Pacientes").Select
Numfilas = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'MsgBox Numfilas
Set busco = Range("I3:I" & Numfilas).Find(ValorBuscado, LookAt:=xlWhole)
If busco Is Nothing Then
Sheets("Pacientes").Visible = False
Sheets("Registro_Cita").Visible = True
Sheets("Registro_Cita").Select
MsgBox "Paciente no encontrado"
Else
FilaCopiada = busco.Row
Copiar_RegCita (FilaCopiada)
End If
Application.ScreenUpdating = True
'MsgBox (busco Is Nothing)
'MsgBox (IsNumeric(busco))
End Sub
--------
Eliminar Servicio
-----
...