[]

Excel vba
Merhaba,
Excelde c4 hücresi başlangıcım. Yapmak istediğim, c4'ün en altındaki hücre ile o hücrenin en sağındaki aralığı seçmek..
Örneğin, başlangıç "c4", en son kayıt "F11"de. Almam gereken, "C11:F11" aralığı.. Tabi bu F11 sabit değil o yüzden de diyeceğim ki,
1- C4'ü referans al,
2- Referansın en altına git (dolu olan en son hücre)
3- Dolu olan en son hücrenin en sağına kadar olan satırı seç
Şunu yaptım, ikinci kodda bir türlü beceremedim..
***
startrange = ActiveSheet.Range("c4").End(xlDown).Select
Range(startrange, startrange.End(xlToRight)).Select
***
Yardımlarınızı beklerim
Excelde c4 hücresi başlangıcım. Yapmak istediğim, c4'ün en altındaki hücre ile o hücrenin en sağındaki aralığı seçmek..
Örneğin, başlangıç "c4", en son kayıt "F11"de. Almam gereken, "C11:F11" aralığı.. Tabi bu F11 sabit değil o yüzden de diyeceğim ki,
1- C4'ü referans al,
2- Referansın en altına git (dolu olan en son hücre)
3- Dolu olan en son hücrenin en sağına kadar olan satırı seç
Şunu yaptım, ikinci kodda bir türlü beceremedim..
***
startrange = ActiveSheet.Range("c4").End(xlDown).Select
Range(startrange, startrange.End(xlToRight)).Select
***
Yardımlarınızı beklerim

böyle durumlarda makro kaydeti seçip yapmak istediğiniz manuel yaparak kodunu alabilirsiniz.
aşağıdaki kodu alırken yaptığım işlemler
c4 hücresini seç
C hücresinde boş olan ilk satıra kadar seç(ctrl+shift ile birlike aşağı ok tuşuna bas.)
sağ tarafa doğru boş olan ilk sütüna kadar seç (ctrl+shift+sol ok)
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
aşağıdaki kodu alırken yaptığım işlemler
c4 hücresini seç
C hücresinde boş olan ilk satıra kadar seç(ctrl+shift ile birlike aşağı ok tuşuna bas.)
sağ tarafa doğru boş olan ilk sütüna kadar seç (ctrl+shift+sol ok)
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
- €xpolerer
(06.12.16 11:09:37)
1