[Yardım]  cari hesap ekstresi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cevap: Cevap: cari hesap ekstresi

İleti#21)  dogan.importexport » 22 Tem 2021 17:31

feraz yazdı:Formüllü kodu düzenledim giderayak işe giderken :)

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim veri, i As Long, son As Long, say As Long
    Const sutunSayisi As Byte = 13
   
    If Target.Address(0, 0) <> "C6" Then Exit Sub
    Range("A11:P" & Rows.Count).ClearContents
    If WorksheetFunction.CountA(Mikro.Range("B4:B" & Rows.Count)) = 0 Then Exit Sub
   
    veri = Mikro.Range("B3").CurrentRegion.Offset(1).Value
   
    son = Mikro.Cells.Find("*", , , , xlRows, xlPrevious).Row
   
    ReDim arr(1 To son, 1 To sutunSayisi)
    For i = LBound(veri) To UBound(veri)
        If UCase(Replace(Replace(veri(i, 1), Chr(253), Chr(73)), Chr(105), Chr(221))) Like _
     "*" & UCase(Replace(Replace(Target, Chr(253), Chr(73)), Chr(105), Chr(221))) & "*" Then
            say = say + 1
            arr(say, 1) = veri(i, 2)
            arr(say, 3) = veri(i, 3)
            arr(say, 5) = veri(i, 4)
            arr(say, 7) = veri(i, 5)
            arr(say, 9) = veri(i, 6)
            arr(say, 11) = IIf(LCase(veri(i, 8)) = "borç", veri(i, 7), "")
            arr(say, 13) = IIf(LCase(veri(i, 8)) = "alacak", veri(i, 7), "")
        End If
    Next
    If say > 0 Then
        Range("A11").Resize(say, sutunSayisi).Value = arr
        son = Cells(Rows.Count, 1).End(3).Row
        If son = 11 Then Range("O11").FormulaR1C1 = "=RC[-4]-RC[-2]"
        If son > 11 Then
            Range("O11").FormulaR1C1 = "=RC[-4]-RC[-2]"
            Range("O12:O" & son).FormulaR1C1 = "=R[-1]C+RC[-4]-RC[-2]"
            Range("P11:P" & son).FormulaR1C1 = "=IF(RC[-1]>0,""( B )"",IF(RC[-1]<0,""( A )"",""-""))"
            Range("O11:P" & son).Value = Range("O11:P" & son).Value
        End If
    End If
    On Error Resume Next
    Erase veri
    Erase arr
End Sub


Harika olmuş teşekkürler
Kullanıcı avatarı
dogan.importexport
Yeni Başlamış
 
Kayıt: 01 Ekm 2017 14:24
Meslek: muhasebe
Yaş: 45
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: almanya

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: cari hesap ekstresi

İleti#22)  halidhan » 13 Oca 2022 16:40

Merhabalar,
Ekde ilistirdigim , excel dosyamda redim makrosuyla kosullu getirmeye calistigim bilgileri dogru alamiyorum ,sanirim sorunu A Sutunundaki hucrelerle ayni olan verileri getirmesi lazim , ama A stunun daki hucreleri kosullayamiyorum sanki oyuzden diye dusunuyorum, acaba makronun yandaki excel formullerindeki gibi duzenleye bilirmiyiz ?

Saygilar,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halidhan
Yeni Başlamış
 
Kayıt: 13 Haz 2020 17:00
Meslek: Muhasebe
Yaş: 42
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Giresun

Önceki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 4 misafir

Bumerang - Yazarkafe