• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Katsayı Güncellemesi

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
745
Beğeniler
6
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
11,362
Beğeniler
181
Excel Vers. ve Dili
Office 2013 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
745
Beğeniler
6
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
11,362
Beğeniler
181
Excel Vers. ve Dili
Office 2013 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
745
Beğeniler
6
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..
 
Üst