Aktif hücreden 50 satır yukarısını seçme

[yollabana]

Merhaba,
Activecelll ile excelde bi hücreye gidiyorum bu hücreden yukarıd doğru 50 satır seçmem gerekiyor.Activecell kullanmamın nedeni gideceğim hücre sürekli değişiyor sabit bi hücre yok yani bu sabit olmayan hücredeen yukarı doğru seçim yapabilirmiyim?
Teşekkürler...

 

[bedersu]

merhaba,
Cells(ActiveCell.Row - 50, ActiveCell.Column).Select


bu şekilde seçebilirsiniz ama sonuç eksi çıkarsa problem olur.Bu yüzden on error eixt sub ile birlikte kullanmanız yerinde olur.

 

[yollabana]

Sn Bedersu
cevabınız içn teşekkürler fakat sorunumu çözemedim herhalde ben eksik analttım sorumu activecell ile örneğin a:196 hücresine geldim bu hücreden yani a:196 dan a:146 ya kadar olan alanı seçmek istiyorum.
Yardımcı olursanız sevinirim.
İyi çalışmalar dilerim

 

[zafer]

Merhaba

Sub git()
On Error GoTo hata
st = ActiveCell.Row
cl = ActiveCell.Column

aktif = Cells(st, cl).Address
once = Cells(st, cl).Offset(-50, 0).Address
Range(once & ":" & aktif).Select
Exit Sub
hata:
MsgBox ("Gideceğiniz satır 1 'den küçük")

End Sub

 

[yollabana]

Çok teşekkürler.Sorun çözüldü sayenizde....
İyi günler...

 

[osmantelci]

Sub Seç()
On Error Resume Next
Range(ActiveCell, Selection.Offset(-50, 0)).Select
End Sub

 

[NBATMAN]

Sayın Zafer bey,

bir sorum olucak size userformda bir combobox mevcut, ben bu combobox daki değer ile işleşen hücreyi sayfada bulup aktif etmek istiyorum bunu kod olarak nasıl yaparım? Teşekkürler...

 

[Ayhan Ercan]

Marhaba Sn NBATMAN

Aşağıdaki Kodları deneyiniz...

Dim bul As Range
Set bul = Cells.Find([COLOR=red]ComboBox1.Value[/COLOR], lookat:=xlWhole)
If bul Is Nothing Then MsgBox "Aradığınız veri bulunmamaktadır!", , "UYARI": Exit Sub
bul.Select