Jump to content

shahuinto

Members
  • Content Count

    314
  • Joined

  • Last visited

  • Days Won

    1

shahuinto last won the day on April 6 2014

shahuinto had the most liked content!

About shahuinto

  • Rank
    Advanced Member
  • Birthday 03/31/1976

Contact Methods

  • Website URL
    http://www.tingoexploration.com

Recent Profile Visitors

715 profile views
  1. Muy buena Servan... eres lo máximo. Tema Solucionado Saludos y gracias
  2. Hola amigos, bueno tengo un inconveniente y espero me puedan apoyar: En el libro1 tengo 3 columnas, en la columna C tengo montos (cientos), y quiero que la macro me busque los montos mayores a 3500 y si lo encuentra, debe insertar una fila debajo, y debe debe aumentar un dia la fecha inicial, copiar el mismo nombre y poner la diferencia en la columna C, pero tambien debe borrar el monto mayor y sustituirle por 3500. Anexo el archivo, en el área amarillo es como debe quedar. Saludos probando2.xls
  3. Hola amigos, quería pedirles un favor. A los que estan usando este programa y no han cambiado el Email de destino, les pido por favor que cambien el email que se encuentra en el modulo 5, Cambien lo siguiente: dam2.To = "tesoreria@acopagro.com.pe" 'Destinatarios dam2.Subject = "Informe Gasto Vehicular" '"Asunto" dam2.Body = "Hola Danitza: Te envio el informe del gasto mensual de los vehiculos de la empresa. Atentamente;" '"Cuerpo del mensaje" Saludos ' -------------------------- ENVIO DE EMAIL POR OUTLOOK------------------------ Sub Enviararchivos() ruta = ThisWorkbook.Path Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "D:\REPORTES" .AllowMultiSelect = False .InitialFileName = ruta If .Show <> -1 Then Exit Sub cp = .SelectedItems(1) End With ChDir cp arch = Dir("*.*") Set dam2 = CreateObject("outlook.application").CreateItem(0) dam2.To = "tesoreria@acopagro.com.pe" 'Destinatarios dam2.Subject = "Informe Gasto Vehicular" '"Asunto" dam2.Body = "Hola Danitza: Te envio el informe del gasto mensual de los vehiculos de la empresa. Atentamente;" '"Cuerpo del mensaje" Do While arch <> "" dam2.Attachments.Add cp & "\" & arch arch = Dir() Loop dam2.Send 'El correo se envía en automático MsgBox ("Los informes fueron enviados") End Sub [/CODE]
  4. Ya lo pude realizar, haber por favor si lo dan como SOLUCIONADO, gracias
  5. Amigos, he llegado hasta aqui. Haber si me apoyan, ya que encuentra la celda del combobox1, baja una fila pero no ingresa las 5 filas que le pido. Aqui hasta donde pude llegar: Private Sub CommandButton1_Click() On Error Resume Next Set busco = Sheets("Hoja3").Range("A:A").Find(Trim(ComboBox1.value), LookIn:=xlValues, lookat:=xlWhole) If Not busco Is Nothing Then ActiveCell = busco.Offset(1, 0) numFilas = 5 If numFilas > 0 Then Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert End If End If End Sub[/CODE]
  6. Estimado Macro, entiendo tu posicion, pero con una red 2G y un celular antiguo, es dificil subir archivos. Ahora que estoy en la ciudad, subo el archivo para que me puedas ayudar. La macro esta en el userform 1. Dejemos las otras userform para despues. PROGRAMA CENTRO DE ACOPIO 2.rar
  7. Hola amigos, necesito la ayuda de ustedes, tengo una hoja con datos en la columna A:A, tengo dos combobox. Lo que quiero es que me busque el dato en la hoja, encontrado el dato, me inserte 5 filas, y escribir el dato del combobox 2 en la primera fila que inserto. Ayuda amigos
  8. Hola amigos, bueno, esta plantilla esta relizada en excel 2010 de 64 bits... los que usan en excel 32bits puede causarles problemas, por las incompatibilidades... y agradecer a Sebastiani por mejorarlo, un abrazo desde aqui.
  9. Hola amigos: Aqui les envio un pequeño archivo que manejo en mi empresa, es para controlar los gastos vehiculares (gasolina, mantenimiento, etc.) la clave de ingreso es: 1234 pueden adecuarlo a sus necesidades. Saludos CONTROL DE VEHICULOS.rar
  10. Quieres que sume las columnas y te de el resultado en N Valores?... no entiendo bien... porque a traves de simples sumas y restas lo puedes hacer automatico, sin necesidad de macros.
  11. Creo que deberias abrir otro post preguntando, asi lo dicen las reglas del foro... Pero si se puede hacer lo que pides dbuera. Saludos
  12. Porque no pones toda la macro, porque me parece que no le estas diciendo a la macro que busque los datos, solo le dices que suba.
  13. Creo que demasiada ayuda, jajaja. Saludos
  14. jajaja, bueno la solución es con un userform, ya que las funciones se pueden borrar por accidentes, déjame armarlo y te lo envío, claro si alguien mas no se me adelanta, jajaja Saludos
×
×
  • Create New...

Important Information

Privacy Policy