DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub TOPLA()
[C1] = ""
For i = 1 To 65536
If Cells(i, 2).Value = "x" Then
A = Cells(i, 1)
[C1] = [C1] + A
End If
Next
End Sub
Teşekkür ederim sn Seyit Tiken.Seyit Tiken' Alıntı:Makrosuz Alternatif. Ekteki Dosyayı İnceleyiniz.