bul ve değiştir formül istiyorum.

[ferhatgurbuz]

Bİr SÜtÜnda 150 Tane Sabİt Bİr Sayi Var ( Örnek 50) Ama Bazilarinda 50 Den Farkli Ama 50 Den KÜÇÜk Rakamlar Var. Bİr Butonla Bunlarin Hepsİnİ Ayni Anda 50'ye Tamamlayabİlİrmİyİz

 

[Ali]

Bİr SÜtÜnda 150 Tane Sabİt Bİr Sayi Var ( Örnek 50) Ama Bazilarinda 50 Den Farkli Ama 50 Den KÜÇÜk Rakamlar Var. Bİr Butonla Bunlarin Hepsİnİ Ayni Anda 50'ye Tamamlayabİlİrmİyİz

Ufak bir makro işiniz görecektir sanırım.

Sub degerver()
    Range("A1:A150") = "50"
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
For s = [a6500].End(3).Row To 1 Step -1
If Range("a" & s) < 50 Then Range("a" & s) = 50
Next
End Sub

 

[Ali]

50'den k&#252;&#231;&#252;kleri 50 ye tamamlamak istiyormu&#351;sunuz.

Seyit Bey'in mesaj&#305;ndan sonra farkettim. &#304;htiyarlad&#305;m san&#305;r&#305;m.

 

[ferhatgurbuz]

A1 İle A150 Arasindakİ Dolu HÜcrelere Dİye Olsa Olurmu

 

[veyselemre]

Sub EnKucuk50olsun()
    For Each huc In [a1:a150].SpecialCells(xlCellTypeConstants, 1).Cells
        If huc.Value < 50 Then huc.Value = 50
    Next huc
End Sub

 

[ferhatgurbuz]

Ben mi acele ediyorum yoksa dolu hücrelere olmuyor mu

yine sağolun teşekkürler

 

[ferhatgurbuz]

bu konuda son soru

bu butonlarla işlem yaptığımızda Ctrl + Z Geri al tuşu işlemiyor mu

 

[Ali]

bu butonlarla işlem yaptığımızda Ctrl + Z Geri al tuşu işlemiyor mu

Hayır işlemez.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
For s = 8 To 150
If Range("f" & s).Value < 50 Then Range("f" & s) = 50
Next
End Sub

Not : Takıldığınız bir nokta olursa, foruma yazmanızda fayda var. Sorularda rahatsız olmayız. Yeterki soru net olsun.