Jump to content


  • Posts

    • Sub Buscar_dato() Dim encontrado As Range '-- If [C4] = "" Then MsgBox "Introduzca un Número a buscar", vbInformation, "Número vacío" Exit Sub End If '-- [C6:C12] = "" With Sheets("BD") Set encontrado = .Columns("B").Find(What:=[C4], LookAt:=xlWhole) 'xlWhole Busca exacto If Not encontrado Is Nothing Then [C6] = .Cells(encontrado.Row, "C") 'Nombre [C8] = .Cells(encontrado.Row, "D") 'CEDULA [C10] = .Cells(encontrado.Row, "E") 'ESTACIÓN [C12] = .Cells(encontrado.Row, "F") 'BOMBERO Range("A1") = True 'Desactiva el CheckBox1 que es de habitaciones 'CheckBox1 Else MsgBox "No se encuentra el Número introducido" & vbNewLine & vbNewLine & _ "Compruebe el Número introducido e inténtelo de nuevo", vbInformation, "Error de Número" Exit Sub End If End With '--  
    • Bunos dias, Tengo finalizado un proyecto para enviar una respuesta mediante una plantilla por correo desde excel. Resulta que al hacer la prueba de envio por correo electronico (outlook), al recibir el correo me lo identifica como SPAM. ¿Ruego me ayuden para evitar que el envio sea detectado como spam? Adjunto el documento.  La contraseña de la hoja protegisa es: "1234". Gracias. Saludos, DISPONIBILIDAD info PASANTE.xlsm
    • al colocar el codigo para buscar datos, me aparecen datos de otro codigo ejemplo ingreso codigo 346 y me aparencen datos del codigo 2346 Tabla 2020.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy