calvuch

Prueba así: Sub Guarda() Dim dia As String Dim tim As String Dim nombre As String Dim ext As String Dim Path As String dia = Format(Date, "dd-mm-yyyy ") tim = Format(Time(), " hh-mm") ext = ".xls" nombre = Sheets(1).Range("h4").Value MsgBox "Generada...

Prueba esto: =sumar.si(a1:b4;"deuda";b1:b4)+sumar.si(a1:b4;"gasto";b1:b4) Esto lo pones en la celda en que deseas el total, he sumado el total de gatos y deudas del rango A1 B4 en siguiendo tu ejemplo. Si los datos estas en otro rango, adecualo. Como...

Esta función =extraer(B1;1;3)&largo(b1) Saca los primeros tres caracteres de la celda B1 y le añade el largo de la misma celda, ¿por qué no solo la copias en la celda que deseas?, las referencias se cambian automáticamente

Prueba Sub hora() Dim h As Date h = "01:00:00" ActiveCell = Format(Time - h, "hh:mm:ss AM/PM") End Sub

Estas utilizando más niveles de anidamiento que los permitidos eso es todo ( esta muy largo), más de lo que permite excel

Supongamos que la fecha de vencimiento esta en celda A1 Entonces si tu deseas el mensaje en celda B1 entonces en B1 pones: =si(hoy()+60<a1;"Proximas a vencer";si(hoy()+55<a1;"Retirar producto";"vigente"))

If ListBox1.ListIndex = -1 Then MsgBox "Seleciona un elemento de la lista", vbInformation: Exit Sub Si no seleccionas nada en el list el indice sera -1 si seleccionas cualquier elemento sera >=0

Prueba =sumar.si.conjunto(b1:b19;a1:a19;">=01-07-2011";a1:a19;"<=07-07-2011") Suma columna B en función de A para fechas desde 01-07-2011 hasta 07-07-2011 inclusive

¿Supongo qué ya probaste con asignar formato numérico a la columna exportada verdad? Lo que yo hago es lo siguiente Inserto una columna al costado de la que deseo "convertir" a numero: Y en ella lo que hago es sumar la celda original + cero Ej: en B1...

Lo probé y corre bien Se puede producir el 1004 en función si desde la hoja "base" la columna B esta Vacía. Lo cual provoca que el rango seleccionado sea desde col A hasta la IV luego por consiguiente no puedes "cortar y pegar " hacia la derecha,...