grecko187

El nuevo rango lo puedes definir con rows. Count, osea a = Cells(1, 2).CurrentRegion.Rows.Count Charts("Gráfico1").SetSourceData Source:=Range("Hoja1!B1:C" & a)

A la fórmula agrega la función redondear =redondear(A5/G10;2) Creo que es lo necesario Hasta pronto

Creo que esto te funcionará Private Sub Workbook_Open() ' Pone en gris e inhabilita las opciónes "Copiar" y "Pegar" de "Archivo" With Application With .CommandBars("Standard").Controls(8) .Enabled = False .Visible = True End With With...

No sé que también vayan esas páginas pero si te puedo recomendar * CubeCart * OS Commerce * Zen Cart Y el hosting para ello lo tengo baratísimo, por trimestre 83 usd, teniendo variantes para mensual y anual. Te instalo cualquiera de las tres tiendas...

Se puede enviar pero al menos creo que solo con el sistema de correo de Microsoft, este es el código y solo envía si se cuenta con el Outlook, no estoy seguro de que funcione por que no utilizo en Outlook, pero si no funciona me dices y veo que...

Si es posible hacerlo con una macro, te explico. En mi caso tengo las hojas: Hoja1 = Datos que tengo Hoja2 = Lista de datos Hoja3 = reporte de faltantes Este es el codigo Sub Comprueba() fil_rep = 1 fil_dat = 1 While Sheets("Hoja2").Cells(fil_dat, 1)...

Algunas respuestas a tu pregunta. En estos casos copiamos el valor de D4 en la Hoja1 a B1 en la hoja3 Caso 1: si tus datos son estáticos, la linea con la que copies será: Sheets("Hoja3").Range("B1")=Sheets("Hoja1").Range("D4") Caso 2: Si tus datos...

Meg de entrada te comento que por ahora uso el PDFRedirect que esta de lujo para eso de guardar impresiones como pdf te dejo el enlace. Grecko

Veto un placer saludarte y ayudarte. Bien, si es el caso en que la columnas B y DE tengan datos ya que así si funcionará la siguiente función Ult_Fil = Cells(1,3).CurrentRegion.Rows.Count En este caso la variable Ult_Fil toma el valor de la última...

Para ponerlos en negrita TextBox1.Font.Bold = True Y luego le das el formato y el valor TextBox1 = Format(Sheets("control").Range("k12").Value, "#,##0.00")