• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

enverdersin

Yeni Üye
Katılım
8 Şub 2019
Mesajlar
163
En iyi yanıt
0
Puanları
18
Yaş
45
Konum
istanbul
Ad Soyad
ENVER DERSİN
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?



 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
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

Yeni Üye
Katılım
8 Şub 2019
Mesajlar
163
En iyi yanıt
0
Puanları
18
Yaş
45
Konum
istanbul
Ad Soyad
ENVER DERSİN
dosyayı indirin. Aylara bakın ilgili veriler gelmiyor. Sizin yaptığınız makroda doğru olabilir ama bu tabloya uygularken veriler kayıyor.
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
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.:cool:
Rich (BB code):
Set sh = Sheets("Veri")
Set s2 = Sheets("Sayfa1")
'sat = 2
s2.Range("A2:G" & Rows.Count).ClearContents
 

enverdersin

Yeni Üye
Katılım
8 Şub 2019
Mesajlar
163
En iyi yanıt
0
Puanları
18
Yaş
45
Konum
istanbul
Ad Soyad
ENVER DERSİN
kırmızı satırdaki yeri aşağıdaki ile değiştirin.:cool:
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

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
İ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

Yeni Üye
Katılım
8 Şub 2019
Mesajlar
163
En iyi yanıt
0
Puanları
18
Yaş
45
Konum
istanbul
Ad Soyad
ENVER DERSİN
İ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

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
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.:cool:
Kod:
Range("B" & j & ":Y" & j + 9).Value = Empty
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt