Jump to content
Sign in to follow this  
magdapb64

Crear NOTA de CREDITO, con EXcel y Acces 2007

Recommended Posts

buenas buenas,

es agradable conocer que existe estas paginas donde la ayuda es oportuna y gratuita.. :tickled_pink:

bien, primeramente adjunto el archivo donde detallo de forma mas precisa mi necesidad.. actualmente en mi empresa ya no se va a trabajar en el sistema donde realizabamos los procesos contables.. y ahora debemos hacer toooodo desde enero hasta la actualidad manualmente.. y en este caso.. mi recurso mas proximo es EXCEL Y ACCESS.

les agradezco mucho su ayuda e indicaciones.. pues enfatizando que no deseo que me hagan el trabajo.. sino tambien me expliquen.. porque ya no recuerdo muy bien.. lo que me enseñaron en el colegio (mas de 5 años atras.. :) )

AGRADECIDA

DIOS LES BENDIGA..

FORMATOS ND-NC.xls

Share this post


Link to post
Share on other sites

Buenas magdapb64,

Te adjunto un archivo para ir sacando dudas, aunque veo que llevara mas trabajo la planilla completa :)

Le asigne macros a los botones. (click derecho - Asignar macro)

Los codigos no son complicados:

Para salir, el comando que cierra el libro con la opcion guardar los cambios

Para limpiar, se elige el rango (celdas) y se le asigna un valor vacio.

Para guardar, hice un contador y un ingreso como ejemplo en una de las columnas.

Tal vez deberis explicar mejor las otras cuestiones

Espero te sirva, saludos

FORMATOS ND-NC_By_josh.xls

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Hola JSDJSD Muchas gracias por tu tiempo y respuesta, la función esta perfecta, pero quería meterlo al userform. Un abrazo Pedro 
    • Muricio Muchas gracias por tu ayuda, me funciona perfecto. Private Sub CommandButton1_Click() Dim ult As Long ult = Cells(Rows.Count, 1).End(xlUp).Row oDay = DateValue(TextBox1.Value) Cells(ult + 1, 1) = CDate(TextBox1.Value) 'FECHA Cells(ult + 1, 2) = Round((13 + Day(oDay) - Weekday(oDay) - 5) / 7, 0) End Sub Un abrazo _____________ Gerson Muchas gracias a ti también, con algo mas de tiempo utilizaré ti recomendación. Saludos Cordiales Pedro 
    • Buenos días!   Amigos del foro quisiera solicitarles el apoyo para resolver el siguiente problema, necesito una macro que me permita copiar de una hoja a otra si se cumplen los siguientes criterios: Si el valor en la columna G de la hoja Diario es mayor que cero, se copien los datos de Diario(hasta la ultima celda con datos) a la hoja BD pegando los datos en la ultima celda vacía de BD. Al copiar aquellos valores mayores a cero en la hoja BD quitarlos de la hoja Diario, solamente dejando los datos que contengan cero o se encuentren vacios en la columna G de la hoja Diario. Lo estuve intentando de la siguiente manera: Sub copiar2() Set J1 = Sheets("Diario") Set J2 = Sheets("BD") j = J2.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 3 To 79 If J1.Cells(i, "G") > 0 Then J2.Cells(i, "A") = J1.Cells(i, "A") J2.Cells(i, "B") = J1.Cells(i, "B") J2.Cells(i, "C") = J1.Cells(i, "C") J2.Cells(i, "D") = J1.Cells(i, "D") J2.Cells(i, "E") = J1.Cells(i, "E") J2.Cells(i, "F") = J1.Cells(i, "F") J2.Cells(i, "G") = J1.Cells(i, "G") J2.Cells(i, "H") = J1.Cells(i, "H") J2.Cells(i, "I") = J1.Cells(i, "I") J2.Cells(i, "J") = J1.Cells(i, "J") J2.Cells(i, "K") = J1.Cells(i, "K") J2.Cells(i, "L") = J1.Cells(i, "L") J2.Cells(i, "M") = J1.Cells(i, "M") J2.Cells(i, "N") = J1.Cells(i, "N") End If Next MsgBox "Valores copiados" End Sub Saludos JB Consulta copiado.xlsm
    • Hola! También puedes poner =Valor(A2), luego copiar y pegar valores
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy