Onay Kutusu işaretli verileri diger sayfaya aktarma

[smile80]

Merhaba…
Ekte sunmus oldugum excell tablosundaki sayfa1 deki onay kutusu iaşretli verileri BAŞLAT tusuna bastıgımızda SAYFA2 ye aktarımı nasıl yaparız… bu konuda yardımcı olursanız sevinirim.. Sayfa 1e girilecek liste sayısı yaklaşık 1500 kişiden olusuyor..Teşekkürler

 

[Murat OSMA]

Yapacağınız iş bu şekilde olmaz.
Örneğin; hücreye X işareti koyarsınız, ya da göndereceğiniz satırı seçersiniz, o satırı diğer sayfaya kopyalar...

 

[Murat OSMA]

Sayfa1'in kod sayfasına bu kodları yazınız;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 5 And Target.Column <= 7 And Target.Value = "X" Then
        Target.EntireRow.Copy Sayfa3.Range("A65536").End(3)(2, 1)
    End If
End Sub

Dilerseniz 1500 kişiye X işareti koyduktan sonra bu kodları Module yazıp çalıştırın;

Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        If Cells(i, "E") = "X" Or Cells(i, "F") = "X" Or Cells(i, "G") = "X" Then
            Cells(i, 1).Resize(, 7).Copy Sayfa3.Range("A65536").End(3)(2, 1)
        End If
    Next i
    i = Empty
End Sub

 

[smile80]

ustad.. dediğinizi anladım ama girilecek veri o kdadar çok olacağı için ben mouse ve filtre ile en kısa sürede yapmaya çalışıyorum.. Peki o zaman onay kutusu yerine SY - D - R Yazdığım zaman bu yazılı satırları SAYFA2 ye nasıl kopyalayabiliriz..

 

[Murat OSMA]

Ha seçmişsiniz ha birşey yazmışsınız ne farkedecek ?

Hücrelere birşey yazmanız da şart değil...
Diğer sayfaya kopyalamak istediğiniz satırlardan E - F - G hücrelerini seçerekte kopyalayabilirsiniz...
Onay Kutusunu seçmek için bazen zorlanabilirsiniz. O hücreyi seçmek daha uygun olur...

Ne dersiniz ?

 

[smile80]

Sizin dediğiniz sekilde de olabilir ama benim sorunum bu yapacağım calışmayı kullanacak olan kişi 65 yasında olup, excelide pek bilmemesi nedeniyle en basit sekilde kullanmasını sağlayacağım.. bana kalsa SY+D+R YAZDIĞIM Sütunları Filtreleme ile secerek sayfa2 ye kopyalayabilirim.. ama kullanack kişiye tarif edemiyorum..

 

[Murat OSMA]

Küçücük kutuyu seçtirmek için uğraştırmayın o zaman.. E - F - G sütunlarını da biraz genişletin...

En basiti benim dediğim gibi olur...

Şu kodlar Sayfa1'in kod sayfasına yazıp, göndereceğiniz satırdaki E - F- G gücrelerinden birini seçin....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Selection > 1 Then Exit Sub
    If Target.Column >= 5 And Target.Column <= 7 And _
        Target.Offset(0, -3).Value <> "" Then
        Target.Interior.ColorIndex = 4
        Target.Value = "X"
        Target.EntireRow.Copy Sayfa3.Range("A65536").End(3)(2, 1)
    End If
End Sub

İyi akşamlar...

 

[smile80]

Teşekkür ederim...sizede iyi akşamlar

 

[Murat OSMA]

Teşekkür ederim.

 

[baydeniro]

Sayın Murat Osma. Kutuları işaretleyince aktarımın gerçekleşmesi mümkün olabilir mi ?

 

[Murat OSMA]

Merhaba Serdar Bey, evet mümkündür...
Şu an pek vaktim yok ama eğer yarın hatırlatırsanız bunun ile ilgili bir örnek eklerim.

İyi akşamlar...

 

[Murat OSMA]

Günaydın Serdar Bey,
Ek'teki dosyayı inceleyebilirsiniz...

Onay kutusu seçiminden sonra EI sütunundaki herhangi bir hücreyi seçin.
Seçtiğiniz Onay kutularına ait satırlar Liste sayfasına aktarılır.
Aynı şekilde onayı kaldırdığınızda da ilgili satır Liste sayfasından silinir.