• Merhaba Dostlar,
    yeni forum ile yola devam ediyoruz. Bu büyüklükte bir forum yeni bir sisteme taşımak epey bir yordu bizi. Üstelik bir de yeni XenForo Forum altyapısına geçtik.
    Eminim çok yerde hatalar ve eksikler vardır. Kısa sürede toparlayıp hızlı bir şekilde yolumuza devam edeceğiz.
    Lütfen gördüğünüz eksik ve hataları aşağıdaki bölüme dönderin. Sırasıyla inceleyip yapılabilirliği varsa üzerinde çalışacağım.
    HATA BİLDİRİM BAŞLIĞI
    Forumdaki kullanıcı adınızla ile giriş yapamıyorsanız kullanıcı adınızın sonuna 1 veya 2 gibi rakamlar ekleyerek deneyin.

    Hepimize Hayırlı Olsun!
    Hüseyin
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Katsayı Güncellemesi

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
741
Beğeniler
2
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
10,734
Beğeniler
59
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
741
Beğeniler
2
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
10,734
Beğeniler
59
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
741
Beğeniler
2
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