Makro çalıştığında B sutununun kendi özellikleri gidiyor.(kenarlık yazı boyutu gibi)

[yeniyetme]

arkadaşlar daha rahat anlamanız için örnek dosya gönderiyorum.
mesela a7 ' herhangi bir değer girdiğiniz zaman b sutunundaki değişimi gözlemleyin... kenarlıklar kayboluyor. yazı inceliyor.
Hata nereden kaynaklanıyor çözemedim.

Birde aşağıda yazdığım kodu nasıl kısaltabilirim..

Cells(say + 6, 2).Clear
Cells(say + 7, 2).Clear
Cells(say + 8, 2).Clear
Cells(say + 9, 2).Clear
Cells(say + 10, 2).Clear
Cells(say + 11, 2).Clear
Cells(say + 12, 2).Clear
Cells(say + 13, 2).Clear
Cells(say + 14, 2).Clear
Cells(say + ...., 2).Clear

 

[Recep İpek]

Clear yerine .ClearContents olarak deneyin.

 

[yeniyetme]

Clear yerine .ClearContents olarak deneyin.

teşekkür ederim... birinci sorunum halloldu sağol varol

 

[Recep İpek]

Bu kodların yerine

For i = 6 To 30
Cells(say + i, 2).ClearContents
Next i

kodlarını kullanınız.

 

[yeniyetme]

sayın recep ipek tekrar teşekkür ederim.
son bir şey daha sorabilirmiyim ?
evet derseniz okuyun

şimdi listbox'ın içine fare ile tıkladığımızda mavi oluyor yani onu seçiyoruz.
seçim işini iptal etmek için yani hiç tıklanmamış haline getirmek için ne yapmamız gerekiyor acaba.
listbox1.selected=false gibi birşey olması lazım ama o değil

 

[veyselemre]

ListBox1.ListIndex = -1

 

[yeniyetme]

teşekkür ederim veyse emre

BU ARADA İMZAN ÇOK GÜZEL GERÇEKTEN
Usta'ya başarısının sırrını sormuşlar.
-İki kelime demiş:
-Doğru kararlar.

Hepimizden farklı olarak, sürekli doğru kararları nasıl alabildiğini sormuşlar.

-Tek kelime demiş:
-Tecrübe.

İyi de kardeşim bu tecrübe denen şeyin sırrı neymiş? Usta, derin bir iç geçirmiş ve şöyle demiş.

-Yanlış kararlar.

 

[veyselemre]

Range("B" & say + 6 & ":B" & say + 30).ClearContents