benzersizleri saydırma

[aydgur]

i günler dilerim bı kod yardımı ile usd toplamını aldım fakat 4 yapmama rağmen eur sütününa getiremedim ne yapmalıyım ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırdaki 3 değerini 4 yaparak deneyiniz.

sh.Range("H2").Resize(z.Count, 3).Value = Application.Transpose(b)