Macro para crear y eliminar informe

[jumarcano]

Hola compañeros

Deseo hacer un contador de dinero. Billetes y monedas.

Pero para guardar los conteos

Guardo los datos agregados en otra. Pero no consigo crear varios reportes.

La idea es crear el primer reporte y guardar, Luego crear otro reporte y guadar.... y asi sucesivamente.

Intente pero no conseguí hacerlo...

Por favor me pueden ayudar

Sub ReporteC()
'
' Reportes del día
'

    If Sheets("Conteo").Select = vbYes Then
    Sheets("Conteo").Select
    ActiveWindow.SelectedSheets.Delete
    
    Else
    ActiveWorkbook.Save
    Worksheets.Add.Name = "Conteo"
    ActiveCell.FormulaR1C1 = "Reporte del Dia 1 de la Recaudación"
    Sheets("Reportes").Select
    Range("B2:L18").Select
    Selection.Copy
    Sheets("Conteo").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("E6").Select
    Columns("B:B").ColumnWidth = 8.38
    Columns("E:E").ColumnWidth = 3.3
    Columns("J:J").ColumnWidth = 3.5
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveSheet.Move After:=Worksheets(Worksheets.Count)
    Sheets("Reportes").Select
    Range("B3").Select
    End If
      
    
End Sub

Conteo2.xlsm

[Luis Caballero]

Hola , tienes que ir cambiando el nombre de la hoja que creas, puedes usar la fecha por ejemplo

 

Sub ReporteC()
'
' Reporte del dia
'
nombreHoja = "Conteo_" & Day(Range("i4")) & "_" & Month(Range("i4"))
    Worksheets.Add.Name = nombreHoja
    ActiveCell.FormulaR1C1 = "Reporte del Dia " & Sheets("Reportes").Range("i4") & " de la Recaudación"
    Sheets("Reportes").Select
    Range("B2:L18").Select
    Selection.Copy
    Sheets(nombreHoja).Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("E6").Select
    Columns("B:B").ColumnWidth = 8.38
    Columns("E:E").ColumnWidth = 3.3
    Columns("J:J").ColumnWidth = 3.5
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveSheet.Move After:=Worksheets(Worksheets.Count)
    Sheets("Reportes").Select
    Range("B3").Select
    
    
End Sub

 

[jumarcano]

Hace 7 horas, Luis Caballero dijo:

Hola , tienes que ir cambiando el nombre de la hoja que creas, puedes usar la fecha por ejemplo

 

Sub ReporteC()
'
' Reporte del dia
'
nombreHoja = "Conteo_" & Day(Range("i4")) & "_" & Month(Range("i4"))
    Worksheets.Add.Name = nombreHoja
    ActiveCell.FormulaR1C1 = "Reporte del Dia " & Sheets("Reportes").Range("i4") & " de la Recaudación"
    Sheets("Reportes").Select
    Range("B2:L18").Select
    Selection.Copy
    Sheets(nombreHoja).Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("E6").Select
    Columns("B:B").ColumnWidth = 8.38
    Columns("E:E").ColumnWidth = 3.3
    Columns("J:J").ColumnWidth = 3.5
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveSheet.Move After:=Worksheets(Worksheets.Count)
    Sheets("Reportes").Select
    Range("B3").Select
    
    
End Sub

 

Excelente 

Muchas gracias