formül açıklama

[osmandemir]

herkese kolay gelsin aşağıdaki formülü bana yorumlayabilirmisiniz satır satır nedemek istiyor.teşekkürler
Sub ayiklama()
Range("j2:l65536").ClearContents
ason = WorksheetFunction.CountA([a1:a65536])
bson = WorksheetFunction.CountA([e1:e65536])
c = 1
For a = 2 To ason
aktar = 1
For b = 2 To bson
If Cells(a, 1) = Cells(b, 5) And Cells(a, 2) = Cells(b, 6) Then aktar = 0
Next b
If aktar = 1 Then
c = c + 1
For x = 10 To 12
Cells(c, x) = Cells(a, x - 9)
Next x
End If
Next a
End Sub

 

[sefer seferoğlu]

Umarım Açıklayıcı Olabilir

herkese kolay gelsin aşağıdaki formülü bana yorumlayabilirmisiniz satır satır nedemek istiyor.teşekkürler
Sub ayiklama() 'programa ad veriyor
Range("j2:l65536").ClearContents ' j sütunu temizliyor
ason = WorksheetFunction.CountA([a1:a65536]) 'değişkene değer atıyor
bson = WorksheetFunction.CountA([e1:e65536]) 'değişkene değer atıyor
c = 1 ' c değişkenini 1' eşitliyor
For a = 2 To ason ' 2'den 65536'ya kadar sayan döngü oluşturuyor
aktar = 1 'değişkene değer atıyor
For b = 2 To bson ' 2'den 65536'ya kadar sayan döngü oluşturuyor
If Cells(a, 1) = Cells(b, 5) And Cells(a, 2) = Cells(b, 6) Then aktar = 0
' döngü içindeki değerleri kullanarak mantıksal sınama ile aktar değişkenin değerini belirliyor

Next b 'yeni bir b değeri alıp işlemi tekrar ediyor
If aktar = 1 Then 'Mantıksal değerlendirmeyle aktar 1'e eşitse alt satırdaki
işlemlerin yapılmasını istiyor
c = c + 1 'mantıksal değerlendirme doğruysa her bu noktadan geçişte c nin değerini 1 arttırıyor
For x = 10 To 12 'artık anlamışsınızdır yeni bir döngü kuruluyor
Cells(c, x) = Cells(a, x - 9) 'hücer (c,x)' matamatiksel formül ve değişkenler yardımıyla değer veriyor.
Next x 'hücrenin sütununu değiştirerek işlemin tekrarlanmasını sağlıyor
End If 'mantıksal sınamanın bittiğini belirtiyor
Next a ' yeni bir a değişkenin oluşturulmasını sağlıyor
End Sub 'Programı bitiriyor