Cari Extra Düzenleme

ANTALYA 01 · 12 Temmuz 2007

Merhaba

Ekte mevcut olan Sayfa 1 deki verileri Bir Makroyla Sayfa 2 deki gibi olması için gerekli makroya ihtiyacım bulunmaktadır.İlgilenler için şimdiden teşekkür ederim.

Not;Sayfa 1'e Logodan aktardığım verileri kopyalamaktayım.Sayfa 2 deki gibi olması için bayağı zaman harcıyorum.

Recep İpek · 12 Temmuz 2007

Aşağıdaki kodları deneyiniz.

Kod:

Sub Düzenle()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:g5000").ClearContents
s2.Range("z2:z500").ClearContents
'************************************************************
For i = 3 To s1.[a65536].End(3).Row
    If s1.Cells(i, "a").Value <> "CARİ HESAP KODU" And s1.Cells(i, "a").Value <> s1.Cells(i + 1, "a").Value Then
    son = s2.[z65536].End(3).Row + 1
    s2.Cells(son, "z").Value = s1.Cells(i, "a").Value
    End If
Next i
'************************************************************
For i = 2 To s2.[z65536].End(3).Row
    For j = 3 To s1.[a65536].End(3).Row
      If Val(s2.Cells(i, "z").Value) = Val(s1.Cells(j, "a").Value) Then
            sat = s2.[a65536].End(3).Row + 1
            If s1.Cells(j, "f").Value = "AÇILIŞ FİŞİ" Then
            s2.Cells(sat, "a").Value = s1.Cells(j, "d").Value
            s2.Cells(sat, "b").Value = s1.Cells(j, "b").Value
            s2.Cells(sat, "c").Value = s1.Cells(j, "f").Value
            s2.Cells(sat, "d").Value = s1.Cells(j, "h").Value
            s2.Cells(sat, "e").Value = s1.Cells(j, "I").Value
            s2.Cells(sat, "f").Value = s1.Cells(j, "j").Value
            s2.Cells(sat, "g").Value = s1.Cells(j, "k").Value
            Else
            s2.Cells(sat, "a").Value = s1.Cells(j, "d").Value
            s2.Cells(sat, "c").Value = s1.Cells(j, "f").Value
            s2.Cells(sat, "d").Value = s1.Cells(j, "h").Value
            s2.Cells(sat, "e").Value = s1.Cells(j, "I").Value
            s2.Cells(sat, "f").Value = s1.Cells(j, "j").Value
            s2.Cells(sat, "g").Value = s1.Cells(j, "k").Value
            End If
        End If
    Next j
Next i
'************************************************************
[a2].Select
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Düzenleme Bitti", 64, "UYARI"
[color=green]'Designed By ripek / www.excel.web.tr[/color]
End Sub

ANTALYA 01 · 13 Temmuz 2007

S

Teşekkür ederim tam istediğim gibi olmuş.

ANTALYA 01 · 14 Temmuz 2007

D

Merhaba
Sayın Ripek Bu soruma güzel çözüm bulmuştu sağolsun 2.Bir Makroyla
Sayfa 2 Deki Verileri Kullanarak ÖRNEK Sayfasındaki Formüllerle Sayfa 4 Teki Gibi
Müşterilerin Gün Farkını Bulabilirmiyiz ?

veyselemre · 14 Temmuz 2007

@ripek cevap vermiş ama alternatif olsun.

Kod:

Sub Rapor()
'veyselemre
'www.excel.web.tr
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Rapor").Delete
    Sheets("Sayfa1").Copy after:=Sheets(1)
    ActiveSheet.Name = "Rapor"
    ActiveSheet.Shapes("Button 1").Delete
    On Error GoTo 0
    
    Range("A:A,C:C,E:E,G:G,L:S").Delete
    Range("1:1").Delete
    Columns(2).Cut
    Columns(1).Insert Shift:=xlToRight
    Cells.Interior.ColorIndex = xlNone

    With Range("A1:G1")
        .Interior.ColorIndex = 40
        .Font.Bold = True
    End With

    son = [g65536].End(3).Row
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("H1").AutoFill Destination:=Range("H1:H" & son), Type:=xlFillSeries

    With Range("A1:H" & son)
        .AutoFilter Field:=1, Criteria1:="TAR&#304;H"
        .Offset(1).Resize(son - 1).SpecialCells(xlCellTypeVisible).Value = ""
        .AutoFilter
        .AutoFilter Field:=3, Criteria1:="<>A&#199;ILI&#350; F&#304;&#350;&#304;"
        .Offset(1).Resize(son - 1).SpecialCells(xlCellTypeVisible).Select
        .AutoFilter
        adr = Intersect(Selection, Columns(2)).Address
        Range(adr).ClearContents
        .Sort [h1]
    End With
    Columns("H").ClearContents

    ActiveWindow.DisplayGridlines = False
    Cells.EntireColumn.AutoFit
    [a1].Select
End Sub

ANTALYA 01 · 14 Temmuz 2007

D

Sayın Veyselemre
Cevabınız için teşekkür ederim ama benim 2.sorum farklı Müşterilerin Yaşlandırmasına ihtiyacım var

Recep İpek · 15 Temmuz 2007

Konu ile ilgili fazla bilgi sahibi değilim ama anladığım kadarıyla dosyanızda birşeyler yapmaya çalıştım.

Umarım istediğiniz gibi olmuştur.

ANTALYA 01 · 16 Temmuz 2007

D

Merhaba
Cevabınız için teşekkür ederim.Fakat Sayfa 4 te Örnek Arzu gıda
Borç Ort Vade ;18/12/2006
Alacak Ort Vade;25/12/2006
Gün Farkı ;6 Gün

Bu şekilde olması gerekiyor.

Sayfa 4 te Mütün Müşterileri bu şekilde hesaplaması gerekiyor makronun

ANTALYA 01 · 16 Temmuz 2007

D

Merhaba
Arzu Gıdanın Hesaplamasını eklemyi unutmuşum.

harunkomus · 16 Temmuz 2007

YaŞlandirma İstİyorsan YapilmiŞi Var

veyselemre' Alıntı:
Ekteki örneği hazırladım, yeterince test etmeden kullanmayın.

BURADA LOGODAN VERİ ÇEKİYORSUN ODBC İLE
VERİLERİ İSTEDİĞİN SIKLIKTA GÜNCELEYEBİLİRSİN
YAŞLANDIRMA MAKROSU YAPILMIŞ

BAKİYEDE MEVCUT

ANTALYA 01 · 16 Temmuz 2007

S

Merhaba

Pardon ben yanlış hesaplımışım Tablonuzda Arzu gıda Doğru hesaplıyor fakat Diğer Müşterilerin Gün Farkını vermiyor.

Diğer Müşterilerde Alacak Sütunu ÖRNEK Sayfasındaki Tabloda Kullanılmamış.

Recep İpek · 16 Temmuz 2007

Sanırım bu sefer olmuştur.

ANTALYA 01 · 16 Temmuz 2007

H

Merhaba

Olmuş fakat Geçen yıldan Devirleri 01/01/2007 Olarak Bu tabloda Hesaplatabilirmiyiz.Mesela ÖRNEK Sayfasında Sadece BORÇ ve ALACAK Sütunlarının Ortalamasını alıyoruz.Önceki dönemden devir Bakiyesinide 01/01/2007 Günü olarak Hesaba Katsa nasıl olur ?Ekteki Örnekte ben devir bakiyesini 10/01/2007 Tarihindeki ilk borç tutarına ekledim.9 Gün Fark etti.ÖRNEK Sayfasına Devir Bakiyelerini eklersek daha doğru sonuç çıkacak.Borç devri Borca Alacak Devri Alacağa FİŞ TÜRÜ Kısmında DEVİR Olarak Gözükebilir.Kusura Bakmayın sizide yoruyorum.

Recep İpek · 17 Temmuz 2007

Dosyanızı gerekli düzeltmeyi yaptım.Önceki mesajlarımda yazdığım gibi konu
hakkında fazla detaylı bilgim yok.Bu şekilde tüm fiş türlerinin işleme alınacağını
bilseydim işimiz daha kolay olacaktı.Direkt 2.sayfaya ortalama vade formülleri yerleştirip buradan özet bilgileri alarak sonuca kısa yoldan ulaşabilirdik.

ANTALYA 01 · 17 Temmuz 2007

S

Merhaba

Tam istediğim gibi fakat ÖRNEK Sayfasını ve Sayfa 4 Sildim Makroları çalıştırdım.Ekteki Dosyada Hesaplamaları yapmadı acaba yanlış bir şeyler mi yapıyorum ?Dosyayı ekliyorum.

Recep İpek · 17 Temmuz 2007

ÖRNEK sayfasının alt kısımlarında veriler kalmış.Sanırım bundan dolayı hesaplama yapmıyor.

ANTALYA 01 · 17 Temmuz 2007

S

Teşekkür ederim.İlginizden Dolayı

Vedat Özer · 4 Şubat 2016

Merhabalar,

Recep beyin yapmış olduğu dosya arşivinde olan varmı _?

Cari Extra D&#252;zenleme

Özel Üye

Cari Extra Düzenleme