Katsayı Güncellemesi

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
941
Excel Vers. ve Dili
Excel-2003
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

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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
941
Excel Vers. ve Dili
Excel-2003
Çok Teşekkür ediyorum, deneyip döneceğim..
 

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
941
Excel Vers. ve Dili
Excel-2003
Ö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..
 

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
941
Excel Vers. ve Dili
Excel-2003
Ömer bey tamamdır 1 yapınca hesaplamayı yaptı. Çok çok teşekkür ederim elinize sağlık. İyiki varsınız..
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Eyvallah, iyi çalışmalar dilerim.
 
Üst