Antoni

Sin el archivo, imposible decirte nada más.

Cambia liena por linea a ver que pasa: Hoja7.Cells(liena, 6) = CB_Unidad Hoja7.Cells(liena, 7) = TXT_Placa Hoja7.Cells(linea , 6) = CB_Unidad Hoja7.Cells(linea , 7) = TXT_Placa

Si lo que buscas es el Cliente, este concepto se halla en la columna 5 de la Hoja7, no en la 83. nombre = Hoja7.Cells(FILA, 83).Value

Faltan hojas en el archivo que has subido (BD, CLIENTES, ALTAARTICULOS1,.....)

Recuerda lo que dice la Navaja de Ockham, la solución más sencilla, acostumbra a ser la correcta.

Así funciona: '------------------------------------------------------------------ Private Sub Guardar_Click() With ActiveWorkbook.Names .Add Name:="ALBARÁN", RefersTo:=TextBox1, Visible:=False .Add Name:="PEDIDO", RefersTo:=TextBox2, Visible:=False .Add Name:="FACTURA", RefersTo:=TextBox3, Visible:=False .Add Name:="ASIENTO", RefersTo:=TextBox4, Visible:=False .Add Name:="Genero1", RefersTo:=OptionButton1, Visible:=False .Add Name:="Genero2", RefersTo:=OptionButton2, Visible:=False End With Unload Me End Sub '------------------------------------------------------------------- Private Sub UserForm_Initialize(): On Error Resume Next TextBox1 = [ALBARÁN] TextBox2 = [PEDIDO] TextBox3 = [FACTURA] TextBox4 = [ASIENTO] OptionButton1.Value = [Genero1] OptionButton2.Value = [Genero2] End Sub

Hola a todos: En el archivo que subí, los Name ya se crean ocultos (,Visible:=False). Saludos

En cuanto al primero, no me gusta mucho dejar anotaciones en las hojas ya que por error alguien las puede borrar y después ya no funciona la macro. Si proteges la hoja y la ocultas como VeryHidden no tendrás problemas.

Me parece que te complicas la vida, la forma más habitual de guardar datos es en una hoja oculta, pero también se puede hacer con nombres. Con hoja oculta sería algo así: Columna A-Nombre formulario/Variable Columna B-Nombre control Columna C-Valor 1 Columna D-Valor 2 Columna E-Valor 3 ...... Te dejo un ejemplo con nombres. Variables fijas.xlsm

Hola Rafael: Te propongo una variación. En primer lugar he cambiado el formulario a No modal para poder ir cambiando la celda activa sin necesidad de descargar el formulario, y en segundo lugar voy actualizando la celda activa a medida que se va escribiendo en los textbox, con lo que los botones ya no son necesarios. A ver que te parece. Saludos AñadirAntesDespues II.zip

Hola Santi: Simplemente, genial. Un saludo. Antoni.

Hola: Muy ingenioso, me lo guardo en mi carpeta de ExcelTools. Saludos.

Hola: Esta macro rellena/quita relleno, a las celdas con fórmula. También es un ejemplo de como aplicar SpecialCells. Sub AlternarResaltarFormulas(Kolor) On Error Resume Next If ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor Then ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = xlNone Else ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor End If MsgBox "Total celdas con fórmula: " & ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Cells.Count End Sub [/CODE] Podeis variar Kolor entre 0 y 55. Saludos. PD: Como he leído por ahí, a mi también se me están alineando los coágulos en el cerebro. Cada día que pasa, tengo menos ideas para confeccionar aportes.

Hola a todos: Como casi siempre, voy a ser yo quien se ponga un poco "borde", acordaros de aquello que dice: o sea que a seguir "currando" para hacer a la web, simplemente: "The Best". Saludos a todos y "Happy" 2011. Germán: The Best quiere decir "La mejor" no "La Bestia",....... jajaja.

Enhorabuena: Ya estás en el nº 1. Saludos.

Re: Felices Fiestas, a todas las personas de buena voluntad ¡¡¡ Feliz Navidad !!!

Hola: Ahora me funcionan los dos. Sube el excel para pasar a rgb las imágenes. Saludos.