Koşullu Biçimleme

[Seyit Tiken]

Aşağıdaki kod ilgili satırı hızlı bir şekilde "Biçimle/Biçimleme" işlemini gerçekleştiriyor. Çift tıklamayla.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "Biçimle" Then
Target = "Biçimleme"
Target.Offset(1).Activate
ElseIf Target = "Biçimleme" Then
Target = "Biçimle"
Target.Offset(1).Activate
End If
End Sub

 

[edkaya]

ellerinize saglık ustadlar. hepsini deniyorum hepsi güzel olmuş

 

[edkaya]

N sütunundan biçimle veye biçimlendirmeyi seçerek istediğiniz işlemi yapabilirsiniz.:dosyanız ekte.

elin dert görmesin sn evren gizlen
sagolasın tekrar ve herzamanki gibi

 

[Orion1]

elin dert görmesin sn evren gizlen
sagolasın tekrar ve herzamanki gibi

Rica ederim.
iyi çalışmalar.