eksi değerleri + ya çevirme

[ismail-34]

Excel web ailesine selamlar saygılar.

benim sorum c g ve k sütunlarının 3. satırından başlayan - değerleri + ya çevirmek ile ilgili olacak.ancak mümkünse para birimi simgeleri bozulmasın istiyorum.

örnek dosya ektedir.

Herkese iyi günler dilerim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub ArtıYap()
For i = 3 To 11 Step 4
    ss = Sheets("Rapor").Cells(Rows.Count, i).End(3).Row
    For j = 3 To ss
        Cells(j, i) = Abs(Cells(j, i))
    Next j
Next
End Sub

 

[Greenblacksea53]

=mutlak() fonksiyonu ile işini görebilirsin..

Vba ile istersen

Sub cevir()
Dim son As Integer

son = Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To son
If Range("c" & i).Value < 0 Then
    Range("c" & i).Value = Range("c" & i).Value * -1
End If
Next i
End Sub

Diğer sütünlara uyarlarsın C sutünü için yaptım

 

[ismail-34]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub ArtıYap()
For i = 3 To 11 Step 4
    ss = Sheets("Rapor").Cells(Rows.Count, i).End(3).Row
    For j = 3 To ss
        Cells(j, i) = Abs(Cells(j, i))
    Next j
Next
End Sub

saat gibi çalışıyor teşekkürler değerli hocam .hastasıyız dedenin

 

[ismail-34]

=mutlak() fonksiyonu ile işini görebilirsin..

Vba ile istersen

Sub cevir()
Dim son As Integer

son = Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To son
If Range("c" & i).Value < 0 Then
    Range("c" & i).Value = Range("c" & i).Value * -1
End If
Next i
End Sub

Diğer sütünlara uyarlarsın C sutünü için yaptım

c sütunu için çalışıyor ama diğer sütunlara uyarlayamadım hocam "c:k" yaptım olmadı dede hocanınkide yeterli zaten ..teşekkür ederim.

 

[Mdemir63]

Selamlar
Alternatif olsun.
Ancak bir handikapı var düğmeye tekrar bastığınızda değerleri eksiye dönderir.
ama Sayın dEdE hocamın kodları daha iyi

Option Explicit
Dim i, x, sonsat, sonsut As Integer

Private Sub CommandButton1_Click()
sonsut = Sheets("Rapor").Cells(2, Columns.Count).End(xlToLeft).Column

    For i = 3 To sonsut Step 4
        sonsat = Sheets("Rapor").Cells(Rows.Count, i).End(xlUp).Row
        For x = 3 To sonsat
            Cells(x, i) = Cells(x, i) * -1
        Next x
    Next i
End Sub

 

[ismail-34]

Selamlar
Alternatif olsun.
Ancak bir handikapı var düğmeye tekrar bastığınızda değerleri eksiye dönderir.
ama Sayın dEdE hocamın kodları daha iyi

Option Explicit
Dim i, x, sonsat, sonsut As Integer

Private Sub CommandButton1_Click()
sonsut = Sheets("Rapor").Cells(2, Columns.Count).End(xlToLeft).Column

    For i = 3 To sonsut Step 4
        sonsat = Sheets("Rapor").Cells(Rows.Count, i).End(xlUp).Row
        For x = 3 To sonsat
            Cells(x, i) = Cells(x, i) * -1
        Next x
    Next i
End Sub

hocam buda iyiymiş eskiyede döndüren versiyonu. back to the memories ..emeğinize sağlık teşekkürler

 

[Mdemir63]

Rica ederim.
İyi çalışmalar