GUARDAR DATOS

ESTA ES LA FORMA PARA GUARDAR EN UNA MACRO LOS DATOS QUE SE NECESITAN

Private Sub CommandButton1_Click()

Dim sh1 As Object
Dim sh2 As Object
Dim nr As String
Dim r As Range

Set sh1 = Sheets("CUENTAS")
Set sh2 = Sheets("VENTAS")

sh1.Select

ActiveSheet.Range("B14").Select

'Buscar el primer registro vacío en la BDD
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend

Set r = ActiveCell

'Almacenar la información

r.Value = Range("C14").Value 'coddigo
r.Offset(0, 1).Value = Range("C15").Value
r.Offset(0, 2).Value = Range("E14").Value
r.Offset(0, 3).Value = Range("E15").Value
r.Offset(0, 4).Value = Range("G14").Value
r.Offset(0, 5).Value = Range("G15").Value
r.Offset(0, 6).Value = Range("F22").Value
r.Offset(0, 7).Value = Range("G34").Value
sh2.Activate

MsgBox "FANTASTIC EVENTS AGRADECEN SU COMPRA", vbInformation

End Sub