BUL YAPARKEN TAM HÜCRELER

[gcanlar2012]

LEVENTM VERDIGIN KOD CALISIYOR.FAKAT TAM HUCRE ICIN NE YAPMAMIZ LAZIM.
SAYFA 1 (ATIYORUM)
A B C D E F
100 123 321 ASE ESA FGH RTR
200 GGG FFF RRR TTT GGG EEE
111 WER ERT TTT 333 4444 5555
300 QQQ WW AAA ZZZ DDD EEEE

SAYFA2 B1 E 100 YAZIYORUM
100 Ü VE YANINDAKILERI GETIRIYOR.
1 YAZINCA 111 GETIRIYOR.
AMA 1 DIYE VERI YOK.

BUL>SEÇENEKLER>TAM HUCREYE TIKLAYINCA DUZELIYOR.HER SEFERINDE TIKLAMAKMI LAZIM YOKSA BIR AUTO_OPEN LI BIR KOD YAZILABILINIRMI.
TESEKKUR EDERIM.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:04abfa3fdb]Sub ara()
On Error GoTo son:
Application.ScreenUpdating = False
sat = Sayfa1.Columns(1).Find(what:=Sayfa2.[A1].Value, LookAt:=xlWhole).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
son:
End Sub
[/vb:1:04abfa3fdb]

 

[gcanlar2012]

tesekkur eder1m bu kes1n cozum.saolun.
:hey: :hey: