Soru Satır Seçme

[hakankilic]

Bir excel sayfasının herhangi bir satırının herhangi bir sütununda bulunduğum sırada bulunduğum satırın 2. sütunundan 20. sütununa kadar satırdaki hücreleri seçmesini istiyorum. Böyle bir macroya ihtiyacım var. Örneğin X10 da hücrem etkin olduğunda B10BZ10 arası hücrelerini kopyalamak için seçmesini istiyorum. Yada C20 hücresinde olduğumuzu varsayalım. B20BZ20 arasının kopyalamak için seçmesi lazım. Bir kaç kod yazdım. Bir türlü yapamadım. Teşekkür ederim.

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

ActiveCell.Offset(, -1).Select
Range(ActiveCell, ActiveCell.End(xlUp)).Copy

 

[hakankilic]

İstediğiniz böyle bir şey mi?

ActiveCell.Offset(, -1).Select
Range(ActiveCell, ActiveCell.End(xlUp)).Copy

hocam maalesef. Ancak ilgine teşekkür ederim.

C20 hücresinde olduğumuzu varsayalım. B20BZ20 arasının kopyalamak için seçmesi lazım.

 

[hakankilic]

Range(ActiveCell, ActiveCell.End(xlUp)).Copy

aktif olduğum satır üzerindeyken neresinde olduğumun önemi yok. B den, DB ye kadar kısmı kopyalaması lazım. Sütun sabit Satır değişken.. 25. satırda da olsam sütun yine B VE DB arası olacak yani B25 : DB25 seçilecek.

 

[Seyit Tiken]

Hakan bey, bu şekilde çözüm geliştirmek zor, örnek dosya yüklerseniz çözümler gelir diye düşünüyorum.

 

[hakankilic]

Hakan bey, bu şekilde çözüm geliştirmek zor, örnek dosya yüklerseniz çözümler gelir diye düşünüyorum.

 

[hakankilic]

Seyit bey, satır değişken sütun sabit olacak.. ben satırın herhangi bir yerinde olsam da örneğin b10 da, sütun b10 : db10 aralığı olacak SEÇ butonuna basınca bu alan seçilecek. B : DB sabit.

 

[Seyit Tiken]

Hakan bey aşağıdaki kodlar işinizi görür, yalnız boş SÜTUNLAR gizlenirse kod güzel çalışır.

Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

 

[hakankilic]

Intersect(Selection.EntireRow, Range("b:db")).Select

bende bunu buldum hocam, ilginize teşekkür ederim.

 

[Korhan Ayhan]

Alternatif;

1-)

Sub Test()
    Range("B" & ActiveCell.Row & ":DB" & ActiveCell.Row).Select
End Sub

2-)

Sub Test()
    Cells(ActiveCell.Row, "B").Resize(1, 105).Select
End Sub

 

[hakankilic]

Çok sağ olun. Elinize sağlık.