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

    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.016
    stadlarm,
    Beni duyan yok mu?

  3. #3
    Yeni ye
    yelik tarihi
    Dec 2017
    Mesajlar
    26
    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.016
    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
    26
    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.016
    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
    26
    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
  •