ara bul satırı yapıştır

[yturkakin]

yapmış olduğum bir çalışmada, bir griş sayfasına girdiğim verileri, bir listede arayıp, listede verinin bulunduğu tüm satırı bir başka sayfaya kopyalamak istiyorum. ancak bir türlü yapamadım. yardım ederseniz minnettar olurum.

 

[Orion1]

yapmış olduğum bir çalışmada, bir griş sayfasına girdiğim verileri, bir listede arayıp, listede verinin bulunduğu tüm satırı bir başka sayfaya kopyalamak istiyorum. ancak bir türlü yapamadım. yardım ederseniz minnettar olurum.

Sub belirsiz_bir_islem_59()
Dim k As Range, liste As Range, aranan
Sheets("bir griş sayfası").Select
Set liste = Range("A1:H500")
deg = InputBox("Listeeden bulunacak değeri giriniz : ", "ARA BUL")
If deg = "" Then Exit Sub
Set k = liste.Find(deg, , xlValues, xlWhole)
If Not k Is Nothing Then
    Rows(k.Row).Copy Sheets("bir başka sayfa").Range("A5")
    MsgBox "bulunan bir başka sayfaya yapıştırıldı"
End If
End Sub

 

[buseen]

bir örnek verebilirmiyiz

 

[yturkakin]

Teşekkür

yapmış olduğum bir çalışmada, bir griş sayfasına girdiğim verileri, bir listede arayıp, listede verinin bulunduğu tüm satırı bir başka sayfaya kopyalamak istiyorum. ancak bir türlü yapamadım. yardım ederseniz minnettar olurum.

Yukatıda belirttiğim sorunum aldığım cevap ile giderildi. çok sağolun