Hucreleri otomatik doldurmak ve hucreleri farklı renklere boyamak

[bovocox]

Merhaba arkadaslar.Benim soyle bi ricam olacaktı.Asagıda ektede gonderdiğim dosyada üst limitleri alt limitleri elle giriyorum yani bir ay için 30 tane degeri surukle bırak usuluyle yapıyorum.ama acaba bi text boxa 5 degerini girsem mesela 30 tane kadar hucreye kendiliginden yazdırabilecegim bi macroyu nasıl yapabilirim.Yada bu alt ve ust limitler zaten sabit sayılar sadece 1 deger girerek aynı grafigi cizdirebilmem mumkunmu.birde grafigi ciz butonuna tıklandıgında işte sınırı gecti sınırda gibi yazıları yazdırıyom ama ben sınırı gecemeyenleri kırmızı yapmak istiyorum bu konuda yardımcı olursanız cok sevinirim

 

[Seyit Tiken]

A1 hücresine değer girerek kodu çalıştırıp deneyiniz.

Sub Makro3()
[A1].AutoFill Destination:=Range("A1:A30")
End Sub

 

[bovocox]

Verdiginiz macro calıstı bende daha once alpi beyin verdigi kodla birlestirmeye calıstım kodunuuz ama hata veriyor .acaba bi bakabilirmisiniz.burda text boxlara deger girdiginde verilern aralıktaki tum hucrelerin o sayıyla dolmasını istiyorum

 

[bedersu]

Merhaba,
on error resume next kısmını kodun başına alın:

Private Sub alpiSayfa_Change(ByVal Target As Range)
On Error Resume Next
If Target = Hücre Then

alpiMetinKutusu.Text = Target.Value
alpiAçılırKutu.Text = Target.Value
End If
End Sub