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

Katılım
18 Mart 2007
Mesajlar
6
Beğeniler
1
Excel Vers. ve Dili
win7 ultimate Türkçe
Ofis-2010 Türkçe
#1
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
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
2,089
Beğeniler
216
Excel Vers. ve Dili
2013
#2
Merhaba, hayırlı ramazanlar.

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

Kod:
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..
 
Son düzenleme:
Katılım
18 Mart 2007
Mesajlar
6
Beğeniler
1
Excel Vers. ve Dili
win7 ultimate Türkçe
Ofis-2010 Türkçe
#3
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.
 
Katılım
18 Mart 2007
Mesajlar
6
Beğeniler
1
Excel Vers. ve Dili
win7 ultimate Türkçe
Ofis-2010 Türkçe
#5
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.:D
 

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
2,089
Beğeniler
216
Excel Vers. ve Dili
2013
#6
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.:D
Amin Allah razı olsun. Bil mukabele. :)
 
Üst