Bom dia, sou novo no fórum e novo também na programação em VBA, e estou com a seguinte duvida. Estou criando um programa para cotagem de peças fabricadas na empresa, e criei um botão do tipo SALVAR, para conseguir incluir várias peças na cotagem. O programa em sí aparenta ser simples, mas conforme explicado, não tenho conhecimento do assunto.
Sub Inserir()
'
' Inserir Macro
' inserir Elemento de cotagem
n = 22
'
'
Selection.ClearContents
Range("L22:M22").Select
Range("M22").Activate
Selection.ClearContents
Range("C13").Select
Selection.Copy
Range("K22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L22").Select
Application.CutCopyMode = False
Range("C22").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Range("L22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M22").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("E23:F23").Select
Selection.Copy
Range("M22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H23").Select
Application.CutCopyMode = False
n = n + 1
End Sub
Quero que as células salvem de linha em linha, ou seja, a cada uma peça salva, automaticamente a próxima salva na linha abaixo.São 3 itens que preciso salvar, C13, C22 e E23 (mesclado com célula f23).
Já encontrei algo parecido no fórum, porém não consegui resolver meus problemas por lá.
Grato pela atenção.