- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
:hey: merhaba, aşağıdaki kod sayın leventm tarafından yazıldı (tekrar teşekkür) ekli dosyada örneğini veriyorum a.b.c.d.e.... gördüğünde alfabetik olarak kendisinden sonra geleni hücreye yazıyor ama bir krıter lazım 1 ile seçilenler arasında seçim yapsın istiyorum. ne yapabilirim yardımlarınız için teşekkür.
bayramınız mübarrek olsun.
Sub ac()
ara = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
For a = 3 To [d65536].End(3).Row
For b = 0 To 25
If Cells(a, "e") = "Z" Then
Cells(a, "o") = ara(0)
GoTo 10
End If
If Cells(a, "e") = ara(b) Then Cells(a, "o") = ara(b + 1)
10 Next: Next
End Sub
bayramınız mübarrek olsun.
Sub ac()
ara = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
For a = 3 To [d65536].End(3).Row
For b = 0 To 25
If Cells(a, "e") = "Z" Then
Cells(a, "o") = ara(0)
GoTo 10
End If
If Cells(a, "e") = ara(b) Then Cells(a, "o") = ara(b + 1)
10 Next: Next
End Sub