Cree un formulario el cual asocie a una macro para que la informacion se gurde en otra hoja, el detalle es que simpre se guarda enla misma linea borrando la informacion que anteriormente estaba ahi, no se como hacer para que la informacion se inserte en el siiguiente reglon.
No puedo adjuntar el archivo asi que pondre el codigo de la macro.
Cree un formulario el cual asocie a una macro para que la informacion se gurde en otra hoja, el detalle es que simpre se guarda enla misma linea borrando la informacion que anteriormente estaba ahi, no se como hacer para que la informacion se inserte en el siiguiente reglon.
No puedo adjuntar el archivo asi que pondre el codigo de la macro.
Este es el codigo de la macro
Sub guardar()
'
' guardar Macro
' para guardar datos
'
'
Application.ScreenUpdating = False
Sheets("Informe").Select
Range("A3:K7").Select
Selection.ClearContents
Range("A4").Select
Sheets("Formulario").Select
Range("C5").Select
Selection.Copy
Sheets("Informe").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A26").Select
Sheets("Formulario").Select
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Informe").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulario").Select
Range("C11:D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Informe").Select
Range("C4:D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulario").Select
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Informe").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulario").Select
Range("C17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Informe").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulario").Select
Range("G5:H5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Informe").Select
Range("G4:H4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulario").Select
Range("G8:I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Informe").Select
Range("I4:K4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("G5:H5").Select
Selection.ClearContents
Range("C11:D11").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C5").Select
Selection.ClearContents
Range("C14").Select
Selection.ClearContents
Range("C17").Select
Selection.ClearContents
MsgBox "Datos Registrados con Exito", vbInformation, "Datos Guardados"
End Sub