macro ile ilgili yardım...

[MURATT]

merhaba
Bir konuda yardım rica edecektim.
Mesela sheet1 de herhangi bir hücrede şubat'05 yazdığını varsayalım ben Þubat'05 yazan sütunun 3 hücre altındaki veriyi sheet2 deki başka bir hücreye kopyalanmasını istiyorum.
Bunu makro ile yapabilirmiyim?
Saygılar...

 

[MURATT]

yani macro kopyala+yapıştır yaparken A1 gibi hücre adını değil hücrenin içinde yazan şeyi görsün ve ona göre koşullandırsın
Þubat 05'i gördüğünde bunun 3 hücre altını bul kopyala ve şu sheet'e yapıştır şeklinde
saygılar...

 

[isakarakus]

[vb:1:e441498b2b]Sheets(2).Cells(1, 1) = Sheets(1).Cells.Find("şubat'05", LookIn:=xlValues).Offset(3, 0)[/vb:1:e441498b2b]

dosya

 

[MURATT]

merhaba,

birden fazla veri olduğunu düşünürsek(bulunan'ın altında birden fazla veri var diyelim) o zaman offset sahasına nasıl yazacağız?

Birde bazen verilen 3 satır altta değil 3 altın sağında oluyor bunu nasıl yazarız?
Sadece kodları yazsanız olur?
Saygılar..

 

[isakarakus]

mesela, a sutununa yazdığını varsayarsak.

sheets(2).select
Range([A65536].End(xlUp).Offset(1, 0).Address).Value = Sheets(1).Cells.Find("şubat'05", LookIn:=xlValues).Offset(3, 0)

 

[MURATT]

çok teşekkürler...

 

[isakarakus]

rica ederim,
zevkti