1- İnstagram mobilden sırasıyla: İnstagram profilinize gidin - Sağ üst alanda yer alan hamburger menüye, ardından hareketlerin seçeneğine tıklayın. En alt alanda yer alan download your information(bilgilerinizi indirin) seçeneğini girin. - E-posta adresinizi girin ve indirme talep et seçeneğine tıklayın.
2- Mailinize gelen dosyalardan "followers_and_following" klasöründen takip ettikleriniz ve sizi takip edenleri görebileceğiniz dosyaları bulup açıyorsunuz. (followers.html , following.html)
3- Exceli açıyoruz ve A sütununa Takipçiler, B sütununa Takip edilenler, D sütununu Sonuç yazıyoruz.
4- followers.html dosyasını açıp en üstten en alta kadar kopyalayıp A-2'ye yapıştırıyoruz. Aynı şekilde following.html dosyasını açıp en üstten en alta kadar kopyalayıp B-2'ye yapıştırıyoruz. Bu şekilde bir görüntü oluyor.
6- Sağ tıklayıp sırayla: İnsert -Modele diyoruz.
7- Size verdiğim kodu bu kısma yazıyoruz.
Sub takipciAnaliz()
Sayfa1.Range("D2:D1000000").ClearContents
Dim kontrol As Range
Dim sonsat, sonsat2, sonsat3, i As Integer
Dim arananKullanici As String
sonsat = Sayfa1.Range("A1000000").End(xlUp).Row
sonsat2 = Sayfa1.Range("B1000000").End(xlUp).Row
For i = 2 To sonsat2 Step 2
arananKullanici = Sayfa1.Range("B" & i)
Set kontrol = Sayfa1.Range("A1:A" & sonsat).Find(arananKullanici)
If kontrol Is Nothing Then
sonsat3 = Sayfa1.Range("D1000000").End(xlUp).Row + 1
Sayfa1.Range("D" & sonsat3) = arananKullanici
End If
Next
End Sub
8- Excell'de ekleden bir şekil ekleyip bu şekle makro ata diyoruz ve yazmış olduğumuz kodu seçip Tamam diyoruz.
9- Hayırlı olsun butona bastığımız anda sonuçlar yazılıyor. Artık tek tek çıkabilirsiniz.
