Juan Carlos González Chavarría

1- Para el comentario en la celda siguiente puedes usar: ActiveCell(0,1).Text = "Tu_Comentario" 2- Para una posible comparación no tengo respuesta porque no conozco el código de búsqueda que utilizas. Podría ser: If Range("TuCelda").Value = TuDato...

Tal vez te pueda servir este código que me encontré. Sub selShapesOnSht() Dim shp As Shape For Each shp In ActiveWorkbook.ActiveSheet.Shapes ans = MsgBox("Borrar Imangen " & Chr(10) & shp.Name & " " & shp.TopLeftCell.Address & _ Chr(10) & " -- " &...

Podrías utilizar el Auto_Open para obligarlos a usar las macros pero no es muy efectivo ya que siempre se puede evitar que corran las macros. Sub Auto_Open() Call tu_macro End Sub [email protected]

Bueno para ir a la siguiente fila vacía se puede utilizar: Range("A65500").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select Para seleccionar la hoja se podrían meter en un ListBox y tomando en cuenta si la hoja está oculta o tiene un...

Creo que ya la envié.

Cuando se trabaja con rangos a la hora de pasar los datos dependerá de lo que queramos pasar, para tu caso le estás diciendo que haga una copia de lo que contiene la celda, no de lo que despliega en pantalla. Tendrías que hacerlo así:...

Aquí tienes una macro que te puede servir. Dim MiArchivo As String MiArchivo = Range("BX1") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\gaso\Escritorio\MADRE\SELECCION\GENERAL\RESPALDOS" &...

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim MiArchivo As String MiArchivo = Range("BX1") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\gaso\Escritorio\MADRE\SELECCION\GENERAL\RESPALDOS" &...

Revisaré.

Aquí te dejo un ejemplo para exportar de Dbase a Excel. Lo tienes que adaptar a tus necesidades. Sub Importar_dBaseIV() Dim dBase As String Dim strMacro As String strMacro = ActiveWindow.Caption 'abrir el archivo .dbf como archivo Excel...