Satır açma kapama

[efem67]

Değerli Üstadlar ve Hocalarım;
SayfaANA sayfasındaki seçimli Buton dan seçilen değer kadar
HAKEMSONUC sayfasında satır oluşturuyorum ancak, tekrar yeniden seçim yaptığımda, eski satırlardaki çizgiler ve dolgular kalıyor.
Açılan satır kadar kalmalı diğer satırlar boş olmalı ve 20 satır ile sınırlandırmalıyım..
Şimdiden Sonsuz Teşekkürler..

 

[vardar07]

Deneyiniz.

Sub SATIRACMacro1()
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 = ws1.[a32].End(3).Row + 1
     ws1.Range("B12:CB" & sonsat).ClearContents
     ws1.Range("B11:CB11").Copy ws1.Range("B11:CB" & sayı + 10)
    Application.CutCopyMode = False
   ws1.Select
   With Selection
  '.Range("B11:CA" & sonsat).Locked = False
  '.Range("B11:CA" & sonsat).FormulaHidden = False
    End With
   With Sheets("HAKEMSONUC")
   son = .Cells(Rows.Count, "B").End(3).Row + 1
   .Range("A" & son & ":CA32").Interior.Color = xlNone
   Range("A" & son & ":CA" & son).Borders(xlEdgeBottom).LineStyle = xlNone
   .Range("A" & son & ":CB32").Borders(xlInsideVertical).LineStyle = xlNone
   .Range("A" & son + 1 & ":CA32").Borders(xlInsideHorizontal).LineStyle = xlNone
   .Range("A11").Select
   End With
  Application.ScreenUpdating = True
End Sub

 

[efem67]

Teşekkürler Çalışıyor , Ancak Alt satırlardaki tüm bilgileride sildi.
A31 ile CB31 arasına kadar olan satıra kadar çalışmasını sağlamam gerekiyor.

Emeğiniz için sonsuz Teşekkürler..

 

[vardar07]

Benim size eklediğim kod veri silmiyor sadece biçimlendirmeleri (Renk ve çerçeveleri) kaldırıror. Ayrıca 32.nci satırda A32 deki sırano dan başka formül yok. Birde ":CA32" olan yerleri ":CA31" olarak deneyin.

 

[efem67]

Hocam merhabalar;
Macro çalışıyor fakat
Alt satıralardaki biçimlendirmeleride siliyor..
Dosyayı yeniledim.
Çalıştırıldığında Örneğin: önce 6 sonra 3 yaptığımda cizgiler kalıyor..
Saygılarımla;

 

[efem67]

Dosyayı yeniledim.
Çalıştırıldığında Örneğin: önce 6 sonra 3 yaptığımda cizgiler kalıyor..
ve Alt satırdaki çizgileri ve renkleride siliyor
Saygılarımla;

 

[efem67]

Konu Günceldir. Yardımlarınız için teşekkürler

 

[Ömer BARAN]

Merhaba.

Yanlış anlamadıysam; mevcut kod'u aşağıdakiyle değiştirirseniz istediğiniz gerçekleşiyor.
.

[FONT="Arial Narrow"][B]Sub SATIRACMacro1()[/B]
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 = 30
     ws1.Range("B12:CB" & sonsat).ClearContents
     ws1.Range("B11:CB11").Copy ws1.Range("B11:CB" & sayı + 10)
    Application.CutCopyMode = False
   ws1.Select
If sayı < 20 Then
   With Sheets("HAKEMSONUC")
   .Range("A" & sayı + 11 & ":CB30").Interior.Color = xlNone
   .Range("A" & sayı + 11 & ":CB30").Borders(xlEdgeBottom).LineStyle = xlNone
   .Range("A" & sayı + 11 & ":CB30").Borders(xlInsideVertical).LineStyle = xlNone
   .Range("A" & sayı + 11 & ":CB30").Borders(xlInsideHorizontal).LineStyle = xlNone
   .Range("A11").Select
   End With
End If
  Application.ScreenUpdating = True
[B]End Sub[/B][/FONT]

 

[efem67]

öMER hOCAM ;
Merhabalar, macro düzgün çalışıyor ancak bir alt satıra satır açılırken,
Yanlızca sıra no olan A satırı hücre çizgisi çizilmiyor..
Bunu da çözersek sorun tamamlanmış oluyor.
Emek ve Yüreğinize sağlık..

 

[efem67]

=EĞER(B12="";"";A11+1) hücreye koşullu biçimlendirme(çerçeve koy ve renklendir diyerek) yaparak çözümü buldum..

 

[efem67]

Ama Bu seferde Debug hatası verdi..

 

[Ömer BARAN]

Koşullu biçimlendirme ile ilgili örnek belgenizde hiçbir işlem yapmadan kod çalıştırıldığında sorun göremiyorum.
Verdiğim kod'u örnek belge üzerinde çalıştırarak deneyiniz.
.

 

[efem67]

Hocam sorun şu ; satır aç dediğim de önce düzgün çalışıyor
sonra satır aşarken arttırma ve veya eksiltme yaptığımda
bir alttaki satırda yanlızca A satırlarında hücrelerin kutusunu çizmiyor

 

[vardar07]

Sayın efem67 Benim ve Ömer Bey'in önerdiği kodlar hatasız çalışıyor. Sizde niçin olmadığını bilemeyiz. Dosyada 2 adet seçenek teker teker deneyiniz.

 

[Ömer BARAN]

Sayın efem67, Sayın vardar'ın yazdıklarına aynen katılıyorum.

Biz, desteği örnek belgeniz üzerinden veriyor ve sonuca sorunsuz olarak ulaşıyorsak;
örnek belgenizle gerçek belgenizi karşılaştırma (koşullu biçimlendirmeleri unutmayınız),
uyarlama işini kendinizin çözmesi lazım.
.