operatör ekleme

[XExcel]

Merhaba,

rakamların sonuna butona basıldığında + yada - eklenmesini istiyorum.

Teşekürler

 

[ReBiwAr]

sayın xexcel,

yanlış anlamadıysam cevabınız ektedir.

İyi Çalışmalar.

 

[XExcel]

elinize sağlık, yanlız süre çok uzun sürüyor, bunu kıslatmanın imkanı yok mu ?

 

[ReBiwAr]

üzgünüm ancak sistem tam 5000 tane +/- ekliyor..

Malesef bilgisayaraınızın hızı ile +/- ekleme hızı doğru orantılıdır.

İyi Çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Eğer kod içinde hücre seçilmezse makronun çalışması hızlanacaktır.

Option Explicit
 
Sub ARTI_EKLE()
    Dim Hücre As Range
    
    For Each Hücre In Range("A1:J500")
        If Hücre.Value <> "" Then
            Hücre.Value = Hücre.Value & "+"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Sub EKSİ_EKLE()
    Dim Hücre As Range
    
    For Each Hücre In Range("A1:J500")
        If Hücre.Value <> "" Then
            Hücre.Value = Hücre.Value & "-"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ReBiwAr]

hocam takdir ettim. İyi Çalışmalar.

 

[XExcel]

Hocam bende teşekür ederim elinize sağlık