Tabloya aktarılan verilere kriterler uygulama

[taseraydin]

Değerli Üstad arkadaşlar
ek dosyada mocro kodlamalarını yapamadım
yardımcı olurmusunuz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton2_Click()
Dim sat As Long, i As Long, k As Byte
If MsgBox("VERİLERİ GERÇEKLEŞMELER SAYFASINA AKTARMAK İSTİYORMUSUNUZ?", vbYesNo + vbQuestion, "DİKKAT") = vbNo Then Exit Sub
Application.ScreenUpdating = False
sat = Sheets("GERÇEKLEŞMELER").Cells(65536, "B").End(xlUp).Row + 1
For i = 6 To Sheets("TAHAKKUK").Cells(36, "C").End(xlUp).Row
    Sheets("GERÇEKLEŞMELER").Cells(sat, "B").Value = Sheets("TAHAKKUK").Range("Q2").Value
    For k = 3 To 13
        Sheets("GERÇEKLEŞMELER").Cells(sat, k).Value = Sheets("TAHAKKUK").Cells(i, k).Value
    Next k
    sat = sat + 1
Next i
Application.ScreenUpdating = True
MsgBox "VERİLER GERÇEKLEŞMELER SAYFASINA AKTARILDI..!!", vbOKOnly + vbInformation, "AKTARMA"
End Sub

 

[udentr2002]

stülarınızın eşleşmesinde sanki bir mantık hatası var gibi dediğinizi yanlış anlamadıysam örnekteki gibi bir şey yaptım ama sanırım ya ben yanlış anladım yada sizin tahakkuk ile gerçekleşmeler sayfalarınızdaki verilerin olduğu stünlarda bir eşleşme hatası var inceleyin en azından belki bir fikir verebilir inşallah

 

[taseraydin]

Sn Orİon2
Aktarma İŞlemİ Gayet GÜzel OlmuŞ
Ancak Tablodakİ Satir Sayisi 30 Adet Daha Fazla Verİlere Sahİp Olan KİŞİlerde Tablonun Altina TaŞiyor Bunu Nasil Engellerİz
Ve
GercekleŞmelere
Atilan Satirlara Aİt Bİlgİler
Tahakkuk Lİstesİnden Sİlİnmesİ Gerek

 

[Orion1]

30 dan fazla olan kişiler ne olacak.İlk 30 kişi listelenip diğerleri listelenmeyecekmi?

 

[taseraydin]

Evet İlgİlİ KİŞİye Aİt İlk 30 GÖrev Lİstenecek Ve Tahakkuk EttİrİldİĞİnde
Bu 30 GÖrev Tahakkuk Lİstesİ Sayfasindan Sİlİnİp
GerÇekleŞmeler Sayfasina Aktarilacak
30 GÖrevden Sonrakİler
Tahakkuk Lİstesİ Sayfasinda Kalacak
Daha Sonra Tekrar KİŞİ ÇaĞrildiĞinda
Gerİ Kalan Kisim Gelecek

 

[Orion1]

İlk 30 kişi için kod yazıldı.
Ama silme işlemi için tahakküklistesi sayfasında a sütununda bütün kayıtların numaralnmış olması gerekiyor.Numaralanmmaış kayıt olmamamsı gerekiyor.Ayarıca bu numaraların kimse tarafından kesinlikle değiştirilmemesi ve silinmemesi gerekiyor.
Ben şimdilik olan şekli ile yani taşmayan şekli ile dosyayı ekliyorum.
Siz diğer konuyu halledip dosyayı tekrar eklerseniz sorunu hallederim.

 

[taseraydin]

DÜzeltme

son = Sayfa3.[a65536].End(3).Row + 1
bul = WorksheetFunction.Match(Sayfa3.ComboBox1.Text, Sayfa1.[C1:C65536], 0)
say = WorksheetFunction.CountIf(Sayfa1.[C1:C65536], Sayfa3.ComboBox1.Text)
If ActiveSheet.Name = "ödemelertoplamı" Then
Sayfa3.Rows(son & ":" & son + say - 1) = Sayfa1.Rows(bul & ":" & bul + say).Value
Sayfa1.Rows(bul & ":" & bul + say).Delete
ActiveWindow.SmallScroll Down:=9
Range("C6:G35").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-24

End If

End Sub

BÖYLE BİR KODLAMA İLE HALLETMEYE ÇALIŞIYORUM FAKAT OLMADI

 

[Orion1]

Siz benim 7 numaralı mesajda söylediklerimi yaparsanız ben size uygun kodları yazıp dosyayı ekleyecem.
Aksi takdirde yanlış veriler silinebilir.
Bir de ekleyeceğim bir konu dağa var.A sütunundaki numaralardan kesinlikle 1 tane olması gerekiyor.Yani bir numardan 2 tane olmamalı.Buda çok önemli.
Aksi takdirde yanlış veri silinebilir.

 

[taseraydin]

A Sutunudakİ Siralama Verİsel Bİr DeĞerİ Yok Benİm İÇİn Ve Sira Numaralari DeĞİŞtİrlmİyecek Şekİlde Siraladim
Ve Numaralar Tek Onu Ben Daha Sonra Detayli Şekİlde DÜzenlerİm

 

[Orion1]

A sütunundaki numaralar çok önemli oldu şimdi.Sakın aksatmayınız.
TAHAKKUK sayfasındaki sil butonuna basınız.
tahakkuklistesi sayfasındaki ona ait veriler silinecektir.

Sub sil()
Set s1 = Sheets("tahakkuklistesi")
Set s2 = Sheets("TAHAKKUK")
s1.Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
For i = 6 To s2.Cells(36, "C").End(xlUp).Row
    Set k = Range("A1:A65536").Find(s2.Cells(i, "N").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Range(Cells(k.Row, "A"), Cells(k.Row, "H")).EntireRow.Delete (xlUp)
    End If
Next i
MsgBox "tahakkuklistesi sayfasından veriler silindi..!!", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

 

[taseraydin]

teşekür

bu kodlar işimi gördü
gecenin bu saatine kadar ilgilendiniz
emeğiniz için çok teşekür ederim.
saygılar sevgiler

 

[Orion1]

Merhaba.
Filtre butonuna bastığınızda Hem otomatik süz yapıyor hende sıralama yapıyordu.Ben kodları incelemek için filtreden sora exit sub kodunu uygulayarak sıralama yapmasını engelledeim.Sonrada eski haline getirmeyi unuttum.Bu şekilde çalışmanız sakıncalı olacaktır.Şimdi kodları tekrardan düzelttim.Dosyayı güncelledim.11nci mesajdan indirebilirsiniz.

 

[taseraydin]

Teşekür

Teşekür ederim
Elinize sağlık

 

[Orion1]

Teşekür ederim
Elinize sağlık

Rica ederim.
İyi çalışmalar.