Este fórum está sendo desativado

[Ricardo1603]

Criar um contador automático para que toda vez que salve a planilha com outro nome ele aumente um numero.

Ex: pedido original, numero 1000, salvo com o nome "pedido fornecimento", preciso que o excel salve a planilha "pedido fornecimento" com o numero original 1000 e a planilha pedido original altere para o numerador para 1001.

[alexandrevba]

Bom dia!!

Tente algo assim...

Código: Selecionar todos

Sub Tente()
    Dim v
    Dim strname As String
    strname = ThisWorkbook.Name

    v = Mid(strname, InStr(1, strname, ".xls", vbTextCompare) - 5, 5)
     
    v = Val(StrReverse(v))

    strname = WorksheetFunction.Substitute(strname, v, v + 1)

    ThisWorkbook.SaveAs Filename:=strname
     
End Sub

Att