Excel'de bir çok hücreyi kolay bir şekilde tarama

[mhmtrn]

Öncelikle merhaba, ilk sorum bu.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.
Benim elimde çok geniş bir data var.
400.000 satır kadar.
Benim belli bölgeleri taramam gerekiyor, kopyala+yapıştır amaçlı.
Ancak bazen bu onbinlerce satır oluyor ve taramam çok uzun süre alıyor.
Ben seçmek istediğim ilk satırı ve son satırı seçerek aradaki bölgeyi tarama gibi bir kolaylık olduğunu düşünüyorum. Fakat bilmiyorum.
Yardımcı olabilir misiniz?

 

[Huseyinkis]

Öncelikle merhaba, ilk sorum bu.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.
Benim elimde çok geniş bir data var.
400.000 satır kadar.
Benim belli bölgeleri taramam gerekiyor, kopyala+yapıştır amaçlı.
Ancak bazen bu onbinlerce satır oluyor ve taramam çok uzun süre alıyor.
Ben seçmek istediğim ilk satırı ve son satırı seçerek aradaki bölgeyi tarama gibi bir kolaylık olduğunu düşünüyorum. Fakat bilmiyorum.
Yardımcı olabilir misiniz?

Tarama işlemini sanırım Ctrl+F tuşu ile yapıyorsunuz.

Eğer oyle yapıyorsanız zaten sizinde soylediğiniz gibi belirli bölgeyi seçin sonra arayın.

Alanı seçmek için excelde solda bulunan ad kutusuna ( size hangi hücrede olduğunuzu soyleyen yer )

A1:D50

şeklinde yazın.

 

[Murat OSMA]

B1 hücresine ilk satırı, C1 hücresine de son satırı yazınız...
Deneyiniz...

sub emre()
dim i as long
for i = range("b1").value to range("c1").value
buraya tarama kodları
next i
i = empty
end sub

 

[Murat OSMA]

Afedersiniz Hüseyin Bey..:|

 

[mhmtrn]

Arkadaşlar ilgilendiğiniz için çok teşekkür ederim.
Ben de bir yol buldum.
Taramak istediğim bu alanın, başına bir satır boşluk bıraktım.
Sonra en taramak istediğim bölgenin en altındaki satıra inip, "satır"ı seçip, ctrl+shift+(yukarı tuşu) yaparak arayı taradım.
Tekrar teşekkür ederim size de ilgilendiğiniz için.

 

[Murat OSMA]

Sürekli o şekilde son taranacak satırın bir altıda boşluk mu bırakacaksınız ?

 

[Murat OSMA]

Şu kodları bir deneyiniz...
C1 hücresine son taramak istediğiniz satır numarasını yazın...
B2 hücresi ile C1 hücresine yazdığınız satır numarası kadar seçip, Ctrl + F ile açılan Bul ve Değiştir menüsünü açacaktır...

Örnek; C1 hücresine 100 yazarsanız; B2:B100 aralığını seçip,Ctrl + F ile açılan Bul ve Değiştir menüsünü açacaktır...

Sub Emre()
    Range("B2:B" & Range("C1")).Select
    Application.CommandBars.FindControl(ID:=1849).Execute
End Sub