Jump to content
Fórum Script Brasil
  • 0

Controle de Mesalidade


Guest --Mfrigerio --

Question

Guest --Mfrigerio --

Controle de mensalidades

Tenho um lista com varios nomes na plan1 de A2:A500

na Plan2 tenho um controle com mês na coluna A , e nomes (da plan1) na coluna B

no inicio de cada mês , eu entro na plan2 e lanço o nome de quem pagou a mensalidade do mes X

quero saber o seguinte: Como faço uma macro em VBA para Listar na plan3 os nomes das pessoas do mês X que ainda não pagaram.

a lógica eu sei, mas não estou conseguindo montar o VBA ... é que sou novato rsrsrs.

Eu precisaria pegar o mês X (Novembro por exemplo) pegar todos nomes que foram lançados nesse mês e subtraí-los dos

nomes da plan1, e colocar na plan3.

Conto com a ajuda dos meus amigos.

antecipo agradecimentos a todos. :unsure:

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Tente usando a macro abaixo:

Sub listarcaloteiros()

For i = 2 To 500 

If Sheets("plan2").Range("b" & i).Value <> Sheets("plan1").Range("b" & i).Value Then

Worksheets("plan3").Cells(65536, 1).End(xlUp).Offset(1, 0) = Worksheets("plan1").Cells(i, 1).Value

End If

Next

End Sub

Link to comment
Share on other sites

  • 0

Tente usando a macro abaixo:

Sub listarcaloteiros()
achei=0

For i = 2 To 500
pagou = Sheets("plan1").Range("a" & i).Value
' Procura na plan2 se tem o nome existente em plan1
With Worksheets("plan2").Range("b2:b500")
 Set c = .Find(pagou, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            'fistaddress = c.Address
            achei = 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
'se encontrou não faz nada e vai para próximo, senão copia em plan3 abaixo do último existente
If achei <> 1 Then
Worksheets("plan3").Cells(65536, 1).End(xlUp).Offset(1, 0) = Worksheets("plan1").Cells(i, 1).Value
End If

'nova busca no próximo, zera resultado anterior
achei = 0

Next

End Sub

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...