İstediğim isme göre satırların 2.sayfaya aktarılması

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın 1.sayfada ana verim var, G sütunundaki Ali ve Alı isminin bulunduğu satırların butonla 2.sayfaya aktarmak istiyorum.

Sayfamdaki verilerim çok olduğu için çok uğraştırıyor.

Yardımcı olur musunuz?

 

[kemalist]

https://www.youtube.com/watch?v=MIDdUs2fIr4
bu videoda istediğiniz gibi örnek var

 

[vardar07]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın 1.sayfada ana verim var, G sütunundaki Ali ve Alı isminin bulunduğu satırların butonla 2.sayfaya aktarmak istiyorum.

Sayfamdaki verilerim çok olduğu için çok uğraştırıyor.

Yardımcı olur musunuz?

Almak istediğiniz isimleri neye göre belirliyorsunuz. Yani alacağınız ismi herhangi bir hücreye yazmanız lazım. Mesela N1 hücresi gibi.

 

[dEdE]

...dosyamın 1.sayfada ana verim var, G sütunundaki Ali ve Alı isminin bulunduğu satırların butonla 2.sayfaya aktarmak istiyorum.

Merhaba,
Örnek dosyanızdaki "Ali" ve "Alı" isimleri G sütununda değil F sütununda. Kodları sadece bu isimleri aktaracağınızı düşünerek yazdım.
Aşağıdaki kodları örnek dosyanızda dener misiniz?

Sub Aktar()
For j = 1 To 2
    If j = 1 Then
        Bulunacak = "Ali"
        Else
        Bulunacak = "Alı"
    End If
Set Aranan = Sheets("Sayfa1").Range("F:F").Find(Bulunacak, , xlValues, xlPart)
If Not Aranan Is Nothing Then
    Adres = Aranan.Address
    Do
    ss = Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("Sayfa1").Range(Cells(Aranan.Row, 1), Cells(Aranan.Row, 13)).Copy Sheets("Sayfa2").Rows(ss & ":" & ss)
    Set Aranan = Sheets("Sayfa1").Range("F:F").FindNext(Aranan)
    Loop While Not Aranan Is Nothing And Aranan.Address <> Adres
End If
Next j
MsgBox "Aktarma İşlemi Tamamlandı. ", vbInformation, "dEdE  " & _
Application.UserName & "'e Başarılar Diler."
End Sub

 

[ASLAN7410]

Sayın kemalist; verdiğiniz linki inceledim ancak yapamadım. İlginiz için teşekkür ederim.

Sayın vardar07 ; İlginiz için teşekkür ediyorum, bu isim örnek olduğu için isimleri daha sonra değiştireceğim, i ve ı harflerine duyarlı olması için yazmıştım.

 

[ASLAN7410]

Sayın dEdE ilginiz için çok teşekkür ediyorum, göndermiş olduğum kodları örnek üzerinde çalıştırdığımda, örneğin sayfa1'de Kemal ismini Kemal Ali yazıyorum bu ismide sayfa2'ye atıyor.

Benim istediğim sadece Ali ve Alı ile başlayan kelimelerin bulunduğu satırların aktarılmasını istiyorum.

 

[ASLAN7410]

Sayın dEdE, ayrıca butona bastığımda sayfada istenilen kelimeyi bulayınca aşağıdaki kodu sarıya boyuyor.

Sheets("Sayfa1").Range(Cells(Aranan.Row, 1), Cells(Aranan.Row, 13)).Copy Sheets("Sayfa2").Rows(ss & ":" & ss)

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Aktar()
For j = 1 To 2
    If j = 1 Then
        Bulunacak = "Ali"
        Else
        Bulunacak = "Alı"
    End If
Set Aranan = Sheets("Sayfa1").Range("F:F").Find(Bulunacak, , xlValues, xlPart)

If Not Aranan Is Nothing Then
    Adres = Aranan.Address
    Do
    If Left(Aranan, 3) <> Bulunacak Then GoTo Atla
    ss = Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("Sayfa1").Range(Cells(Aranan.Row, 1), Cells(Aranan.Row, 13)).Copy Sheets("Sayfa2").Rows(ss)
Atla:
    ' Sheets("Sayfa1").Rows(Aranan.Row).Delete Shift:=xlUp
    Set Aranan = Sheets("Sayfa1").Range("F:F").FindNext(Aranan)
    Loop While Not Aranan Is Nothing And Aranan.Address <> Adres
End If
Next j
MsgBox "Aktarma İşlemi Tamamlandı. ", vbInformation, "dEdE  " & _
Application.UserName & "'e Başarılar Diler."
End Sub

 

[ASLAN7410]

Sayın dEdE ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi oldu, Allah razı olsun.

Hayırlı geceler hayırlı çalışmalar diliyorum.

 

[dEdE]

Merhaba,
Kodların işinize yaramasından mutlu oldum.
Ancak yazdığım kodlardan ben memnun değilim.
Sizin isteğiniz doğrultusunda sadece "Ali" ve "Alı" sözcükleri ile başlayan hücreleri bulup aktardık.
Aranacak sözcüklerin kod içine yazılması doğru bir yöntem değildir. Farklı sözcükler için her seferinde kodları değiştirmek gerekir.
Şöyle ki; arama işlemi, ("Ali" örneğinden yola çıkarsak)
-Tam sözcük Örn; "Ali"
-Aranan sözcüğü içeren Örn; "Mehmet Ali Bilir" , "Taliye" "Talimgah", "Salim"
-Aranan sözcük ile başlayan Örn; "Alim", "Aliye"
-Aranan sözcük ile biten Örn; "Binali", "Tali", "Mali"
-Aranan sözcüğü içermeyen yani "Ali" dışındaki her sözcük için yapılabilir.
Bunları kod ile yapabilmek için;
-Aranan sözcük herhangi bir hücrede yazılı ise o hücre seçilerek
-Aranan sözcüğü belli bir hücreye yazarak veya
-Bir "Inpotbox" üzerinden bir değişkene aktarılarak yapılabilir.

Hoşça kalın.

 

[ASLAN7410]

Sayın dEdE mesajınızı sonradan gördüm, ilginiz için çok teşekkür ediyorum, 8 mesajda vermiş olduğunuz kod işimi gördü.

Hayırlı geceler, hayırlı çalışmalar.