Hücredeki değere göre şart oluşturma

[cavanoos]

Merhaba arkadaşlar;

Ekli dosyamda I sütununda - karakterli tutarlar var.E sütununda da tutarlar var.Eğer I sütunundaki tutar - karakter ise,E sütunundaki karakteride eksi karakterli yapabilir miyiz ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub VERİLERİ_DÜZENLE()
    Dim Hücre As Range

    For Each Hücre In Range("I2:I" & Cells(Rows.Count, "I").End(3).Row)
        If Hücre.Value < 0 And Cells(Hücre.Row, "E") > 0 Then
            Cells(Hücre.Row, "E") = Cells(Hücre.Row, "E") * -1
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cavanoos]

Korhan Bey;

Teşekkür ederim.Sorunum çözülmüştür.Saolun...