Visual Basic - No se graban los registros que introduzco a través del formulario

Life is soft - evento anual de software empresarial
   
Vista:

No se graban los registros que introduzco a través del formulario

Publicado por Conrado (1 intervención) el 01/12/2017 10:16:08
Buenos dias

Al realizar una macro en la cual introduces datos en un formulario y quiero que estos datos se queden grabados no encuentro la manera, alguna paso hago mal pero no se cual puede ser, agradezco de antemano una respuesta.
Si me agrega una fila pero no me salen los datos que deseo ver.
Aqui os paso lo que voy haciendo.
Un saludo y gracias.

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
Sub Ingresar()
'
' Ingresar Macro
'
 
'
    ActiveCell.FormulaR1C1 = ""
    Range("H5:M5").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H6:M6").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H7:M7").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H8:M8").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H9:M9").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H10:M10").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H11:M11").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H12:M12").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H13:M13").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H14:M14").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H15:M15").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H16:M16").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H17:M17").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H18:M18").Select
    ActiveCell.FormulaR1C1 = "y"
    Range("H5:M18").Select
    Selection.Copy
    Sheets("DATOS").Select
    Range("A3:N3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A3:N3").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("FORMULARIO PARA HORARIOS").Select
    Selection.ClearContents
    Range("Q8").Select
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad