Código de Visual Basic para Aplicaciones - Macro en Excel para crear archivo

<<>>
Imágen de perfil
Val: 10
Ha aumentado su posición en 55 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro en Excel para crear archivográfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 14 de Mayo del 2019 por Ana Zelideth
155 visualizaciones desde el 14 de Mayo del 2019
En la paqueteria de Offices de Microsoft se puede realizar programas para automatizar tareas, estos son Macros hay forma de guardar comandos sencillos en Excel o escribir programas que hagan tareas más específicas, como por ejemplo generar un archivo de salida con nuevos datos o un reporte.

Les dejo la liga del tema completo
https://www.programacionparatodos.com/2019/04/programar-en-vb-en-una-macro-de-excel.html

20190426

Actualizado el 15 de Mayo del 2019 (Publicado el 14 de Mayo del 2019)gráfica de visualizaciones de la versión: 20190426
155 visualizaciones desde el 14 de Mayo del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButton1_Click()
    Dim Fila, fila2, cont As Integer
    Dim rngOrigen As Excel.Range
 
    'Limpiar hoja 
    Hoja3.Rows("1:65500").Clear
 
    Fila = 19
    fila2 = 1
    cont = 1
    Do While Hoja2.Cells(Fila, "A") <> ""
 
        Hoja3.Cells(fila2, "a") = Hoja2.Cells(Fila, "a") 'UUID
        Hoja3.Cells(fila2, "b") = Hoja2.Cells(Fila, "b") 'Monto factura
        Hoja3.Cells(fila2, "c") = Hoja2.Cells(Fila, "i") 'RFC-emisor
        Hoja3.Cells(fila2, "d") = Hoja2.Cells(Fila, "d") 'Moneda
        Hoja3.Cells(fila2, "e") = Hoja2.Cells(Fila, "e") 'Tasa cambio
        If Hoja3.Cells(fila2, "e") = "" Then Hoja3.Cells(fila2, "e") = 1
        Hoja3.Cells(fila2, "f") = "|" + Hoja2.Cells(Fila, "f") + Hoja2.Cells(Fila, "g")  'Numero factura, serie +a folio
        Hoja3.Cells(fila2, "g") = Format(Hoja2.Cells(Fila, "h"), "MM/DD/YYYY")     'fecha facura
        Hoja3.Cells(fila2, "h") = " "                   'codigo proveedor
        Hoja3.Cells(fila2, "i") = Hoja2.Cells(Fila, "c")   'rfc_receptor
        Hoja3.Cells(fila2, "j") = " "                   'nombre del proveedor
        Hoja3.Cells(fila2, "k") = Hoja1.Cells(5, "b")   ' domnio
        Hoja3.Cells(fila2, "l") = Hoja1.Cells(6, "b")   ' entidad
        Hoja3.Cells(fila2, "m") = " "   ' poliza
 
 
        Fila = Fila + 1
        fila2 = fila2 + 1
    Loop
 
    Call copiarHOjaaLibroNuevo
End Sub
 
 
Sub copiarHOjaaLibroNuevo()
    mio = ActiveWorkbook.Name
    nombre = Sheets(2).Range("B3").Value
    Workbooks.Add
    otro = ActiveWorkbook.Name
    Workbooks(mio).Activate
    ' Sheets("Hoja1").Range("a5").Copy after:=Workbooks(otro).Sheets("Hoja1").Range("a1")
    Sheets(3).Copy after:=Workbooks(otro).ActiveSheet
    Application.DisplayAlerts = False
    Workbooks(otro).Sheets(1).Delete
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(nombre, "/", ""), FileFormat:=xlCSV
    Application.DisplayAlerts = False
    ActiveWorkbook.Close False
End Sub



Comentarios sobre la versión: 20190426 (0)


No hay comentarios
 

Comentar la versión: 20190426

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5307
Revisar política de publicidad