Sayı değerini negatif yapma

[rtk19641990]

Günaydın,
Ekte yapmak istedğimi açıklamaya çalıştım. Yardımınızı rica ederim.

iyi çalışmalar.

 

[Ziynettin]

Merhaba,
Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error GoTo hata
   Select Case Target.Column
Case 5
    If Target = "B" Then Target.Offset(0, -1) = Target.Offset(0, -1) * (-1)
 Case 7
    If Target = "A" Then Target.Offset(0, -1) = Target.Offset(0, -1) * (-1)
End Select
hata:
End Sub

 

[rtk19641990]

bunu nereye yazacağım

 

[rtk19641990]

daha dogrusu nasıl çalıştıracağım

 

[Ziynettin]

bunu nereye yazacağım

Çalışma sayfasınızın sayfa sekmesine sağ tıkla > Kod görüntüle > açılan beyaz alana yukarıdaki kodu kopyalayıp yapıştırın

 

[rtk19641990]

hocam yapıştırdım ama run deyince macro adı soruyor

 

[Ziynettin]

Dosyanız ektedir.

 

[rtk19641990]

Hocam ekteki dosyanızda G kolonunda 4 adet A var 1 tanesi - görünüyor. E kolonundaki B değerlerinin karşısında D ler de - görünmüyor. Kusura bakmayın anlayamadım. Kod nasıl çalışıyor? sayfa yüklendiğinde mi o değerler - olacak yoksa benim bir şey mi yapmam gerekiyor?
G ve E kolonlarına B ya da A yı ben mi tekrar gireceğim?

 

[rtk19641990]

üzerine gelip tekrar B yazıp enter a basarsam - yapıyor.

 

[Necdet]

Merhaba,

Siz bu bilgileri topluca mı değiştirmek istiyorsunuz, yoksa veri girdikçe mi?

Sayın tasmed'in kodları veri girdikçe çalışan kodlardan.

 

[rtk19641990]

Günaydın,
Hocam veriyi bir yerden alıp kopyalıyorum. Kopyaladıktan sonra bu kriterleri sağlayanları - yapabilmek istiyorum.

 

[rtk19641990]

Yani veri girmiyorum.

 

[Necdet]

Merhaba,

Yanıt gelmeyince yanıtlayım dedim. Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Deneyemezseniz dosyayı inceleyebilirsiniz.

Sub Eksi()
    
    Dim i   As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "E") = "B" Then Cells(i, "D") = Cells(i, "D") * -1
        If Cells(i, "E") = "A" Then Cells(i, "F") = Cells(i, "F") * -1
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır...:"
    
End Sub

 

[rtk19641990]

Çok teşekkür ederim. Elinize sağlık.

 

[rtk19641990]

Hocam vermiş olduğunuz formülü ekteki dosyaya uyguladım ama bir hata alıyorum. Birşeyi gözden kaçırıyorum ama anlayamadım. Bakabilir misiniz?

 

[rtk19641990]

Pardon yanlış konuya girmişim.

 

[rtk19641990]

Necdet Hocam,
13 mesajdaki kodda - bakiye bulamaz ise "- bakiye yoktur" mesajını nasıl verdirebilirim? Yani şartları sağlıyorsa işlem tamam yok ise "- bakiye yoktur" mesajı verdirmek istiyorum

 

[Necdet]

Necdet Hocam,
13 mesajdaki kodda - bakiye bulamaz ise "- bakiye yoktur" mesajını nasıl verdirebilirim? Yani şartları sağlıyorsa işlem tamam yok ise "- bakiye yoktur" mesajı verdirmek istiyorum

Merhaba,

Mesaj verdirelim verdirmesine de, nereye verdirelim?

Ben D sütununda bakiye 0 ise I, F sütununda bakiye 0 ise J sütununa "Bakiyesi Yok" yazdırdım.

Siz kendinize göre bu sütunları değiştiriniz.

Sub Eksi()
    
    Dim i   As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "E") = "B" Then
            If Cells(i, "D") = 0 Then
               [B][COLOR=red] Cells(i, "I")[/COLOR][/B] = " Bakiye Yok "
            Else
                Cells(i, "D") = Cells(i, "D") * -1
            End If
        End If
                
        If Cells(i, "E") = "A" Then
            If Cells(i, "F") = 0 Then
                [COLOR=red][B]Cells(i, "J")[/B][/COLOR] = "Bakiyesi Yoktur"
            Else
                Cells(i, "F") = Cells(i, "F") * -1
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır...:"
    
End Sub

 

[rtk19641990]

Yani şunu demek istedim. Ekteki gibi G kolonundaki değer A ise F kolonunda karşılık gelen sayı değeri - olacak. E kolonundaki değer B ise D kolonundaki karşlığı - olacak. Yani bu kriterlere uygunsa - olup "işlem bitti" mesajı verip - değerleri koyacak; uygun değilse " - değer atanacak bakiye yok" gibi.

 

[rtk19641990]

Bakiye sıfırsa değil hocam. Kriterlere uyuyorsa "işlem tamam", uygun degilse " Negatif değer yok" gibi.