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 5 sonutan 1 ile 5 arasndakiler gsteriliyor.

Konu: sayfa3 deki sat Tutarn sayfa2 ye getirtme makrosu hk.yardm

  1. #1
    ye
    yelik tarihi
    Feb 2006
    Mesajlar
    45

    sayfa3 deki sat Tutarn sayfa2 ye getirtme makrosu hk.yardm

    merhaba,
    Sayfa2 de A2 Satrnda ube ad var, Sayfa2 B2 Satrna Vba kodu ile Sayfa3 de ki G stununda ki (G1 de yine ube ad var ve G2 den balayp rnek G110 kadar satrlarda rnlerin sat Tutarlar var) tutarlar toplatp getirtmek istiyorum, rnler sabit her zaman G110 olmuyor, sat raporuna gre bazen G500 de olabiliyor.

    ube isimlerini eletirerek sayfa3 deki Toplam rakam Makro ile nasl getirtebilirim.

    sayglarmla...

  2. #2
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    997
    Merhaba, Sayn Cevahir

    Konuyu anlamak yarsn zm olmak demektir.
    Muhtemelen Sayfa3 ABCDEF stunlar da veriler mevcut. Birden fazla ubeler de var..
    Sayfa2 A2 de farkl bir ube seince o ubenin rnleri toplam m gelecek?
    Tablo eklerseniz problem daha iyi anlalr.
    Yardm da daha abuk gelir diye dnyorum.
    Tablo eklemek iin aadaki linke tklaynz.

    http://www.hesaptablosu.com/showthre...29-ExceltoHTML
    Konu behcet tarafndan (09.07.2017 Saat 21:29 ) deitirilmitir.

  3. #3
    ye
    yelik tarihi
    Feb 2006
    Mesajlar
    45
    Sayfa2;
    Gnderen XL Ver.: Office 2007 / OS Ver.:
    +AB
    1UBE ADITUTAR
    2A-ube Vergi dahil net tutar
    3B-ube Vergi dahil net tutar
    4C-ube Vergi dahil net tutar
    5D-ube Vergi dahil net tutar
    XLtoHTML v1.1 / OfficeTrkiye - 2010


    Sayfa3;

    Gnderen XL Ver.: Office 2007 / OS Ver.:
    +ABCDEFG
    1Stok koduStok ismiMaster BarkodA-ube sat miktarA-ube sat brt tutarA-ube sat net tutarA-ube Vergi dahil net tutar
    21a rn123111,9211,9212,87
    32b rn124351,8551,8556,00
    43c rn12558,098,098,74
    54d rn126742,3042,3045,68
    65e rn12760,000,000,00
    7
    8Toplam22,00114,16114,16123,29
    9
    XLtoHTML v1.1 / OfficeTrkiye - 2010

  4. #4
    ye
    yelik tarihi
    Feb 2006
    Mesajlar
    45
    Sayfa3 deki Dier ubeler de yanyana rakamlar;

    Gnderen XL Ver.: Office 2007 / OS Ver.:
    +ABCDEFGHIJKLMNO
    1Stok koduStok ismiMaster BarkodA-ube sat miktarA-ube sat brt tutarA-ube sat net tutarA-ube Vergi dahil net tutarB-ube sat miktarB-ube sat brt tutarB-ube sat net tutarB-ube Vergi dahil net tutarC-ube sat miktarC-ube sat brt tutarC-ube sat net tutarC-ube Vergi dahil net tutar
    21a rn123111,9211,9212,87310,0010,0010,1012,002,00 (x)2,02 (x)
    32b rn124351,8551,8556,00620,0020,0020,2023,503,50 (x)3,54 (x)
    43c rn12558,098,098,74930,0030,0030,3034,504,50 (x)4,55 (x)
    54d rn126742,3042,3045,68140,0040,0040,4046,806,80 (x)6,87 (x)
    65e rn12760,000,000,0022,002,002,0258,908,90 (x)8,99 (x)
    7
    8Toplam22,00114,16114,16123,2921,00 (x)102,00 (x)102,00 (x)103,02 (x)15,00 (x)25,70 (x)25,70 (x)25,96 (x)
    9
    XLtoHTML v1.1 / OfficeTrkiye - 2010

  5. #5
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    414
    Merhaba,
    Kodu deneyiniz.

    Kod:
    Option Explicit
    Sub sutun_topla()
    Dim s2 As Worksheet, s3 As Worksheet, d As Object
    Dim a(), b(), c(), Y As Byte, X As Long
    Dim sat2 As Long, sat3 As Long, sut3 As Byte
    Set s2 = Sheets("Sayfa2")
    Set s3 = Sheets("Sayfa3")
    sat3 = s3.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row
    sut3 = s3.Rows(1).Find("*", , , , xlByColumns, xlPrevious).Column
    a = s3.Range(s3.[A1], s3.Cells(sat3, sut3)).Value
    On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
        For Y = 1 To UBound(a, 2)
            For X = 2 To UBound(a)
                d(a(1, Y)) = d(a(1, Y)) + a(X, Y)
            Next X
        Next Y
    sat2 = s2.Columns(1).Find("*", , , , xlByRows, xlPrevious).Row
    c = s2.Range("A2:A" & sat2).Value
    ReDim b(1 To UBound(c), 1 To 1)
        For X = 1 To UBound(c)
            b(X, 1) = d(c(X, 1))
        Next X
    s2.Range("B2:B" & Rows.Count).ClearContents
    s2.[B2].Resize(UBound(c)) = b
    MsgBox "lem tamam...", vbInformation
    End Sub

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
  •