VBA sorusu, 300 sayfa baktim aynisi yok, cevaplariniz icin cok tesekkur ederim.

[ata1670]

Selamlar,

iki adet hucre icerisine farkli tam sayilar yazilacaktir.

mesela

a1 hucresinine 7 sayisi
b1 hucresine 10 sayisi
ve
a8 hucresine 4 sayisi
b8 hucrelerine 7 sayisini yazdigimi varsayalim.

Makroyu calistirdigimiz zaman bizim belileyecegimi satirdaki sutun numaralarina istedigimiz sayiyi atamak istemekteyim.

Mesela yukaridaki 2 adet verdigim hucre araliklarini 1. sini d satirina 45 sayisini herbir sutun numarasina atanmasini istemekteyim. yani makromuzu calistirdigimizda d7,d8,d9,d10 hucrelerine 45 sayisinin yazilmasini istemekteyim.

ayni zamanda yine d4, d5, d6, d7 hucrelerine 45 yazilmasi gerekmektedir.


ayni sekilde a ve b sutun araliklarinda verdigim her sayinin bu sekilde atanmasina ihtiyacim var.

Cevaplariniz icin simdiden cok tesekkur ederim/ Herkese bol selam.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub sayıata()
On Error GoTo son

a = [a1].Value
b = [b1].Value
c = [a8].Value
d = [b8].Value
For i = a To b
Cells(i, 4) = 45
Next
For j = c To d
Cells(j, 4) = 45
Next
son:
End Sub