Döngü ile hücre birleştirme sorunu hk.

[chakistes]

merhaba arkadaşlar aşağıdaki şekilde döngü ile b den k ya kadar döngü ile birleştirmek istiyorum fakat Assisnment to constant not permitted hatası alıyorum

orjinal kod bu Range("B" & Q) = ListBox2.Column(0, (ii)) döngü ile

Range("b" & Q & ":k" & Q).Merge = ListBox2.Column(0, (ii)) yaptığımda hata veriyor

 

[Muzaffer Ali]

Burada hücre birleştirme yapmıyorsunuz.
ListBox2'nin 1. kolonundaki verileri Sayfanızdaki belli bir adrese yazmak istiyorsunuz.

Eğer doğru değilse, sorunuzun anlaşılmadığını söyleyeyim, yazdıklarınızla kodlar birbiri ile örtüşmüyor.

Mümkünse örnek dosya ekleyerek üzerinde gösterirseniz daha kolay anlarız ve daha hızlı cevap alırsınız.

 

[chakistes]

sorunu bu şekilde çözdüm
Dim sayi
sayi = 1
For ii = 0 To ListBox2.ListCount - 1
Q = sayi + 25
Range("A" & Q) = sayi

Range("B" & Q & ":K" & Q).Merge
Range("L" & Q & ":Q" & Q).Merge
Range("R" & Q & ":T" & Q).Merge
Range("B" & Q) = ListBox2.Column(0, (ii))
Range("L" & Q) = ListBox2.Column(1, (ii))
Range("R" & Q) = ListBox2.Column(2, (ii))
sayi = sayi + 1
Next