Tüm pozitif sayıların başına + koymak

[machool]

Arkadaşlar kolay gelsin...tüm pozitif sayıların başına + işareti koymak istiyorum.listemde 10000 küsür sayı var ve tek tek + koymak imkansız.neden + koymak istediğime gelince biliyorsunuz + koyunca = yerine geçiyor ve f2 tuşu ile düzenleyince tekrar = yapmaya gerek kalmıyor.soruyu tüm sayıların başına = koymak olarak da değerlendirebiliriz.kısacası istediğim 5 yerine ya +5 yada =5 olması tüm sayıların bir anda.şimdiden teşekkürler.....bu arada - sayılara dokunmayacağız.zira onların başındaki - işimizi zaten hallediyor.

 

[levo26]

Hücreleri biçimlendir>isteğe uyarlanmış kutucuundaki biçimi;

+0;-0;0

olarak yapınız.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayınız.

Önce hücreleri seçin sonra makroyu çalıştırın.

Sub FORMULLESTIR()
    Dim hücre As Range
    
    If Selection.Count > 1 Then
        For Each hücre In Selection
            hücre = "=" & hücre
        Next hücre
    End If
End Sub

 

[machool]

Levo beyin yazdığı olmadı.+ atıyor ama f2 ile hücre düzenlenince sapıtıyor.necdet beyinki ise kusursuz demek isterdim ama büyük değerlerde hata veriyor.herkese teşekkürler....

 

[levo26]

Levo beyin yazdığı olmadı.+ atıyor ama f2 ile hücre düzenlenince sapıtıyor.necdet beyinki ise kusursuz demek isterdim ama büyük değerlerde hata veriyor.herkese teşekkürler....

Merhaba;

Olmadı demişsiniz. Ekte test dosyası var. Renkli alanda denermisinz?

 

[Necdet]

necdet beyinki ise kusursuz demek isterdim ama büyük değerlerde hata veriyor.herkese teşekkürler....

Örnek dosya gönderseniz de deneseydik .)

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kodu denermisiniz.

Büyük değerlerden kastınız nedir? Bir örnek verebilirmisiniz.

Option Explicit
 
Sub TÜM_SAYILARIN_BAŞINA_EŞİTTİR_EKLE()
    Dim Hücre As Range
    
    For Each Hücre In Selection
        If IsNumeric(Hücre) Then
            Hücre.Value = "=" & Replace(Hücre.Value, ",", ".")
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[machool]

Levo bey sizin dosyada sadece başına + atıyor.O hücrede işlem yapmak için f2 ile içine girip bişey yazınca sapıtıyor.Demem o ki mavi alana 6 yazınca hemen +6 oluyor buraya kadar tamam.lakin +6-2 yapmak istediğinizde 4 vermiyor.Korhan bey yazdığınız makro güzel ve çalışıyor.Fakat 400.000 hücre için o işlemi yapınca önce kasıyor sonra hata veriyor.Herkese teşekkürler.Ayhan bey birazdan açacağım ilginç soruyu yanıtlardanız beni çok memnun edersiniz şimdiden teşekkürler....

 

[Necdet]

Hata veriyor, hata veriyor. Peki bu hatada ne diyor?

Somut birşey söyleyin ki üzerinde düşünelim.

Not : 400.000 li satırlarda hücre boş olsa bile içine = koydu.

Korhan bey'in kodlarını aşağıdaki şekilde değiştirdiğimde sorunsuz çalıştı.

Yine önce hücreleri seçip sonra kodları çalıştırmalısınız.

Sub TÜM_SAYILARIN_BAŞINA_EŞİTTİR_EKLE()
 
    Dim Hücre As Range
    
    For Each Hücre In Selection
        If Not Hücre = "" Then
            If IsNumeric(Hücre) Then
                Hücre.Value = "=" & Replace(Hücre.Value, ",", ".")
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    
End Sub