kaydettiğim bir makronun butona basıldıgında çalışması???

[ayseguleyup]

merhaba,
Çok acil bir durum yardımcı olursanız sevinirim.
tabloya veri girildikçe bir satır renkli bi satır beyaz oluyor bunun için gerekli formülü koşullu biçimlendirmeye yazdıgımda oluyor ancak ben butona tıkladıgımda bunun çalışmasını istiyorum.
=VE(MOD(SATIR();2)=0;F4<>"") kullandıgım formül bu belki yardımcı olur...
şimdiden teşekkürler.

 

[kombo]

Sn ayseguleyup

Aşağıdaki kodu kullanın

Private Sub CommandButton1_Click()
 Dim iRow As Integer
  For iRow = 4 To Range("A1").SpecialCells(xlLastCell).Row Step 2
    Rows(iRow - 1).Interior.ColorIndex = xlNone
    Rows(iRow).Interior.ColorIndex = 15
  Next iRow
End Sub

 

[ayseguleyup]

teşekkür ama..

şimdi tam olarak istediğim seçmiş oldugum alan için sadece bu biçimlendirme olabilirmi.Yani a1:g28 hücre aralığını seçtiğimde sadece bu hücre aralığında bir satır renkli bir satır renksiz olabilir mi?

 

[kombo]

Sn ayseguleyup

Aslında bende makro yazmayı bilmiyorum. Ama deneme yanılma yoluyla birşeyler yapmaya çalıştım.

Aşağıdaki kodları bir modüle yazıp, BUTONa bağlayın.

Sub SatırRenkle()
[A:IV].Interior.ColorIndex = xlNone
Dim i As Integer
renk = [a65536].End(xlUp).Row
For i = 1 To renk Step 2
Rows(i).Interior.ColorIndex = 15
Next i
[A28:IV65536,H:IV].Interior.ColorIndex = xlNone
End Sub

Daha kısa bir yöntemi mutlaka vardır. Benim yapabildiğim bu kadar.

 

[ayseguleyup]

bende..

malesef bende çok yeniyim ve makro yazamıyorum
yazdıgım makroyu butona nasıl bağlayacağımı da bilmiyorum ..Şimdi ne işin var bunla o zaman demeyin.Sadece bunu yapmam gerekiyor..

 

[kombo]

Dosyanız ekte.

Alt+F11 ile vba sayfasını açın. Kodları modülde görürsünüz.

 

[ayseguleyup]

sn kombo

Peki daha sonra başka bi hücre aralığı seçtiğimde ve butona tıkladıgımda yine renklendirmesini nasıl sağlarım?Bu arada kodu butona aktarmak için sadece modül ekleyip kodu oraya yazmam mı gerekiyor?

 

[Necdet]

Bir örnekte benden