Tratador da lista de Seguidores do Twitter

As vezes nos perguntamos:  “Das pessoas que sigo no Twitter, quantos me seguem???”

Para os “twitteiros” que tem mais de 1.000 seguidores é bem complicado descobrir essa informação, então como o Excel é capaz de realizar tudo “ J ”, criei essa interface de cruzamento das 2 listas (Following X Followers).

É bem simples de utilizar. Basta copiar as duas listas direto da internet do jeito que está no site (Não precisa fazer nenhuma alteração). Simplesmente, Ctrl_C Ctrl_V.

Em seguida é só seguir os passos da interface.

As listas desses nomes identificados estarão disponíveis da guia de resultado.

Segue o código dessa consulta para você utilizar no VBA do Excel:


Dim linha, linha2
Sheet5.Select
For linha = 2 To 1048576
    If Sheet3.Cells(linha, 1) = "" And Sheet3.Cells(linha + 1, 1) = "" And Sheet3.Cells(linha + 2, 1) = "" And Sheet3.Cells(linha + 3, 1) = "" Then
   
        Exit For
    End If
   
    If Sheet3.Cells(linha - 1, 1) = "Following Unfollow " And Sheet3.Cells(linha, 1) = Sheet3.Cells(linha, 2) And Sheet3.Cells(linha, 1) <> "Following Unfollow " And Sheet3.Cells(linha, 1) <> "Followed by you!" Then
  
        For linha2 = 2 To 1048576
       
            If Sheet5.Cells(linha2, 1) = "" Then
                Exit For
            End If
              
        Next
           
            Sheet5.Cells(linha2, 1) = Sheet3.Cells(linha, 1)
          
    End If
   
Next
UserForm1.TextBox1 = Sheet5.Cells(1, 2)