Este fórum está sendo desativado

[FIlipeJarillo]

Olá, Criei uma macro para inputar uma determinada informação e preciso que ela se repita até a célula x2 seja vazia, segue abaixo a mesma, é possível ?

Sub imput()

Sheets("Plan1").Select
Range("E4:E5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Range("a1").Select
Selection.End(xlDown).Offset(1, 5).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("Plan1").Select
Range("E6:E193").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Range("a1").Select
Selection.End(xlDown).Offset(1, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan2").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Offset(1, 0).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Range("a1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a1").Select
Selection.End(xlDown).Offset(0, 5).Select
ActiveCell.FormulaR1C1 = "v"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan1").Select
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft

Sheets("Plan1").Select


End Sub

[FIlipeJarillo]

celula E4 desculpe o equivoco.

[alexandrevba]

Bom dia!!

Sua macro está muito suja.


Mas tente algo assim..

Código: Selecionar todos

Sub TenteAlgoAssim()
    Do Until Range("E4").Value = ""
        Call imput
    Loop
Exit Sub
End Sub

Não testado!!!!!
Att

[FIlipeJarillo]

Cara sou meio júnior ainda em VBA, por isso acabo gravando muita das coisas, e a macro acaba ficando muita suja, estou fazendo as aulas no youtube do canal do guru, espero melhorar, rsrs, e sobre sua sugestão funcionou perfeitamente, muito obrigado