VERILEN DEGERI BUL YANINDAKILARI KOPYALA YAPISTIR.

[gcanlar2012]

SELAM ARKADASLAR.
SAYFA1 DE BIR LISTEM VAR.A,B,C,D,E,F YE KADAR YAKLASIK 500 SATIR.
YAPMAK ISTEDIGIM.SAYFA2 A1 HUCRESINE GIRDIGIM HESAP NO.YU SAYFA1 IN A SUTUNUNDA BULACAK VE A,B,C,D,E,F SUTUNLARININDAKI YANI YANINDAKILERI SAYFA2 NIN B1 HUCRESINDEN BASLAYARAK YAPISTIRACAK.(A1 DEN OKU,BUL,KOPYALALA>B1 E YAPISTIR.)
FORUMDA DAHA ONCE CIKMIS OLABILIR AMA BULAMADIM.SIMDIDEN TESEKKUR EDERIM.
ARAMA ICIN FORUMDA BULDUGUM KODU KULLANIYORUM.AMA TAM HUCRELERI BULMASINI ISTIYORUM ALTTAKI KOD DOGRUMU.
Sub ARANANBUL()
On Error Resume Next
Columns(1).Find([A1].Value).Select
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:d3ec2870ce]Sub ara()
On Error Resume Next
Application.ScreenUpdating = False
sat = Sayfa1.Columns(1).Find(Sayfa2.[A1].Value).Row
Sayfa1.Range("A" & sat, "F" & sat).Copy
s = WorksheetFunction.CountA(Sayfa2.[B1:B65536])
Sayfa2.Range("B" & s + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub[/vb:1:d3ec2870ce]

 

[gcanlar2012]

cevap 1c1n tesekkur eder1m leventm .gene cok h1zl1s1n masallah.aman s1tem1ze nazar degmes1n.supers1n1z.

b1rde ufak istek:
v1sual bas1cde kullan1lan
range ,columns,rows g1b1 ter1mler hakk1nda b1lg1 kullan1m sek1ller1 1le 1lg1l1 b1lg1

s1zler1n sayes1nde yapt1g1m1z kodlar1 anlayarak yapmak 1ster1m.
ogrenel1mk1 yar1n obur gun yapt1klar1m1z1 gorenler bunu nas1l yapt1nd1ye sorarsa cevap vereb1lel1m. :kafa: :hihoho: :hey: