Çözüldü Karşıt İnceleme Tutanağı

enverdersin · 19 Eyl 2019

Evren Bey, Ekteki dosyada veri getirmede kaymalar var. Yardımcı olur musunuz? Makroyu uyarladım.Ancak veri getirmede kaymalar oldu. Nerede hata var bulamadım. Bir de makroyu çalıştırınca yaptığımız süzleri kaldırıyor. ve en yüksen tutarlı 10 firmanın yanındaki rakamları siliyor. Yardımcı olur musunuz?

İndir KARŞIT İNCELEME TUTANAĞI

Dosyayı indir KARŞIT İNCELEME TUTANAĞI

dosya.co

Evren · 19 Eyl 2019

Ne gibi kayma oluyor.Bir tane örnek verirmisiniz.
Kayma şu sütunda var,şu sütundaki veri şu sütunda olmalıdır gibi,sayfa adınıda verin.
Ben kontrol ettim kayma yok.Bir tek sayfa1 de g sütununda silme işlemi yoktu onu sildirdim kodlarla.

enverdersin · 19 Eyl 2019

dosyayı indirin. Aylara bakın ilgili veriler gelmiyor. Sizin yaptığınız makroda doğru olabilir ama bu tabloya uygularken veriler kayıyor.

Evren · 19 Eyl 2019

Evren' Alıntı:
Ne gibi kayma oluyor.Bir tane örnek verirmisiniz.
Kayma şu sütunda var,şu sütundaki veri şu sütunda olmalıdır gibi,sayfa adınıda verin.
Ben kontrol ettim kayma yok.Bir tek sayfa1 de g sütununda silme işlemi yoktu onu sildirdim kodlarla.

kırmızı satırdaki yeri aşağıdaki ile değiştirin.

Rich (BB code):

Set sh = Sheets("Veri")
Set s2 = Sheets("Sayfa1")
'sat = 2
s2.Range("A2:G" & Rows.Count).ClearContents

enverdersin · 20 Eyl 2019

Evren' Alıntı:
kırmızı satırdaki yeri aşağıdaki ile değiştirin.

Rich (BB code):

Set sh = Sheets("Veri") Set s2 = Sheets("Sayfa1") 'sat = 2 s2.Range("A2:G" & Rows.Count).ClearContents

Evren bey, Denedim ama olmadı. en büyük 10 tutarları getirirken vergi dairesi ve vergi numrasını yanlış getiriyor. Fatura numarasından süzerseniz karşılığının doğru gelmediğini görebilirsiniz. Bir de 69. nolu satırdan itibaren numara yazdığımda makro çalışınca siliyor orayı. süz yaptığımda süzleri kaldırıyor.

Evren · 20 Eyl 2019

İlgili prosedürü silip aşağıdakini yazın.
* Sayfa1 de filtre yada başka bir şey yapmayın.Ben oraya Veri sayfasından verileri getirip tutara göre büyükten küçüğe doğru sıralıyorum.
O sayfaya dokunmayın.
* Veri sayfasında ben her ay için autofilter yapıp sayfa1 e atıyorum.Sayfa1 dende esas sayfaya getiriyorum.her ay için süzme işlemi bitikten sonra autofilteri kaldırıyorum.Onun için o sayfada autofilter kalkıyor.

Kod:

Sub buyuk_59(ByVal ay As Range, ByRef j As Integer)
Dim sh As Worksheet, i As Long, s2 As Worksheet, sat As Long
Sheets("en büyük 10 değer").Select
Set sh = Sheets("Veri")
Set s2 = Sheets("Sayfa1")
s2.Range("A2:G" & Rows.Count).ClearContents
If sh.AutoFilterMode = True Then sh.AutoFilterMode = False
sh.Range("A1").AutoFilter field:=1, Criteria1:=ay.Value
sh.Range("A1").CurrentRegion.Copy s2.Range("A1")
sonsat = s2.Cells(Rows.Count, "D").End(xlUp).Row
sh.AutoFilterMode = False
s2.Range("A2:G" & Rows.Count).Sort s2.Range("E2"), xlDescending
Range("A" & j & ":Y" & j + 9).Value = Empty
sat = j
For i = 2 To 11
    If WorksheetFunction.CountIf(s2.Range("D2:D" & i), s2.Cells(i, "D").Value) = 1 Then
            Cells(sat, "B").Value = s2.Cells(i, "D").Value
            Cells(sat, "H").Value = s2.Cells(i, "G").Value
            Cells(sat, "M").Value = s2.Cells(i, "F").Value
            Cells(sat, "S").Value = s2.Cells(i, "C").Value
            Cells(sat, "Y").Value = s2.Cells(i, "E").Value
            sat = sat + 1
    End If
Next
End Sub

enverdersin · 20 Eyl 2019

Evren' Alıntı:
İlgili prosedürü silip aşağıdakini yazın.
* Sayfa1 de filtre yada başka bir şey yapmayın.Ben oraya Veri sayfasından verileri getirip tutara göre büyükten küçüğe doğru sıralıyorum.
O sayfaya dokunmayın.
* Veri sayfasında ben her ay için autofilter yapıp sayfa1 e atıyorum.Sayfa1 dende esas sayfaya getiriyorum.her ay için süzme işlemi bitikten sonra autofilteri kaldırıyorum.Onun için o sayfada autofilter kalkıyor.

Kod:

Sub buyuk_59(ByVal ay As Range, ByRef j As Integer) Dim sh As Worksheet, i As Long, s2 As Worksheet, sat As Long Sheets("en büyük 10 değer").Select Set sh = Sheets("Veri") Set s2 = Sheets("Sayfa1") s2.Range("A2:G" & Rows.Count).ClearContents If sh.AutoFilterMode = True Then sh.AutoFilterMode = False sh.Range("A1").AutoFilter field:=1, Criteria1:=ay.Value sh.Range("A1").CurrentRegion.Copy s2.Range("A1") sonsat = s2.Cells(Rows.Count, "D").End(xlUp).Row sh.AutoFilterMode = False s2.Range("A2:G" & Rows.Count).Sort s2.Range("E2"), xlDescending Range("A" & j & ":Y" & j + 9).Value = Empty sat = j For i = 2 To 11 If WorksheetFunction.CountIf(s2.Range("D2:D" & i), s2.Cells(i, "D").Value) = 1 Then Cells(sat, "B").Value = s2.Cells(i, "D").Value Cells(sat, "H").Value = s2.Cells(i, "G").Value Cells(sat, "M").Value = s2.Cells(i, "F").Value Cells(sat, "S").Value = s2.Cells(i, "C").Value Cells(sat, "Y").Value = s2.Cells(i, "E").Value sat = sat + 1 End If Next End Sub

Evren Bey elinize sağlık ancak veri kısmında yaptığım süzü siliyor ve 69-78 arasında 1 den 10 kadar sıra numarası verdiğim rakamları yazdığım zaman siliyor. En büyük 10 değer sayfasındaki A sütunundaki veriyi silmeyecek.

Evren · 20 Eyl 2019

enverdersin' Alıntı:
Evren Bey elinize sağlık ancak veri kısmında yaptığım süzü siliyor ve 69-78 arasında 1 den 10 kadar sıra numarası verdiğim rakamları yazdığım zaman siliyor. En büyük 10 değer sayfasındaki A sütunundaki veriyi silmeyecek.

İlgili satırı aşağıdaki ile değiştiriniz.

Kod:

Range("B" & j & ":Y" & j + 9).Value = Empty

enverdersin · 20 Eyl 2019

Evren' Alıntı:
İlgili satırı aşağıdaki ile değiştiriniz.

Kod:

Range("B" & j & ":Y" & j + 9).Value = Empty

Evren Bey elinize emeğinize sağlık. Şuan tamam gibi. İyi çalışmalar,

Evren · 20 Eyl 2019

enverdersin' Alıntı:
Evren Bey elinize emeğinize sağlık. Şuan tamam gibi. İyi çalışmalar,

Rica ederim.
İyi çalışmalar.