Soru Belirlediğimiz sütundaki sayılara değer eklemek

[orkunozbudak]

Herkese merhaba E sütunundaki sayıların hepsine +100 eklemek istiyorum boş olan sütunlara +100 dolu olan sütunlara ise E sütunundaki olduğu satırdaki sayıya +100 eklemeli formülle veya macro ile yapmamız mümkünmü şimdiden çok teşşekür ederim

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Add_Value()
    Dim Value_To_Add As Variant, My_Area As Range, Rng As Range
    
    Value_To_Add = InputBox("Lütfen eklemek istediğiniz değeri giriniz...", , 100)
    If Value_To_Add = False Or Value_To_Add = "" Then
        MsgBox "İşleme devam edebilmeniz için değer girmelisiniz!", vbCritical
        Exit Sub
    End If
    
    On Error Resume Next
    Set My_Area = Application.InputBox("Lütfen işlem yapmak istediğiniz alanı seçiniz..", , , , , , , 8)
    On Error GoTo 0
    If My_Area Is Nothing Then
        MsgBox "İşleme devam edebilmeniz için hücre aralığı seçmelisiniz!", vbCritical
        Exit Sub
    End If
    
    On Error GoTo Safe_Exit
    
    Application.ScreenUpdating = 0
    Application.Calculation = -4135
    
    For Each Rng In My_Area.SpecialCells(xlCellTypeConstants, 1)
        If Rng <> "" Then
            If IsNumeric(Rng) Then Rng = Rng + Value_To_Add
        End If
    Next
    
    Application.Calculation = -4105
    Application.ScreenUpdating = 1
    
    MsgBox "Sayısal değer içeren hücrelere " & Value_To_Add & " değeri eklenmiştir.", vbInformation
    Exit Sub

Safe_Exit:
    Application.Calculation = -4105
    Application.ScreenUpdating = 1
    MsgBox "Sayısal değer içeren hücre bulunamadı!", vbCritical
End Sub

 

[orkunozbudak]

Deneyiniz.

Option Explicit

Sub Add_Value()
    Dim Value_To_Add As Variant, My_Area As Range, Rng As Range
   
    Value_To_Add = InputBox("Lütfen eklemek istediğiniz değeri giriniz...", , 100)
    If Value_To_Add = False Or Value_To_Add = "" Then
        MsgBox "İşleme devam edebilmeniz için değer girmelisiniz!", vbCritical
        Exit Sub
    End If
   
    On Error Resume Next
    Set My_Area = Application.InputBox("Lütfen işlem yapmak istediğiniz alanı seçiniz..", , , , , , , 8)
    On Error GoTo 0
    If My_Area Is Nothing Then
        MsgBox "İşleme devam edebilmeniz için hücre aralığı seçmelisiniz!", vbCritical
        Exit Sub
    End If
   
    On Error GoTo Safe_Exit
   
    Application.ScreenUpdating = 0
    Application.Calculation = -4135
   
    For Each Rng In My_Area.SpecialCells(xlCellTypeConstants, 1)
        If Rng <> "" Then
            If IsNumeric(Rng) Then Rng = Rng + Value_To_Add
        End If
    Next
   
    Application.Calculation = -4105
    Application.ScreenUpdating = 1
   
    MsgBox "Sayısal değer içeren hücrelere " & Value_To_Add & " değeri eklenmiştir.", vbInformation
    Exit Sub

Safe_Exit:
    Application.Calculation = -4105
    Application.ScreenUpdating = 1
    MsgBox "Sayısal değer içeren hücre bulunamadı!", vbCritical
End Sub

olmadı malesef acaba koddaki işleme devam etmeniz için hücre seçmeniz yazan yerlerimi doldurmam gerekli ?

 

[Korhan Ayhan]

Evet..

Hem eklemek istediğiniz değeri değişken olarak girebilirsiniz. Hem de işlem yapmak istediğiniz alanı seçerek işlem yapabilirsiniz.

 

[orkunozbudak]

Evet..

Hem eklemek istediğiniz değeri değişken olarak girebilirsiniz. Hem de işlem yapmak istediğiniz alanı seçerek işlem yapabilirsiniz.

E Sütunu için +100 şeklinde yardımcı olabilirmisiniz beceremedim biraz acemiyim en azından karşılaştırıp ne demek iştediğinizi öğrenmiş olurum şimdiden teşekkürler

 

[Korhan Ayhan]

Kodu çalıştırınız...

İlk uyarıyı ENTER diyerek geçebilirsiniz.
İkinci uyarı gelince MOUSE ile E sütununu seçip tamam dediğinizde işlem bitmiş olacaktır.

 

[orkunozbudak]

Kodu çalıştırınız...

İlk uyarıyı ENTER diyerek geçebilirsiniz.
İkinci uyarı gelince MOUSE ile E sütununu seçip tamam dediğinizde işlem bitmiş olacaktır.

beceremedim sanırım olmadı ilginize teşekkür ederim bilen birine göstereyim

 

[Korhan Ayhan]

Hangi bölümü beceremediniz?

 

[orkunozbudak]

Hangi bölümü beceremediniz?

alt+11 dediğim zaman acılan pencerede kodu kopyalıyorum run dediğimde bu hatayı veriyor sizin doldurun dediğiniz yerler baya fazla var orayı anlayamadım açıkçası örnek excel atsam dahamı kolay olur sizin için

 

[Korhan Ayhan]

Kırmızı olarak gördüğünüz C++ satırını silebilirsiniz. O bölümü almanıza gerek yok.

Sonrasında kodu çalıştırınız.

Sizden eklemek istediğini değeri girmenizi isteyecek. Burada varsayılan olarak 100 tanımladım. Siz dilediğiniz değeri girebilirsiniz.
Sonrasında karşınıza bir uyarı daha gelecek. Bu uyarıda ise sizden işlem yapmak istediğiniz hücre aralığını seçmenizi isteyecek. Burada mouse ile E sütununu seçebilirsiniz. Ya da daha farklı bir sütunda olabilir. Yani değişkendir. Sonrasında işlem tamamlanacaktır.

 

[orkunozbudak]

Şimdi oldu çok teşekkür ederim