Katsayı Güncellemesi

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
757
Beğeniler
7
Excel Vers. ve Dili
Excel-2003
#1
Ekteki CSV dosya içinde bir çok katsayılar var bunları yüzde arttırımı yapmak istiyorum ama manuel çok uzun sürecek.. Yardım edebilirmisiniz.
Yapılacak işlem tablodaki değerler 8,65 oranında arttırılıp kendisne ilave edilecek.
Örneğin
ODYOLOG,"3102.68","3141.49","3205.51","3294.76","3411.12" sırasında mesela (3102.68 x 8,65%)+3102.68=3371.06 olacak (Virgül değil nokta olacak)
Tüm sayılar 8,65 oranında arttırılacak.
Teşekkürler.
 

Ekli dosyalar

Katılım
8 Mart 2011
Mesajlar
13,047
Beğeniler
742
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#2
Merhaba.

Belgeyi Ms.Excel ile açın, alt taraftan 4b_brut sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırıp çalıştırın (değer arttırma işlemi tamamlanacaktır),
belgeyi kaydedip kapatın (kapanış esnasında ekrana gelecek uyarıyı EVET ile geçin)
Kod:
Sub ARTTIR()
kat = 1.0865
For sat = 1 To Cells(Rows.Count, 1).End(3).Row
    tt = Len(Cells(sat, 1)) - Len(Replace(Cells(sat, 1), ",", ""))
    For hcr = 1 To tt
        deg = Split(Cells(sat, 1), ",")(hcr)
        hcr = hcr + ((Len(Cells(sat, 1)) - Len(Replace(Cells(sat, 1), deg, ""))) / Len(deg)) - 1
        deg1 = Replace(Replace(deg, """", ""), ".", ",")
        deg2 = """" & Replace(Round(deg1 * kat, 2), ",", ".") & """"
        Cells(sat, 1) = Replace(Cells(sat, 1), deg, deg2)
    Next
Next
MsgBox "Tüm değerler " & kat & " oranında artırıldı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub
 
Son düzenleme:

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
757
Beğeniler
7
Excel Vers. ve Dili
Excel-2003
#4
Ömer bey dediklerinizin aynısını yaptım kodu çalıştırdıımda Arttırıldı mesajı geldi değişmedi, çıkarken kaydettim yeniden açtım ama değerler aynı değişmedi..
 
Katılım
8 Mart 2011
Mesajlar
13,047
Beğeniler
742
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#5
Tekrar merhaba.
Verdiğim kod'da deneme yaparken bir hususu atlamışım.
For sat = 1 To Cells(Rows.Count, 1).End(3).Row
satırındaki kırmızı renklendirdiğim kısım 43 olarak kalmış, 43'ü 1 olarak değiştirerek deneyin isterseniz.
Denemeyi izlemek için tıklayın >>> https://i.hizliresim.com/8zdNWV.gif
 

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
757
Beğeniler
7
Excel Vers. ve Dili
Excel-2003
#6
Ömer bey tamamdır 1 yapınca hesaplamayı yaptı. Çok çok teşekkür ederim elinize sağlık. İyiki varsınız..
 
Katılım
8 Mart 2011
Mesajlar
13,047
Beğeniler
742
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#7
Eyvallah, iyi çalışmalar dilerim.
 
Üst