• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
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
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
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
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
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ş
33
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

  • excel.jpg
    excel.jpg
    134.8 KB · Görüntüleme: 4

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Sol tarafta Sayfa1 yazan yeri çift tıklayıp kodu içine yapıştırın.
 

adnandic

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

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Sayfa olayları o listede görünmez.
Modül içine yazılan public kapsamındaki prosedürler o pencerede listelenir.
 

adnandic

Yeni Üye
Katılım
5 Nis 2019
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
33
Konum
Ureki, Gerogia
Ad Soyad
Adnan Andiç

Ekli dosyalar

  • Akaryakıt Hareketleri.xlsx
    80.8 KB · Görüntüleme: 9

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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ş
33
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.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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