Katsayı Güncellemesi

[htsumer]

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.

 

[Ömer BARAN]

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)

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

 

[htsumer]

Çok Teşekkür ediyorum, deneyip döneceğim..

 

[htsumer]

Ö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..

 

[Ömer BARAN]

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]

Ö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]

Eyvallah, iyi çalışmalar dilerim.