nohaproblema

Elsa Matilde respondió: Intentá agregando una consulta acerca del nombre del libro abierto. Ej: Private Sub Workbook_Open() If Left(ActiveWorkbook.Name, 6) = "Planti" Then fecha = Format(Date, "dd-mm-yy") ActiveWorkbook.SaveAs fecha & ".xls" End If

Juan Carlos González Chavarría respondió: Me gustaría ver primero parte de tu código para indicarte dónde puede radicar el error. La opción que utilizas cámbiala por Workbooks. Open Filename:=ComboBox1.Text, posiblemente esto te ayude un poco. En tu código no se si estás diciéndole al...

acasegra respondió: ComboBox1.List = Range("minombre!A2:B1000").Value Prueba esto en su lugar