Juan Carlos González Chavarría

Tengo este código que se digita en el evento Before_Close del libro: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim MiArchivo As String MiArchivo = Range("BX1") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _...

Me parece que la mejor solución sería verificar la IP del Router. Puedes utilizar esta macro que me encontré. Pones en A1 la IP y ejecutas la macro. Option Explicit Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" _ (ByVal iDestIPAddr As...

Es un poco difícil decirte el por qué. Revisa que todos los Complementos estén activados (Herramientas-Complementos). Aunque el otro ordenador tenga la misma versión, eso no quiere decir que fue instalado de la misma forma y con las mismas opciones,...

Posibles instrucciones: Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet on Error Resume Next .PageSetup.LeftFooter = " &F &A" 'works in print preview .PageSetup.LeftFooter = ThisWorkbook.FullName & " &A" .PageSetup.RightFooter =...

Te sugiero que insertes un ListBox para que puedas hacer las búsquedas por código o nombre, dependiendo del ComboBox que elijas. Puedes crear una función que actualice el ListBox, por ejemplo: Function Actualizar() ListBox1.Clear Dim R1 As Range Dim...

¿Si en el rango que dices no hay datos, para qué quieres borrar las filas?. [email protected]

Así como lo pones no entiendo bien. Podría utilizarse las funciones =Indice() y =Coincidir() pero sin información más precisa no te puedo ayudar bien. [email protected]

Esto se puede lograr con Tablas Dinámicas, Filtros Avanzados o con la función =SumaProducto(). Explicarte sería un poco complicado, por lo que te sugiero me envíes tu archivo. [email protected]

De esa forma no se pueden jalar los formatos ya que actúa como consulta. Se tendría que hacer por medio de macros.

Con gusto, cualquier otra ayuda aquí estoy.