eksi değerleri + ya çevirme

Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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.
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?
Kod:
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

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
572
Excel Vers. ve Dili
Ofis 365 Tr
Altın Üyelik Bitiş Tarihi
05-01-2025
=mutlak() fonksiyonu ile işini görebilirsin..

Vba ile istersen

Kod:
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
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?
Kod:
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 :)
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
=mutlak() fonksiyonu ile işini görebilirsin..

Vba ile istersen

Kod:
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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

Kod:
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
 
Son düzenleme:
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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

Kod:
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Rica ederim.
İyi çalışmalar
 
Üst