Amigos de Excel.
Por favor una ayuda.
Hay una hoja de Excel como "Libro Diario de Contabilidad"
3 Columnas......... INGRESOS -- EGRESOS -- SALDO
Formula: =F2+D3-E3 Hasta la fila 200
Quiero pasar esa formula a VBA con ese rango que cubra hasta la fila 200. Y que cuando se ingresen datos y haga la operación, y la siguiente celda no reciba ni Ingresos ni Egresos, quede entonces vacía. porque formular todo el rango y que rellene todo el rango con el mismo resultado de la ultima operación, no es agradable
Gracias anticipadas.
Por
Compumakro, · publicado
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