Este fórum está sendo desativado

[Angra]

Bom dia
Tenho uma duvida, se existe a possibilidade de inserir/trocar alguns valores dentro da macro no vba, a partir da inserção de valores em células na plan

[babdallas]

Tente assim:

Código: Selecionar todos

Sub Atribuir()

Dim i           As Long
Dim LinIndex    As Long
Dim LinStart    As Long
Dim LinEnd      As Long
Dim NomeBola    As String
Dim NumeroBola  As Long

    With wshBolas
        LinStart = .Range("V31").Value2 'trocar o valor
        LinEnd = .Range("U31").Value2    'trocar o valor
        LinIndex = .Cells(.Range("T31").Value2, 2).Value 'trocar o valor
        NomeBola = Application.Caller
        NumeroBola = VBA.Right(NomeBola, 2)

        For i = 20 To 22
            If .Cells(LinIndex + LinStart - 1, i).Value = Empty Then
                .Cells(LinIndex + LinStart - 1, i).Value = NumeroBola
                Exit For
            End If
        
            If .Cells(LinIndex + LinStart - 1, i).Value = NumeroBola Then
                VBA.MsgBox "Bola repetida"
                Exit For
            End If
        
            If i = 22 Then
                VBA.MsgBox "Limite excedido"
                Exit For
            End If
        Next i
    End With
End Sub

[babdallas]

Segue em anexo a pasta de trabalho.

[Angra]

Obrigado, eh isso mesmo