Çözüldü Aktif hücre rengi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
53
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
Arkadaşlar excelde hareket imlecinin rengini nasıl değiştirebilir ya da kalınlaştırabilirim? İmlecin nerede olduğu belli olmadığından hangi hücreye işlem yaptığım belli olmuyor.

Teşekkürler.
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
53
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
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 ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub


Bu kod istediğimi yapıyor arkadaşlar ancak ctrl+c ile kopyalama yapılıp istenilen hücreye gidip ctrl+v denildiğinde yapıştırma yapması için komutu iptal ediyor
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
53
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
PHP:
Option Explicit



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Satır As Range, Sütun As Range

    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

  

    Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Columns.Count))

    Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, 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 = 37

    End With

  

    With Sütun

        .FormatConditions.Delete

        .FormatConditions.Add Type:=xlExpression, Formula1:=1

        .FormatConditions(1).Font.Bold = True

        .FormatConditions(1).Interior.ColorIndex = 37

    End With

  

    With ActiveCell

        .FormatConditions.Delete

        .FormatConditions.Add Type:=xlExpression, Formula1:=1

        .FormatConditions(1).Font.Bold = True

        .FormatConditions(1).Interior.ColorIndex = 40

    End With

End Sub

işlemci ve ram kullanımına çok yüklenmeseydi bu güzeldi ama olmadı. Aslında excelde böyle bir ayar olması gerekli bunu microsoft'a bildireceğim..
 
Moderatör tarafında düzenlendi:

adnandic

Yeni Üye
Katılım
5 Nis 2019
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
29
Konum
Ureki, Gerogia
Ad Soyad
Adnan Andiç
Ben bu kodu çalıştıramadım. kodu ekliyorum ama f5 işlemi yaptığımda bir şey bulamıyorum.
 

Ekli dosyalar

adnandic

Yeni Üye
Katılım
5 Nis 2019
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
29
Konum
Ureki, Gerogia
Ad Soyad
Adnan Andiç
Tarif ettiğiniz şekilde uyguladım oldu. fakat F5 işleminde görünmüyor. ama işim çözüldü. teşekkürler Admin.
 

adnandic

Yeni Üye
Katılım
5 Nis 2019
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
29
Konum
Ureki, Gerogia
Ad Soyad
Adnan Andiç
Microsoft Office Professional Plus 2016 - Sürüm: 1903 Derleme 11425.20202
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Sayfa olayları o listede görünmez.
Modül içine yazılan public kapsamındaki prosedürler o pencerede listelenir.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Aynı işlemi tekrar yapın. Kodları aynı yere tekrar yapıştırın.
Kaydederken Hayırı seçip Makro İçerebilen Excel Çalışma Kitabını seçip kaydedin..
 

adnandic

Yeni Üye
Katılım
5 Nis 2019
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
29
Konum
Ureki, Gerogia
Ad Soyad
Adnan Andiç
Söylediğinizi harfiyen uyguladım fakat excel dosyasını kapatıp açınca tekarar donmuş oluyor. daha fazla kafanızı şişirmek istemiyorum. eski haline nasıl alabilirim yedeğini almamıştım.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Dosyayı xlsx olarak kaydettiğiniz için makroları kaydedemiyorsunuz. Dolayısıyla da bir işlem yapmamış oluyorsunuz ve aynı şekilde görünüyor.
Kodları ilgili sayfanın kod kısmına yapıştırıp xlsm uzantısıyla kaydederseniz istediğiniz olacaktır.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt