Soru For Each Döngüsü

[tuvons]

Arkadaşlar merhaba,

For each döngüsünde yazdığım değişkenleri excel "sss0" olarak dikkate aldığı için kullandığım yerlerde hata veriyor. Bunların yazımını nasıl değiştirebilirim? sss0 olarak dikkate alınmasını nasıl sağlarım?

Sub deneme()
Dim s As Object, liste(), dizi()
Dim sssler As Variant
sssler = Array("sss0", "sss1", "sss2")
Dim sss As Variant
End Sub

 

[Necdet]

Merhaba,
Döngüyü göremedik verdiğiniz kodda.

Ne yapmak istediğinizi de açıklarsanız, destek daha çabuk gelebilir.

 

[tuvons]

Bu şekilde bir döngü var @Necdet Bey.

sss0 = 123456xxx
sss1 = 58963xxx
sss2 = 98663xxx

Olarak yer alıyor dosyada. Her döngüye giren sss'de içindeki rakamları almak istiyorum "gecmis = RakamAl(s1.Cells(1, sss))" bu kod ile fakat hata veriyor. Yani sss0 döngüsünde gecmis'in değerinin 123456 olarak gelmesini istiyorum fakat sanırım döngüdeki değerler noktalı virgül ile gösterildiği için hata veriyor olabilir mi? Bunu düzeltmek için ne yapabilirim?

Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If
Next i
RakamAl = Sonuç
End Function

Sub deneme()
Dim sssler As Variant
sssler = Array("sss0", "sss1", "sss2", "sss3", "sss4", "sss5", "sss6", "sss7", "sss8", "sss9", "sss10", "sss11", "sss12", "sss13", "sss99", "sss20", "sss21", "sss22", "sss23", "sss24", "sss25", "sss26", "sss27", "sss28", "sss29", "sss30", "sss31")
Dim sss As Variant
For Each sss In sssler
gecmis = RakamAl(s1.Cells(1, sss))
Next sss
End Sub