Çözüldü Sayfa1' de istenilen satırları InputBox ile Sayfa2' ye altalta aktar

[Kuzeyyıldızı]

Değerli Forum ve üyelere merhabalar.
Hayırlı Ramazanlar. Aşağıda ekli linkte
InputBox ile SEÇİLEN sicilleri sayfa 2' ye alt alta aktarıyorum ancak makro sadece sicil aktarıyor;
isteğim ise; söz konusu sicille birlikte satırın tamamını aktarmak istiyorum. Bunu yapamadım, sadece sicili alıyor.
Yani bir sicil seçtiğimde sayfa2' de alt alta devam ettirmek mümkün mü?
Yardımlarınız için şimdiden Teşekkürler.
Win-7 / Office-2010

http://s2.dosya.tc/server9/18utzh/ari_InputBox__ile_Sayfa2_ye_altalta_aktar.rar.html

 

[Muzaffer Ali]

Merhaba, hayırlı ramazanlar.

Module1 deki kodları silin aşağıdakileri ekleyin.

Sub Sayfa2ye_altalya_yaz()
    Dim Say As Integer
    Dim Bak As Integer
    Dim Sicil As String
    Dim Bulundu As Boolean
    Sicil = Application.InputBox("Enter the thing", Type:=2)
    Say = Cells(Rows.Count, "A").End(3).Row
    For Bak = 2 To Say
        If Cells(Bak, "A").Text = Sicil Then
            Bulundu = True
            Exit For
        End If
    Next
    If Bulundu Then
        Range("A" & Bak & ":G" & Bak).Copy Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Offset(1, 0))
    Else
        MsgBox "Aradığınız 'Sicil' bulunamadı."
    End If
End Sub

Not:Çok gerekmedikçe dosyanızı rar ile sıkıştırmadan eklerseniz daha iyi olur.
Ayrıca lütfen dosya.tc sitesini kullanmayın. Çünkü müstehcen sitelere yönlendiriyor.
Onun yerine https://www.dosyaupload.com sitesini kullanabilirsiniz..

 

[Kuzeyyıldızı]

Sayın; dalgalikur
Tekrar merhaba. Yeni dosya yükleme sitesi öğrettiğiniz için teşekkür ederim. Konuyla ilgilendiğiniz, zaman ayırdığınız için Allah sizden razı olsun. Satırı tam getiriyor ancak, tekrar veri aldığımda üzerine yazıyor, alt alta devam etmiyor, rica etsem tekrar bakabilir misiniz.

Sayın; dalgalikur konunun dışında ama "Yeni Konu" gönderirken "Etiketleme" olayı karşıma çıkmıştı anlayamadım, ayrıca bilgilendirirseniz sevinirim, teşekkür ederim.

 

[Muzaffer Ali]

Yukarıdaki kodu düzelttim. Şimdi yeniden deneyin.

 

[Kuzeyyıldızı]

Sayın; dalgalikur
Tekrar merhaba. İstediğim buydu. Eline, emeğine, yüreğine sağlık. Allah sizden razı olsun, çok mutlu oldum. Aziz Ramazanda Allah bütün dileklerinizi kabul etsin, Allah cümle ölmüşlerimize rahmet eylesin. Hoşça kalın.

 

[Muzaffer Ali]

Sayın; dalgalikur
Tekrar merhaba. İstediğim buydu. Eline, emeğine, yüreğine sağlık. Allah sizden razı olsun, çok mutlu oldum. Aziz Ramazanda Allah bütün dileklerinizi kabul etsin, Allah cümle ölmüşlerimize rahmet eylesin. Hoşça kalın.

Amin Allah razı olsun. Bil mukabele.