UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

faldegort


Hola, La historia es asi, estoy armando un macro, que cuando pulsas el boton, deberia abrir un archivo (que ya esta abierto) y copiarle los datos. El asunto es que de la manera en la que he logrado que me lo haga, me pregunta si quiero grabar o perder los datos, lo cual lo vuelve bastante molesto.
este es el codigo


Private Sub CommandButton7_Click()
Application.ScreenUpdating = False

'los valores a copiar al otro archivo

dni = Range("B1").Value
historiaclinica = Range("B2").Value
nombre = Range("B4").Value & " " & Range("B5").Value
sexo = Range("B6").Value
edad = Range("E4").Value & "," & Range("F4").Value
fechanacimiento = Range("E5").Value
domicilio = Range("B8").Value
barrio = Range("B9").Value
telefono = Range("B10").Value
mail = Range("E8").Value
obrasocial = Range("E11").Value


`el archivo a abrir es "buscar hc.xlsm, que siempre va a estar abierto


ruta = ActiveWorkbook.Path
Workbooks.Open Filename:=ruta & "\" & "Buscar HC.Xlsm"

nrohc = ActiveSheet.Range("V5").Value + 1
 histcl = ActiveSheet.Range("V5").Value + 5

ActiveSheet.Range("X" & histcl).Value = nrohc
ActiveSheet.Range("Y" & histcl).Value = dni


If ActiveSheet.Range("AI" & histcl) = "Sin Repetir" Then
    
    ActiveSheet.Range("Z" & histcl).Value = historiaclinica
    ActiveSheet.Range("AA" & histcl).Value = nombre
    ActiveSheet.Range("AB" & histcl).Value = fechanacimiento
    ActiveSheet.Range("AD" & histcl).Value = sexo
    ActiveSheet.Range("AE" & histcl).Value = barrio
    ActiveSheet.Range("AF" & histcl).Value = obrasocial
    ActiveSheet.Range("AG" & histcl).Value = telefono
    ActiveSheet.Range("AH" & histcl).Value = mail
    
    MsgBox ("¡El Paciente ha sido agregado!")
    ruta2 = ruta & "\" & "Buscar HC.Xlsm"
    Workbooks("Buscar HC.Xlsm").Close savechanges:=True
    Application.ScreenUpdating = True
    Else
         ActiveSheet.Range("X" & histcl).ClearContents
         ActiveSheet.Range("Y" & histcl).ClearContents
      

    MsgBox ("¡Este paciente ya figura en la base de Datos!")
    ruta2 = ruta & "\" & "Buscar HC.Xlsm"
    Workbooks("Buscar HC.Xlsm").Close savechanges:=False
    Application.ScreenUpdating = True
    
End If


End Sub



no soy un gran programador, y puede que sea medio tosco, pero funcionar funciona. Solo que me gustaria solucionar ese tema. Gracias!!

Igtelo


Buenas noches faldegort.

Prueba con:

Application.DisplayAlerts=False

Ponlo antes de la linea que salva el libro, después de que salvó, vuelve a activar las alertas:

Application.DisplayAlerts=True

Saludos
Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.