seçili satırın bir alt satırı

[skycsar]

Merhaba, öncelikle burada yardım eden tüm arkadaşlara teşekkürler... sayenizde bir sürü sorunu çözdüm..ancak bir seyi halledemedim...

bu makroda

Selection.End(xlDown).Select
Rows("237:237").Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=8
Application.CutCopyMode = False
Selection.End(xlUp).Select

kırmız ile boyalı yerde....bir hücre seçimim var bunun yerine hücre numarası vermeden nasıl alltaki hücreyi seçtirebilirim...

Rows("down").select tarzı şeyler denedim ama olmadı

yardımlarınız için tekrar teşekkürler

 

[Ömer]

Merhaba,

Ne yapmak istediğiniz net değil. Daha detaylı açıklayınız.

İstediğiniz 237 satır değilde belirlediğiniz satır numarasından bir sonrakinin kopyalanması mı?

 

[Metin Karaağaç]

ActiveCell.Offset(1, 0).Select
olarak denermisiniz?

 

[skycsar]

Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

şeklinde yaptım ama olmadı

 

[Metin Karaağaç]

Kodların sıralaması yanlış olabilir. Ömer Bey'in de dediği gibi daha ayrıntılı bir açıklama yapmanız gerekiyor. Ne yapmak istediğinizi anlayamıyoruz.
Bugün bayaa geciktik, size daha fazla yardımcı olamayacağım. İyi geceler..

 

[skycsar]

iyi geceler, yapmak istediğim şey ekteki dosyada... yine de çok teşekkürler belkide benimde atladığım bir şeydir...

 

[Metin Karaağaç]

Bu şekilde işinizi görür mü?

 

[skycsar]

Çok teşekkürler işe yaradı...kaldı bir sorunum....onun içinde ayrı başlık açtım....