Cadipas spain

Primero defines el área de impresión: Seleccionas lo que quieres imprimir y del menu ARCHIVO - ÁREA DE IMPRESIÓN - ESTABLECER ÁREA DE IMPRESIÓN Luego, del mismo menu, ARCHIVO - CONFIGURAR PÁGINA, en la pestaña de página, tendrías que ajustar la...

Prueba esto para guardar la factura y para cambiar el numero, tendríamos que saber donde tienes el numero anterior, para añadir el nuevo numero... Tú puedes cambiar el directorio donde guardar la factura, yo he puesto "C:\Documents and Settings\",...

Prueba este trozo de código, espero que sepas donde ponerla o añadirla a tu código. Si no sabes, me lo indicas y te lo asesoro. TEn en cuenta que igual no coinciden los colores con los que tú tienes, yo he cogido el verde y rojo más normales, y con...

Prueba esto: Entiendo que en la columna ES no tienes más datos que los que quieres en la lista. ListBox1.rowsource = "$s2:" & Range("s65535").End(xlUp).Address

Reeemplaza por estas lineas, y te cambia el nombre de la hoja creada... Sheets("Config").Select 'Hoja madre ActiveSheet.Buttons.Add(436.5, 10.5, 76.5, 24.75).Select Sheets("Config").Copy Before:=Sheets(1) Sheets("Config (2)").Range("F1").Select...

Ya te he contextado particularmente, pero pego parte de la macro por si le sirve a alguien más: Private Sub PINTAR_Click() Dim hc As Byte Dim hf As Byte Dim mc As Byte Dim mf As Byte Dim ns As String Dim pc As Integer Dim hcc As Integer Dim hff As...

Prueba a modificar esto: Private Sub CommandButton1_Click() Worksheets("hoja1").Activate Set mycell = Application.InputBox( _ prompt:="Seleciona el rango donde buscar", Type:=8) Range(mycell.Address).Select Selection.Find(What:=TextBox1,...

Para intentar ayudarte: Podrías poner un ejemplo gráfico con datos de lo que tienes que te exporta del txt y lo que quieres conseguir en las dos olumnas, puedes inventarte los datos o pega un pequeño listado de unos datos del fichero... O si te...

En el menu de excel en: Herramientas Opciones Y pica en la pestaña Calcular Revisa si tienes picado el calculo Automático y si no lo tienes, actívalo.. Ya me comentaras,,,,.

Utiliza If IsNumeric(p) Then MsgBox "numero" Lo que quieras hacer con la condicción es cosa tuya, yo simplemente te digo si es numérico El ejemplo que he utilizado es: Sub pp() p = InputBox("numero o letra") If IsNumeric(p) Then MsgBox "numero" End...