makroyla tablo çizme.

[tukayf]

Sub ciz()
With Selection.Borders
.LineStyle = xlNone
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With


değerli üstadlar bu koddaki çizgi sitili seçili alan için nokta ...... şeklinde ben bunun yerine düz çizgi kullanmak istiyorum. ne yazmam gerekli.

aşağıdaki korhan bey"in kodlarıyla da işgünü şeklinde tarih atıyoruz. yukardaki kodu da işgünü tarihinin bittiği satırda ve B:E sütunlarında düz çizgiyle tablo çizdirmek istiyorum. çözümü varmıdır. şimdiden teşekkürler.

Option Explicit

Sub İŞ_GÜNLERİ()
Dim Ay As Byte, İlk_Gün As Date, Son_Gün As Date, Tarih As Date, Satır As Byte

Range("b7:b32").ClearContents
Range("d7:d32").ClearContents
Range("e7:e32").ClearContents
Satır = 7

Select Case Range("J2")
Case Is = "Ocak": Ay = 1
Case Is = "Şubat": Ay = 2
Case Is = "Mart": Ay = 3
Case Is = "Nisan": Ay = 4
Case Is = "Mayıs": Ay = 5
Case Is = "Haziran": Ay = 6
Case Is = "Temmuz": Ay = 7
Case Is = "Ağustos": Ay = 8
Case Is = "Eylül": Ay = 9
Case Is = "Ekim": Ay = 10
Case Is = "Kasım": Ay = 11
Case Is = "Aralık": Ay = 12
End Select

İlk_Gün = DateSerial(Range("J1"), Ay, 1)
Son_Gün = DateSerial(Range("J1"), Ay + 1, 0)

For Tarih = İlk_Gün To Son_Gün
If Weekday(Tarih, vbMonday) < 6 Then
Cells(Satır, 2) = Tarih
Satır = Satır + 1
End If
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub ciz()
    Selection.Borders.LineStyle = 1
End Sub

.

 

[tukayf]

çok teşekkürler hocam.
eğer yapılabilirse B sütununda bulunan son dolu satıra göre B:E sütunlarına tablo çizdirebilir miyiz?

 

[Ömer]

Bu şekilde deneyin.

Sub ciz()
 
    Dim sonb As Long
    
    Range("B:E").Borders.LineStyle = 0
    
    sonb = Cells(Rows.Count, "B").End(xlUp).Row
    Range("B1:E" & sonb).Borders.LineStyle = 1
 
End Sub

.

 

[tukayf]

harikasınız hocam zihninize sağlık.