DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [d2] Then
Range("a" & sut1 & ":b" & sut1).Copy
s = s + 1
Range("d" & s + 2).PasteSpecial
End If
Next
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [f2] Then
Range("a" & sut1 & ":b" & sut1).Copy
ss = ss + 1
Range("f" & ss + 2).PasteSpecial
End If
Next
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [h2] Then
Range("a" & sut1 & ":b" & sut1).Copy
sss = sss + 1
Range("h" & sss + 2).PasteSpecial
End If
Next
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [j2] Then
Range("a" & sut1 & ":b" & sut1).Copy
ssss = ssss + 1
Range("j" & ssss + 2).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
EĞERSAY fonksiyonu ilede kaç adet olduğu hesaplanarak verileriniz CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturularak listeleme yaptırılmıştır.
Örneğiniz ektedir.
Geçte olsa farkettim, sorun halloldu, teşekkürler...Selamlar,
Ali beyinde belirttiği gibi çözümde kullanılan formül dizi formülüdür. Formülün çalışması için formülü yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak tamamlamalısınız.