Kenarlık Sorunu..!

[sensizsoldum]

Merhaba, aşağıdaki formül ile koşul ile dolu hücreye otomatik kenarlık oluşturabiliyorum. Bu formül manuel olarak işlem yapılan sayfalarda çokta sağlıklı çalışmıyor. Çalışmamasında ki sebep ise sayfanın tamamını =$1:$65536 seçiyorum. Sayfada işlem yapıldığından formülü eklerken girilen =$1:$65536 alan, =$A$3:$A$11;$A$13:$A$15;$A$58:$D$65536;$A$7;$A$17:$A$43;$C$3:$D$43;$B$44:$D$57 zaman zaman bu şekilde kendiliğinden değişiyor. Özellikle satır ve sütun sil işlemlerinde daha sık rastlanıyor. Yine böyle bir şekilde farklı çözüm yolu olabilir mi?

=A1<>""

 

[turist]

Merhaba, aşağıdaki formül ile koşul ile dolu hücreye otomatik kenarlık oluşturabiliyorum. Bu formül manuel olarak işlem yapılan sayfalarda çokta sağlıklı çalışmıyor. Çalışmamasında ki sebep ise sayfanın tamamını =$1:$65536 seçiyorum. Sayfada işlem yapıldığından formülü eklerken girilen =$1:$65536 alan, =$A$3:$A$11;$A$13:$A$15;$A$58:$D$65536;$A$7;$A$17:$A$43;$C$3:$D$43;$B$44:$D$57 zaman zaman bu şekilde kendiliğinden değişiyor. Özellikle satır ve sütun sil işlemlerinde daha sık rastlanıyor. Yine böyle bir şekilde farklı çözüm yolu olabilir mi?

=A1<>""

A1 hücresindeyken koşullu biçimlendirme yapın.
Formül kısmına =A1<>"" yazın.
Geçerli olduğu alan kısmına ise =$1:$1048576 (2007 ve 2010 excel için) yazın.Tamam deyin. (2003 için: =$1:$65536)

 

[sensizsoldum]

Merhaba Turist
Zaten bu şekilde yapılıyor. bu işlemi kayıt ettikten sonra satır ve sütun işlemlerinde ya da manuel olarak yapılan işlemlerde sıkıntılar oluyor.
Bunu izah etmeye çalışıyorum.
Umarım anlatabildim.

 

[Korhan Ayhan]

Merhaba,

Makro ile yapmak isterseniz aşağıdaki kodu deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
        .FormatConditions(1).Borders.LineStyle = 1
    End With
End Sub

 

[sensizsoldum]

Merhaba Korhan Bey,
Günaydın. Yazdığınız kod çok başarılı, fakat şu sorunun cevabını merak ediyorum. Formülü uyguladığımız alan neden değişiyor. Sizin fikriniz ne olabilir.

 

[sensizsoldum]

Merhaba Korhan Bey,
Yukarıda yazdığınız kodu Çalışmanın BuÇalışmaKitabı bölümüne ekleyecek olursak, çalışmada ki tüm sayfalara geçerli olması için ne gibi değişiklik yapılabilir. Bu şekilde uyguladığım da sonuç olumsuz.
İyi çalışmalar dilerim.

 

[sensizsoldum]

Merhaba Aşağıdaki kodu Bu Çalışma Kitabı kısmına ekleyerek tüm sayfada uygulamak istiyorum.

Gerekli değişiklik nasıl olmalı yardımcı olabilir misiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
        .FormatConditions(1).Borders.LineStyle = 1
    End With
End Sub

 

[Korhan Ayhan]

Bunu deneyiniz...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
        .FormatConditions(1).Borders.LineStyle = 1
    End With
End Sub

 

[sensizsoldum]

Günaydın,

Aşağıdaki koda kenarlık ayarlanmasını da ekledim sorunsuz kusursuz çalışıyor, ancak şimdi fark ettim geri al işlemi yapamıyorum, bu koda geri al özelliği getirile bilinir mi?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
        .FormatConditions(1).Borders.LineStyle = 1
        
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    
    End With
End Sub

 

[Korhan Ayhan]

Getirilemez...

 

[sensizsoldum]

Merhaba, Koşul ile yapıyorum,
Koşula eklediğim formül, Fatihin destani gibi uzuyor, ve işlemi kusurlu bir şekilde yapmaya devam ediyor. Nedeni ise eklediğim formül koşul kısmında hareket ediyor. Bu formülün ya önün kesilmesi lazım. Y ada bu otomatik kenarlığa farklı bir yol bulmak lazım.

Yapılan bazı uygulamaların farklı bir uygulamaları ya da özellikleri devre dışı bırakması beni ifrit ediyor.

Koşuldaki uzayan formül,

=A1<>""

Geri al özelliği olmayan kod. Tıpkı benim hayatım gibi,

Hayatımda CTRL+Z olsaydı yapabileceklerim çok daha farklı olacaktı...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
        .FormatConditions(1).Borders.LineStyle = 1
        
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    
    End With
End Sub

Bir umut

 

[Korhan Ayhan]

Ben son mesajınızdan fazla bir şey anlamadım. Önerilen kod çalışıyor mu? Yoksa çalışmıyor mu?

 

[sensizsoldum]

Günaydın Korhan Bey,
Önerdiğiniz kod çalışmasında sorun yapmıyor çalışıyor hatta buna ek olarak hücre yüksekliği ve sütun genişliğini de otomatik olarak ayarlasın diye eklenti yaptım buda rahatlıkla istenilen gibi çalışıyor, fakat excelin farklı özelliklerini kullanım dışı bırakıyor, Geri Al gibi.
(Buna örnek verecek olursak, tıpkı hayat gibi, Yaşadığımız hayatında Geri al özelliği yok) Belki bir umutla legal ya da illegal yollarla bu özellik getire bilinir mi çabasındaydım.


Mutlu günler dilerim.