Foro Excel

Antoni, muchas gracias eso era lo que necesitaba, le cuento que la parte de ingreso de las fotos ya no funciona genera un error de visual de resto todo perfecto.

Gracias nuevamente.

Una pregunta, veo que ha ayudado a mucha gente en el foro esto lo hace solo para excel o me imagino que debe manejar acces perfectamente tambiem.

Hola:

Las fotos han de estar en el mismo directorio.

Salu2.

Antoni.

Hola de nuevo:

Access no es lo mio, pero te recomiendo el foro de http://www.mvp-access.com

Salu2. Antoni.

TENGO UN PROBLEMA CON MI MACRO ME CHANCA LOS DATOS DEL HISTORICO:

Sub Visita()
'
' Visita Macro
' Visita del ED a MCR
'

'
Sheets("Consulta").Select
Range("H26:N27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VISITA").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Selection.Insert Shift:=xlDown
Sheets("Consulta").Select
Range("P26:T27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VISITA").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Selection.Insert Shift:=xlDown
Sheets("Consulta").Select
Range("AD19:AI20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VISITA").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Selection.Insert Shift:=xlDown
Sheets("Consulta").Select
Range("H21:AI22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VISITA").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("Consulta").Select
Range("Z26:AI27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VISITA").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("Consulta").Select
Range("CX3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VISITA").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select

Sheets("Consulta").Select
Range("H21:AI22").Select


End Sub

Que tal como andan?

Antoni, Le comento que estoy utilizando el "control de visitantes, pero necesitarría saber si se pueden realizar algunas modificaciones. Se me presento el siguiente inconveniente:

Seria interezante que el libro "Histórico de visitas", no se abra mientras se trabaja con "Control de visitantes" ya que la persona que lo utiliza podria adulterar la información.

Es posible generar 2 campos más, uno que registre quien cargó el registro, y otro que permita cargar alguna observación.


Desde ya muchas gracias-

Saludos, Ezequiel