komut yazım hatası

[nikomedian]

Do While Cells(2, l) <> "TOPLAM"
Sheets("Sheet1").Cells(harf(b) & tmb) = Range(harf(b) & l).Value
b = b + 1
Loop

Şeklinde bi kod yazdım;
dim(28)
harf(1) = "A"
.
.
.
harf(28) = "AC" şeklinde yukarıda tanımladığım halde sorun çıkartıyor;

Range(harf(b) & l).Value kısmı doğru mu, başka bir yazım şekli mi var ?

 

[Ferhat Pazarçevirdi]

Variant bir dizi tanımlamış ve bu diziye eleman eklemişsiniz. Dolayısıyla, diziden okuduğunuz değerler de variant veri tipinde ...

Diziyi string elamanları barındıracak şekilde tanımlayınız. Şöyle :

Dim Dizi(28) as String

veya bu kısma dokunmadan, Veri tipi dönüşüm işlemi yapmayı deneyiniz. Şöyle :

Range ([COLOR=red]Cstr([/COLOR]harf(b)[COLOR=red])[/COLOR] & "1").Value

 

[nikomedian]

hocam denedim ama yine işe yaramadı bi bakabilir misiniz.

 

[Ferhat Pazarçevirdi]

Cells nesnesi ile Range nesnesinin notasyonlarını karıştırmısınız. Aşağıdaki kırmızı ile gösterilen Cells yazısını Range olarak değiştirin veya Cells kullanacaksanız da notasyonu kontrol edin.

Sheets("Sheet1").[COLOR=red][B]Cells[/B][/COLOR](harf(b) & tmb) = Range(harf(b) & l).Value

Cells'de, satır ve sütun referansları, örneğin A1 hücresi için, Cells(1,1) veya Cells(1,"A") şeklinde ifade edilir. Range 'de ise, Range("A1") şeklinde ifade edilir. Sizin yazımınızdan bu kuralları iç içe geçirmiş ve dolayısıyla hata mesajı alıyorsunuz.

 

[nikomedian]

hocam çok sağolun, ufalk bi hata ama, bilmeyince göremiyosun. tekrar teşekkür ederim.