verileri birer kere yazdıracak (yardım pls)

[kenant]

ekte dosyayı gönderiyorum. incelerseniz sevinirim. veri tipi tanıma ile ilgili
1 ve 2 sayfalara bakınız.

 

[Serpily]

=EÐERSAY(A1:J10;"AA")

formulünü deneyebilirsin.

 

[kenant]

biliyorum

bu formülü biliyorum ama bu sadece o aralıktaki "aa" verilerinin sayısını verir. benim demek istediğim o aralıktaki veri tiplerinin isimlerini birer kere yazdırmak

 

[veyselemre]

Sub rapor()

Dim al(100)

For x = 1 To 10
For y = 1 To 10
z = z + 1
al(z) = Sheets("sayfa1").Cells(x, y)
Next y, x

For x = 1 To 100
For y = x To 100

If al(x) = al Then al = ""

If al(x) < al Then
ara = al
al = al(x)
al(x) = ara
End If

Next y, x

For c = 1 To 100
Cells(c, 1) = al(c)
If al(c) = "" Then End
Next

End Sub

 

[kenant]

çok tşk

teşekkürler tam istediğim gibi olmuş

 

[danersin]

Sn. kenant teşekkür mesajınızı başka bir başlık altında açmanız sizce doğrumu?
Buraya taşıdım mesajınızı.

 

[kenant]

Sn. kenant teşekkür mesajınızı başka bir başlık altında açmanız sizce doğrumu?
Buraya taşıdım mesajınızı.

yanlışlıkla oldu zaten. farklı başlık açmak istememiştim