pitcher_

He aquí el problema... If CheckBox1.Value = 0 Then ' Validamos si quiere Agregar Datos al Libro macroresultado Range("X2").Select Selection. Copy Workbooks. Add Else Range("X2").Select Selection. Copy...

' Activar Referencia a Microsoft Excel XX.X Objet Library Private Sub Command1_Click() Dim objExcel As Excel.Application If Abrir_Archivo("c:\Calculo.xls") Then ' Llamamos a la Funcion que Verifica si esta Abierto MsgBox "El Archivo Esta en Uso!"...

Algo entendí de tu problema envíame un ejemplo y como funciona, creo tener algo pero para que te sirva pero para que sea una mejor respuesta.

Sub Seleccionar() Worksheets("Hoja1").Activate Aux = 0 For Filas = 2 To Worksheets("Hoja1").Rows.Count If Cells(Filas, 1) = "" Then ' Consulta por A consecutivamente por que no sabemos el fin de la columna A Exit For End If Cells(Filas, 1).Select If...