kursör takip

[e-seyyah]

merhabalar
yüksekliği çok küçük, çok sayıda satırla çalışıyorum.

kursörün bulunduğu satırın ve sütunun veya her ikisininde otomatik olarak işaretlenmesi mümkünmüdür? ve eğer mümkünse bu işaretlemenin excel satır/sutun seçme işlemindeki gibi bir fonksiyon olmamalı, örneğin işaretli iken delete tuşuna basınca veriler silinmemeli, sadece gözle takip kolaylığı için böyle birşey istiyorum.

 

[uzmanamele]

merhaba
aşağıdaki kodlar işinizi görür mü?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 3
son:
End Sub

 

[e-seyyah]

makrolarla aram iyi değil
makrosuz çalışmayı tercih ediyorum, bu işlem makrosuz olmaz mı acaba,
eğer olmaz ise bu dediğiniz kodu nasıl çalıştırıp kullanabilirim, açıklarsanız sevinirim

 

[uzmanamele]

merhaba
sayfa ismini sağ tıklayın, "kodu görüntüle" veya alt+F11
çıkan ekrana aşağıdaki kodları kopyalayıp yapıştırın.
ColorIndex = 3 değerini değiştirerek farklı renkler elde edebilirsiniz



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 3
son:
End Sub

 

[uzmanamele]

merhaba
sayfa ismini sağ tıklayın, "kodu görüntüle" veya alt+F11
çıkan ekrana aşağıdaki kodları kopyalayıp yapıştırın.
ColorIndex = 3 değerini değiştirerek farklı renkler elde edebilirsiniz



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 3
son:
End Sub

not: örnek dosya eklendi, inceleyiniz.

 

[e-seyyah]

ilginize teşekkür ederim,
görünüm itibariyle tam istediğim şekilde hatta daha güzel olmuş
ancak kullanılamayacak kadar yavaş çalışıor, çok sık ve hızlı hücre geçişleri
kullanan birisiyim, hızlandırmanın bir yolu varmıdır acaba

 

[uzmanamele]

merhaba
hangi dosya için yavaş? örnek dosya mı kendi dosyanız mı?
çalıştığınız dosyanın büyüklüğünden veya makinenizden kaynaklanan birşey, kodla ilgili değil.

 

[Ayhan Ercan]

Selam,,

ancak kullanılamayacak kadar yavaş çalışıor, çok sık ve hızlı hücre geçişleri
kullanan birisiyim, hızlandırmanın bir yolu varmıdır acaba

Sayın uzmanamele hocamın kodlarını da yollamış olduğu ek dosyayı da denedim, hızının bahsettiğiniz kadar yavaş olduğunu göremedim.

Sizin donanımsal başka bir probleminiz olmasın? Yoksa gayet hızlı çalışıyor..
:dusun:

 

[e-seyyah]

ilk birkaç harekette çok hızlı ve güzel
ama kısa süre içinde 8-10 hareketten sonra tıkanıyor ve müthiş derece yavaşlıyor.
örnek dosyada da aynı şey sözkonusu

 

[uzmanamele]

merhaba
aynı anda birçok program ve dosya açıksa makinenizde önbellek dolmuş olabilir. bilgisayarı kapatıp tekrar açın ve örnek dosyayı deneyin.

makinede kurulu tüm programları çalıştırmanıza gerek yok.
başlat / çalıştır / "msconfig" / başlangıç
bu listeyi kontrol edin, bigisayar açıldığında her programın çalışmaya hazır olmasına gerek yok. opsiyonel olanların onay işaretini kaldırın. makine tekrar açıldığında gelen pencerede "birdaha gösterme" onay kutusunu işaretleyin.

 

[e-seyyah]

bilgisayarım ne çok hızlı ne de yavaş, gereksiz program da çalıştırmam zaten.
ben bu makroyu kullanırken 8-10 hücre ilerlemek neredeyse 1 dakikaya yakın zaman alıyor. ama dediğim gibi ilk birkaç hareket sorunsuz, ondan sonra üstüste 8-10 defa yön tuşuna basınca sayfa neredeyse donuyor.

örnek dosyanın boyutu 46 kb, benim üzereinde çalıştığım dosyanın boyutu şu an 2.52 mb,
dosyamda çok fazla veri olduğu için bana bu özellik lazım, ama galiba yine dosyanın büyüklüğünden dolayı bu özelliği kullanamayacağım.

bu özelliğe çok ihtiyacım var başka yol bilen varsa yardımını rica ediyorum,
her halükarda ilgilenmiş olanlara da teşekkür ederim

 

[uzmanamele]

merhaba
çalıştığınız dosyayı görme imkanımız var mı?

 

[e-seyyah]

dosya ekte. format aynı, sadece karakterleri değiştirdim
boyutunu düşürebilmek de için dosyayı kırptım biraz.

 

[uzmanamele]

merhaba
dosyanızdaki modülleri ve userformu silin.
dosyayı ilk açtığımda çok yavaştı, verilerinizin dışındaki alanları, A65536 satıra kadar ve IV256 ya kadar silin. nedeni her neyse, oralarda ne varsa dosyayı yavaşlatıyor.