Belirli aralığa nokta işareti koymak

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın A ile P sütunları arasında verilerim mevcut.

Yapmak istediğim örneğin A5 hücresine nokta işareti koyduğumda bu noktayı P5 hücresine kadar nokta koymasını ve hücre yüksekliğini 6 piksel yapmasını istiyorum.
Eğer A5 hücresine nokta değilde başka veri girersem A5 ile P5 arasındaki noktaları silsin ve yüksekliği normal boyuta getirsin.

Yardımcı olur musunuz?

 

[ASLAN7410]

Konu günceldir.

 

[Erdem Akdemir]

Aşağıdaki kodu deneyebilir misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
If Target.Value = "." Then
Cells(Target.Row, 1).Resize(, 16) = "."
Target.RowHeight = 3
End If
Application.EnableEvents = True

End Sub

 

[Hepgel]

Merhaba @ASLAN7410

Bu şekilde dener misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target = "." Then: Target.Offset(, 1).Resize(1, 15).Value = ".": Target.RowHeight = 4.5
If Target <> "." Then: Target.Offset(, 1).Resize(1, 15).ClearContents: Target.EntireRow.AutoFit
End Sub

 

[ASLAN7410]

Konuya cevap veren herkese çok teşekkür ediyorum, ellerinize sağlık her iki kodda süper çalışıyor.
Hayırlı geceler diliyorum.