- Katılım
- 29 Mart 2013
- Mesajlar
- 429
- Excel Vers. ve Dili
- Office 2016 Professional Türkçe 32 Bit
- Altın Üyelik Bitiş Tarihi
- 14-03-2022
Üstadlar hayırlı günler.
Aşağıdaki kod bloğu ile satırlara kenarlık eklemektedir. (E Sütunundaki hücrelerin boş olup olmadığına göre))
Ancak E sütunundaki hücrelerden Örnek olarak 3 hücre birleştirilmiş olduğunda, kenarlığı birleştirilen hücrelerin en üstü ve altını çizmiyor. Ortasına çiziyor, yada birleştirilen hüzrelere ait satırlara çiziyor.
Normalde her dolu olan E sütunu için çiziyor bunda sıkıntı yok. Ancak birleştirilen hücreye ait satır aralığını düzgün çizmiyor. (Gruplandırmıyor)
Size zahmet bana yardımcı olur musunuz?
Not: Aslında önce veriler sayfaya tek tek aktarılıyor. Sonra İlaç Saati aynı olan hücreler Macro ile birleştiriliyor.
Kenarlık Ekleme olayını da, Birleştirme İşleminden Sonra, kod bloğunu çağırarak yapmak istiyorum.
https://s6.dosya.tc/server12/m3w5m2/ILAC.xlsm.html
Aşağıdaki kod bloğu ile satırlara kenarlık eklemektedir. (E Sütunundaki hücrelerin boş olup olmadığına göre))
Ancak E sütunundaki hücrelerden Örnek olarak 3 hücre birleştirilmiş olduğunda, kenarlığı birleştirilen hücrelerin en üstü ve altını çizmiyor. Ortasına çiziyor, yada birleştirilen hüzrelere ait satırlara çiziyor.
Normalde her dolu olan E sütunu için çiziyor bunda sıkıntı yok. Ancak birleştirilen hücreye ait satır aralığını düzgün çizmiyor. (Gruplandırmıyor)
Size zahmet bana yardımcı olur musunuz?
Not: Aslında önce veriler sayfaya tek tek aktarılıyor. Sonra İlaç Saati aynı olan hücreler Macro ile birleştiriliyor.
Kenarlık Ekleme olayını da, Birleştirme İşleminden Sonra, kod bloğunu çağırarak yapmak istiyorum.
https://s6.dosya.tc/server12/m3w5m2/ILAC.xlsm.html
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range("D11:AJ40").Borders(xlInsideHorizontal).Weight = xlThin
For a = 11 To 40
If Cells(a, "E") <> "" Then
Range("A" & a & ":AJ" & a).Borders(xlEdgeBottom).Weight = xlThick
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Son düzenleme: