bir çeşit döngü

[Volkan Öztürk]

selam arkadaşlar.
Resim konusunda bazı problemlerim vardı bir şekilde, siteden faydalanarak yaptım bişeyler. Ama bir yerde takıldım yardımınıza ihtiyacım var.
Bir Döngü;
a1 değerini 3'le çarpsın sonucu c1'e yazsın
a2 değerini 3'le çarpsın sonucu c2'ye yazsın
a3 değerini 3'le çarpsın sonucu c3'ye yazsın
....
a50 değerini 3'le çarpsın sonuzu c50'ye yazsın

yani sırasıyla a1 değerini bi değişkene atayacak o değişkeni 3 le çarpıp c1'e yazacak. bu şekilde 50'ye kadar gidecek.

Aslında formülle çok basitçe yapılır. Ama amacım makroyla çalıştırıp döngünün mantığını çözmek ve farklı amaçla kullanabilmek. yardımcı olursanız sevinirim.

 

[Ferhat Pazarçevirdi]

aşağıdaki gibi olabilir ...

for i=1 to 50
cells(i,3)=cells(i,1)*3
next i

 

[tahsinanarat]

Örnek dosya ekte

İstediğiniz şekilde yapmaya çalıştım, umarım olmuştur. Saygılar
Kodlar
Sub topla100yazC()
Dim MaValeur, nbcell
For nbcell = 1 To 100
Range("A" & nbcell).Select
MaValeur = ActiveCell.Value
Range("C" & nbcell).Select
ActiveCell.Value = MaValeur * 3
Next
Range("a1").Select
End Sub

 

[Volkan Öztürk]

ellerinize sağlık

arkadaşlar sağolun. sizinkilerden faydalanarak daha değişik bi şey yaptım. oldukçada güzel oldu.

Sağolun. Sıkışırsam yine kapınızı çalarım...