Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 7 sonutan 1 ile 7 arasndakiler gsteriliyor.

Konu: forml makroya dntrmek

  1. #1
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.000

    forml makroya dntrmek

    Mrb Excel Dostlar,

    Aadaki gelir vergisi matrahlarn hesaplayan C2 hcresinde yer alan 3 adet forml makroya dntrmek iin yardm talep ediyorum.
    7,8,9,... satrlarda da veriler var.

    Yardmc olan statlara teekkr ederim.

    Office Ver.: bilinmiyor
    Windows Ver.: Windows 10 Enterprise 64 bit
    + A B C D
    1 Dilim_1 13000
    2 Dilim_2 30000
    3 Dilim_3 70000
    4
    5 km GVMat aylk Gv Mat gv
    6 29000 1650 375,50 (x)
    7
    Sayfa smi: FORM (Sayfa1)
    XLtoHTML v1.2 / OfficeTrkiye - 2014



    "=EER(A6<=$B$1-B6;B6*0,15;EER(A6<$B$1;(($B$1-A6)*0,15+(B6-($B$1-A6))*0,2);EER(A6<=$B$2-B6;B6*0,2;EER(A6<$B$2;($B$2-A6)*0,2+(B6-($B$2-A6))*0,27;EER(A6<=$B$3-B6;B6*0,27;EER(A6<$B$3;($B$3-A6)*0,27+(B6-($B$3-A6))*0,35;B6*0,35))))))

    Salcakla kaln.
    Konu behcet tarafndan (16.11.2017 Saat 18:31 ) deitirilmitir.

  2. #2
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.000
    stadlarm,
    Beni duyan yok mu?

  3. #3
    Yeni ye
    yelik tarihi
    Dec 2017
    Mesajlar
    6
    Ltfen Deneyiniz.
    PHP- Kodu:
    Sub Forml()
     
    Sadece C2-C3-C4 iin ilem yapmak istiyorsunuz diye anlyorum
    For 2 To 4
        k 
    4
        
    If Cells(k1) <= Cells(12) - Cells(k2Then
            XX 
    Cells(k2) * 0.15
        
    Else
            If 
    Cells(k1) < Cells(12Then
                XX 
    = (Cells(12) - Cells(k1)) * 0.15 + (Cells(k2) - Cells(12) + Cells(k1)) * 0.2
            
    Else
                If 
    Cells(k1) <= Cells(22) - Cells(k2Then
                    XX 
    Cells(k2) * 0.2
                
    Else
                    If 
    Cells(k1) < Cells(22Then
                        XX 
    0.2 * (Cells(22) - Cells(k1)) + 0.27 * (Cells(k2) - Cells(22) + Cells(k1))
                    Else
                        If 
    Cells(k1) <= Cells(32) - Cells(k2Then
                            XX 
    Cells(k2) * 0.27
                        
    Else
                            If 
    Cells(k1) < Cells(32Then
                                XX 
    0.27 * (Cells(32) - Cells(k1)) + 0.35 * (Cells(k2) - Cells(32) + Cells(k1))
                            Else
                                
    XX Cells(k2) * 0.35
                            End 
    If
                        
    End If
                    
    End If
                
    End If
            
    End If
        
    End If
        
    Cells(i3) = XX
    Next i
    End Sub 

  4. #4
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.000
    Mrb,
    Nihayet sesimi duyan birini bulduum iin sevinliyim.
    ok teekkr ederim.
    Ancak;
    C2 deil C6 dan itibaren hesaplamas gerekiyor.
    Ayrca c6....c10.. deiken satr.
    Buna gre C6' dan itibaren satr saysna gre
    Her mali yl yenilenen dilim rakamlarn deitirdiimde de hesaplamal.
    Salcakla kaln.

  5. #5
    Yeni ye
    yelik tarihi
    Dec 2017
    Mesajlar
    6
    Umarm doru anlammdr.

    Kod:
    Sub XX_Hesapla()
    
    son = Cells(5, 1).End(xlDown).Row
    For k = 6 To son
        If Cells(k, 1) = "" Then Exit For
        If Cells(k, 1) <= Cells(1, 2) - Cells(k, 2) Then
            XX = Cells(k, 2) * 0.15
        Else
            If Cells(k, 1) < Cells(1, 2) Then
                XX = (Cells(1, 2) - Cells(k, 1)) * 0.15 + (Cells(k, 2) - Cells(1, 2) + Cells(k, 1)) * 0.2
            Else
                If Cells(k, 1) <= Cells(2, 2) - Cells(k, 2) Then
                    XX = Cells(k, 2) * 0.2
                Else
                    If Cells(k, 1) < Cells(2, 2) Then
                        XX = 0.2 * (Cells(2, 2) - Cells(k, 1)) + 0.27 * (Cells(k, 2) - Cells(2, 2) + Cells(k, 1))
                    Else
                        If Cells(k, 1) <= Cells(3, 2) - Cells(k, 2) Then
                            XX = Cells(k, 2) * 0.27
                        Else
                            If Cells(k, 1) < Cells(3, 2) Then
                                XX = 0.27 * (Cells(3, 2) - Cells(k, 1)) + 0.35 * (Cells(k, 2) - Cells(3, 2) + Cells(k, 1))
                            Else
                                XX = Cells(k, 2) * 0.35
                            End If
                        End If
                    End If
                End If
            End If
        End If
        Cells(k, 3) = XX
    Next k
    Konu NextLevel tarafndan (09.12.2017 Saat 11:55 ) deitirilmitir.

  6. #6
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.000
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 10 Enterprise 64 bit
    + A B C D E F
    1 Dilim_1 13000
    2 Dilim_2 30000
    3 Dilim_3 70000
    4 OLMASI GEREKEN
    5 km GVMat aylk Gv Mat GV
    6 28500 1650 340,00 340,50
    7 25000 1650 330,00 330,00
    8 23500 1650 330,00 330,00
    9 20000 1650 330,00 330,00
    10 11000 1650 248,00 247,50
    11 11000 1500 225,00 225,00
    12
    Sayfa smi: Sayfa1 (Sayfa1)
    XLtoHTML v1.2 / OfficeTrkiye - 2014

    Mrb Sayn NextLevel ,
    Evet doru anladnz. Ancak;
    Tabloda grdnz gibi 5 nolu mesajdaki makro 50 kr fazla hesaplyor. Aslnda 3 nolu mesajdaki forml doru hesaplyordu.
    Bu fark neden oldu anlayamadm.
    Bir de hata verdi ikinci satra >>

    Sub xx()
    Dim xx As Integer>>

    eklinde tanmlama yaparak bunu giderdim. ok teekkr ederim.

    >>


    Konu behcet tarafndan (09.12.2017 Saat 02:58 ) deitirilmitir.

  7. #7
    Yeni ye
    yelik tarihi
    Dec 2017
    Mesajlar
    6
    Tabloda grdnz gibi 5 nolu mesajdaki makro 50 kr fazla hesaplyor. Aslnda 3 nolu mesajdaki forml doru hesaplyordu
    Merhaba, kodu F8 ile admlayarak hangi satrda fazla topluyor ve neden bunu yapyor grebilirsiniz.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •