Satır Ekleme

[efem67]

Sayın Hocalarım ve Üstadlar;
Daha Önce hazırlanmış olan satır açma ve satırı kopyalama ile ilgili Butona bağlı Makroda, Satırı max 20 satır olarak kopyalayarak açıyor.
Fakat Butondan değeri Küçülttüğümde aşağıdaki satırları silmiyor.
Şimdiden Teşekkürlerimi Bir Borç Bilirim

 

[systran]

Sub SATIRACMacro2() içindeki ws1.Range("B15:CB" & sonsat).ClearContents satırının şu kodu altına ekleyiniz.

ws1.Range("B15:CB" & sonsat).ClearFormats

 

[Ömer BARAN]

Merhaba.

Sub SATIRACMacro2() adlı makroda yer alan;
-- 37 sayısını (bir adet) 35 olarak ve
-- 30 sayılarını (dört adet) da 33 olarak
değiştirince sonuç almanız lazım.
.

 

[efem67]

Ömer Hocam Hayırlı Akşamlar;
Bu şekilde yaptım ancak
20 seçtiğimde 18 yapıyor,
Tekrar 15 yaptığımda ise 13 yapıp , 31 satırda çizgileri bırakıyor..

Sub SATIRACMacro2()
Dim sayı As String
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Application.ScreenUpdating = False
Set ws1 = Sheets("HAKEMSONUC")
Set ws2 = Sheets("SayfaANA")
sayı = ws2.Range("B1").Value
sonsat = 35
ws1.Range("B15:CB" & sonsat).ClearContents
ws1.Range("B14:CB14").Copy ws1.Range("B14:CB" & sayı + 11)
Application.CutCopyMode = False
ws1.Select
If sayı < 20 Then
With Sheets("HAKEMSONUC")
.Range("A" & sayı + 12 & ":CB30").Interior.Color = xlNone
.Range("A" & sayı + 12 & ":CB30").Borders(xlEdgeBottom).LineStyle = xlNone
.Range("A" & sayı + 12 & ":CB30").Borders(xlInsideVertical).LineStyle = xlNone
.Range("A" & sayı + 12 & ":CB30").Borders(xlInsideHorizontal).LineStyle = xlNone
.Range("A14").Select
End With
End If
Application.ScreenUpdating = True
End Sub

 

[Ömer BARAN]

Dosya ekte.
Ben sorun göremiyorum.
.