Kod yazarken metin birleştirme

[Ömer BARAN]

Herkese merhabalar.

UserForm'daki ComboBoxlara excelden veri alırken;

ComboBox[COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR].Value = Sheets("Sayfa1").Cells(ComboBox0.ListIndex + 2, [COLOR="red"][SIZE="4"]2[/SIZE][/COLOR])

ComboBox numaraları 1'den 60'a kadar 2 rakamı da 61'e kadar devam ediyor.

UserForm'daki ComboBoxlardan excele veri gönderirken de;

Sheets("Sayfa1").Cells(ComboBox0.ListIndex + 2, [COLOR="red"][SIZE="4"]2[/SIZE][/COLOR]) = ComboBox[COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR].Value

ComboBox numaraları 1'den 60'a kadar 2 rakamı da 61'e kadar devam ediyor.

Bu ComboBox isimleri için a gibi bir değer tanımlayıp döngüyle tek satır kod yazarak excel'den UserForma ve UserFormdan excele veri aktarmak istiyorum.
60 satır veri almak için, 60 satır veri göndermek için kod yazmak yerine birkaç satır kodla olurmuş gibi geliyor bana.

Nasıl bir kod olabilir.

İlgilenenlere teşekkür.

 

[Ömer BARAN]

Kod yazmayı bilen biri bir şey söylese;

Kod yazmayı bilen biri bir şey söyler inşallah.

 

[Ömer BARAN]

Kod yazmayı bilen biri bir şey söylese;

Kod yazmayı bilen biri bir şey söyler inşallah.

 

[halit3]

Satırların değerlerini kendiniz tanımlayın ornek uygulama

kod:

satır = 5
For i = 1 To 60
Sheets("Sayfa1").Cells(satır, i).Value = Controls("ComboBox" & i).Text
Next i

satır = 5
For i = 1 To 60
Controls("ComboBox" & i).Text = Sheets("Sayfa1").Cells(satır, i).Value
Next i

Not : Sorularınızı sorarken örnek dosyanızıda eklerseniz cevap almanız kaloylaşır.

 

[Ömer BARAN]

Satırların değerlerini kendiniz tanımlayın ornek uygulama
kod:

Sayın halit3 teşekkürler.