bir sayıyı bütün sütuna ekleme

[komoli]

Arkadaşlar 500 sayıdan oluşan bir sütundaki her sayıya sadece 273 sayısını eklemek istiyorum.Şöyleki: A1=100+273 A2=110+273 A3= 120+273 ... böyle altalta 500 sayının hepsine 273 eklemem gerek.

 

[Orion1]

Dim i As Integer, sat As Integer
For i = 100 To 500 Step 10
    sat = sat + 1
    Cells(sat, "A").Value = i + 273
Next i

 

[dEdE]

Merhaba,
Merhaba,
Forumumuza hoş geldiniz.
B1 hücresine =A1+273 yazıp, aşağıya doğru sürüklemeniz yeterli.
Ama makro ile isterseniz.
Aşağıdaki kodu bir modüle ekleyip çalıştırırsanız istediğinizi yapar.

Sub Ekle()
For i = 1 To 500
Cells(i, 1).Value = Cells(i, 1).Value + 273
Next
End Sub

 

[Orion1]

Veya Formülle A1 hücresine
=(100+((SATIR()-1)*10))+273

 

[Merhum İdris SERDAR]

Arkadaşlar 500 sayıdan oluşan bir sütundaki her sayıya sadece 273 sayısını eklemek istiyorum.Şöyleki: A1=100+273 A2=110+273 A3= 120+273 ... böyle altalta 500 sayının hepsine 273 eklemem gerek.

Boş bir hücreye 273 yazın. Ve bunu kopyalayın. Ekleyeceğiniz yeri seçin ve Edit/Paste Special'den Add'i seçip, OK deyin.

.

 

[komoli]

Yardımlarınız için çok teşekkür ederim