Excel Tablosunda Belli bir sütundaki değerleri belli bir ordanda düşürmek

[astraler]

Merhaba,

Bir excel tablosunda, belli bir sütundaki sayısal değerlerin hepsini nasıl otomatik olarak belli bir oranda yükseltip azaltabiliriz?

Vereceğiniz cevaplar için çok teşekkürler.

[trextra]

Bir hücre oluştur diyelimki "A1" olsun. Buraya oranı yazarsın. tüm veriler "B1, B2, B3" e kayıtlı olsun. "C1,C2" li tüm hücreleri "=A1*B1" , "A1*B2" olarak ayarla. Çarpım yaparsan 0,50 ile çarparsan 2 ye bölmüş olursun. Yani bölme işlemlerinide katsayısını bulunca çarpma ile yapabilirsin.

[astraler]

Bir sütunda 4500 civarı veri var, bahsettiğin şekilde çok uzun sürer, bütün sütunun sayısal değerini nasıl belli bir oranda düşürebiliriz?

[Skeleton]

Şöyle yapabilirsin; mesela A1'den A10'a kadar olan hücrelerinde 10,20,30...100 e kadar sayıların olsun ve sen bunları 0,9 ile çarparak %10 oranında düşünmek istiyorsunuz diyelim. B1 hücresine gidiyoruz ve şunu yazıp =A1*0,9 entera basıyoruz. B1 hücresi kalın siyah border alarak seçili duruma geliyor. Bu border ın sağ alt köşesinde siyah küçük bir kare var (üzerine gelince imlecimiz + şeklini alıyor hatta) O karenin üzerine gelip mouse sol tuşumuzu basılı tutarak B10 hücresine kadar aşağıya çekiyoruz ve sol tuşu bırakıyoruz. B1'den B10'a kadar olan hücrelerimiz 9,18,27...90 şeklinde %10 azaltılmış değerleri alacaktır. Bu iş için ayrı bir kolonu israf ettik ama aynı kolon üzerinde bu işin nasıl yapılacağını ben de bilmiyorum, ama kesin vardır Kolay gelsin.

[Skeleton]

Ayrı bir kolon gerektirmeden o işlemi yapmak için VBScript te kullanabilirsin, al bakalım

Private Sub Workbook_Open()
Dim oran As Double
Dim baslangicSatir As Long, bitisSatir As Long, kolon As Long, i As Long
kolon = 1
baslangicSatir = 1
bitisSatir = 10
oran = 0.9
For i = baslangicSatir To bitisSatir
    Sheet1.Cells(i, 1) = Sheet1.Cells(i, kolon) * oran
Next i
End Sub

Excel içinden VBScript editörünü aç, sol taraftan ThisWorkbook'a çift tıkla boş sayfa açılsın ve yukarıdaki kodu yapıştır.

Koddaki bold yazıların değerlerini değiştirmen gerekli:
kolon -> A kolonu için 1, B kolonu için 2 şeklinde bir değer yazmalısın.
baslangicSatir ve bitisSatir -> soldaki başlangıç ve bitiş satır noları
oran -> uygulamak istediğin oran

[astraler]

Skeleton´isimli üyeden Alıntı

Ayrı bir kolon gerektirmeden o işlemi yapmak için VBScript te kullanabilirsin, al bakalım

Private Sub Workbook_Open()
Dim oran As Double
Dim baslangicSatir As Long, bitisSatir As Long, kolon As Long, i As Long
kolon = 1
baslangicSatir = 1
bitisSatir = 10
oran = 0.9
For i = baslangicSatir To bitisSatir
    Sheet1.Cells(i, 1) = Sheet1.Cells(i, kolon) * oran
Next i
End Sub

Excel içinden VBScript editörünü aç, sol taraftan ThisWorkbook'a çift tıkla boş sayfa açılsın ve yukarıdaki kodu yapıştır.

Koddaki bold yazıların değerlerini değiştirmen gerekli:
kolon -> A kolonu için 1, B kolonu için 2 şeklinde bir değer yazmalısın.
baslangicSatir ve bitisSatir -> soldaki başlangıç ve bitiş satır noları
oran -> uygulamak istediğin oran

peki bunu nasıl çalıştıacağız?

[astraler]

sanıyorum runtime error veriyor.

[trextra]

astraler´isimli üyeden Alıntı

Bir sütunda 4500 civarı veri var, bahsettiğin şekilde çok uzun sürer, bütün sütunun sayısal değerini nasıl belli bir oranda düşürebiliriz?

2 hücreyi yaptıktan sonra seçip aşağı çekince 4500 değil milyon taneyi aynı anda yaparsın.

[Skeleton]

astraler´isimli üyeden Alıntı

sanıyorum runtime error veriyor.

Eğer excel dosyasındaki sayfa ismin Sheet1 değil ise hata ondan olabilir, Sheet1 yazan 2 yere kendi sayfa ismini yazmayı denesene.

[astraler]

Yaptım, yine runtime hatası veriyor.