for döngüsüyle textbox girişi

[felix83]

arkadaşlar 40 42 44... şeklinde giden sütunlardan a satırındaki veriyi 27,28,29... numaralı textboxlara yazmam gerek ama aşağıdaki kod çalışmıyor a değişkeni daha önce tanımlanmıştır satır sayısı olarak

Dim tb As Integer
For i = 40 To 52
tb = 27
"TextBox"& tb & .Value = Cells(a, i)
i = i + 1
tb= tb + 1
Next

.value kısmında hata veriyor

 

[Korhan Ayhan]

Selamlar,

Hata veren satırı aşağıdaki şekilde değiştirip denermisiniz.

Controls("TextBox" & tb).Value = Cells(a,i).Value

 

[felix83]

Selamlar,

Hata veren satırı aşağıdaki şekilde değiştirip denermisiniz.

Controls("TextBox" & tb).Value = Cells(a,i).Value

Teşekkürler Ayhan Bey işe yaradı tabii tb=27 yazan yeri forun dışına çıkartınca asıl işini gördü birde .findla ilgili bir sorum var.

a = Range("b2:b189").Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True).Row

b = Range("an3:bk3").Find(What:=ComboBox3.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Column

a doğru değeri alıyor fakat b satırında hata veriyor iki değişkende int olarak tanımlı columnlat harf olduğu için b ye dğeer atamıyor olabilirmi columnun sayısal ifadesini b ye atamam gerekli.

 

[Korhan Ayhan]

Selamlar,

Find komutu değer bulamadığında hata ile sonuçlanır. Bu sebeple arama işlemini setleyerek hafızaya almak gerekir. Aşağıdaki yapıyı kullanabilirsiniz.

Set Bul = Range("AN3:BK3").Find(ComboBox3.Value)
If Not Bul Is Nothing Then
Sütun = Bul.Column
End If

 

[felix83]

Selamlar,

Find komutu değer bulamadığında hata ile sonuçlanır. Bu sebeple arama işlemini setleyerek hafızaya almak gerekir. Aşağıdaki yapıyı kullanabilirsiniz.

Set Bul = Range("AN3:BK3").Find(ComboBox3.Value)
If Not Bul Is Nothing Then
Sütun = Bul.Column
End If

Şimdi doğru değeri atadı fakat başka bir makroda bu iki değişkeni kullanmam gerekli mevcut makrodan çıkıldığında bu değişkenler siliniyor global olarak nasıl tanımlayabilirim heryerde bu a , b ulaşılabilsin.

 

[felix83]

F8 ile kodu işlettiğimde ilgili macrodan çıkarken end sub satırında değişkenleri sıfırladığını gördüm bunu engellemek için nasıl bir değişken kullanmam gerek.