Excel hücreleri arasında hangi satırda isem boyalı çıkarmı

[a_self_lion]

Merhaba Arkadaşlar,

Excel tablomda hüreler arasında hangi satırda isem yapıyorsam macrosuz renkli çıkmasını sağlayabilirmiyim.
Macrolu olunca geri tuşu çalışmıyor.

Saygılarımla.

 

[igultekin2000]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
Cells.FormatConditions.Delete
With Satır
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 20
End With
With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 10
End With
End Sub

makrolu kullanıyorum hiç bir tuşta sorun yaşamıyorum. 10 , 20 rakamlarla oynayarak rengi değiştirebilirsin.

 

[a_self_lion]

Merhaba Sayın igultekin Makro ile yaptığımız zaman ben geri al tuşunu kullanamıyorum.

Sıfırlıyor. Yoksa bu çok güzel istediğim gibi. Bu yapılanın geri al tuşunu da sıfırlama dan yapılanı varmıdır? Yada Excel içinde buna benzer bir kontrol var mı?

Birde sizde geri al tuşunu kullanabiliyor musunuz? Özel bir ayarı varsa bende yapayım.

Saygılarımla ilginiz için çok teşekkür ederim.

 

[igultekin2000]

forumda incelenmiş

Merhaba Sayın igultekin Makro ile yaptığımız zaman ben geri al tuşunu kullanamıyorum.

Sıfırlıyor. Yoksa bu çok güzel istediğim gibi. Bu yapılanın geri al tuşunu da sıfırlama dan yapılanı varmıdır? Yada Excel içinde buna benzer bir kontrol var mı?

Birde sizde geri al tuşunu kullanabiliyor musunuz? Özel bir ayarı varsa bende yapayım.

Saygılarımla ilginiz için çok teşekkür ederim.

http://www.excel.web.tr/showthread.php?t=38340&highlight=geri+al)
forumda konu incelenmiş. değerlendirme yapabilirsiniz.

Dim hucre As Range
Dim deger(100000)
 
Sub Sil()
For Each hucre In [a2:d500]
c = c + 1
deger(c) = hucre
Next
Range("A2:D500").ClearContents
End Sub
 
Sub gerial()
For Each hucre In [a2:d500]
c = c + 1
hucre = deger(c)
Next
End Sub

 

[a_self_lion]

Evet link i inceledim. Anladığım kadarıyla
1- Makro çalıştığı zaman excelin tutmuş olduğu geri al işlemi sıfırlanıyor.
2- Bu anlamda istediğim satırlar arasında gezerken renkli göstermesini istediğimiz için makro çalıştırıyoruz ki öncesinde bir hücrede ALİ yazarken VELİ diye düzelttik ve iki üç satır aşağıya indik doğal olarak tekrar VELİ yi ALİ yapmak için eskiden geri al tuşu kullanıyorduk şimdi makro çalıştığı için sıfırlandı.
3- işte ben bu elimle yazdığım VELİ yi nasıl tekrar ALİ yapacağım.

 

[igultekin2000]

açıklama

Evet link i inceledim. Anladığım kadarıyla
1- Makro çalıştığı zaman excelin tutmuş olduğu geri al işlemi sıfırlanıyor.
2- Bu anlamda istediğim satırlar arasında gezerken renkli göstermesini istediğimiz için makro çalıştırıyoruz ki öncesinde bir hücrede ALİ yazarken VELİ diye düzelttik ve iki üç satır aşağıya indik doğal olarak tekrar VELİ yi ALİ yapmak için eskiden geri al tuşu kullanıyorduk şimdi makro çalıştığı için sıfırlandı.
3- işte ben bu elimle yazdığım VELİ yi nasıl tekrar ALİ yapacağım.

http://s3.dosya.tc/server11/5ctygc/DENEME.xlsx.html
çalışma dosyan belli değil ama ekteki örnek belgeyle belki soruna çözüm olabilir. koşullu biçimlendirme ile veri doğrulama kullanarak satırı renklendirebilirsiniz.

=EĞER($B7:$B22=$D$3;DOĞRU;YANLIŞ)

=$B$7:$J$20