bul ve kopyala

[d_yuksel]

örnek çalışmayı ekledim. yardımcı olursanız çok sevinirim.

 

[Ayhan Ercan]

Merhaba,
Umarım anlamışımdır. Ek dosyayı inceleyiniz...

Sub bulkopyala()
Dim hcr As Range, x
For Each hcr In Range("A1:A" & [a65536].End(3).Row)
x = Sayfa2.Cells(65536, "A").End(3).Row + 1
If hcr = [d1] Then hcr.Copy Sheets(2).Cells(x, 1)
Next
End Sub

 

[quesh]

Ben de bir alternatif ekledim. Bakalım ben de doğru anlamış mıyım.. İnceleyip geri dönerseniz sevinirim.

 

[d_yuksel]

evet teşekkür ederim. ancak bulunan hücreyi değil o değerin bütün satırını kopyalamak istiyorum

 

[d_yuksel]

Acil yardım lütfen

 

[quesh]

Kodları inceleyip uyarlayablirsiniz bence.